0

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
1
  • 2
    Sustituye todos los corchetes por paréntesis.
    – Esei
    Commented el 12 oct. 2020 a las 5:16

1 respuesta 1

0

Cambia los corchetes por paréntesis.

Si es VB.Net, cambia la función Cos por Math.Cos

Public 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 += (4 / PI) * ((((-1) ^ (n - 1)) / (2 * n - 1)) * Math.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

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.