Skip to main content
se añadieron 70 caracteres en el cuerpo
Origen Enlace

Es una simple sumatoria con una formula larga. Me dice que no coinciden los datos (error 13). Dice que el error esta en la fórmula. Adjunto foto de la fórmula y codigo.

Nota: Los valores de entrada son 'x' y 't' por eso no tienen valor

introducir la descripción de la imagen aquí

Sub Sumatoria()
Dim PI As Double
Dim K_EULER As Double
Dim L As Double
Dim n As Double
Dim Alfa As Double
Dim S As Double
Dim Sumatoria As Double
Dim x As Double
Dim t As Double
PI = 3.14159265358979
K_EULER = 0.577215664901532
L = 0.02
Alfa = 0.000001
S = 0
For n = 1 To 1000
S = S + (4 / PI) * [[((-1)^(n-1))/(2*n-1)]*cos[((2*n-1)*PI*x)/(2*L)]*(K_EULER)^[[[((2*n-1)*PI)/2*L]^2]*-Alfa*t]]
Next n
Sumatoria = S
End Sub

Es una simple sumatoria con una formula larga. Me dice que no coinciden los datos (error 13). Dice que el error esta en la fórmula. Adjunto foto de la fórmula y codigo.

introducir la descripción de la imagen aquí

Sub Sumatoria()
Dim PI As Double
Dim K_EULER As Double
Dim L As Double
Dim n As Double
Dim Alfa As Double
Dim S As Double
Dim Sumatoria As Double
Dim x As Double
Dim t As Double
PI = 3.14159265358979
K_EULER = 0.577215664901532
L = 0.02
Alfa = 0.000001
S = 0
For n = 1 To 1000
S = S + (4 / PI) * [[((-1)^(n-1))/(2*n-1)]*cos[((2*n-1)*PI*x)/(2*L)]*(K_EULER)^[[[((2*n-1)*PI)/2*L]^2]*-Alfa*t]]
Next n
Sumatoria = S
End Sub

Es una simple sumatoria con una formula larga. Me dice que no coinciden los datos (error 13). Dice que el error esta en la fórmula. Adjunto foto de la fórmula y codigo.

Nota: Los valores de entrada son 'x' y 't' por eso no tienen valor

introducir la descripción de la imagen aquí

Sub Sumatoria()
Dim PI As Double
Dim K_EULER As Double
Dim L As Double
Dim n As Double
Dim Alfa As Double
Dim S As Double
Dim Sumatoria As Double
Dim x As Double
Dim t As Double
PI = 3.14159265358979
K_EULER = 0.577215664901532
L = 0.02
Alfa = 0.000001
S = 0
For n = 1 To 1000
S = S + (4 / PI) * [[((-1)^(n-1))/(2*n-1)]*cos[((2*n-1)*PI*x)/(2*L)]*(K_EULER)^[[[((2*n-1)*PI)/2*L]^2]*-Alfa*t]]
Next n
Sumatoria = S
End Sub
Origen Enlace

Error 13 de Visual Basic, no puede ejecutar el codigo

Es una simple sumatoria con una formula larga. Me dice que no coinciden los datos (error 13). Dice que el error esta en la fórmula. Adjunto foto de la fórmula y codigo.

introducir la descripción de la imagen aquí

Sub Sumatoria()
Dim PI As Double
Dim K_EULER As Double
Dim L As Double
Dim n As Double
Dim Alfa As Double
Dim S As Double
Dim Sumatoria As Double
Dim x As Double
Dim t As Double
PI = 3.14159265358979
K_EULER = 0.577215664901532
L = 0.02
Alfa = 0.000001
S = 0
For n = 1 To 1000
S = S + (4 / PI) * [[((-1)^(n-1))/(2*n-1)]*cos[((2*n-1)*PI*x)/(2*L)]*(K_EULER)^[[[((2*n-1)*PI)/2*L]^2]*-Alfa*t]]
Next n
Sumatoria = S
End Sub