Listing of file='SFRSIZ.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
10 REM -SFRSIZ-(SPHERE SIZE) A PROGRAM TO CALCULATE DIMENSIONS 12 REM -OF A BALL SHAPED OBJECT-BY LOU HOFMEISTER,OCT.1980 15 PLOT 12,19,14,9 20 PRINT "MEASURING A SPHERE" 25 PLOT 15,18 30 X0= 105:Y0= 95:A= .72:R= 28:PLOT 2:GOSUB 100 40 R= 8.5:A= 2.2:PLOT 21,2:GOSUB 100 50 X0= 105:Y0= 111:R= 5.9:PLOT 2:GOSUB 100 95 GOTO 295 100 FOR D= 0TO 360STEP 20:R0= D* .0174533 105 PLOT X0+ A* R* COS (R0),Y0+ R* SIN (R0),242:NEXT D:PLOT 255 110 RETURN 295 PLOT 3,45,9,69,3,48,5,67 300 PLOT 23,2,105,127,242,105,110,255 301 PLOT 2,105,100,242,105,95,255 302 PLOT 2,105,85,242,105,62,255 305 PLOT 20,2,86,95,242,123,95,255,3,38,8,68,40,49,41 310 PLOT 2,92,110,242,117,110,255,3,40,4,68,40,50,41 320 PLOT 17,2,105,95,242,121,109,255,3,62,3,76 330 PLOT 19,2,105,110,242,105,120,255,3,51,3,72 390 PLOT 15,22,3,1,3 400 PRINT "--GIVE VALUE FOR MAJOR DIAMETER AND" 401 PRINT "UNITS OF MEASUREMENT.THE COMPUTOR WILL" 402 PRINT "THEN CALCULATE OTHER PARAMETERS.":PRINT 410 INPUT "FIRST-ENTER FEET,METERS,ETC. :";W$:PRINT 415 PRINT "ENTER VALUE OF DIAMETER ( D ), IF NOT" 416 PRINT "KNOWN, PROVIDE-VOLUME-INSTEAD WHEN" 417 INPUT "REQUESTED. NEGATIVES IGNORED. : ";D:PRINT 420 D= ABS (D):IF D= 0THEN 430 425 GOTO 450 430 INPUT "TYPE VALUE FOR VOLUME : ";V:PRINT 440 V= ABS (V):IF V= 0THEN 430 445 D= (6* V/ 3.14159)^ .333333:PRINT "MAJOR DIAMETER="D" "W$ 446 GOTO 452 450 V= (3.14159* D^ 3)/ 6:PRINT "VOLUME OF SPHERE="V" CUBIC "W$ 452 J= 3.14159* D^ 2:PRINT "SURFACE AREA OF SPHERE="J" SQ. "W$ 455 A= 3.14159* D^ 2/ 4:PRINT "AREA ON MAJOR DIAMETER="A" SQ. "W$ 460 P= 3.14159* D:PRINT "CIRCUMFERENCE AT D(1)="P" "W$ 500 PRINT "NOW-IF YOU GIVE AN ANGLE FOR L,IN DEGREES ABOVE E,(LATITUDE VS." 501 PRINT "EQUATOR),THE COMPUTOR WILL TELL MORE.":INPUT S 505 S= ABS (S):IF S= 90THEN D= 0 510 H= (1- SIN (S* .0174533))* D/ 2:PRINT "HEIGHT H = "H" "W$ 520 F= COS (S* .0174533)* D:PRINT "MINOR DIAMETER D(2) = "F" "W$ 530 B= 3.14159* F^ 2/ 4:PRINT "AREA ON MINOR DIAMETER="B" SQ. "W$ 540 C= 3.14159* F:PRINT "CIRCUMFERENCE AT D(2)="C" "W$ 560 K= 1.04719* H^ 2* (1.5* D- H):PRINT "VOLUME OF SPHERICAL SEGMENT ABOVE D(2)="K" CUBIC "W$ 570 L= 3.14159* D* H:PRINT "SURFACE AREA OF SPHERICAL SEGMENT ABOVE D(2)="L" SQ. "W$ 575 IF S= 0THEN 600 580 M= V/ 2- K:PRINT "VOLUME OF ZONE BETWEEN D(1)AND D(2)= "M" CUBIC "W$ 590 N= J/ 2- L:PRINT "SURFACE AREA OF ZONE BETWEEN D(1) AND D(2)="N" SQ. "W$ 595 GOTO 640 600 PRINT "VOLUME OF ZONE BETWEEN D(1)AND D(2) = 0" 605 PRINT "SURFACE AREA OF ZONE BETWEEN D(1) AND D(2) = 0" 640 FOR Z= 1TO 400:NEXT Z 650 PRINT :PRINT "TYPE 8 TO DO IT AGAIN. TYPE 9 FOR OTHER 'AREAS AND VOLUMES' " 660 INPUT "OR HIT RETURN FOR REGULAR MENU ";A$ 670 IF A$= "8"THEN 15 680 IF A$= "9"THEN LOAD "GEOSIZ":RUN 690 LOAD "MENU":RUN 700 END