DCSG@osu-20.ircc.ohio-state.edu (DCSG) (05/05/90)
Maybe someone at HP can help me with this problem. I have a bunch of programs
for my 28s that I am transfering to my 48sx, most of them work fine with a
little alteration except for one. This program takes a polynomial in aljabraic
form and outputs it in list form eg.
'X^3+2*X^2+3*X+4'
'X'
3
PCOEF
You should get:
{1 2 3 4}
My 48sx executes this program and ends up in the {home math} directory
with an empty stack. Any help you can provide would be appreciated.
Here's the program.
PCOEF
<< 3 DUPN TYPE SWAP
TYPE ROT TYPE 3
->LIST { 0 6 9 }
IF ==
THEN DUP 1 + -> n
<<# 50491d SYSEVAL SWAP
# 208919d SYSEVAL
# 22965d SYSEVAL
# 229636d SYSEVAL DROP
# 22899d SYSEVAL 1 n
FOR m m ROLL
COLCT
NEXT n ->LIST
>>
END
>>