AlgebraX
1. Lbl 0
2. AxesOn
3. FnOn
4. ClrDraw
5. ClrHome
6. Menu("ALGEBRA","FORMULAS",1,"LINEAR",2,"QUADRATICS",U,"POLYNOMIALS",3,"SEQ/SER",5,"CONICS",6,"QUIT",ZZ
7. Lbl 9
8. Pause
9. Goto 0
10. Lbl 1
11. Menu("FORMULA:","SIMP. INT.",A,"COMP. INT.",B,"CONT. COMP.",C,"DIR. VAR.",D,"IND. VAR.",E,"BACK",0
12. Lbl 2
13. AxesOn
14. FnOn
15. Menu("WHAT?","EQUA. CONV.",F,"PTS-EQUA.",G,"SLOPE",H,"DIST. FORM.",I,"MIDPOINT",J,"2 EQUA.",4,"BACK",0
16. Lbl F
17. AxesOff
18. FnOff
19. Menu("FROM-TO:","PS-Func",K,"PS-S",L,"Func-S",M,"S-Func",N,"BACK",2
20. Lbl U
21. Menu("QUADRATICS","QUADFORM",O,"PARABOLA INFO",P,"FACTOR",Q,"COMPLETE X",R,"BACK",0
22. Lbl 3
23. Menu("POLYNOMIALS","FOIL",S,"SYNTH DIV",T,"BIN. EXP.",Z,"BACK",0
24. Lbl Q
25. Menu("WHAT?","TRINOMIAL",BB,"DIFF. OF XS",BC,"BACK",U
26. Lbl P
27. Menu("WHAT?","VERTEX,ETC.",V,"FOCUS/DIRX.",W,"TEST PTS",X,"BACK",U
28. Lbl 5
29. Menu("SEQ/SER","ARITH.",AR,"GEO.",GE,"FUNCTION",FX,"BACK",0
30. Lbl AR
31. Menu("ARITH.","A=?",AN,"A1=?",AF,"N=?",NA,"SUM",AT,"A. MEAN",AM,"BACK",5
32. Lbl GE
33. Menu("GEO.","A=?",GN,"A1=?",GF,"N=?",NG,"SUM DEFINITE",GD,"SUM INFINITE",GI,"G. MEAN",GM,"BACK",5
34. Lbl A
35. Output(8,5,"I=PRT
36. Input "PRINCIPLE:",P
37. Input "RATE:",R
38. Input "TIME:",T
39. PRTI
40. ClrHome
41. Disp "RATE=",100R,"PERCENT
42. Disp "INTEREST=",I
43. Goto 9
44. Lbl B
45. Output(8,1,"I=P(1+(R/N))^(NT)
46. Input "PRINCIPLE:",P
47. Input "RATE:",R
48. Disp "RATE=",100R,"PERCENT
49. Input "TIMES/YEAR:",N
50. Input "YEARS:",T
51. P(1+R/N)^(NTA
52. Disp "AMOUNT=",A
53. Goto 9
54. Lbl C
55. Output(8,4,"I=P^(RT)
56. Input "PRINCIPLE:",P
57. Input "RATE:",R
58. Disp "RATE=100R",R,"PERCENT
59. Input "TIME:",T
60. P^(RTI
61. Disp "AMOUNT=",I
62. Goto 9
63. Lbl D
64. Output(8,5,"Y=KX
65. Input "y=",Y
66. Input "x=",X
67. Y/XK
68. Input "x=",X
69. KXY
70. Disp "K=",K
71. Disp "y=",Y
72. Goto 9
73. Lbl E
74. Output(8,5,"Y=K/X
75. Input "y=",Y
76. Input "x=",X
77. YXK
78. Input "x=",X
79. K/XY
80. Disp "K=",K
81. Disp "y=",Y
82. Goto 9
83. Lbl K
84. Output(8,3,"Y-y=M(X-x)
85. Input "x=?",Q
86. Input "y=?",R
87. Prompt M
88. Text(1,1,"FUNC. FORM IS:
89. R-MQS
90. Text(8,1,"Y=",M,"X+",S
91. Goto 9
92. Lbl L
93. Output(8,3,"Y-y=M(X-x)
94. Input "x=",Q
95. Input "y=",R
96. Input "M=",M
97. Text(1,1,"STAN. FORM IS:
98. MQ-RS
99. M/fPart(MN
100. If MiPart(M) and N=iPart(N
101. Then
102. S/fPart(MS
103. Text(8,1,N,"X+",N,"Y=",S
104. Else
105. If M0:Text(8,1,M,"X-Y=",S
106. If M<0:Text(8,1,M,"X+Y=",S
107. End
108. Goto 9
109. Lbl M
110. Output(8,5,"Y=MX+B
111. Prompt M,B
112. Text(1,1,"STAN. FORM IS:
113. M/fPart(MN
114. If MiPart(M) and N=iPart(N
115. Then
116. B/fPart(MB
117. Text(8,1,N,"X+",N,"Y=",B
118. Else
119. If M0:Text(8,1,M,"X-Y=",B
120. If M<0:Text(8,1,M,"X+Y=",B
121. End
122. Goto 9
123. Lbl N
124. Output(8,4,"AX+BY=C
125. Prompt A,B,C
126. Text(1,1,"FUNC. FORM IS:
127. A/BA
128. C/BC
129. Text(8,1,"Y=",A,"X+",C
130. Goto 9
131. Lbl G
132. FnOff
133. Input "x=",Q
134. Input "y=",R
135. Input "x=",S
136. Input "y=",T
137. If QS
138. Then
139. (R-T)/(Q-SA
140. R-AQB
141. RectGC
142. ZStandard
143. DrawF AX+B
144. Text(2,5,"EQU. IS:
145. Text(8,5,"Y=",A,"X+",B
146. Else
147. Text(2,5,"SLOPE UNDEFINED
148. Text(8,5,"EQUATION IS:
149. Text(15,5,"X=",Q
150. Vertical Q
151. End
152. Goto 9
153. Lbl H
Output(8,1,"(y-y)/(x-x)
Input "x=",Q
Input "y=",R
Input "x=",S
Input "y=",T
(T-R)/(S-QA
Disp "SLOPE=
Disp AFrac
Goto 9
Lbl I
Output(7,1,"((x-x)
Output(8,1,"+(y-y))
Input "x=",Q
Input "y=",R
Input "x=",S
Input "y=",T
((S-Q)+(T-R)A
Disp "DIST.=",A
Goto 9
Lbl J
Output(7,1,"(x+x)/2=MIDX
Output(8,1,"(y+y)/2=MIDY
Input "x=",Q
Input "y=",R
Input "x=",S
Input "y=",T
.5(Q+SA
.5(R+TB
ClrHome
Disp "MIDX=",A
Disp "MIDY=",B
Goto 9
Lbl 4
Disp "ENTER COEFF.S
Output(7,1,"AX+BY=C
Output(8,1,"DX+EY=F
Prompt A,B,C,D,E,F
If AE-BD=0
Then
If CE-BF=0 or AF-CD=0
Then
Disp "INFINITE SOL.S
Else
Disp "NO SOL.
End
Goto 9
End
(CE-BF)/(AE-BDX
(AF-CD)/(AE-BDY
Disp "X=",X
Disp "Y=",Y
Goto 9
Lbl O
Output(6,3,"AX+BX+C=0
Output(7,1,"(-B+-(B-4AC))
Output(8,1,"/(2A)=X
Prompt A,B,C
B-4ACD
If D<0:Disp "2 IMAG. SOL.S:
a+b
((D)-B)/(2AX (B-(D))/(2AY If D=0 Then Disp "1 SOL.: Disp XFrac End If D>0 Then Disp "2 Real SOL.S: Disp XFrac Disp YFrac End Real Goto 9 Lbl V Output(7,1,"LINE OF SYMMETRY= Output(8,6,"B/2A Prompt A,B,C B/(2AL FnOff AxesOff ClrDraw Text(1,1,"LINE OF SYM.: Text(8,1,"X=",L AL+BL+CV Text(22,1,"VERTEX: Text(29,1,"(",L,",",V,") Text(43,1,"Y-INT: Text(50,1,"(0,",C,") Goto 9 Lbl W Output(8,5,"P=1/4A Prompt A,B,C B/(2AH AL+BL+CK 1/(4AP K+PF K-PD Text(1,1,"FOCUS:(",H,",",F,") Text(15,1,"DIRECTRIX:Y=",D Goto 9 Lbl X Disp "Func: Input "Y=",Str1 StringEqu(Str1,Y Lbl Y ClrHome Prompt X Disp "Y=",Y(X Pause Menu("AGAIN?","YES",Y,"NO",YN Lbl YN DelVar Y Goto 9 Lbl BB Output(8,1,"AX+BY+C=0 Prompt A,B,C 0D 1L If AiPart(A LAL If BiPart(B LBL If CiPart(C LCL LCC LBB LAA gcd(abs(C),gcd(abs(B),abs(AJ A/JA B/JB C/JC J/LJ B-4ACD If D<0 Then ClrDraw Text(1,1,"DOES NOT FACTOR Goto 9 End If D=0 Then abs(2AF abs(BE gcd(E,FG If B0 and 2A0:GG B/GE 2A/GF If E<0 and F<0 Then EE FF JJ End Text(1,1,"(",F,"X+",E,") Text(8,1,"(",F,"X+",E,") If J1:Text(15,1,J Else 2AI (D)-BE B-(DF gcd(abs(E),abs(IG If I0 and E0:GG gcd(abs(F),abs(IH If I0 and F0:HH E/GE F/HF I/GG I/HH If G<0 and E<0 Then JJ EE GG End If H<0 and F<0 Then JJ HH FF End Text(1,1,"(",G,"X+",E,") Text(8,1,"(",H,"X+",F,") If J1:Text(15,1,J End Goto 9 Lbl BC Output(8,6,"AX^C-B Prompt A,C,B C/2D (AE (BF Text(1,1,"(",E,"X^",D,"+",F,") Text(8,1,"(",E,"X^",D,"-",F,") Goto 9 Lbl R Output(7,1,"LIN. COEFF.: Output(8,6,"B/4A Prompt A,B,C B/AD C/AE D/4F Text(1,1,"X+(B/A)X+(B/(4A))= Text(8,1,"(C/A)+(B/(4A)) E+FC Text(15,1,"X+",D,"X+",F,"=",G Text(22,1,"(X+",(F),")=",G Goto 9 Lbl S Output(7,1,"(QX^A+RY^B)* Output(8,1,"(SX^C+TY^D) Prompt Q,A,R,B,S,C,T,D QSW A+CE RTX B+DF QTU RSV U+VY Text(1,1,W,"X^",E,"+",A,"Y^",D,"+",V,"X^",C,"Y^",B,"+",X,"Y^",F Goto 9 Lbl T Input "HIGHEST PWR:",P P+1P For(X,1,P ClrHome Output(8,1,"COEFF. OF X^ Output(8,13,P-X Input ":",A AL(X End Disp "DIVISOR:AX+B Prompt A,B AL(1L(1 For(X,2,P (BL(X-1)+L(X))/AL(X End 1W For(X,1,P-1 If 0L(X Then Text(W,1,L(X),"x^",P-X-1,"+ W+7W If W>57 Then 1W Pause ClrDraw End End End If 0L(P Text(W,1,L(P),"/(",A,"x+",B,") Goto 9 Lbl Z Disp "(AX+BY)^N Prompt A,B,N If N<0 Then Disp "INVALID N VALUE Goto 9 End DelVar L For(X,0,N A^(N-X)B^XN nCr XL(X+1 End Disp "COEFF.S IN L:",L Goto 9 Lbl FX Input "Func:",Str1 StringEqu(Str1,Y Input "START:",A Input "END:",B DelVar L seq(Y,X,A,BL DelVar Y Disp "STORED TO L Disp L If 20 Then "K+(R-(X-H)"Y "K-(R-(X-H)"Y FnOn Y,Y AxesOn ZSquare Pause Disp "IN Y and Y Else Disp "NONREAL CONIC End Goto 9 Lbl EG Output(7,1,"AX+BY+ Output(8,1,CX+DX+E=0 Prompt A,B,C,D,E .5C/AH .5D/BK E/AA E/BB Text(1,1,"(X-H)/A+(Y-K)/B=1 Text(8,1,"(X-",H,")/",A,"+(Y-",K,")/",B,"=1 If A>0 and B>0 Then Text(15,1,"CENTER=(",H,",",K,") Text(22,1,"X-RADIUS=",(A Text(29,1,"Y-RADIUS=",(B End Goto 9 Lbl ES Output(7,1,"(X-H)+(Y-K)=1 Output(8,3,"A B Prompt H,A,K,B 1G If A=iPart(A) and B=iPart(B gcd(A,BG A/GC B/GD HD+KC-ADE Text(1,1,"AX+BY+CX+DY+E=0 Text(8,1,D,"X+",C,"Y+",2DH,"X+",2CK,"Y+",E,"=0 Goto 9 Lbl EP Output(7,1,"(X-H)+(Y-K)=1 Output(8,3,"A B Prompt H,A,K,B If A>0 and B>0 Then "K+(B-B(X-H)/A"Y "K-(B-B(X-H)/A"Y AxesOn FnOn Y,Y ZStandard Pause Disp "IN Y and Y Else Disp "NONREAL CONIC End Goto 9 Lbl PG Output(8,1,"Y=AX+BX+C Prompt A,B,C 1/(4AP C-B/(4AK B/(2AH Text(1,1,"(X-H)=4P(Y-K) Text(8,1,"(X-",H,")=4(",P,")(Y-",K,") Text(15,1,"VERTEX=(",H,",",K,") Text(22,1,"FOCUS=(",H,",",K+P,") Goto 9 Lbl PS Output(8,1,"(X-H)=4P(Y-K) Prompt H,K Input "4P=?",P P/4P 1/(4PA H/(2PB K+H/(4PC Text(1,1,"Y=AX+BX+C Text(8,1,"Y=",A,"X+",B,"X+",C Goto 9 Lbl PP Output(8,1,"Y=AX+BX+C Prompt A,B,C "AX+BX+C"Y AxesOn FnOn Y ZStandard Pause Disp "IN Y Goto 9 Lbl YG Output(8,1,"X=AY+BY+C 1/(4AP C-B/(4AH B/(2AK Text(1,1,"(Y-K)=4P(X-H) Text(8,1,"Y-",K,")=4(",P,")(X-",H,") Text(15,1,"VERTEX=(",H,",",K,") Text(22,1,"FOCUS=(",H+P,",",K,") Goto 9 Lbl YS Output(8,1,"(Y-K)=4P(X-H) Prompt K,H Input "4P=?",P P/4P 1/(4PA K/(2PB H+K/(4PC Text(1,1,"X=AY+BY+C Text(8,1,"X=",A,"Y+",B,"Y+",C Goto 9 Lbl YP Output(8,1,"X=AY+BY+C Prompt A,B,C "B+(B-4AC)/(2A"Y "B-(B-4AC)/(2A"Y AxesOn FnOn Y,Y ZStandard Pause Disp "IN Y and Y Goto 9 Lbl WC Output(7,1,"AX+BY+ Output(8,1,"CX+DY+E=0 Prompt A,B,C,D,E
If AB0
Then
If A=B:Disp "CIRCLE
If AB<0:Disp "HYPERBOLA
If AB>0:Disp "ELLIPSE
Else
Disp "PARABOLA
End
Goto 9
Lbl ZZ