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 YDelVar 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