Since I jumped straight to member, I don't want this program to go to waste.
This is a polynomial program that is very small and fast. (About 330 bytes.)
You enter in an expression involving X and it will put it in polynomial form.
For example, enter in
(X-1)2-1
and it will show
x2-2x
Plus, it uses no strings!
This is a polynomial program that is very small and fast. (About 330 bytes.)
You enter in an expression involving X and it will put it in polynomial form.
For example, enter in
(X-1)2-1
and it will show
x2-2x
Plus, it uses no strings!
BASIC Code wrote:
PROGRAM:POLY
:ClrHome
:ClrDraw
:AxesOff
:PlotsOff
:FnOff
:‾2E3→Z
:i√(‾Ans→X
:Input I
:DelVar ADelVar ∟Preal(I→J
:real(I/X→B
:For(A,0,6,2
:round(J,0→I
:round(J/Z,0→J
:I-ZJ→∟P(A+1
:round(B,0→I
:round(B/Z,0→B
:I-ZB→∟P(A+2
:End
:DelVar I2→J
:Disp 0
:While 1
:Repeat Ans
:DS<(A,0
:If 0
:DelVar ∟PReturn
:∟P(A+1→X
:End
:"-
:If X>0
:"+
:If B or X<0
:prgmZPOLY
:abs(X
:If not(A and 1=Ans
:prgmZPOLY
:I+int(log(abs(X→I
:If I>15
:DelVar IJ+9→J
:"x
:If A
:prgmZPOLY
:If A>1
:Then
:Text(J-2,6I,A
:IS>(I,15
:If 0
:DelVar IJ+9→J
:End
:1→B
:End
Generated by SourceCoder, © 2005 Cemetech
:ClrHome
:ClrDraw
:AxesOff
:PlotsOff
:FnOff
:‾2E3→Z
:i√(‾Ans→X
:Input I
:DelVar ADelVar ∟Preal(I→J
:real(I/X→B
:For(A,0,6,2
:round(J,0→I
:round(J/Z,0→J
:I-ZJ→∟P(A+1
:round(B,0→I
:round(B/Z,0→B
:I-ZB→∟P(A+2
:End
:DelVar I2→J
:Disp 0
:While 1
:Repeat Ans
:DS<(A,0
:If 0
:DelVar ∟PReturn
:∟P(A+1→X
:End
:"-
:If X>0
:"+
:If B or X<0
:prgmZPOLY
:abs(X
:If not(A and 1=Ans
:prgmZPOLY
:I+int(log(abs(X→I
:If I>15
:DelVar IJ+9→J
:"x
:If A
:prgmZPOLY
:If A>1
:Then
:Text(J-2,6I,A
:IS>(I,15
:If 0
:DelVar IJ+9→J
:End
:1→B
:End
Generated by SourceCoder, © 2005 Cemetech
BASIC Code wrote:
PROGRAM:ZPOLY
:Text(‾1,J,6I,Ans
:IS>(I,15
:If 0
:DelVar IJ+9→J
Generated by SourceCoder, © 2005 Cemetech
:Text(‾1,J,6I,Ans
:IS>(I,15
:If 0
:DelVar IJ+9→J
Generated by SourceCoder, © 2005 Cemetech