Remnantmods

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