AxesOff
PlotsOff
GridOff
FnOff
0→Xscl
0→Yscl
Lbl 0
Menu(" ACT Ver. 7a R² "," DIST./PYTHAG.",A," QUAD FORMULA",B," SYSTEM OF EQ.",C," TRIANGLES",D," NUMBER THEORY",I," FORMULAS/GRFS",L," QUIT (10/01)",Z)
Lbl A
Menu(" OPTIONS "," DIST./SLOPE",1," PYTHAG.",2," MAIN MENU",0)
Lbl 1:ClrHome
Disp "(x₁,y₁) (x₂,y₂)",""
Input "x₁ = ",A
Input "y₁ = ",B
Input "x₂ = ",C
Input "y₂ = ",D
2→dim(L₁)
(A+C)/2→L₁(1)
(B+D)/2→L₁(2)
√((A-C)²+(B-D)²)→E
ClrHome:Disp "DIST.="
Output(1,8,"√("):Output(1,9,E²)
Disp E
Output(2,3,"OR")
If C-A=0:Then
Disp "",A:Output(4,1,"EQN. IS X = ")
Else
Disp "",L₁Frac
Output(3,1,"MIDPT=")
(D-B)/(C-A)→M
M*A+B→Y
Output(5,1,"EQUATION: Y=MX+B")
Disp "",MFrac,YFrac
Output(6,3,"M =")
Output(7,3,"B =")
End
Pause :Goto A
Lbl 2
Menu(" WHAT IS KNOWN? "," LEG-HYP",3," 2 LEGS",4)
Lbl 3:ClrHome
Input "LEG = ",B
Input "HYP = ",A
If (A²-B²)<0:Then
Disp "NOT A TRIANGLE"
Pause :Goto A
End
Output(4,1,"HYP = √(")
Output(4,9,A²-B²)
Disp "","","",√(A²-B²)
Output(6,1,"OR")
Pause :Goto A
Lbl 4:ClrHome
Input "LEG 1 = ",B
Input "LEG 2 = ",C
Output(4,1,"HYP = √(")
Output(4,9,B²+C²)
Disp "","","",√(B²+C²)
Output(6,1,"OR")
Pause :Goto A
Lbl B:ClrHome
FnOff
Disp "AX²+BX+C = 0"
Lbl G:Input "A (≠0) ",A
If A=0:Goto G
Input "B = ",B
Input "C = ",C
B²-4AC→D
B/(2A)→L₆(1)
AL₆(1)²+BL₆(1)+C→L₆(2)
ClrDraw
Text(1,1,"DISCRIMINANT =")
Text(1,55,D)
Text(8,1,"ZEROS:")
Text(15,1,"---------------------------------------")
If D>0:Goto J
If D<0:Goto H
Text(24,1,"DOUBLE ZERO =")
Text(24,50,B/(2A))
Text(57,67,"<ENTER>")
Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")")
Pause :Goto 0
Lbl J
(B+√(D))/(2A)→X
(B-√(D))/(2A)→Y
Text(24,1,"REAL ZEROS =")
Text(24,47,X)
Text(31,47,Y)
Text(57,67,"<ENTER>")
Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")")
Pause :Goto 0
Lbl H
B/(2A)→L₅(1)
√(D)/(2A)→L₅(2)
round(L₅,5)→L₅
Text(24,1,"COMPLEX ZEROS")
Text(31,10,L₅(1))
Text(31,39,"+")
Text(31,44,L₅(2))
Text(31,72,"")
Text(38,10,L₅(1))
Text(38,39,"-")
Text(38,44,L₅(2))
Text(38,72,"")
Text(57,67,"<ENTER>")
Text(47,1,"VERTEX = (",L₆(1),", ",L₆(2),")")
Pause :Goto 0
Lbl C:ClrHome
Input "WHAT SIZE? ",N
Lbl N:ClrHome
{N,N}→dim([A]):{N,1}→dim([B])
For(θ,1,N)
ClrHome
Output(1,1,"EQN:"):Output(1,6,θ)
Disp ""
If N=2:Disp "AX + BY = C"
If N=3:Disp "AX + BY + CZ = D"
Input "A = ",X
X→[A](θ,1)
Input "B = ",X
X→[A](θ,2)
If N=2:Then
Input "C = ",X
X→[B](θ,1)
End
If N=3:Then
Input "C = ",X
X→[A](θ,3)
Input "D = ",X
X→[B](θ,1)
End
End
If det([A])=0
Then:ClrHome:Disp "NO SOLUTION"
Disp "DETERMINANT = 0"
Pause :Goto 0
End
ClrHome
If [B](1,1)*[A](2,1)-[B](2,1)*[A](1,1)=0
Then:Disp "INF. SOLUTIONS"
Pause :Goto 0
End
[A][B]→[C]:N→dim(L₁)
For(θ,1,N)
[C](θ,1)→L₁(θ):[C](θ,1)→L₁(θ)
End
If N=2:Then
Disp "(X,Y) ="
Disp L₁
Pause L₁Frac:End
If N=3:Then
Disp "(X,Y,Z) = "
Disp L₁
Pause L₁Frac:End
Goto 0
Lbl D:ClrHome:Degree
Menu(" GIVEN INFO "," ASA",5," AAS",6," SAS",7," SSS",8," MAIN MENU",0)
Lbl 5:ClrHome
Input "ANGLE = ",A
Input "SIDE = ",E
Input "ANGLE = ",C
180-A-C→B:Esin(A)/sin(B)→D
Esin(C)/sin(B)→F:Goto E
Lbl 6:ClrHome
Input "ANGLE = ",A
Input "ANGLE = ",B
Input "SIDE = ",D
180-A-B→C:Dsin(B)/sin(A)→E
Dsin(C)/sin(A)→F:Goto E
Lbl 7:ClrHome
Input "SIDE = ",E
Input "ANGLE = ",A
Input "SIDE = ",F
(E²+F²-2EFcos(A)→Q
If Q≤0:Goto U
√(Q→D:((E²-D²-F²)/(2DF))→Q
If abs(Q)>1:Goto U
cos(Q)→B:180-A-B→C:Goto E
Lbl 8:ClrHome
Input "SIDE = ",D
Input "SIDE = ",E
Input "SIDE = ",F
If D+E≤F or E+F≤D or D+F≤E:Goto U
cos((D²-E²-F²)/(2EF))→A
cos((E²-D²-F²)/(2DF))→B
180-A-B→C:Goto E
Lbl U:ClrHome
Disp "NO TRIANGLE"
Pause :Goto D
Lbl Y:ClrHome
90→C:√((F²-D²)→E
90-A→B:Goto 6
Lbl 9:ClrHome
sin(Fsin(A)/D)→C
180-A-C→B
Dsin(B)/sin(A)→E:Goto 6
Lbl E:AxesOff:FnOff :ClrDraw
Text(5,5,"ANGLE"):Text(5,60,"SIDE")
Text(12,5,"-----"):Text(12,60,"----")
Text(18,5,"1= ",A)
Text(18,60,"1= ",D)
Text(25,5,"2= ",B)
Text(25,60,"2= ",E)
Text(32,5,"3= ",C)
Text(32,60,"3= ",F)
.5EFsin(A)→Z
Text(45,5,"AREA =",Z)
Text(55,5,"HIT <ENTER> FOR MENU")
Pause :AxesOn :ClrDraw
FnOn :Goto D
Lbl I:Menu(" NUMBER THEORY "," FACTORIAL",S," LCM / GCD",T," PERM./COMB.",V," PRIME FACTORS",W," MAIN MENU",0)
Lbl S:ClrHome
Disp "FACTORIAL N!"
Disp "----------------"
Disp "ENTER N"
Input "(N<70) -> ",N
Disp "",N!
Output(6,1,N)
Output(6,3,"!=")
Pause :Goto I
Lbl T:ClrHome
Disp "LCM / GCD"
Disp "----------------"
Input "1ST NUM -> ",N
Input "2ND NUM -> ",M
lcm(N,M)→A:gcd(N,M)→B
Disp "",A,B:Output(6,1,"LCM =")
Output(7,1,"GCD ="):Pause :Goto I
Lbl V:ClrHome
Disp "PERM./COMB."
Input "N = ",N
Input "R = ",R
N nPr R→A:N nCr R→B
Disp "",A,"",B
Output(4,1,"nPr =")
Output(6,1,"nCr =")
Pause :Goto I
Lbl W:ClrHome
20→dim(⌊PR):Fill(0,⌊PR)
Disp "PRIME FACTORS:"
Disp "----------------"
1→I:2→Q
Input "NUMBER ",N
ClrHome
Disp "PRIME FACTORS OF",""
Disp "----------------"
Output(2,3,N):Output(2,10,"ARE:")
Lbl M
If fPart(N/Q)=0:Then
Q→⌊PR(I):I+1→I:N/Q→N
Else:Q+1→Q:End
If Q≤N:Goto M
If N≠1:N→⌊PR(I)
For(J,1,20)
If ⌊PR(J)=0:Goto X
End
Lbl X:J-1→dim(⌊PR)
If dim(⌊PR)=1:Disp "PRIME"
Disp ⌊PR:Pause :Goto I
Lbl L:AxesOff:FnOff
Menu(" FORMULAS "," ALG/GEO/SEQ.",P," CONICS",Q," TRIG./TRI.",R," CONVERSIONS",θ," PARENT GRAPHS",O," MAIN MENU",0)
Lbl P:ClrDraw
Text(1,1,"SLOPE: M = (y₂-y₁)/(x₂-x₁)")
Text(8,1,"MIDPT: (x₁+x₂)/2, (y₁+y₂)/2")
Text(15,1,"LINES: Y = MX + B AX + BY = C")
Text(22,25,"Y - y₁ = M(X - x₁)")
Text(29,1,"QUAD: Y = AX²+BX+C")
Text(36,25,"Y = A(X-H)²+K")
Text(42,1,"FOR:X=[B+/-√(B²-4AC)]/2A")
Text(49,1,"VERTEX: X=B/2A F(B/2A)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"D = RT (AB)²=A²B²")
Text(10,1,"X²X=X (X²)=X")
Text(8,25,"5"):Text(8,63,"6")
Text(19,1,"I=PRT A=Pe")
Text(28,1,"A=P(1+R/N)")
Text(17,54,"RT"):Text(26,39,"NT")
Text(35,1,"X =1/X 1/X = X")
Text(42,1,"DOMAIN = ALL REALS EXCEPT:")
Text(49,1,"1-DIVISION BY 0")
Text(56,1,"2-EVEN RTS OF NEG.")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"SPECIAL FACTORS")
Text(7,1,"--------------------------------")
Text(13,1,"X²-(A+B)X+AB = (X-A)(X-B)")
Text(20,1,"A²-B² = (A+B)(A-B)")
Text(27,1,"A-B = (A-B)(A²+AB+B²)")
Text(34,1,"A+B = (A+B)(A²-AB+B²)")
Text(42,1,"A - B = (A²+B²)(A+B)(A-B)")
Text(40,5,"4")
Text(40,18,"4")
Text(49,1,"A²+B² = NONE")
Text(57,1,"A + B = NONE")
Text(55,5,"4")
Text(55,18,"4")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"IMAGINARY POWERS")
Text(10,1,"=√(1) ²=1")
Text(20,1,"= =1")
Text(18,34,"4")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"ARITHMETIC SEQ./SERIES")
Text(8,4,"A = A + (N-1)D")
Text(11,8,"N")
Text(17,4,"S = (N/2)[2A + (N-1)D]")
Text(20,8,"N")
Text(27,1,"GEOMETRIC SEQ./SERIES")
Text(35,4,"A = AR")
Text(37,8,"N")
Text(33,26,"N-1")
Text(43,4,"S = A(1 - R )/(1 - R)")
Text(41,39,"N-1")
Text(45,8,"N")
Text(52,4,"S = A/(1 - R) 1<R<1")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"FACTORIAL")
Text(9,1,"n! = n(n - 1)(n - 2) . . . (2)(1)")
Text(20,1,"COMBINATION")
Text(34,1," nCr = -------")
Text(28,32,"n!")
Text(40,22,"r!(n-r)!")
Text(20,51,"PERMUTATION")
Text(34,51," nPr = ------")
Text(28,80,"n!")
Text(40,72,"(n - r)!")
Text(48,10,"NO ORDER")
Text(48,65,"ORDER")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"PASCAL'S")
Text(1,60,"TRIANGLE")
Text(1,45,"1")
Text(7,41,"1 1")
Text(13,37,"1 2 1")
Text(19,33,"1 3 3 1")
Text(25,29,"1 4 6 4 1")
Text(31,25,"1 5 10 10 5 1")
Text(37,21,"1 6 15 20 15 6 1")
Text(43,17,"1 7 21 35 35 21 7 1")
Text(49,13,"1 8 28 56 70 56 28 8 1")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"GEOMETRY FORMULAS - PG. 1")
Text(9,1,"CIRCLE: A = πR²")
Text(16,1,"CIRCLE: C = 2πR = πD")
Text(23,1,"SPHERE: V = (4/3)πR")
Text(30,1,"SPHERE: SA = 4πR²")
Text(37,1,"CYLINDER: V = πR²H")
Text(44,1,"CYLINDER: SA = 2πRH + 2πR²")
Text(51,1,"CONE: V = (1/3)πR²H")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"GEOMETRY FORMULAS - PG. 2")
Text(9,1,"RECT.: A = L*W P = 2L + 2W")
Text(16,1,"SQR.: A = S² P = 4S")
Text(23,1,"TRAP.: A = 0.5H(B1 + B2)")
Text(30,1,"RHOMBUS: A = B*H = B²sin(θ)")
Text(37,1,"PARALLELOGRAM: A = B*H")
Text(44,35,"A = S1*S2*sin(θ)")
Text(57,67,"<ENTER>")
Pause :Goto L
Lbl O:AxesOn
Thick
4.7→Xmin:4.7→Xmax:1→Xscl
3.1→Ymin:3.1→Ymax:1→Yscl
DispGraph
Text(50,8,"Y = X")
DrawF X
Text(5,10,"Y = X²")
DrawF X²
Text(18,62,"Y = log(X)")
DrawF log(X)
Text(57,67,"<ENTER>")
Pause :ClrDraw
DispGraph
Text(5,5,"Y = abs(X)")
DrawF abs(X)
Text(19,72,"Y = 1/X")
Text(37,1,"Y = 1/X")
DrawF 1/X
Text(57,13,"Y = X")
DrawF X
Text(57,67,"<ENTER>")
Pause :ClrDraw
1→Ymin
DispGraph
Text(1,25,"Y = ^(X)")
DrawF ^(X)
Text(1,68,"Y = 2^X")
DrawF 2^X
Text(33,62,"Y = ^(X)")
DrawF ^(X)
Text(57,67,"<ENTER>")
Pause :ClrDraw
3.1→Ymin:Dot-Thick
Text(1,12,"Y = [X]")
DrawF int(X)
Text(9,6,"GREATEST")
Text(16,6,"INTEGER")
Text(23,6,"FUNCTION")
Text(34,49,"CLOSED - LEFT")
Text(41,52,"OPEN - RIGHT")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Radian
0→Xmin:2π→Xmax:π/2→Xscl
2→Ymin:2→Ymax:1→Yscl
Text(23,85,"2π")
Text(23,47,"π")
Text(48,2,"AMPLITUDE = 1 PERIOD = 2π")
Text(9,10,"Y = sin(X)")
DrawF sin(X)
Text(9,63,"Y = cos(X)")
DrawF cos(X)
Text(57,67,"<ENTER>")
Pause :Degree:Thick
AxesOff:Goto L
Lbl Q:ClrDraw
Text(1,10,"AX² + BY² + CX + DY + E = 0")
Text(7,1,"-------------------------------"
Text(13,1,"If A=B ...........................")
Text(13,62," CIRCLE")
Text(20,1,"If A≠B, = SIGNS ...............")
Text(20,62," ELLIPSE")
Text(27,1,"If A, B DIFFERENT SIGNS .........")
Text(34,58,"HYPERBOLA")
Text(41,1,"If 1 SQR. TERM ...................")
Text(41,60," PARABOLA")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"CIRCLE")
Text(1,33,"(X-H)²+(Y-K)²=R²")
Text(8,1,"ELLIPSE - HORIZONTAL")
Text(15,1,"(X-H)² (Y-K)²")
Text(21,1,"----- + ----- = 1 (A > B)")
Text(27,9,"A²"):Text(27,37,"B²")
Text(34,1,"VERTICAL")
Text(34,57,"A² = B² + C²")
Text(41,1,"(X-H)² (Y-K)²")
Text(47,1,"----- + ----- = 1 (A > B)")
Text(53,9,"B²")
Text(53,37,"A²")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"PARABOLA - VERTICAL")
Text(7,1,"(X-H)² = 4A(Y-K) AT (H, K)")
Text(13,7,"X² = 4AY AT (0, 0)")
Text(19,7,"DIRECTRIX: Y = A")
Text(25,7,"FOCUS = (0,A)")
Text(32,1,"PARABOLA - HORIZONTAL")
Text(38,1,"(Y-K)² = 4A(X-H) AT (H, K)")
Text(44,7,"Y² = 4AX AT (0, 0)")
Text(50,7,"DIRECTRIX: X = A")
Text(56,7,"FOCUS = (A, 0)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"HYPERBOLA - HORIZONTAL")
Text(8,1,"(X-H)² (Y-K)²")
Text(14,1,"----- - ----- = 1")
Text(20,9,"A²"):Text(20,37,"B²")
Text(30,1,"VERTICAL")
Text(30,58,"C² = A² + B²")
Text(37,1,"(Y-K)² (X-H)²")
Text(43,1,"----- - ----- = 1")
Text(49,9,"A²")
Text(49,37,"B²")
Text(57,67,"<ENTER>")
Pause :Goto L
Lbl R:ClrDraw
0→Xmin:1→Xmax:0→Xscl
0→Ymin:1→Ymax:0→Yscl
Text(1,1,"SPECIAL RT. TRIANGLES")
Text(8,10,"30-60-90 45-45-90")
Text(15,10,"1-√(3)-2 1-1-√(2)")
Line(.05,.25,.45,.25)
Line(.45,.25,.45,.55)
Line(.45,.55,.05,.25)
Line(.40,.25,.40,.30)
Line(.40,.30,.45,.30)
Text(48,18,"√(3)")
Text(35,46,"1")
Text(27,24,"2")
Line(.65,.25,.9,.25)
Line(.9,.25,.9,.6)
Line(.9,.6,.65,.25)
Line(.86,.25,.86,.30)
Line(.86,.30,.9,.30)
Text(48,73,"1")
Text(33,88,"1")
Text(28,62,"√(2)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"MORE RIGHT TRIANGLES")
Text(10,10,"3-4-5")
Text(10,50,"5-12-13")
Text(17,10,"7-24-25")
Text(17,50,"8-15-17")
Text(24,10,"9-40-41")
Text(24,50,"11-60-61")
Text(31,10,"12-35-37")
Text(31,50,"13-84-85")
Text(38,10,"16-63-65")
Text(38,50,"20-21-29")
Text(48,23,"+ MULTIPLES")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"CIRCULAR DEFINITIONS:")
Text(15,1,"SIN(X) = Y / R")
Text(23,1,"COS(X) = X / R")
Text(31,1,"TAN(X) = Y / X")
Text(15,50,"CSC(X) = R / Y")
Text(23,50,"SEC(X) = R / X")
Text(31,50,"COT(X) = X / Y")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(2,1,"SIN(X) = OPP/HYP")
Text(2,68,"CHIEF")
Text(9,1,"COS(X) = ADJ/HYP SOHCAHTOA")
Text(16,1,"TAN(X) = OPP/ADJ")
Text(23,1,"TAN(X) = SIN(X)/COS(X)")
Text(30,1,"CSC(X) = 1/SIN(X)")
Text(37,1,"SEC(X) = 1/COS(X)")
Text(44,1,"COT(X) = COS(X)/SIN(X)")
Text(51,1,"COT(X) = 1/TAN(X)")
Text(57,67,"<ENTER>")
Pause :AxesOn :ClrDraw
1→Xmin:1→Xmax:0→Xscl
1→Ymin:1→Ymax:0→Yscl
Text(8,10,"SIN(X)")
Text(15,10,"CSC(X)")
Text(40,10,"TAN(X)")
Text(47,10,"COT(X)")
Text(40,60,"COS(X)")
Text(47,60,"SEC(X)")
Text(12,56,"ALL ARE +")
Text(23,53,"I")
Text(23,35,"II")
Text(33,32,"III")
Text(33,51,"IV")
Text(57,67,"<ENTER>")
Pause
0→Xmin:14.58064516→Xmax:0→Xscl
0→Ymin:10→Ymax:0→Yscl
Circle(0,0,8):Line(0,0,6.900961,4.0322581)
Line(0,0,5.7391901,5.483871):Line(0,0,3.8778312,6.9354839)
Text(2,4,"QUADRANT I")
Text(2,46,"(cos(X),sin(X))")
Text(42,39,"3O")
Text(33,50,"(√(3)/2,1/2)"
Text(25,25,"45")
Text(22,41,"(√(2)/2,√(2)/2)")
Text(19,14,"60")
Text(12,29,"(1/2,√(3)/2)")
Text(41,60,"60 = π/3")
Text(48,60,"45 = π/4")
Text(55,60,"30 = π/6")
Text(55,22,"<ENTER>")
Pause :ClrDraw
15.16129032→Xmin:15.16129032→Xmax:0→Xscl
10→Ymin:10→Ymax:0→Yscl:Circle(0,0,5)
Line(0,5,0,5):Line(5,0,5,0)
Text(23,70,"O"):Text(33,65,"(1,O)")
Text(1,34,"9O = π/2"):Text(8,40,"(O,1)")
Text(23,7,"18O = π"):Text(33,10,"(1,O)")
Text(48,30,"27O = 3π/2")
Text(55,38,"(O,1)")
Text(57,67,"<ENTER>")
Pause :ClrDraw:AxesOff
Text(1,1,"DEG. - RAD.")
Text(1,38,"(cos(X),sin(X))")
Text(10,5,"30=π/6")
Text(16,5,"45=π/4")
Text(22,5,"60=π/3")
Text(28,5,"90=π/2")
Text(34,1,"120=2π/3")
Text(40,1,"135=3π/4")
Text(46,1,"150=5π/6")
Text(52,1,"180=π")
Text(10,38,"(√(3)/2,1/2)")
Text(16,38,"(√(2)/2,√(2)/2)")
Text(22,38,"(1/2,√(3)/2)")
Text(28,38,"(0,1)")
Text(34,38,"(1/2,√(3)/2)")
Text(40,38,"(√(2)/2,√(2)/2)")
Text(46,38,"(√(3)/2,1/2)")
Text(52,38,"(1,0)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"DEG. - RAD.")
Text(1,38,"(cos(X),sin(X))")
Text(10,1,"210=7π/6")
Text(16,1,"225=5π/4")
Text(22,1,"240=4π/3")
Text(28,1,"270=3π/2")
Text(34,1,"300=5π/3")
Text(40,1,"315=7π/4")
Text(46,1,"330=11π/6")
Text(52,1,"360=2π")
Text(10,38,"(√(3)/2,1/2)")
Text(16,36,"(√(2)/2,√(2)/2)")
Text(22,38,"(1/2,√(3)/2)")
Text(28,38,"(0,1)")
Text(34,38,"(1/2,√(3)/2)")
Text(40,38,"(√(2)/2,√(2)/2)")
Text(46,42,"(√(3)/2,1/2)")
Text(52,42,"(1,0)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"FUNC. PER. DOM. RNG.")
Text(10,1,"SIN(X) 2π R 1 ≤ Y ≤ 1")
Text(17,1,"COS(X) 2π R 1 ≤ Y ≤ 1")
Text(24,1,"TAN(X) π * R")
Text(33,5,"* = R EXCEPT ODD MULT.")
Text(40,25,"OF π/2")
Text(57,67,"<ENTER>")
Pause :ClrDraw
1→Xmin:1→Xmax:0→Xscl
1→Ymin:1→Ymax:0→Yscl
Text(1,1,"SIN²(X) + COS²(X) = 1")
Text(8,1,"TAN²(X) + 1 = SEC²(X)")
Text(15,1,"1 + COT²(X) = CSC²(X)")
Text(25,1,"PYTHAGOREAN THEOREM")
Text(33,7,"A² + B² = C²")
Line(.1,.6,.6,.6)
Line(.6,.6,.6,.1)
Line(.6,.1,.1,.6)
Line(.5,.6,.5,.5)
Line(.5,.5,.6,.5)
Text(38,78,"A")
Text(52,60,"B")
Text(34,56,"C")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"DOUBLE-ANGLE FORMULAS")
Text(10,1,"SIN(2X) = 2SIN(X) COS(X)")
Text(17,1,"COS(2X) = COS²(X) - SIN²(X)")
Text(25,1,"COS(2X) = 2 COS²(X) - 1")
Text(32,1,"COS(2X) = 1 - 2 SIN²(X)")
Text(39,40,"2TAN(X)")
Text(45,1,"TAN(2X) =")
Text(45,35,"--------")
Text(51,35,"1-TAN²(X)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"HALF-ANGLE FORMULAS")
Text(10,1,"SIN(X/2) = √((1-COS(X))/2)")
Text(17,1,"COS(X/2) = √((1+COS(X))/2)")
Text(30,1,"TAN(X/2) = ----------------")
Text(25,38,"√((1-COS(X))/2)")
Text(36,38,"√((1+COS(X))/2)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"SUM AND DIFFERENCE")
Text(8,1,"sin(X + Y) =")
Text(14,8,"sin(X)cos(Y) + cos(X)sin(Y)")
Text(20,1,"sin(X - Y) =")
Text(26,8,"sin(X)cos(Y) - cos(X)sin(Y)")
Text(32,1,"cos(X + Y) =")
Text(38,8,"cos(X)cos(Y) - sin(X)sin(Y)")
Text(44,1,"cos(X - Y) =")
Text(50,8,"cos(X)cos(Y) + sin(X)sin(Y)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"SUM AND DIFFERENCE")
Text(9,1,"tan(X + Y) =")
Text(16,8,"tan(X) + tan(Y)")
Text(22,8,"-------------")
Text(28,8,"1 - tan(X)tan(Y)")
Text(38,1,"tan(X - Y) =")
Text(45,8,"tan(X) - tan(Y)")
Text(51,8,"-------------")
Text(57,8,"1 + tan(X)tan(Y)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"LAW OF SINES")
Text(9,1," sin(A) sin(B) sin(C)")
Text(15,1," ----- = ----- = -----")
Text(20,13,"a b c")
Text(29,1,"LAW OF COSINES")
Text(36,1," c² = a² + b² - 2ab*cos(C)")
Text(43,1," b² = a² + c² - 2ac*cos(B)")
Text(50,1," a² = b² + c² - 2bc*cos(A)")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"TRIANGLE AREAS")
Text(10,1,"A = (1/2)BH"
Text(17,1,"A = (1/2)ab*sin(C)"
Text(24,33,"a²*sin(B)*sin(C)")
Text(30,1,"A = (1/2)---------------")
Text(36,50,"sin(A)")
Text(43,1,"HERON'S FORMULA")
Text(50,5,"A = √(S(S-a)(S-b)(S-c))")
Text(57,5,"S = (a + b + c)/2")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"INVERSE TRIG. FUNCTIONS")
Text(10,1,"FUNC.")
Text(10,25,"DEF. ANGLES")
Text(10,75,"QUAD.")
Text(19,1,"SIN")
Text(19,20,"π/2 ≤ θ ≤ π/2")
Text(19,78,"4, 1")
Text(27,1,"TAN")
Text(27,20,"π/2 ≤ θ ≤ π/2")
Text(27,78,"4, 1")
Text(35,1,"COS")
Text(35,25,"0 ≤ θ ≤ π")
Text(35,78,"1, 2")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"POLAR COORDINATES")
Text(10,1,"X = R cos(θ)")
Text(10,53,"Y = R sin(θ)")
Text(20,1,"R = √(X² + Y²)")
Text(20,53,"R² = X² + Y²")
Text(27,1,"θ = tan(Y/X)")
Text(36,1,"COMPLEX FORM = A + B")
Text(43,1,"POLAR FORM = R CIS θ")
Text(50,27,"= R(cos(θ) + sin(θ))")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"POLAR GRAPHS")
Text(10,1,"R = A + B sin(θ), R = A + B cos(θ)")
Text(20,1,"!A! = !B! CARDIOID")
Text(27,1,"!A! > !B! LIMACON W/O LOOP")
Text(34,1,"!A! < !B! LIMACON W/LOOP")
Text(42,1,"R² = A sin(2θ), R² = A cos(2θ)")
Text(49,30,"LEMNISCATE")
Text(57,67,"<ENTER>")
Pause :Goto L
Lbl θ
ClrDraw
Text(1,1,"LENGTH")
Text(10,1,"1 FT = 12 IN")
Text(16,1,"1 YD = 3 FT")
Text(22,1,"1 MI = 1760 YD")
Text(28,1,"1 MI = 5280 FT")
Text(34,1,"1 N.MI = 1.15 MI")
Text(40,1,"1 LEAGUE = 3 MI")
Text(46,1,"1 FATHOM = 6 FT")
Text(52,1,"1 ROD = 16.5 FT")
Text(10,49,"1 IN = 2.54 CM")
Text(16,49,"1 M = 39.37 IN")
Text(22,53,"1 KM = .62 MI")
Text(28,51,"1 MI = 1.58 KM")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"AREA - PG. 1")
Text(10,1,"1 SQ FT = 144 SQ IN")
Text(17,1,"1 SQ YD = 9 SQ FT")
Text(24,1,"1 ACRE = 4840 SQ YD")
Text(31,1,"1 ACRE = 43,560 SQ FT")
Text(38,1,"1 SQ MI = 27,878,400 SQ FT")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"AREA - PG. 2")
Text(10,1,"1 SQ IN = 6.4516 SQ CM")
Text(17,1,"1 SQ METER = 10,000 SQ CM")
Text(24,1,"1 SQ METER = 1.196 SQ YD")
Text(31,1,"1 SQ YD = .836 SQ METER")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"VOLUME - PG. 1")
Text(10,1,"1 T = 3 t")
Text(17,1,"1 CUP = 16 T")
Text(24,1,"1 PT = 2 CUP")
Text(31,1,"1 QT = 2 PT")
Text(38,1,"1 GAL = 4 QT")
Text(45,1,"1 QT = 0.946 LITER")
Text(52,1,"1 LITER = 1000 ML")
Text(10,34,"1 BUSHEL = 4 PECKS")
Text(17,46,"1 PECK = 8 QTS")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"VOLUME - PG. 2")
Text(10,1,"1 CU FT = 1728 CU IN")
Text(17,1,"1 CU YD = 27 CU FT")
Text(24,1,"1 CU YD = 46,656 CU IN")
Text(31,1,"1 CU IN = 16.387 CU CM")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Text(1,1,"WEIGHT")
Text(10,1,"1 OZ = 28.35 GM")
Text(17,1,"1 LB = 16 OZ")
Text(24,1,"1 TON = 2000 LB")
Text(31,1,"1 METRIC TON = 2200 LB")
Text(38,1,"1 KG = 2.2 LB")
Text(45,1,"1 LB = .45 KG")
Text(52,1,"1 LB = 453.6 GM")
Pause :ClrDraw
Text(1,1,"TEMPERATURE")
Text(10,1,"C = (5/9)(F - 32)")
Text(17,1,"F = (9/5)C + 32")
Text(26,1,"KELVIN = C + 273")
Text(57,67,"<ENTER>")
Pause :ClrDraw
Goto L
Lbl Z
ClrHome
AxesOn
Output(1,1,"CREATED BY RYAN MCCLAIN **2003** CLASS OF *2006* P.V.H.S")
Nice program! Seems like you worked hard. Just don't use this on the actual ACT…. ;P
Hewwo, my name is Achak Claw. I was formerly BioHazard.
The program is actually written by Ryan McClain, as stated by Noob101.
I’m not sure why there would be any text overlap; the CE screen is bigger than the monochrome calculators. However I would have to try out the program myself. Biohazard is right though, don’t use this on such an official test like the ACT.
Will definitely keep that in mind!!!
I just don't know how to edit the code to fix the problem
What are the squares? Some characters aren't reading correctly on Windows, so I don't know what they are.
They won't work on Linux either
Hewwo, my name is Achak Claw. I was formerly BioHazard.
Ive uploaded the .zip file named july.zip (in forum attachments)
hopefully it makes it easier, really don't about the squares or the code, srry!!!
The download works with no problems. Nice program you found though. Just wish it wasn't 15k in size… yuck
Hewwo, my name is Achak Claw. I was formerly BioHazard.
yeah, just don't know how to fix the overlapping txt for the ce
Luckily for you, I took good notes on the CE when I used it for the first time.
Graph dimension: 165x265 pixels
Home Dimension: 10x26 units
Text spacing:
12 down, 8 across (small)
15 down, 12 across (home)
Set text y-coordinates in multiples of 12 (0 [start at 0 for very top and 156 for very bottom], 12, 24, 36, 48, ...)
On the monochrome calculators, text on the graph screen is…
Graph dimension: 62x94 pixels
Home Dimension: 8x16 units
Text spacing:
6 down, 4 across (small)
8 down, 6 across (home)
Set text y-coordinates in multiples of 6 (0 [start at 0 for very top and 54 for very bottom], 6, 12, 18, 24, ...)
So if the y-coordinates on the graph screen are in multiples of 6, change them to multiples of 12.
Hope this helps!
If you need examples, here are a few…
If the y-coord on this text command is this:
Text(24,18,"Santiago
Change it to:
Text(48,18,"Santiago
You may want to adjust the x-coordinates on the text so they all don't appear to be on the more-left side of the screen.
Hewwo, my name is Achak Claw. I was formerly BioHazard.