求三元方程的解,用vb编一个程序,有知道的,能给我提个思路,或者资料也行。拜谢了

来源:百度知道 编辑:UC知道 时间:2024/06/03 10:51:52
x+y^2+z^3=0,
其中x=(-1000,1000),y=(-1000,1000),z=(-1000,1000),
求出其中所有的x,y,z
只要个思路也行,当然具体答案更好了,拜谢了

如果真有无穷多解,可以限定一下,x,y,z取到小数点后面2位把

楼下ARTERIOSCLEROS 肯定是个高手,不过感觉不是我要的答案,如果计算的是n元方程,那么不就要求有n个嵌套的循环,那计算量就会很大,如果加大步长,必然会漏解。并且很有可能得不到结果。能不能有更好的算法呢。期待………………

限制到2位小数,得算好几天吧~就算是整数,一般算法的话,-1000~1000也得好几个小时。我是没时间调试了,我弄了个-100~100的,楼主的CPU如果先进的话,把下面代码中的上限下限改一改试试吧。
代码如下。
====================
Option Explicit
Private Const a = -100 '下限
Private Const b = 100 '上限
Dim x As Integer, y As Integer, z As Integer

Private Sub Form_Load()
Open "d:\1.txt" For Output As 1
For x = a To b
For y = a To b
For z = a To b
If x + CSng(y) * y + z ^ 3 = 0 Then Print #1, x, y, z
Next
Next
Next
Close
MsgBox "计算完毕,已经输出到D:\1.txt ,请查看"
End
End Sub

-aX+bY+cZ=m
-cX+dY+eZ=n
-fX+gY+hZ=l

这是一般式,你只要要求用户输入常量,然后解方程就好了.
解法...你就按普通方程解,用常数表示出来x,y,z就好了.

你后来这个方程啊...要接的的话..可定会卡..

还有别的要求吗? 比如xyz是整数?

这样会有无穷个解的.

这么多解,看哪个有用自己挑吧

Private Sub Command1_Click()
Dim y As Single
Dim z As Single

For y = -1000 To 1000 Step 0.01