Question

VB递归法解题问题

用迭代法求方程x^2 - a = 0的近似根，要求精度为10^-5 ，迭代公式为xi+1 = 1/2(xi+a/xi）。我函数和子过程都会，但递归怎么都循环不起来啊。。求大神，公式中i+1为下标。

顺便问下，我写的递归方程为什么循环不起来，不是很懂。纠结很久写出来的。。那个temp2和temp是为了让x0和x在赋值循环过程中不相等。。以至if条件不成立
Public Function x#(x0#, a#, temp2#, eps#)
Dim temp#
temp = temp2

If Abs(x - temp) > eps Then
x = 1 / 2 * (x0 + a / x0)
temp2 = x0
x0 = x
End If
End Function

Private Sub Command2_Click()
Print x(1, 2, 1, 0.000001)
End Sub

Answer 1

你仔细看看你函数里边有没有循环结构！既然没有，程序怎么会循环呢

Answer 2

Public Function x#(x0#, a#, eps#)
x = 1 / 2 * (x0 + a / x0)
If Abs(x - x0) > eps Then x=x(x, a, eps)
End Function
Private Sub Command2_Click()
Print x(1, 2, 0.000001)
End Sub