VB迭代出正确结果，但出现了无效的过程调用和参数，哪位大神能指导下

hh0796 发布于 2020-11-10 13:41， 1839 次点击

只有本站会员才能查看附件，请登录

采用迭代法，使等式两边的绝对值差小于等于0.0001
已知条件：
α为角度
c为变形系数
fm曲率比
Fa为轴向力
Z钢球数量
Dw为钢球直径
未知量α'进行迭代VB中x1表示

要求:输入已知条件和代入一个α',最终求出/显示等式的两边数值和最终的α'

只有本站会员才能查看附件，请登录

6 回复

cwa99582020-11-10 13:59

出现z2小于0了

hh07962020-11-10 14:27

回复 2楼 cwa9958

多谢您的回复
但
z2= Fa / (Z * Dw * Dw * Sin(x1 * PI / 180))

x1范围在1° 到91°，Sin(x1 * PI / 180)范围在sin（PI/180）和sin（91*PI/180）多事正值，Fa与Z 和Dw都是正值，没有出现负值啊

cwa99582020-11-10 16:36

出错的时候看看z2的值是多少

hh07962020-11-12 11:38

回复 4楼 cwa9958

只有本站会员才能查看附件，请登录

Z2有具体数值啊

cwa99582020-11-12 16:29

你是不是不会看？
出错的时候，点调试，然后鼠标放到z2这个变量上，看看值是多少。问题出在哪里。
要学会调试程序。

hh07962020-11-13 09:54

菜鸟一枚

学学