用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2-查字典问答网

来自丁海峡的问题

　　用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2/3Xi+a/用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2/3Xi+a/3Xi^2假定X的初值为a,迭代到|Xi+1-Xi|

　　用迭代法求x=开a的三次方,求立方根的迭代公式为Xi+1=2/3Xi+a/

　　用迭代法求x=开a的三次方,求立方根的迭代公式为

　　Xi+1=2/3Xi+a/3Xi^2

　　假定X的初值为a,迭代到|Xi+1-Xi|

1回答

2020-07-1722:41

我要回答

提示：回答问题需要登录哦！

陈日新

　　PrivateSubCommand1_Click()

　　DimxAsSingle,x0AsSingle,x1AsSingle,aAsSingle

　　a=Val(InputBox("请输入一个数a="))

　　IfAbs(a)0.00001

　　x0=x1

　　x1=(2/3*x0)+a/(3*x0^2)

　　Loop

　　x=x1

　　EndIf

　　Printa&"的立方根为;";x

　　EndSub

2020-07-17 22:43:06

大家都在问