{"id":21354472,"url":"https://github.com/codeficct/practico-1-series","last_synced_at":"2026-01-28T21:32:45.250Z","repository":{"id":125527206,"uuid":"487157109","full_name":"codeficct/practico-1-series","owner":"codeficct","description":"✨ Practico 1 de Series - Ing. Mollo","archived":false,"fork":false,"pushed_at":"2022-08-24T14:28:21.000Z","size":307,"stargazers_count":2,"open_issues_count":0,"forks_count":0,"subscribers_count":1,"default_branch":"main","last_synced_at":"2025-06-06T02:03:49.858Z","etag":null,"topics":["basic","uagrm","visual-basic","visual-studio"],"latest_commit_sha":null,"homepage":"","language":null,"has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":"mit","status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/codeficct.png","metadata":{"files":{"readme":"README.md","changelog":null,"contributing":null,"funding":null,"license":"LICENSE","code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2022-04-30T01:52:07.000Z","updated_at":"2025-03-24T16:12:51.000Z","dependencies_parsed_at":null,"dependency_job_id":"9c7f8f4a-627d-4f22-acb9-8989d60946c7","html_url":"https://github.com/codeficct/practico-1-series","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"purl":"pkg:github/codeficct/practico-1-series","repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/codeficct%2Fpractico-1-series","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/codeficct%2Fpractico-1-series/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/codeficct%2Fpractico-1-series/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/codeficct%2Fpractico-1-series/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/codeficct","download_url":"https://codeload.github.com/codeficct/practico-1-series/tar.gz/refs/heads/main","sbom_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/codeficct%2Fpractico-1-series/sbom","scorecard":null,"host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":286080680,"owners_count":28852816,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2026-01-28T15:15:36.453Z","status":"ssl_error","status_checked_at":"2026-01-28T15:15:13.020Z","response_time":57,"last_error":"SSL_read: unexpected eof while reading","robots_txt_status":"success","robots_txt_updated_at":"2025-07-24T06:49:26.215Z","robots_txt_url":"https://github.com/robots.txt","online":false,"can_crawl_api":true,"host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["basic","uagrm","visual-basic","visual-studio"],"created_at":"2024-11-22T04:13:30.839Z","updated_at":"2026-01-28T21:32:45.232Z","avatar_url":"https://github.com/codeficct.png","language":null,"funding_links":[],"categories":[],"sub_categories":[],"readme":"# Practico 1 - Series\nPractico de Series de la introduccion a la informatica con el ingeniero Mollo.\n- Lenguaje de Programación: Visual Basic\n- [ver PDF del práctico](https://drive.google.com/file/d/17pNVzbHrNzvcWico6ENC5BTHh7xvRfQa/view?usp=sharing)\n\n## Contenido\n1. [Generar la tabla de multiplicar de n](#ejercicio-1-2-3-y-4)\n2. [Generar la división de n](#ejercicio-1-2-3-y-4)\n3. [Generar la suma de n](#ejercicio-1-2-3-y-4)\n4. [Generar la resta de n](#ejercicio-1-2-3-y-4)\n5. [Ejercicio 5](#ejercicio-5)\n6. [Ejercicio 6](#ejercicio-6)\n7. [Ejercicio 7](#ejercicio-7)\n8. [Ejercicio 8](#ejercicio-8)\n9. [Ejercicio 9](#ejercicio-9)\n10. [Ejercicio 10](#ejercicio-10)\n11. [Ejercicio 11](#ejercicio-11)\n12. [Ejercicio 12](#ejercicio-12)\n13. [Ejercicio 13](#ejercicio-13)\n14. [Ejercicio 14](#ejercicio-14)\n15. [Ejercicio 15](#ejercicio-15)\n\n## Ejercicio 1, 2, 3 y 4\n![ejercicio-1-2-3-4](https://user-images.githubusercontent.com/88288135/186444074-653c7913-ab1b-4380-9787-0f90a8111970.png)\n\nEjercicios 1,2,3,4. Generar la tabla de operaciones aritméticas de n... términos:\n- suma\n- resta\n- multiplación\n- división\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n\n```vb\nPublic Function SelectTable(n As Double, operatorString As String) As String\n  Dim result, symbol As String\n  Dim index As Integer\n  Dim res As Double\n  result = \"\" : symbol = \"\"\n  For index = 0 To 10\n      Select Case operatorString\n          Case \"*\"\n              symbol = \" *\"\n              res = (index * n)\n          Case \"/\"\n              symbol = \" /\"\n              res = (index / n)\n          Case \"+\"\n              symbol = \" +\"\n              res = (index + n)\n          Case \"-\"\n              symbol = \" -\"\n              res = (index - n)\n      End Select\n      result = result + Str(index) + symbol + Str(n) + \" = \" + Str(res) + Chr(13) + Chr(10)\n  Next\n  Return result\nEnd Function\n```\n```bash\n# Output: SelectTable(TextBox1.Text, \"+\")\n 0 + 5 =  5\n 1 + 5 =  6\n 2 + 5 =  7\n 3 + 5 =  8\n 4 + 5 =  9\n 5 + 5 =  10\n 6 + 5 =  11\n 7 + 5 =  12\n 8 + 5 =  13\n 9 + 5 =  14\n 10 + 5 =  15\n```\n\n\u003c/details\u003e\n\n## Ejercicio 5\n![ejercicio-5](https://user-images.githubusercontent.com/88288135/186444118-0bfc580e-d4ca-42db-a068-81542f431b45.png)\n\nSumar una serie regular de n términos:\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n\n```vb\nPublic Function RegularSerie(n As UInt16, initialValue As Single, razon As Single, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As UInt32\n    Dim t, total As Single\n    For index = 1 To n\n        t = initialValue + (index - 1) * razon\n        If sumTotal Then\n            total += t\n            result = Str(total)\n        Else\n            If index = n Then\n                result += Str(t)\n            Else\n                result = result + Str(t) + \"  + \"\n            End If\n        End If\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: RegularSerie(TextBox1.Text, TextBox2.Text, TextBox3.Text, True)\nF = 30\n# Output string: RegularSerie(TextBox1.Text, TextBox2.Text, TextBox3.Text, False)\nF =  2  +  4  +  6  +  8  +  10\n```\n\n\u003c/details\u003e\n\n## Ejercicio 6\n![ejercicio-6](https://user-images.githubusercontent.com/88288135/186444149-b07db024-76ab-456f-b80b-872fb3d71c00.png)\n\n`F = (ln(10)+1)/1.7 + (ln(100)+2)/1.9...` El argumento del Log10, está multiplicando. X10, X10,..utilice acumulador multiplicador.\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n\n```vb\nPublic Function LogarithmSerie(n As Integer, initialValue As Double, razon As Double, arg As Double, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim count As Double\n    Dim index As Integer\n    Dim t, f, total As Double\n    count = arg\n    t = initialValue\n    For index = 1 To n\n        If sumTotal Then\n            f = (Math.Log10(count) + index) / t\n            total += f\n            result = Str(total)\n        Else\n            If index.Equals(n) Then\n                result = result + \"(ln(\" + Str(count) + \")+\" + Str(index) + \")/\" + Str(t)\n            Else\n                result = result + \"(ln(\" + Str(count) + \")+\" + Str(index) + \")/\" + Str(t) + \"+  \"\n            End If\n        End If\n        count *= 10\n        t = Math.Round(t + razon, 2)\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: LogarithmSerie(TextBox1.Text, vi, r, arg, True)\nF = 13.617137472838102\n# Output string: LogarithmSerie(TextBox1.Text, vi, r, arg, False)\nF = (ln(10)+1)/1.7 +  (ln(100)+ 2)/ 1.9  +  (ln(1000)+3)/2.1  + (ln(10000)+4)/2.3  +  (ln(100000)+5)/2.5\n```\n\n\u003c/details\u003e\n\n## Ejercicio 7\n![ejercicio-7](https://user-images.githubusercontent.com/88288135/186444172-7c5ad491-5820-4e0c-ba67-8f2ea91e95a7.png)\n\n`F = 100/1 + 99/2 + 97/4...` el numerador Va reduciendo el termino en 1, 2, 3… mientras que el denominador incrementando en 1,2,3…, debe tener valor inicial del numerador VIN=100, y valor inicial del denominador VID=1.\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function IncreaseAndDecrease(n As Integer, initialValueNumerator As Integer, initialValueDenominator As Integer, isSumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim f, total As Double\n    For index = 1 To n\n        If isSumTotal Then\n            f = (initialValueNumerator / initialValueDenominator)\n            total += f\n            result = Str(total)\n        Else\n            If index = n Then\n                result = result + Str(initialValueNumerator) + \"/\" + Str(initialValueDenominator)\n            Else\n                result = result + Str(initialValueNumerator) + \"/\" + Str(initialValueDenominator) + \" +  \"\n            End If\n        End If\n        initialValueNumerator -= index\n        initialValueDenominator += index\n    Next\n    Return \"F =\" + result\nEnd Function\n```\n```bash\n# Output: IncreaseAndDecrease(TextBox1.Text, TextBox2.Text, TextBox3.Text, True)\nF = 195.3603896103896\n# Output string: IncreaseAndDecrease(TextBox1.Text, TextBox2.Text, TextBox3.Text, False)\nF = 100/ 1 +   99/ 2 +   97/ 4 +   94/ 7 +   90/ 11\n```\n\n\u003c/details\u003e\n\n## Ejercicio 8\n![ejercicio-8](https://user-images.githubusercontent.com/88288135/186444205-1d258a44-004e-4e25-98b1-61077c6cbefe.png)\n\n`F = 5.25/0!+0 + 5.24/1!+1 + 5.22/2!+2...` Ambos elementos son series regulares y para el denominador solo debes llamar a la función factorial, claro que debes aprender hacer el algoritmo para el examen.\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function Factorial(number As Double) As Double\n    Dim fac As Double\n    Dim index As Integer\n    If number \u003c\u003e 0 Then\n        fac = 1\n        For index = Math.Abs(number) To 1 Step -1\n            fac *= index\n        Next\n        If number \u003c 0 Then\n            fac = -fac\n        End If\n    Else\n        fac = 1\n    End If\n    Return fac\nEnd Function\nPublic Function RegularSerieWithFactorial(n As Integer, initialValueNum As Double, initialValueDen As Double, sumTotal As Double) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim t, f, total As Double\n    For index = 0 To n\n        If sumTotal Then\n            If initialValueDen = 0 Then\n                f = 0\n            Else\n                f = initialValueNum / (Factorial(initialValueDen) + initialValueDen)\n            End If\n            total += f\n            result = Str(total)\n        Else\n            t = index + 1\n            If index = n Then\n                result = result + Str(Math.Round(initialValueNum, 2)) + \"/(!\" + Str(initialValueDen) + \"+\" + Str(initialValueDen) + \")\"\n            Else\n                result = result + Str(Math.Round(initialValueNum, 2)) + \"/(!\" + Str(initialValueDen) + \"+\" + Str(initialValueDen) + \")  +  \"\n            End If\n        End If\n        initialValueNum -= (t / 100)\n        initialValueDen += 1\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: RegularSerieWithFactorial(TextBox1.Text, vi, r, True)\nF = 4.750333333333333\n# Output string: RegularSerieWithFactorial(TextBox1.Text, vi, r, False)\nF = 5.25/(!0+0) + 5.24/(!1+1) + 5.22/(!2+2) + 5.19/(!3+3) + 5.15/(!4+4) + 5.1/(!5+5)\n```\n\n\u003c/details\u003e\n\n## Ejercicio 9\n![ejercicio-9](https://user-images.githubusercontent.com/88288135/186444267-a8bf051f-1d49-432b-a97c-f1f43e6ac8cd.png)\n\n`F = X^2/2! + X^4/4! + X^6/6!+…` X, es solo una variable de entrada que se debe tomar en el término\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function SumFactorial(n As Integer, x As Single, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim formule As Double\n    If n = 0 Then\n        result = Str(0)\n    End If\n    For index = 1 To n\n        If sumTotal Then\n            formule = Math.Pow(x, index * 2) / Factorial(index * 2)\n            result = Str(formule)\n        Else\n            If index = n Then\n                result = result + \"(\" + Str(x) + \"^\" + Str(index * 2) + \")/\" + Str(index * 2) + \"!\"\n            Else\n                result = result + \"(\" + Str(x) + \"^\" + Str(index * 2) + \")/\" + Str(index * 2) + \"! + \"\n            End If\n        End If\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: SumFactorial(TextBox1.Text, TextBox2.Text, True)\nF = 0.0002821869488536155\n# Output string: SumFactorial(TextBox1.Text, TextBox2.Text, False)\nF = (2^2)/ 2! + (2^4)/ 4! + (2^6)/ 6! + (2^8)/ 8! + (2^10)/ 10!\n```\n\n\u003c/details\u003e\n\n## Ejercicio 10\n![ejercicio-10](https://user-images.githubusercontent.com/88288135/186444302-45eed81f-27ac-42f8-9364-232f7953f9f3.png)\n\n`3√(0+x1) + 6√(1+x1) + 9√(1+x1)...` El argumento de la raíz es Fibonacci mas una varible x1.\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function SerieProgresiveFibonacci(n As Integer, x As Double, viRoot As Integer, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index, a, b, c, root As Integer\n    Dim formule, total As Double\n    a = -1 : b = 1 : root = viRoot\n    For index = 1 To n\n        c = a + b\n        If sumTotal Then\n            formule = (c + x) ^ (1 / root)\n            total += formule\n            result = Str(total)\n        Else\n            If index = n Then\n                result = result + Str(index * 3) + \"√(\" + Str(c) + \"+\" + Str(x) + \")\"\n            Else\n                result = result + Str(index * 3) + \"√(\" + Str(c) + \"+\" + Str(x) + \") + \"\n            End If\n        End If\n        a = b\n        b = c\n        root *= 3\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: SerieProgresiveFibonacci(TextBox1.Text, TextBox2.Text, TextBox3.Text, True)\nF = 5.455187736786854\n# Output string: SerieProgresiveFibonacci(TextBox1.Text, TextBox2.Text, TextBox3.Text, False)\nF = 3√(0+2) +  6√(1+2) +  9√(1+2) +  12√(2+2) +  15√(3+2)\n```\n\n\u003c/details\u003e\n\n## Ejercicio 11\n![ejercicio-11](https://user-images.githubusercontent.com/88288135/186444327-afec7074-ce3a-4497-b984-6c293bbeeb5f.png)\n\n`20√cos(0.2) - 19√cos(0.4) + 18√cos(0.6)...` “pimponea”, o sea suma el termino y resta, suma y resta. ESTE NO ES N TERMINOS, SINO HASTA QUE LA RAIZ SEA 2 OSEA EL UTLIMO ELEMENTO SERA 2√cos(...).\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Shared Function Pinponear(root As Double, vi As Double, razon As Double, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim count, total, formule As Double\n    count = vi\n    For index = root To 2 Step -1\n        If sumTotal Then\n            If index Mod 2 \u003c\u003e 0 Then\n                formule = -Math.Pow(Math.Cos(count), 1 / index)\n            Else\n                formule = Math.Pow(Math.Cos(count), 1 / index)\n            End If\n            total += formule\n            result = Str(total)\n        Else\n            If index = 2 Then\n                result = result + Str(index) + \"√cos(\" + Str(count) + \")\"\n            Else\n                If index Mod 2 \u003c\u003e 0 Then\n                    result = result + Str(index) + \"√cos(\" + Str(count) + \")  + \"\n                Else\n                    result = result + Str(index) + \"√cos(\" + Str(count) + \")  - \"\n                End If\n            End If\n        End If\n        count = Math.Round(count + razon, 2)\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: Pinponear(TextBox1.Text, vi, r, True)\nF = 5.455187736786854\n# Output string: Pinponear(TextBox1.Text, vi, r, False)\nF = 3√(0+2) +  6√(1+2) +  9√(1+2) +  12√(2+2) +  15√(3+2)\n```\n\n\u003c/details\u003e\n\n## Ejercicio 12\n![ejercicio-12](https://user-images.githubusercontent.com/88288135/186444349-d79cc7de-1bcb-4696-8098-46bcd8ef3311.png)\n\n`√(sin(0.1)/(3!/2)) + √(sin(0.11)/(3!/2))...` También pimponea, resta y suma, resta y suma el termino.\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function ProgresiveSeriePinponear(n As Integer, initValue As Double, r As Double, arg As Double, sumTotal As Boolean)\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim total, formule, count As Double\n    count = initValue\n    For index = 1 To n\n        If sumTotal Then\n            formule = Math.Sqrt(Math.Sin(arg) / (Factorial(count) / 2))\n            total = -total + formule\n            result = Str(total)\n        Else\n            If index Mod 2 = 0 Then\n                result = result + \"+ √sin(\" + Str(arg) + \")/(\" + Str(count) + \"!/2) \"\n            Else\n                result = result + \"- √sin(\" + Str(arg) + \")/(\" + Str(count) + \"!/2) \"\n            End If\n        End If\n        arg = Math.Round(arg + r, 2)\n        count += 3\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: ProgresiveSeriePinponear(TextBox1.Text, vi, r, arg, True)\nF = -0.16574853902978934\n# Output string: ProgresiveSeriePinponear(TextBox1.Text, vi, r, arg, False)\nF = - √sin( 0.1)/( 3!/2) + √sin( 0.11)/( 6!/2) - √sin( 0.12)/( 9!/2) + √sin( 0.13)/( 12!/2)\n```\n\n\u003c/details\u003e\n\n## Ejercicio 13\n![ejercicio-13](https://user-images.githubusercontent.com/88288135/186444385-50e5f5ae-7990-48da-bb87-434123617752.png)\n\n`(π/2)/√(1000+0) + (π/1.9)/√(1001+1) + (π/1.8)/√(1003+1)` El argumento de la raíz va en incremento en una progresión: Del 1ro al 2do 1; del 2do al 3ro 2; del 3ro al 4to 3; …mientras que el otro es Fibonacci.\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function ProgresiveSerieFibonacci(n As Integer, initValue As Integer, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim count, a, b, c, total, formule As Double\n    count = 2 : a = -1 : b = 1\n    For index = 1 To n\n        c = a + b\n        If sumTotal Then\n            formule = (3.14159 / count) / Math.Sqrt(initValue + c)\n            total += formule\n            result = Str(total)\n        Else\n            If index = n Then\n                result = result + \"(π/\" + Str(count) + \")/√(\" + Str(initValue) + \"+\" + Str(c) + \")\"\n            Else\n                result = result + \"(π/\" + Str(count) + \")/√(\" + Str(initValue) + \"+\" + Str(c) + \")  +  \"\n            End If\n        End If\n        a = b\n        b = c\n        count = Math.Round(count - 0.1, 2)\n        initValue += index\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: ProgresiveSerieFibonacci(TextBox1.Text, TextBox2.Text, True)\nF = 0.27688777750129406\n# Output string: ProgresiveSerieFibonacci(TextBox1.Text, TextBox2.Text, False)\nF = (π/ 2)/√( 1000+ 0)  +  (π/ 1.9)/√( 1001+ 1)  +  (π/ 1.8)/√( 1003+ 1)  +  (π/ 1.7)/√( 1006+ 2)  +  (π/ 1.6)/√( 1010+ 3)\n```\n\n\u003c/details\u003e\n\n## Ejercicio 14\n![ejercicio-14](https://user-images.githubusercontent.com/88288135/186444419-969b8549-6639-4687-95e5-70c9ecdff06c.png)\n\n`2√x^2/100 + 4√x^4/50 + 8√x^8/25...` La raíz multiplica, mientras que el denominador dentro la raíz desdobla (divide).\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function SerieMultiplyAndUnfold(n As Integer, root As Double, num As Double, denom As Double, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim total, formule As Double\n    For index = 1 To n\n        If sumTotal Then\n            formule = Math.Pow(Math.Pow(num, root) / denom, 1 / root)\n            total += formule\n            result = Str(total)\n        Else\n            If index = n Then\n                result = result + Str(root) + \"√(\" + Str(num) + \"^\" + Str(root) + \"/\" + Str(denom) + \")\"\n            Else\n                result = result + Str(root) + \"√(\" + Str(num) + \"^\" + Str(root) + \"/\" + Str(denom) + \")  +  \"\n            End If\n        End If\n        root = Math.Round(root * 2, 2)\n        denom = Math.Round(denom / 2, 2)\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: SerieMultiplyAndUnfold(TextBox1.Text, TextBox2.Text,TextBox3.Text, TextBox4.Text, True)\nF = 1.9987716171427177\n# Output string with params: SerieMultiplyAndUnfold(4, 2, 1, 100, False)\nF = 2√( 1^ 2/ 100)  +   4√( 1^ 4/ 50)  +   8√( 1^ 8/ 25)  +   16√( 1^ 16/ 12.5)\n```\n\n\u003c/details\u003e\n\n## Ejercicio 15\n![ejercicio-15](https://user-images.githubusercontent.com/88288135/186444442-19d4cae6-b553-4cf4-8ada-9bd04c631593.png)\n\n(`2+x^(1/16)) + (4+x^(1/14))...` La base va doblando. OJO , HASTA QUE EL TERMINO DONDE X ELEVE A 1/2\n\n\u003cdetails\u003e\n  \u003csummary\u003eVer código\u003c/summary\u003e\n  \n```vb\nPublic Function SerieBaseIsDoubling(n As Integer, base As Double, x As Double, denom As Double, sumTotal As Boolean) As String\n    Dim result As String = \"\"\n    Dim index As Integer\n    Dim total, formule As Double\n    For index = 1 To n\n        If sumTotal Then\n            formule = base + Math.Pow(x, 1 / denom)\n            total += formule\n            result = total\n        Else\n            If denom \u003e= 2 Then\n                If index = n Then\n                    result = result + \"(\" + Str(base) + \"+\" + Str(x) + \"^(1/\" + Str(denom) + \"))\"\n                Else\n                    result = result + \"(\" + Str(base) + \"+\" + Str(x) + \"^(1/\" + Str(denom) + \"))  + \"\n                End If\n            End If\n        End If\n        base *= 2\n        denom -= 2\n    Next\n    Return \"F = \" + result\nEnd Function\n```\n```bash\n# Output: SerieBaseIsDoubling(TextBox1.Text, vi, r, arg, True)\nF = 2056\n# Output string with params: SerieBaseIsDoubling(10, 2, 1, 16, False)\nF = ( 2+ 1^(1/ 16))  + ( 4+ 1^(1/ 14))  + ( 8+ 1^(1/ 12))  + ( 16+ 1^(1/ 10))  + ( 32+ 1^(1/ 8))  + ( 64+ 1^(1/ 6))  + ( 128+ 1^(1/ 4))  + ( 256+ 1^(1/ 2))\n```\n\n\u003c/details\u003e\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fcodeficct%2Fpractico-1-series","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fcodeficct%2Fpractico-1-series","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fcodeficct%2Fpractico-1-series/lists"}