Red de conocimiento informático - Problemas con los teléfonos móviles - ¡Expertos en VB, por favor denme algún consejo! ¡Altas notas y gracias! ¿Cómo utilizar la programación VB para resolver un sistema de ecuaciones cúbicas bidimensionales mediante el método iterativo?

¡Expertos en VB, por favor denme algún consejo! ¡Altas notas y gracias! ¿Cómo utilizar la programación VB para resolver un sistema de ecuaciones cúbicas bidimensionales mediante el método iterativo?

Permítame darle un método fácil de entender pero problemático. Primero, calcule el rango de números desconocidos t y k, como t∈(-100,500), k∈(-300,1000), y luego establezca Dos pasos, dt=0.001, k=0.003. Establezca otro umbral d=0,01 y luego realice un bucle

para t=-100 a 500 paso 0,001

para k=-300 a 1000 paso 0,003

si a1t^3 ... h1 lt; 0.01

//Dentro del rango de umbral, genera los valores t y k

next k

next t

Este método puede obtener una solución aproximada cuando el tamaño del paso y el umbral se establecen adecuadamente.

Si desea optimizar, puede consultar libros sobre diseño de optimización, como métodos de rama y enlace para mejorar la eficiencia del cálculo.

Atenuar a1, b1, c1, d1, e1, f1, g1, h1, a2, b2, c2, d2, e2, f2, g2, h2 como doble

'A Asigne valores a estas constantes

Dim t, k As Double

Para t = 0 a 1 Paso 0,001

Para k = 0 a 1 Paso 0,001

If Abs(a1t ^ 3 b1 * t ^ 2 c1 * t d1 * t * k ^ 2 e1 * t * k f1 * k ^ 2 g1 * k h1) lt; * k ^ 3 b2 * k ^ 2 c2 * k d2 * k * t ^ 2 e2 * k * t f2 * t ^ 2 g2 * t h2) lt; 0.001 Entonces

'Dentro del rango de umbral; , genera el valor t y k

Imprimir "t="; Siguiente k

Siguiente t