13 lines
214 B
Text
13 lines
214 B
Text
|
10 print agm(1,1/sqr(2))
|
||
|
|
20 end
|
||
|
|
100 sub agm(a,g)
|
||
|
|
110 do
|
||
|
|
120 let ta = (a+g)/2
|
||
|
|
130 let g = sqr(a*g)
|
||
|
|
140 let x = a
|
||
|
|
150 let a = ta
|
||
|
|
160 let ta = x
|
||
|
|
170 loop until a = ta
|
||
|
|
180 agm = a
|
||
|
|
190 end sub
|