14 lines
210 B
Text
14 lines
210 B
Text
|
*FLOAT 64
|
||
|
|
@% = &1010
|
||
|
|
PRINT FNagm(1, 1/SQR(2))
|
||
|
|
END
|
||
|
|
|
||
|
|
DEF FNagm(a,g)
|
||
|
|
LOCAL ta
|
||
|
|
REPEAT
|
||
|
|
ta = a
|
||
|
|
a = (a+g)/2
|
||
|
|
g = SQR(ta*g)
|
||
|
|
UNTIL a = ta
|
||
|
|
= a
|