Well, this would be my first attempt at a full graphical GUI frontend for all my math apps. Takes forever, seeing as the on-calc editor on the CSE is slower then molasses running uphill in the winter. Its absurd.
So development takes a while. Of course, if anyone wants to help me polish this out, make it faster, look better, add things to it, whatever it may be, by all means, let me know!
Code:
So development takes a while. Of course, if anyone wants to help me polish this out, make it faster, look better, add things to it, whatever it may be, by all means, let me know!
Code:
:DCS
"30B03000B03B030033B33BB33B33B3303B303B30303B030330303030303B030330303BB33B0303030000000000000000819CB4B5040EEDDC819C0B4140000000819C0555550EEDDC819C00414B000000819C0405B4BEEDDC819CB000000B0000819CCCCCCCCCCCCC819999999999999981111111111111118888888888888888"
StoreGDB GDB0
0->K
0->Xmin
264->Xmax
~164->Ymin
0->Ymax
AxesOff
Normal
Degree
Real
Full
[AUTO]
Lbl 1
ClrDraw
TextColor(Black
Text(0,3,"Math Master"
Text(0,210,"v2.0 CSE"
Horizontal ~14,Blue
Horizontal 0,Blue
Horizontal ~163,Blue
Vertical 0,Blue
Vertical 263,Blue
TextColor(Green
":1: Real numbers:2: Graphing functions:3: Monomials:4: Binomials:5: Trinomials:6: Polynomials:7: Factoring:8: Word problems:[CLEAR]: Quit:"->Str0
{1,19,43,58,73,89,106,121,140,154}->L1
For(theta,1,dim(L1)-1,1)
Text((12theta)+3,3,sub(Str0,L1(theta)+1,L1(theta+1)-(L1(theta)+1))
End
Lbl 2
While K=0
getKey->K
End
If K=73
Goto AA
If K=93
Goto AB
If K=94
Goto AC
If K=45
Goto thetatheta
0->K
Goto 2
Lbl thetatheta
ClrDraw
ClrHome
RecallGDB GDB0
Return
Lbl AA
0->K
Lbl A1
ClrHome
Menu("Word problems","Airplane",A2,"Coins",A3,"Percentages",A4,"Return",A5
Lbl A2
ClrHome
Input "Distance: ",A
Input "Headwind time: ",B
Input "Tailwind time: ",C
(((fPart(B)*100)/60)/100)+iPart(B)->B
(((fPart(C)*100)/60)/100)+iPart(C)->C
(A(B-C))/(2BC)->D
(A/B)+D->E
ClrHome
Disp "Wind speed:",D
Disp "Plane speed:",E
Pause
Goto A5
Lbl A3
ClrHome
Input "Coin 1 value: ",A
Input "Coin 2 value: ",B
Input "Total coins: ",F
Input "Total dollars: ",E
(E-(B*F))/(A-B)->C
ClrHome
Disp "Coin 1 count:",C
Disp "Total coin 1 value:",A*C
Disp "Coin 2 count:",F-C
Disp "Total coin 2 value:",B*(F-C)
Pause
Goto A5
Lbl A4
ClrHome
Input "Percent 1: ",A
Input "Percent 2: ",B
Input "Target percent:",C
Input "Total count: ",D
((A-C)*D)/(A-B)->X
ClrHome
Disp "Percent 1 count:",D-X
Disp "Percent 2 count:",X
Disp "Total count:",D
Pause
Goto A5
Lbl A5
DelVar A
DelVar B
DelVar C
DelVar D
DelVar E
DelVar F
DelVar X
Goto 1
Lbl A6
ClrHome
Return
Pause
Goto 1
Lbl AB
0->K
ClrDraw
Text(1,1,"Subroutine 2"
Pause
Goto 1