Path: utzoo!attcan!uunet!tut.cis.ohio-state.edu!ucbvax!TAUNOS.BITNET!LOZAN
From: LOZAN@TAUNOS.BITNET (Eliel Louzoun)
Newsgroups: comp.sys.handhelds
Subject: divide polynoms on HP28s
Message-ID: <9002071333.AA28801@jade.berkeley.edu>
Date: 7 Feb 90 08:31:12 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Lines: 45

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 .