Método de vb Simpson para calcular integrales. Quiero un código específico que pueda ejecutarse.

Private Sub Command1_Click()

Límite inferior tenue Como único, límite superior Como único, error permitido Como único, error real Como único, raya Como entero

Límite inferior = Val(InputBox("Ingrese el límite inferior de puntos"))

Límite superior = Val(InputBox("Ingrese el límite superior de puntos"))

Si el límite inferior gt; límite superior Entonces

MsgBox "El límite inferior es mayor que el límite superior. Se sospecha un error de entrada.

Programa de intercambio automático"

t = límite inferior

límite inferior = límite superior

límite superior = t

Finalizar si

Error permitido = Val(InputBox("Ingrese el error permitido"))

Imprimir "Límite inferior integral:"; "; Límite superior

Imprimir "El error permitido es:"; Error permitido

Imprimir "El resultado de la integración es:"; Integración (límite inferior, límite superior, error permitido, real error, raya)

Imprimir "Número de trapecios divididos:"; Rayado

Imprimir "El error de truncamiento es:"; >

Integración de funciones privadas (límite inferior como único, límite superior como único, requisito de error como único, error como único, número de bloques como entero)

Dim p como único

Número de bloques = 2

Valor integral = 0

Tamaño del paso = (límite superior - límite inferior) / número de bloques

p = función (límite inferior) límite) función (límite superior)

d = función (límite inferior paso largo)

Hacer

s = (p 4 * d) * tamaño de paso / 3

Error = Abs(s - valor integrado)

Si error lt; = requisito de error Y número de bloques gt 100 Entonces salga Do

Número de bloques = número de bloques * 2

Tamaño del paso = (límite superior - límite inferior) / Número de bloque

Valor integral = s

p = p 2 * d

d = 0

Para i = 1 Para Número de bloques- 1 Paso 2

función d = d (límite inferior i * tamaño de paso)

Siguiente i

Bucle

Integral = s

Función final

Función de función privada (argumento como Single) 'El contenido de esta función debe ser modificado por usted mismo

Función = variable independiente * variable independiente

Función final