¡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