7 lines
77 B
Text
7 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
|