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 /

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 19:09:30
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 /

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 /
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

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 /
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