11 lines
145 B
VB.net
11 lines
145 B
VB.net
|
Function agm(a,g)
|
||
|
|
Do Until a = tmp_a
|
||
|
|
tmp_a = a
|
||
|
|
a = (a + g)/2
|
||
|
|
g = Sqr(tmp_a * g)
|
||
|
|
Loop
|
||
|
|
agm = a
|
||
|
|
End Function
|
||
|
|
|
||
|
|
WScript.Echo agm(1,1/Sqr(2))
|