body main banner  
torso

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,"30o")
:Text(6,72,"45o")
:Text(0,67,"60o")
:Text(3,43,"90o")
:Text(0,12,"120o")
:Text(6,6,"135o")
:Text(12,1,"150o")
:Text(27,0,"180o")
:Text(43,1,"210o")
:Text(50,6,"225o")
:Text(57,12,"240o")
:Text(53,41,"270o"
:Text(57,67,"300o")
:Text(50,73,"315o")
:Text(43,77,"330o"
:Text(27,78,"360o"
: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,"0o")
: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

Generated by SourceCoder, 2005 Cemetech