Listing of file='CONICS.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
1 PRINT CHR$ (12) 2 PRINT " PREPARED BY THE FACULTY AND STUDENTS " 3 PRINT " AT SAN JOSE STATE UNIVERSITY" 4 PRINT " APRIL 2, 1980" 5 FOR K= 1TO 2000:NEXT K 7 PRINT CHR$ (12) 10 PRINT "THE GENERAL FORM FOR A CONIC USING POLAR COORDINATES" 11 PRINT 12 PRINT " IS R = E * P / ( 1 - E * COS (A) )." 20 PRINT :PRINT 30 PRINT "R IS THE RADIUS FROM THE ORIGIN 0,0." 40 PRINT "A IS THE ANGLE MEASURED FROM A DIRECTION DIRECTLY TO THE RIGHT." 50 PRINT "E IS THE ECCENTRICITY WHICH TELLS WHAT SHAPE THE CURVE IS:" 51 PRINT " ELLIPSE OR PARABOLA OR HYPERBOLA." 55 PRINT :PRINT "WE USE P = 4 TO ENLARGE THE GRAPH TO FILL THE SCREEN." 60 PRINT :PRINT :PRINT 70 PRINT "YOUR JOB IS TO DECIDE WHICH VALUES OF E TO USE TO CREATE" 71 PRINT "EACH OF THE POSSIBLE SHAPES." 75 PRINT :PRINT 80 PRINT "THE COMPUTER WILL VARY THE VALUE OF A THUS CHANGING THE R VALUE." 90 PRINT "YOU CHANGE THE VALUE OF E TO DETERMINE ITS EFFECT." 100 PRINT :PRINT :PRINT :PRINT 110 PRINT "WHAT VALUE OF E WOULD YOU LIKE TO START WITH?" 120 INPUT E 200 PRINT CHR$ (12) 201 P= 20:IF E> = .7THEN P= 4 202 IF E> .9THEN P= 1.5:IF E> .96THEN P= .2 203 IF E> 1.1THEN P= 1.5 204 IF E> 2THEN P= 4:IF E> 5THEN P= 8 205 PRINT "R = ";E;" * ";P;" / ( 1 - ";E;" * COS ( A ) )." 206 PRINT :PRINT :PRINT ,,,,"P = ";P 210 PLOT 19 220 PLOT 2 230 FOR A= .01TO 6.31STEP .1 240 R= E* P/ (1- E* COS (A)) 250 X= 31+ 3* R* COS (A):Y= 63+ 4* R* SIN (A) 260 IF X< 0OR X> 127OR Y< 1OR Y> 127THEN 280 270 PLOT X,Y 280 NEXT A 290 PLOT 255 300 PLOT 3,1,30 310 INPUT "PRESS <RETURN> WHEN READY.";Y$ 320 GOTO 10 330 END