TI-84 Plus Polynomial Program

Post here basically any programming material that will help other programmers out.
Post Reply
User avatar
JacksonCougar
Huurcat
Posts: 2460
Joined: Thu Dec 06, 2007 11:30 pm
Location: Somewhere in Canada

TI-84 Plus Polynomial Program

Post by JacksonCougar »

TI-84 Plus Polynomial Program

Current Features:
Takes a ax² +bx+c polynomial and returns the roots of it

Planned features:
Larger polynomials
Alternate forms

Code: Select all

Lbl ST
ClrHome
Menu("    Welcome:     ","Start",NQ,"Help",HP,"Quit",QT
Lbl HP
ClrHome
Disp "Enter the","coefficient of ","each term of the","polynomial. ","Remember that ","you must include","all terms!"
Repeat Ans
getKey
End
Goto ST
Lbl NQ
ClrHome
Disp "Polynomial 
Input "Degree: ",X

If X=2
Then
Input "1'st Term: ",Str1
Input "2'nd Term: ",Str2
Input "3'rd Term: ",Str3
Str1+"XÜ"+"+"+Str2+"X"+"+"+Str3üStr0
End
If X=3
Then
Input "1'st Term: ",Str1
Input "2'nd Term: ",Str2
Input "3'rd Term: ",Str2
Input "4'th Term: ",Str4
Str1+"+"+Str2+"+"+Str3+"+"+Str4üStr0
End
If X=4
Then
Input "1'st Term: ",Str1
Input "2'nd Term: ",Str2
Input "3'rd Term: ",Str3
Input "4'th Term: ",Str4
Input "5'th Term: ",Str5
Str1+"+"+Str2+"+"+Str3+"+"+Str4+"+"+Str5üStr0
End
Str0üY€
Lbl ME
Menu("    Options:    ","Equation",EQ,"Quick Graph",GR,"Zeros",ZE,"Quit",QT
Lbl EQ
Menu("    Equation:   ","View",VQ,"New",NQ,"Back",ME
Lbl VQ
ClrHome
Disp Str0
Repeat Ans
getKey
End
Goto EQ
Lbl GR
DelVar YDelVar Y‚DelVar YƒDelVar Y„DelVar Y…DelVar Y†DelVar Y‡DelVar YˆDelVar Y‰
DispGraph
Repeat Ans
getKey
End
Goto ME
Lbl ZE
ClrHome
ClrList L,L‚
expr(Str1)üA
expr(Str2)üB
expr(Str3)üC
ú2C/(B+{ú1,1}ð((BÜ)-(4AC))üLƒ
{0,1üL
{0,Lƒ(1)üL‚
LinReg(ax+b)Y
EquåString(Y,Str9
sub(Str9,1,length(Str9)-3üStr9
{0,1üL
{0,Lƒ(2)üL‚
LinReg(ax+b)Y
EquåString(Y,Str8
sub(Str8,1,length(Str8)-3üStr8
Disp "X="+Str9+",X="+Str8
Repeat Ans
getKey
End
Goto ME


Lbl QT
Any suggestions? Comments?
User avatar
Aumaan Anubis
Staff
Posts: 1812
Joined: Thu Dec 13, 2007 12:18 am
Contact:

Re: TI-84 Plus Polynomial Program

Post by Aumaan Anubis »

Why is this in the downloads section?

but cool.
User avatar
NotZachary82
Posts: 1846
Joined: Thu Dec 20, 2007 8:39 pm

Re: TI-84 Plus Polynomial Program

Post by NotZachary82 »

its a download without a download?
User avatar
JacksonCougar
Huurcat
Posts: 2460
Joined: Thu Dec 06, 2007 11:30 pm
Location: Somewhere in Canada

Re: TI-84 Plus Polynomial Program

Post by JacksonCougar »

ugh: fine: hold on...
User avatar
NotZachary82
Posts: 1846
Joined: Thu Dec 20, 2007 8:39 pm

Re: TI-84 Plus Polynomial Program

Post by NotZachary82 »

this is better :P
Post Reply