TI-81 programs

Program: RANGE          39 bytes
: Function
: -9.6->Xmin
: 9.4->Xmax
: -6.4->Ymin
: 6.2->Ymax
: 1->Xscl
: 1->Yscl
: 1->Xres
: End

Program: MOVEVIEW       129 bytes
: DispHome
: ClrHome
: Disp "VERTICAL MOVE"
: Input V
: Disp "HORIZONTAL MOVE"
: Input H
: Xmin+H->Xmin
: Xmax+H->Xmax
: Ymin+V->Ymin
: Ymax+V->Ymax
: Round((Xmax-Xmin)/10)->Xscl
: Round((Ymax-Ymin)/10)->Yscl
: ClrHome
: Disp "X VARS"
: Disp Xmin
: Disp Xmax
: Disp "Y VARS"
: Disp Ymin
: Disp Ymax

Program: SIZEVIEW       148 bytes
: DispHome
: ClrHome
: Disp "COEFFICIENT"
: Input S
: (Ymax-Ymin)->W
: (Xmax-Xmin)->L
: W/2+Ymin->M
: L/2+Xmin->C
: W*S->W
: L*S->L
: M+W/2->Ymax
: M-W/2->Ymin
: C+L/2->Xmax
: C-L/2->Xmin
: ClrHome
: Disp "SCREEN CENTER"
: Disp "VERTICAL"
: Disp C
: Disp "HORIZONTAL"
: Disp M

Program: PHASE          249 bytes
: All-Off
: ClrDraw
: Grid On
: -6.4->Ymin
: 6.2->Ymax
: 1->Yscl
: DispHome
: ClrHome
: Disp "1.RAD 2.DEG"
: Input S
: Deg
: -360->Xmin
: -Xmin->Xmax
: 45->Xscl
: If S=2
: Goto M
: Rad
: -2(pi)->Xmin
: -Xmin->Xmax
: (pi)/4->Xscl
: Lbl M
: ClrHome
: Disp "PHASE CHANGE"
: Input P
: Disp "FREQUENCY"
: Input F
: Line(-360,4,360,4)
: Line(-360,-4,360,-4)
: DrawF sinX+4
: DrawF sin(FX+P)-4
: DrawF sinX+sin(FX+P)
: Pause
: DispHome
: Disp "ANOTHER WAVE?   (1 OR 0)
: Input R
: If R=0
: Goto D
: ClrDraw
: Goto M
: Lbl D
: Grid Off
: All-On
: exec("RANGE")

Program: CYCLOPS        163 bytes
: All-Off
: ClrDraw
: .4->Xmin
: 19.4->Xmax
: 20->Xscl
: 20->Yscl
: .6->Ymin
: 13.2->Ymax
: DrawF sqr(4(1-(X-10)^2/49))+7
: DrawF -sqr(4(1-(X-10)^2/49))+7
: Shade(-sqr(1-(X-10)^2)+7,sqr(1-(X-10)^2)+7)
: Shade(-sqr(4-(X-10)^2)+7,sqr(4-(X-10)^2)+7,2)
: Pause
: DispHome
: All-On
: exec("RANGE")