6 lines
77 B
Text
6 lines
77 B
Text
1→A:1/sqrt(2)→G
|
|
While abs(A-G)>e-15
|
|
(A+G)/2→B
|
|
sqrt(AG)→G:B→A
|
|
End
|
|
A
|