Rodmi

) CALCULO DE SERIE EXPONENCIAL CONTROLANDO EL ERROR (TOLERANCIA)

Function factorial(N As Double) As Double
Dim F As Double, I As Double
F = 1
For I = 1 To N
F = F * I
Next Ifactorial = F
End Function
Function exponencial(X As Double, Tolerancia As Double) As Double
Dim suma As Double, x1 As Double, x2 As Double, I As Double
x1 = 1
x2 = X
I = 2suma = x1 + x2
Do While (Abs(x1 - x2) > Tolerancia) Or (x1 = x2 And x1 0)
x1 = x2
x2 = X ^ I / factorial(I)
suma = suma + x2
I = I + 1
Loop
exponencial =suma
End Function
Sub main()
Dim X As Double
Debug.Print "Exponencial de "; 1; " es "; exponencial(1, 1E-16), Exp(1)
End Sub

SALIDA:

Exponencial de 1 es 2,718281828459052,71828182845905


1) Calcular la exponencial cuando tenemos predeterminado el numero de iteraciones

Function factorial(N As Double) As Double
Dim F As Double, I As Double
F = 1
For I = 1To N
F = F * I
Next I
factorial = F
End Function
Function exponencial(X As Double, N As Double) As Double
Dim suma As Double, I As Double
suma = 0
For I = 0 To Nsuma = suma + X ^ I / factorial(I)
Next I
exponencial = suma
End Function
Sub main()
Dim X As Double, I As Double
For I = 1 To 20
Debug.Print "Exponencial de "; 1; " es ";exponencial(1, I); " con "; I; " terminos"
Next I
End Sub

SALIDA DE DATOS:

Exponencial de 1 es 2 con 1 terminos
Exponencial de 1 es 2,5 con 2 terminos
Exponencial de 1 es2,66666666666667 con 3 terminos
Exponencial de 1 es 2,70833333333333 con 4 terminos
Exponencial de 1 es 2,71666666666667 con 5 terminos
Exponencial de 1 es 2,71805555555556 con 6terminos
Exponencial de 1 es 2,71825396825397 con 7 terminos
Exponencial de 1 es 2,71827876984127 con 8 terminos
Exponencial de 1 es 2,71828152557319 con 9 terminos
Exponencial de...