TI59 Diagnostic forensics

[Paul Berger (Canada)]

(07-28-2020 06:55 PM)rprosperi Wrote:  

(07-28-2020 04:47 PM)Paul Berger (Canada) Wrote:  How did you get that result on a 67? I have tried a few times now and always end up with 0

Paul.

Keystrokes:

30
[ENTER]
5
[g]
[->R]
[g]
[->P]
896
[ENTER]
4
+
[f][SqRoot]
- <========= display shows 1.269600000-04
[h]
[Pi]
[g]
[X^2]
[h]
[Pi]
[g]
[X^2]
[g]
[FRAC]
-
3
[g]
[X^2]
[/]
[+]
1
[-]

Ok one thing to keep in mind that on the TI59 for the polar to rectangular and rectangular to polar conversions when entering in polar you enter the magnitude first and move that to the t register and then enter the angle and do the conversion and when you covert back to polar the angle 30 is in the x register. This is what a trace on the program on the TI59 looks like note the order of execution is not obvious looking at the formula posted.

Code:


X                Operation
------         ----------
896                 +
4                       =
900
900                   SQ Root
30                     RTN  ( the above was a sub routine)
30                     STO 
                         2
30
3.141592654           Pi
3.141592654           X2 (SQ)
9.869604401
9.869604401          STO
                         1
9.869604401
9.869604401          IINT (inverse INT or FRAC)
.8696044011
.8696044011          STO
                        30
.8696044011
.8696044011          (
.8696044011          RCL
                         1
9.869604401
9.869604401          -
9.869604401          RCL
                        30
.8696044011
.8696044011          )
  9
  9                   divide
  3                     Yx
  2                     -
  1                    =
  0
  0                   RTN
  0                   SUM
                            2
  0
  5                    x<->t
  0
  30                 P/R
  2.5
  2.5               IP/R  (Rec -> polar)
  30
  30                -
  30                RCL
                           2
 30                 =
-.0000000001
                       CP  (clear t reg)
-.0000000001          *
       10                ILOG (inverse LOG)
     1.    10
     1.    10          =
-0.7
-0.7                  INT
  0
  0                    EQ
                        C
  9                   1/x
.1111111111
1.1111111  -01        *
 -8.                =
-.8888888888