DIVISION OF POLYNOMS Description : In [A] matrix are coefs of first polynom from higher power down to zero power. [B] matrix is second polynom. Solve [A]/[B], store into [C] Inputs : [A],[B] Ouputs : [C] \START81\ \NAME=POLYDIV\ \FILE=TI81_4.PRG\ 1\->\Crow Bcol\->\M Acol-Bcol+1\->\Ccol 1\->\N Lbl 1 [A](1,N)/[B](1,1)\->\[C](1,N) 0\->\I Lbl 2 [A](1,I+N)=[B](1,I+N)[C](1,N)\->\[A](1,I+N) IS>(I,M-1) Goto 2 IS>(N,Acol-M+1) Goto 1 ClrHome Disp [C] Disp "REST" Disp [A] Disp "--------" Disp [B] \STOP\ 144 bytes, uses [A],[B],[C],I,N,M