0.219=x

0.219=x - 2 * x * x + 2 * x * x * Exp(-(1 / x)) 用牛顿迭代法把上面的式子用VB编程出来,要代码就好
令y = x - 2 * x * x + 2 * x * x * Exp(-(1 / x))-0.219
'原函数
'一介导数
Y1 = 1 - 4 * x + 4 * x * Exp(-(1 / x)) + 2 * Exp(-(1 / x))
X1 = x - y / Y1
absolution = Abs(X1 - x),Do While absolution < 0.0000000001 '运算精度
x = X1

X1 = 0.219
Do
x = X1
y = x - 2 * x * x + 2 * x * x * Exp(-(1 / x)) - 0.219
Y1 = 1 - 4 * x + 4 * x * Exp(-(1 / x)) + 2 * Exp(-(1 / x))
X1 = x - y / Y1
Loop While Abs(X1 - x) < 0.0000000001
Print X1

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息