UNIT.8xp

Contributed by: Eric Anderson

Purpose: This program shows the complete unit circle, including radians, degrees, and coordinates.

Download UNIT.8xp

Source Code

:Lbl 1
:Menu("UNIT CIRCLE","RADIANS",A,"DEGREES",B,"COORDINATES",C,"QUIT",D)
:Lbl A
:""Y1
:""Y2
:""Y3
:^-1F
:1G
:FXmin
:FYmin
:GXmax
:GYMax
:ZSquare
:AxesOff
:Circle(0,0,1)
:Pt-On(sqrt(3)/2,.5,2)
:Pt-On(sqrt(2)/2,sqrt(2)/2,2
:Pt-On(.5,sqrt(3)/2,2)
:Pt-On(0,1,2)
:Pt-On(^-.5,sqrt(3)/2,2)
:Pt-On(^-sqrt(2)/2,sqrt(2)/2,2)
:Pt-On(^-sqrt(3)/2,.5,2)
:Pt-On(^-1,0,2)
:Pt-On(^-sqrt(3)/2,^-.5,2)
:Pt-On(^-sqrt(2)/2,^-sqrt(2)/2,2)
:Pt-On(^-.5,^-sqrt(3)/2,2)
:Pt-On(0,^-1,2)
:Pt-On(.5,^-sqrt(3)/2,2)
:Pt-On(sqrt(2)/2,^-sqrt(2)/2,2)
:Pt-On(sqrt(3)/2,^-.5,2)
:Pt-On(1,0,2)
:Text(12,77,"pi/6")
:Text(6,72,"pi/4")
:Text(0,67,"pi/3")
:Text(3,41,"pi/2")
:Text(0,12,"2pi/3")
:Text(6,6,"3pi/4")
:Text(12,1,"5pi/6")
:Text(27,8,"pi")
:Text(43,1,"7pi/6")
:Text(50,6,"5pi/4")
:Text(57,12,"4pi/3")
:Text(53,39,"3pi/2"
:Text(57,67,"5pi/3")
:Text(50,73,"7pi/4")
:Text(43,73,"11pi/6"
:Text(27,82,"2pi"
:Line(^-sqrt(3)/2,0,sqrt(3)/2,0)
:Line(.7,0,1,0,0)
:Line(sqrt(3)/2,0,sqrt(3)/2,.5)
:Line(sqrt(3)/2,0,sqrt(3)/2,.1,0)
:Line(0,0,sqrt(3)/2,.5
:Line(sqrt(2)/2,0,sqrt(2)/2,sqrt(2)/2)
:Line(0,0,sqrt(2)/2,sqrt(2)/2
:Line(.5,0,.5,sqrt(3)/2)
:Line(0,0,.5,sqrt(3)/2)
:Line(^-.5,0,^-.5,sqrt(3)/2)
:Line(0,0,^-.5,sqrt(3)/2)
:Line(^-sqrt(2)/2,0,^-sqrt(2)/2,sqrt(2)/2)
:Line(0,0,^-sqrt(2)/2,sqrt(2)/2)
:Line(^-sqrt(3)/2,0,^-sqrt(3)/2,.5)
:Line(0,0,^-sqrt(3)/2,.5)
:Line(^-sqrt(3)/2,0,^-sqrt(3)/2,^-.5)
:Line(0,0,^-sqrt(3)/2,^-.5)
:Line(^-sqrt(2)/2,0,^-sqrt(2)/2,^-sqrt(2)/2)
:Line(0,0,^-sqrt(2)/2,^-sqrt(2)/2)
:Line(^-.5,0,^-.5,^-sqrt(3)/2)
:Line(0,0,^-.5,^-sqrt(3)/2)
:Line(.5,0,.5,^-sqrt(3)/2)
:Line(0,0,.5,^-sqrt(3)/2)
:Line(sqrt(2)/2,0,sqrt(2)/2,^-sqrt(2)/2
:Line(0,0,sqrt(2)/2,^-sqrt(2)/2
:Line(sqrt(3)/2,0,sqrt(3)/2,^-.5)
:Line(0,0,sqrt(3)/2,^-.5)
:Line(sqrt(3)/2,0,sqrt(3)/2,^-.1,0)
:Text(27,72,"0")
:Pause
:ClrDraw
:Goto 1
:ZStandard
:AxesOn
:Lbl B
:^-1F
:1G
:FXmin
:FYmin
:GXmax
:GYMax
:ZSquare
:AxesOff
:Circle(0,0,1)
:Pt-On(sqrt(3)/2,.5,2)
:Pt-On(sqrt(2)/2,sqrt(2)/2,2
:Pt-On(.5,sqrt(3)/2,2)
:Pt-On(0,1,2)
:Pt-On(^-.5,sqrt(3)/2,2)
:Pt-On(^-sqrt(2)/2,sqrt(2)/2,2)
:Pt-On(^-sqrt(3)/2,.5,2)
:Pt-On(^-1,0,2)
:Pt-On(^-sqrt(3)/2,^-.5,2)
:Pt-On(^-sqrt(2)/2,^-sqrt(2)/2,2)
:Pt-On(^-.5,^-sqrt(3)/2,2)
:Pt-On(0,^-1,2)
:Pt-On(.5,^-sqrt(3)/2,2)
:Pt-On(sqrt(2)/2,^-sqrt(2)/2,2)
:Pt-On(sqrt(3)/2,^-.5,2)
:Pt-On(1,0,2)
:Text(12,77,"30^o")
:Text(6,72,"45^o")
:Text(0,67,"60^o")
:Text(3,43,"90^o")
:Text(0,12,"120^o")
:Text(6,6,"135^o")
:Text(12,1,"150^o")
:Text(27,0,"180^o")
:Text(43,1,"210^o")
:Text(50,6,"225^o")
:Text(57,12,"240^o")
:Text(53,41,"270^o"
:Text(57,67,"300^o")
:Text(50,73,"315^o")
:Text(43,77,"330^o"
:Text(27,78,"360^o"
:Line(^-sqrt(3)/2,0,sqrt(3)/2,0)
:Line(.6,0,1,0,0)
:Line(sqrt(3)/2,0,sqrt(3)/2,.5)
:Line(sqrt(3)/2,0,sqrt(3)/2,.1,0)
:Line(0,0,sqrt(3)/2,.5
:Line(sqrt(2)/2,0,sqrt(2)/2,sqrt(2)/2)
:Line(0,0,sqrt(2)/2,sqrt(2)/2
:Line(.5,0,.5,sqrt(3)/2)
:Line(0,0,.5,sqrt(3)/2)
:Line(^-.5,0,^-.5,sqrt(3)/2)
:Line(0,0,^-.5,sqrt(3)/2)
:Line(^-sqrt(2)/2,0,^-sqrt(2)/2,sqrt(2)/2)
:Line(0,0,^-sqrt(2)/2,sqrt(2)/2)
:Line(^-sqrt(3)/2,0,^-sqrt(3)/2,.5)
:Line(0,0,^-sqrt(3)/2,.5)
:Line(^-sqrt(3)/2,0,^-sqrt(3)/2,^-.5)
:Line(0,0,^-sqrt(3)/2,^-.5)
:Line(^-sqrt(2)/2,0,^-sqrt(2)/2,^-sqrt(2)/2)
:Line(0,0,^-sqrt(2)/2,^-sqrt(2)/2)
:Line(^-.5,0,^-.5,^-sqrt(3)/2)
:Line(0,0,^-.5,^-sqrt(3)/2)
:Line(.5,0,.5,^-sqrt(3)/2)
:Line(0,0,.5,^-sqrt(3)/2)
:Line(sqrt(2)/2,0,sqrt(2)/2,^-sqrt(2)/2
:Line(0,0,sqrt(2)/2,^-sqrt(2)/2
:Line(sqrt(3)/2,0,sqrt(3)/2,^-.5)
:Line(0,0,sqrt(3)/2,^-.5)
:Line(sqrt(3)/2,0,sqrt(3)/2,^-.1,0)
:Text(27,67,"0^o")
:Pause
:ClrDraw
:ZStandard
:AxesOn
:Goto 1
:Lbl C
:0Q
:1G
:QXmin
:QYmin
:GXmax
:GYMax
:AxesOff
:ZSquare
:Circle(0,0,1)
:Pt-On(sqrt(3)/2,.5,2)
:Pt-On(sqrt(2)/2,sqrt(2)/2,2)
:Pt-On(.5,sqrt(3)/2,2)
:Text(56,0,"QUADRANT I"
:Text(29,26,"(sqrt(3)/2,1/2)"
:Text(16,6,"(sqrt(2)/2,sqrt(2)/2)"
:Text(6,3,"(1/2,sqrt(3)/2)"
:While 1
:getKeyK
:While K=0
:getKeyK
:End
:If K=105
:Then
:Goto 1
:ZStandard
:AxesOn
:ClrDraw
:End
:If K=24
:Then
:^-1F
:1G
:0Q
:FXmin
:QXmax
:QYmin
:GYMax
:AxesOff
:ZSquare
:Circle(0,0,1)
:Pt-On(^-.5,sqrt(3)/2,2)
:Pt-On(^-sqrt(2)/2,sqrt(2)/2,2
:Pt-On(^-sqrt(3)/2,.5,2)
:Text(56,54,"QUADRANT II"
:Text(9,46,"(^-1/2,sqrt(3)/2)"
:Text(18,36,"(^-sqrt(2)/2,sqrt(2)/2)"
:Text(29,27,"(^-sqrt(3)/2,1/2)"
:While 1
:getKeyK
:While K=0
:getKeyK
:End
:If K=105
:Then
:Goto 1
:ClrDraw
:ZStandard
:AxesOn
:End
:If K=34
:Then
:^-1F
:0Q
:FXmin
:QXmax
:FYmin
:QYMax
:AxesOff
:ZSquare
:Circle(0,0,1)
:Pt-On(^-sqrt(3)/2,^-.5,2)
:Pt-On(^-sqrt(2)/2,^-sqrt(2)/2,2)
:Pt-On(^-.5,^-sqrt(3)/2,2)
:Text(0,48,"QUADRANT III")
:Text(27,27,"(^-sqrt(3)/2,^-1/2)"
:Text(37,34,"(^-sqrt(2)/2,^-sqrt(2)/2)"
:Text(47,43,"(^-1/2,^-sqrt(3)/2)"
:While 1
:getKeyK
:While K=0
:getKeyK
:End
:If K=105
:Then
:Goto 1
:ClrDraw
:AxesOn
:ZStandard
:End
:If K=26
:Then
:^-1F
:0Q
:1G
:FYmin
:QXmin
:QYMax
:GXmax
:AxesOff
:ZSquare
:Circle(0,0,1)
:Text(0,0,"QUADRANT IV")
:Pt-On(.5,^-sqrt(3)/2,2)
:Pt-On(sqrt(2)/2,^-sqrt(2)/2,2)
:Pt-On(sqrt(3)/2,^-.5,2)
:Text(50,0,"(1/2,^-sqrt(3)/2)"
:Text(40,0,"(sqrt(2)/2,^-sqrt(2)/2)"
:Text(29,21,"(sqrt(3)/2,^-1/2)"
:While 1
:getKeyK
:While K=0
:getKeyK
:End
:If K=105
:Then
:Goto 1
:ClrDraw
:ZStandard
:AxesOn
:End
:End
:End
:End
:End
:ClrDraw
:ZStandard
:AxesOff
:Lbl D
:Disp
:ClrHome
:Disp " ERIC ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp " ERIC ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp " ERIC ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp " ERIC ANDERSON"
:randInt(1,37,8
:ClrHome
:Disp "ERIC ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "RIC ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "IC ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "C ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp " ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "ANDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "NDERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "DERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "ERSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "RSON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "SON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "ON, 2005"
:randInt(1,37,8
:ClrHome
:Disp "N, 2005"
:randInt(1,37,8
:ClrHome
:Disp ", 2005"
:randInt(1,37,8
:ClrHome
:Disp " 2005"
:randInt(1,37,8
:ClrHome
:Disp "2005"
:randInt(1,37,8
:ClrHome
:Disp "005"
:randInt(1,37,8
:ClrHome
:Disp "05"
:randInt(1,37,8
:ClrHome
:Disp "5"
:randInt(1,37,8
:ClrHome
:AxesOn
:ZStandard
:Stop
:End