Red de conocimiento informático - Problemas con los teléfonos móviles - Código VB para resolver ecuaciones lineales multivariadas

Código VB para resolver ecuaciones lineales multivariadas

Dim x, y, x1, y1, x2, y2, x3, y3 es Doble

Ajustar a, b, c al doble de precisión

Subcomando privado 1_Click()

Imprimir; "Ecuación: y = a * x^2 b * x c "

MsgBox "Ingrese las coordenadas de los vértices de x e y"

x1=0< / p>

x2=0

x3=0

y1=0

y2=0

y3=0< / p>

X1=InPutBox("Ingrese el valor de X1", x1).

Y1=InPutBox("Por favor ingrese el valor de Y1", y1).

X2=InPutBox("Ingrese el valor de X2", x2)

Y2=InPutBox("Ingrese el valor de Y2", y2)

X3 =InPutBox("Ingrese el valor de X3", x3)

Y3=InPutBox("Ingrese el valor de Y3", y3)

c = y1-( a*x1^ 2 b * x 1)

b = y2-c-a*x2^2)\x2

a = (y3-b*x3-c)\x3^ 2

x=0

y=0

X=InputBox("Ingrese el valor de x", x)

y=a*x ^2 b*x c

Texto1. Texto = y

Conector final

Subform_Load privado()

Texto1. Texto=0

Conector final