8 lines
157 B
Text
8 lines
157 B
Text
100 PRINT AGM(1,1/SQR(2))
|
|
110 DEF AGM(A,G)
|
|
120 DO
|
|
130 LET TA=A
|
|
140 LET A=(A+G)/2:LET G=SQR(TA*G)
|
|
150 LOOP UNTIL A=TA
|
|
160 LET AGM=A
|
|
170 END DEF
|