Don't have an account? Register now to chat, post, use our tools, and much more.
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!
BASIC Code wrote:
PROGRAM:POLY
:ClrHome
:ClrDraw
:AxesOff
:PlotsOff
:FnOff
:‾2E3→Z
:i√(‾Ans→X
:Input I
: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

Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

»
» All times are GMT - 5 Hours

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum