monkeyhunter
Joined: 12 Nov 2007
Posts: 1
|
 Posted: November 12, 2007 12:47 PM Post subject: Converting a Pivot program from TI-83 to 89 |
 |
|
I'm having some problems converting a pivot program from a 83 to a 89. I've been able to convert most of it, but there are a few lines I'm having problems with. The original code for the 83 is(I don't know how to make the STO arrow on the keyboard, as well as the one for convert, so I replaced it in the code(here) in ()):
| Quote: |
PROGRAM:PIVOT
[D]STO[E]
Lbl A
Menu("MENU","PIVOT",B,"QUIT",BB)
Lbl B
ClrHome
Disp "ENTER TO CONT"
Pause [E](convert)Frac
Input "ROW=",R
Input "COL=",C
[E](R,C)(STO)M
*row(M(raised to the -1), [E],R)(STO)[E]
dim([E])(STO)L(subscript 6)
For(K,1,L(subscript 6)(1))
If (K/= R)
Then
-[E](K,C)(STO)M
*row+(M,[E],R,K)(STO)[E]
End
End
For(K,1,L(subscript 6)(1))
For(L,1,L(subscript 6)(2))
If abs([E](K,L))<10(raised to the -(eight))
Then
0(STO)[E](K,L)
End
End
End
Disp "ENTER TO CONT"
End
End
Disp "ENTER TO CONT"
Pause [E](convert)Frac
Goto A
Lbl BB
|
I've been able to convert it to:
| Quote: |
pivot()
d(STO)e
Lbl a
Lbl b
ClrHome
Disp "ENTER TO CONT"
Pause exact(e,.01)
Input "ROW=",r
Input "COL=",c
e(r,c)(STO)m
mrow(m(raised to the -1), e,r)(STO)e
dim(E)(STO)j
For k,1,j(1))
If (k/= r)
Then
-e(k,c)(STO)m
mRowAdd(m,e,r,k)(STO)[e]
EndIf
EndFor
For(k,1,j(1))
For(l,1,j(2))
If abs(e(k,l))<10(raised to the -(eight))
Then
0(STO)e(k,l)
EndIf
EndFor
EndFor
Disp "ENTER TO CONT"
Disp "ENTER TO CONT"
Pause exact(e,.01)
Goto A
|
Now I don't know how to convert the line Menu("MENU","PIVOT",B,"QUIT",BB)
to the 89.
I also get a Data Type error on the mrow(m(raised to the -1), e,r)(STO)e
line of code, as well as a Name is Not a function or program error on the line e(r,c)(STO)m line.
Any help on getting this thing to run is greatly appreciated, as I seem to hit a wall with it.[/quote] |
|
