Listing of file='CNSIZ.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
10 REM -CONE SIZE-A PROGRAM ON THE CONE, EXCEPT INVERTED AS A 15 REM -FUNNEL. BY LOU HOFMEISTER,DEC.1980 50 PLOT 12,19,14,3,18,1 55 PRINT "MEASURING A CONE" 60 PLOT 15,21 70 X0= 100:Y0= 105:A= 2:R= 10:PLOT 2 80 FOR D= 0TO 360STEP 20:R0= D* .0174533 90 PLOT X0+ A* R* COS (R0),Y0+ R* SIN (R0),242:NEXT D:PLOT 255 100 PLOT 19,2,100,105,242,100,55,255 105 PLOT 20,2,83,105,242,117,105,255 110 PLOT 18,2,81,99,242,100,50,119,99,255 115 PLOT 21,3,47,2,67 120 PLOT 19,3,50,13,72 125 PLOT 20,3,38,5,68 130 PLOT 18,3,55,15,76 132 PLOT 23,3,42,12,65 133 PLOT 23,3,57,12,65 140 X0= 100:Y0= 50:A= .7:R= 35:PLOT 23,2 145 FOR D= 64TO 115STEP 5:R0= D* .0174533 150 PLOT X0+ A* R* COS (R0),Y0+ R* SIN (R0),242:NEXT D:PLOT 255 165 PLOT 22,3,1,4 200 PRINT "--GIVE VALUES FOR DIAMETER & HEIGHT," 202 PRINT "AND UNIT OF MEASUREMENT.THE COMPUTER" 204 PRINT "WILL CALCULATE SOME OTHER PARAMETERS." 205 PRINT " " 206 INPUT "FIRST-ENTER FEET, METERS, ETC : ";U$:PRINT 210 PRINT "NEXT-ENTER VALUES AS CALLED. IF ONE" 215 PRINT "IS UNKNOWN, TYPE 0, AND GIVE VOLUME" 220 PRINT "INSTEAD PER REQUEST. MINUSES IGNORED.":PRINT 225 FOR K= 1TO 150:NEXT K 230 INPUT "TYPE ( D ), THE DIAMETER : ";D:PRINT 235 INPUT "TYPE ( H ), THE HEIGHT : ";H:PRINT 240 D= ABS (D):H= ABS (H) 250 IF D= 0THEN 270 255 IF H= 0THEN 290 260 GOTO 340 270 INPUT "ENTER VALUE FOR VOLUME : ";V 275 V= ABS (V) 280 D= SQR (V/ (.26179* H)):PRINT "THE DIAMETER ( D ) = "D" "U$ 285 GOTO 450 290 INPUT "ENTER VALUE FOR VOLUME : ";V 295 V= ABS (V) 310 H= V/ (.26179* D^ 2):PRINT "THE HEIGHT ( H ) = "H" "U$ 320 GOTO 450 340 A= .78539* D^ 2 415 V= A/ 3* H:PRINT "VOLUME OF CONE = "V" CUBIC "U$ 450 C= 3.14159* D:PRINT "CIRCUMFERENCE ( C ) = "C" "U$ 460 A= .78539* D^ 2:PRINT "AREA ON END = "A" SQUARE "U$ 480 L= SQR (H^ 2+ (D/ 2)^ 2):PRINT "LENGTH OF SLOPE ( L ) = "L" "U$ 490 S= C* L/ 2:PRINT "AREA OF CONE'S SLOPE = "S" SQUARE "U$ 495 J= D* H/ 2:PRINT "AREA OF TRIANGLE THROUGH H = "J" SQUARE "U$ 500 T= 2* ATN (.5* D/ H)* 57.2958:PRINT "INCLUDED ANGLE A-A = "T" DEGREES" 540 FOR J= 1TO 400:NEXT J 600 PRINT :PRINT "TYPE 8 TO DO IT AGAIN. TYPE 9 FOR OTHER 'AREAS AND VOLUMES' " 610 INPUT "OR HIT RETURN FOR REGULAR MENU ";A$ 620 IF A$= "8"THEN 50 630 IF A$= "9"THEN LOAD "GEOSIZ":RUN 640 LOAD "MENU":RUN 650 END