Arithmetic-geometric mean/Calculate Pi: Difference between revisions

m
Fix typos in TI SR-56 solution
(Add TI SR-56 solution)
m (Fix typos in TI SR-56 solution)
Line 1,869:
| 02 00 || 0 || 27 94 || = || 52 01 || 1 || 77 ||
|-
| 03 01 || 1 || 28 32 || x><yt|| 53 43 || x² || 78 ||
|-
| 04 33 || STO || 29 64 || * || 54 54 || / || 79 ||
Line 1,885:
| 10 20 || *1/x || 35 02 || 2 || 60 01 || 1 || 85 ||
|-
| 11 33 || STO || 36 32 || x><yt|| 61 08 || 8 || 86 ||
|-
| 12 02 || 2 || 37 74 || - || 62 41 || R/S || 87 ||
Line 1,905:
| 20 84 || + || 45 35 || SUM || 70 || || 95 ||
|-
| 21 32 || x><yt || 46 03 || 3 || 71 || || 96 ||
|-
| 22 34 || RCL || 47 94 || = || 72 || || 97 ||
Line 1,930:
2 √x 1/x STO 2 // r2 = g0
. 2 5 STO 4 // r4 = 0.25
RCL 1 + x><yt RCL 2 = / 2 = // t = a0, x = a1
x><yt * RCL 2 = √x STO 2 // t = a1, r2 = g1
x><yt - EXC 1 = // x = (a1 - a0), r1 = a1
x² * RCL 3 SUM 3 = INV SUM 4 // r4 = r4-r3(a1-a0)^2, r3 = r3*2
RCL 1 x² / RCL 4 = pause
27

edits