LOZAN@TAUNOS.BITNET (Eliel Louzoun) (02/07/90)
Hello net
Here is a little program I wrote that divide two polynoms.The program receive
two vectors of coefficent and return a vector with the division result and
another one with the reminder .I also include a program that transform a
coefficent vector to a polynom.
div [D3C4] ; This is the main program but all the work is done by DIVV
<< DUP SIZE ! GET -> a b c
<< a b WHILE OVER SIZE
1 GET c REPEAT DIVV EDD
DROP -> e
<< a SIZE 1 GET c 1 - -
->LIST ->ARRY e
>>
>>
>>
DIVV [3075] ; This program is used by the previous one
<< DUP 1 GET -> a b c
<< a 1 GET c / DUP b * a SIZE RDM a
SWAP - ARRY-> 1 GETI 1 - PUT
->ARRY SWAP DROP b
>>
>>
poly [B9C2] ; This program expect a vector and a algebraic object
; and return a polynom in this object.
<< -> a x
<< a SIZE 1 GET -> c
<< 0 0 c 1 - FOR j
x j ^ a c j - GET * +
NEXT
>>
>>
>>
B.T.W can anyone tell me how to send programs to the HP28 server
without having FTP access ?
Thats all for today.
Bye
Eliel Louzoun
Jerusalem
Israel .