Try changing
Code:
To
Code:
Hope this helps!
Code:
Output(1,7,A
To
Code:
Pause A
Hope this helps!
Output(1,7,A
Pause A
Input "Amt of Pts? ",D
D->dim(L1
D->dim(L2
For(A,1,D
ClrHome
Disp "Point"
Output(1,7,A
Prompt X *I'm using prompt instead of Input for efficiency
X->L1(A
Prompt Y
Y->L2(A
End
ClrHome
Input "Amt of Pts? ",D
D->dim(L1
D->dim(L2
2->B
For(A,1,D
ClrHome
Disp "Point"
Output(B,7,A
Prompt X
X->L1(A
Prompt Y
B+3->B
If B>7
7->B
Y->L2(A
End
ClrHome
ClrList L₁
ClrList L₂
ClrList L₃
ClrList L₄
Output(1,8,"Translation
Disp ""
Disp ""
Disp "How many points are there?"
Disp ""
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₄
D→dim(L₄
ClrHome
1→B
For(A,1,D
Disp "Point"
Output(B,7,A
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
ClrHome
Disp "Move By?"
Disp ""
Prompt X
X+L₁→L₃
Prompt Y
Y+L₂→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,A
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Lbl 11
ClrHome
ClrList L₁
ClrList L₂
ClrList L₃
ClrList L₄
Output(1,8,"Translation
Disp ""
Disp ""
Disp "How many points are there?"
Disp ""
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₄
D→dim(L₄
ClrHome
1→B
For(A,1,D
Disp "Point"
Output(B,7,A
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
ClrHome
Disp "Move By?"
Disp ""
Prompt X
X+L₁→L₃
Prompt Y
Y+L₂→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,A
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Menu("Plot the Images?","Yes",12,"No",13,"New Points",11)
Lbl 12
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZStandard
Pause
ClrDraw
PlotsOff
Goto 11
Lbl 13
ClrHome
Stop
Output(B,7,A
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Disp ""
Disp ""
Disp "How many points are there?"
Disp ""
Disp "","","How many points are there?","
ClrList L₁
ClrList L₂
ClrList L₃
ClrList L₄
ClrList L₁,L₂,L₃,L₄
Output(B,7,A
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Disp ""
Disp ""
Disp "How many points are there?"
Disp ""
Disp "","","How many points are there?","
ClrList L₁
ClrList L₂
ClrList L₃
ClrList L₄
ClrList L₁,L₂,L₃,L₄
Lbl 1
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,8,"Translation
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₄
D→dim(L₄
ClrHome
1→B
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
ClrHome
Disp "Move By?","
Prompt X
X+L₁→L₃
Prompt Y
Y+L₂→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Menu("Plot the Images?","Yes",2,"No",3,"New Points",1)
Lbl 2
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZStandard
Pause
ClrDraw
PlotsOff
Goto 1
Lbl 3
ClrHome
Stop
1+dim(L1)->dim(L1
1+dim(L1)->dim(L1
L1(1->L1(1+dim(L1
L1(1->L1(1+dim(L1
augment(L1,{L1(1->L1
Lbl W //Main Menu starts here
Menu("Select your Tranformation:","Translation",1,"Reflection",2,"Rotation",3,"Dilation",4,"Exit",Z) //Main Menu ends here
Lbl 1 //"Translation" starts here
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,8,"Translation
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
ClrHome
1→B
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
Disp "Move By?","
Prompt X
X+L₁→L₃
Prompt Y
Y+L₂→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto Y
Lbl Y
Menu("Plot the Images?","Yes",X,"New Points",1,"Return to Main Menu",W,"Exit",Z)
Lbl X
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZStandard
Pause
ClrDraw
PlotsOff
Goto W //"Translation" ends here
Lbl 2 //"Reflection" starts here
ClrHome
Menu("Select your Reflection:","X-axis",21,"Y-axis",22,"Y=x",23,"Y=-x",24,"Go Back",W,"Exit",Z)
Lbl 21
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,10,"X-axis
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
L₁→L₃
⁻L₂→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto V
Lbl 22
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,10,"Y-axis
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
⁻L₁→L₃
L₂→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto VA
Lbl 23
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,12,"Y=x
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
L₂→L₃
L₁→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto VB
Lbl 24
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,11,"Y=-x
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
⁻L₂→L₃
⁻L₁→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto VB
Lbl V
Menu("Plot the Images?","Yes",U,"New Points",2,"Return to Main Menu",W,"Exit",Z)
Lbl U
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZStandard
Pause
ClrDraw
PlotsOff
Goto W
Lbl VA
Menu("Plot the Images?","Yes",UA,"New Points",2,"Return to Main Menu",W,"Exit",Z)
Lbl UA
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZStandard
Pause
ClrDraw
PlotsOff
Goto W
Lbl VB
Menu("Plot the Images?","Yes",UB,"New Points",2,"Return to Main Menu",W,"Exit",Z)
Lbl UB
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZStandard
Pause
ClrDraw
PlotsOff
Goto W //"Reflection" ends here
Lbl 3 //"Rotation" starts here
ClrHome
Menu("Select your Rotation:","CW 90° (CCW 270°)",31,"180°",32,"CCW 90° (CW 270°)",33,"Go Back",W,"Exit",Z)
Lbl 31
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,5,"CW 90° (CCW 270°)
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
L₂→L₃
⁻L₁→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto VC
Lbl 32
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,11,"180°
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
⁻L₁→L₃
⁻L₂→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto VD
Lbl 33
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,5,"CCW 90° (CW 270°)
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
⁻L₂→L₃
L₁→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto VE
Lbl VC
Menu("Plot the Images?","Yes",UB,"New Points",3,"Return to Main Menu",W,"Exit",Z)
Lbl VD
Menu("Plot the Images?","Yes",UB,"New Points",3,"Return to Main Menu",W,"Exit",Z)
Lbl VE
Menu("Plot the Images?","Yes",UB,"New Points",3,"Return to Main Menu",W,"Exit",Z) //"Rotation" ends here
Lbl 4 //"Dilation" starts here
ClrHome
Menu("Select your Dilation:","From the Origin",41,"Go Back",W,"Exit",Z)
Lbl 41
ClrHome
ClrList L₁,L₂,L₃,L₄
Output(1,6,"From the Origin
Disp "","","How many points are there?","
Prompt D
D→dim(L₁
D→dim(L₂
D→dim(L₃
D→dim(L₄
1→B
ClrHome
Output(1,7,"Scale Factor?
Disp "","
Prompt E
ClrHome
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
B+3→B
If B>9
9→B
Prompt X
X→L₁(A
Prompt Y
Y→L₂(A
End
L₁*E→L₃
L₂*E→L₄
augment(L₁,{L₁(1→L₁
augment(L₂,{L₂(1→L₂
augment(L₃,{L₃(1→L₃
augment(L₄,{L₄(1→L₄
ClrHome
2→B
Output(1,8,"New Points: "
Disp ""
For(A,1,D
Disp "Point"
Output(B,7,sub("ABCDEFGHIJKLMNOPQRSTUVWXYZ",A,1
Output(B,8,sub("''''''''''''''''''''''''''",A,1
B+2→B
If B>9
9→B
Disp {L₃(A),L₄(A)
End
"
Pause
Goto T
Lbl T
Menu("Plot the Images?","Yes",TA,"New Points",4,"Return to Main Menu",W,"Exit",Z)
Lbl TA
Plot1(xyLine,L₁,L₂,plotsquare)
Plot2(xyLine,L₃,L₄,plotsquare)
DispGraph
ZoomStat
Pause
ZStandard
ClrDraw
PlotsOff
Goto W //"Dilation" ends here
Lbl Z //"Exit"
ClrHome
Stop
(Menu)
(Translation code)
Goto EE
(Reflection code)
Goto EE
(Rotation code)
Goto EE
(Dilation code)
Lbl EE //use whatever label you want
(New points code)
Goto Menu
Advertisement