13 lines
210 B
Text
13 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
|