1 GOTO99
14 V=(4*(null)*(R^3))/3:RETURN
16 R=((3*V)/(4*(null)))^(1/3):RETURN
18 A=4*(null)*R*R:RETURN
20 R=SQR(A/(4*(null))):RETURN
22 PRINT"X-Y COORDINATES OF VERTICES ? Y OR N[146]"
23 GETA$:IFA$<>"Y"ANDA$<>"N"THEN23
24 RETURN
25 PRINT"ANOTHER PROBLEM ? Y OR N[146]"
26 GETA$:IFA$<>"Y"ANDA$<>"N"THEN26
27 RETURN
30 AN=(null)*(N-2)/N:RETURN
32 S=2*R*(COS(AN/2)):RETURN
34 R=S/(2*(COS(AN/2))):RETURN
36 D=R*(SIN(AN/2)):RETURN
37 R=SQR((2*A)/(N*(SIN(AN)))):RETURN
38 A=N*R*R*(SIN(AN))/2:RETURN
39 R=D/(SIN(AN/2)):RETURN
40 S1=H*(SIN(AA)):RETURN
42 S2=H*(COS(AA)):RETURN
44 AB=((null)/2)-AA:RETURN
46 S2=SQR((H*H)-(S1*S1)):RETURN
48 AA=ATN(S1/S2):RETURN
50 H=SQR((S1*S1)+(S2*S2)):RETURN
52 H=S1/SIN(AA):RETURN
54 P=S1+S2+H:RETURN
56 A=(S1*S2)/2:RETURN
60 A=(null)*R*R:RETURN
62 R=SQR(A/(null)):RETURN
64 C=2*R*(null):RETURN
66 R=C/(2*(null)):RETURN
68 A=S1*S2:RETURN
70 S2=A/S1:RETURN
72 S1=(X2-X1):S2=(Y2-Y1):GOSUB50:RETURN
74 AA=ATN((Y2-Y1)/(X2-X1)):RETURN
76 X2=(SIN(AA)*H)+X1:RETURN
78 Y2=(SIN(AA)*H)+Y1:RETURN
80 V=S1^3:RETURN
82 S1=V^(1/3):RETURN
84 SA=6*S1*S1:RETURN
86 LD=S1*(SQR(3)):RETURN
88 SD=S1*(SQR(2)):RETURN
90 V=(null)*R*R*H:RETURN
92 H=V/((null)*R*R):RETURN
94 R=SQR(V/((null)*H)):RETURN
96 S=(null)*D*H:RETURN
98 A=2*(null)*R*(R+H):RETURN
99 L$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
100 POKE53281,3:POKE53280,3:PRINT"[147][144]";
110 PRINT TAB(8);"[164][164][164][164][164][164][164][164]"
120 PRINT TAB(8);"GEOSOLVE[146]   BY D. CROOK"
200 PRINT" SELECT THE TYPE OF PROBLEM FROM BELOW:":PRINTL$
210 PRINT"1 - REGULAR POLYGON":PRINT"2 - RIGHT TRIANGLE"
220 PRINT"3 - CIRCLE":PRINT"4 - RECTANGLE"
230 PRINT"5 - TWO POINTS IN A PLANE":PRINT"6 - CUBE"
240 PRINT"7 - CYLINDER":PRINT"8 - SPHERE":PRINT"9 - END PROGRAM"
300 GETZ$:IFZ$=""THEN300
310 Z=VAL(Z$):IFZ=9THENEND
320 ONZGOSUB1110,400,860,1910,2275,2440,2700,3200
330 RUN
400 PRINT"[147]"SPC(12)"RIGHT TRIANGLES":PRINTL$
410 PRINT"ENTER KNOWN QUANTITIES FROM BELOW:"
420 PRINT"1 - HYPOTENUSE/ANGLE":PRINT"2 - SIDE/ANGLE"
430 PRINT"3 - HYPOTENUSE/SIDE":PRINT"4 - TWO SIDES"
440 GETZ$:IFZ$=""THEN440
450 Z=VAL(Z$):ONZGOSUB460,560,660,760
455 RETURN
460 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
470 PRINT"ENTER LENGTH OF HYPOTENUSE";:INPUTH
480 PRINT"ENTER ANGLE";:INPUTAA:AA=AA*(null)/180
490 GOSUB40:GOSUB42:GOSUB44:GOSUB54:GOSUB56
500 PRINT"LENGTH OF SIDE 1 ="S1
510 PRINT"LENGTH OF SIDE 2 ="S2
520 PRINT"           ANGLE ="AB*180/(null)
530 PRINT"            AREA ="A
540 PRINT"       PERIMETER ="P
545 GOSUB25
550 IFA$="Y"THEN460
555 RETURN
560 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
570 PRINT"ENTER LENGTH OF ONE SIDE";:INPUTS1
580 PRINT"ENTER ANGLE";:INPUTAA:AA=AA*(null)/180
590 GOSUB52:GOSUB46:GOSUB44:GOSUB54:GOSUB56
600 PRINT"LENGTH OF HYPOTENUSE ="H
610 PRINT"    LENGTH OF SIDE 2 ="S2
620 PRINT"               ANGLE ="AB*180/(null)
630 PRINT"                AREA ="A
640 PRINT"           PERIMETER ="P
645 GOSUB25
650 IFA$="Y"THEN560
655 RETURN
660 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
670 PRINT"ENTER LENGTH OF HYPOTENUSE";:INPUTH
680 PRINT"ENTER LENGTH OF SIDE";:INPUTS1
690 GOSUB46:GOSUB48:GOSUB44:GOSUB54:GOSUB56
700 PRINT"LENGTH OF SIDE 2 ="S2
710 PRINT"         ANGLE 1 ="AA*180/(null)
720 PRINT"         ANGLE 2 ="AB*180/(null)
730 PRINT"            AREA ="A
740 PRINT"       PERIMETER ="P
745 GOSUB25
750 IFA$="Y"THEN660
755 RETURN
760 PRINT"[147]SOLUTION OF RIGHT TRIANGLES":PRINTL$
770 PRINT"ENTER LENGTH OF SIDE 1";:INPUTS1
780 PRINT"ENTER LENGTH OF SIDE 2";:INPUTS2
790 GOSUB50:GOSUB48:GOSUB44:GOSUB54:GOSUB56
800 PRINT"LENGTH OF HYPOTENUSE ="H
810 PRINT"             ANGLE 1 ="AA*180/(null)
820 PRINT"             ANGLE 2 ="AB*180/(null)
830 PRINT"                AREA ="A
840 PRINT"           PERIMETER ="P
845 GOSUB25
850 IFA$="Y"THEN760
855 RETURN
860 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"SELECT KNOWN QUANTITY FROM BELOW:"
865 PRINT"1 - RADIUS":PRINT"2 - DIAMETER"
870 PRINT"3 - CIRCUMFERENCE":PRINT"4 - AREA"
875 GETZ$:IFZ$=""THEN875
880 Z=VAL(Z$):ONZGOSUB885,930,975,1020
882 RETURN
885 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER RADIUS";:INPUTR:D=2*R
890 GOSUB60:GOSUB64
895 PRINT"     DIAMETER ="D
900 PRINT"CIRCUMFERENCE ="C
910 PRINT"         AREA ="A
920 GOSUB25
925 IFA$="Y"THEN885
926 RETURN
930 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER DIAMETER";:INPUTD:R=D/2
935 GOSUB60:GOSUB64
940 PRINT"       RADIUS ="R
945 PRINT"CIRCUMFERENCE ="C
950 PRINT"         AREA ="A
955 GOSUB25
960 IFA$="Y"THEN930
965 RETURN
975 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER CIRCUMFERENCE";:INPUTC
980 GOSUB66:GOSUB60
985 PRINT"       RADIUS ="R
990 PRINT"     DIAMETER ="R+R
1000 PRINT"        AREA ="A
1005 GOSUB25
1010 IFA$="Y"THEN975
1015 RETURN
1020 PRINT"[147]"SPC(15)"CIRCLES":PRINTL$:PRINT"ENTER AREA";:INPUTA
1025 GOSUB62:GOSUB64
1030 PRINT"       RADIUS ="R
1035 PRINT"     DIAMETER ="R+R
1040 PRINT"CIRCUMFERENCE ="C
1045 GOSUB25
1050 IFA$="Y"THEN1020
1065 RETURN
1110 PRINT"[147]"SPC(12)"REGULAR POLYGONS":PRINTL$
1120 PRINT"ENTER THE NUMBER OF SIDES";:INPUTN:PRINT:IFN<3THEN1110
1130 PRINT"ENTER THE KNOWN QUANTITY FROM BELOW":PRINT
1140 PRINT"1 - LENGTH OF SIDE":PRINT"2 - MINOR RADIUS"
1145 PRINT"3 - MAJOR RADIUS":PRINT"4 - AREA"
1150 GETZ$:IFZ$=""THEN1150
1155 Z=VAL(Z$):IFZ=9THENEND
1160 ONZGOSUB1200,1300,1400,1500
1170 RETURN
1200 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
1210 PRINT"LENGTH OF SIDE";:INPUTS
1220 GOSUB30:GOSUB34:GOSUB36:GOSUB38
1230 PRINT"MAJOR RADIUS ="R
1240 PRINT"MINOR RADIUS ="D
1250 PRINT"        AREA ="A
1255 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
1258 PRINT"           CENTER ANGLE ="360/N
1260 GOSUB22:IFA$="Y"THENGOSUB1600
1270 GOSUB25
1280 IFA$="Y"THEN1200
1290 RETURN
1300 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
1310 PRINT"MINOR RADIUS =";:INPUTD
1320 GOSUB30:GOSUB39:GOSUB32:GOSUB38
1330 PRINT"MAJOR RADIUS ="R
1340 PRINT"        SIDE ="S
1350 PRINT"        AREA ="A
1355 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
1358 PRINT"           CENTER ANGLE ="360/N
1360 GOSUB22:IFA$="Y"THENGOSUB1600
1370 GOSUB25
1380 IFA$="Y"THEN1300
1390 RETURN
1400 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
1410 PRINT"MAJOR RADIUS =";:INPUTR
1420 GOSUB30:GOSUB32:GOSUB36:GOSUB38
1430 PRINT"MINOR RADIUS ="D
1440 PRINT"        SIDE ="S
1450 PRINT"        AREA ="A
1455 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
1458 PRINT"           CENTER ANGLE ="360/N
1460 GOSUB22:IFA$="Y"THENGOSUB1600
1470 GOSUB25
1480 IFA$="Y"THEN1400
1490 RETURN
1500 PRINT"[147]REGULAR POLYGON WITH"N"SIDES":PRINTL$
1510 PRINT"        AREA =";:INPUTA
1520 GOSUB30:GOSUB37:GOSUB32:GOSUB36
1530 PRINT"MINOR RADIUS ="D
1540 PRINT"MAJOR RADIUS ="R
1550 PRINT"        SIDE ="S
1555 PRINT"ANGLE BETWEEN TWO SIDES ="AN*180/(null)
1558 PRINT"           CENTER ANGLE ="360/N
1560 GOSUB22:IFA$="Y"THENGOSUB1600
1570 GOSUB25
1580 IFA$="Y"THEN1500
1590 RETURN
1600 PRINT"[147]"SPC(10)"POLYGON WITH"N"SIDES"
1610 PRINT"      X-Y COORDINATES OF VERTICES"
1620 PRINT"SELECT ORIENTATION TO X/Y-AXIS :"
1630 PRINT"1 - VERTEX TO LIE ON +X-AXIS"
1640 PRINT"2 - VERTEX TO LIE ON -X-AXIS"
1650 PRINT"3 - VERTEX TO LIE ON +Y-AXIS"
1660 PRINT"4 - VERTEX TO LIE ON -Y-AXIS"
1670 PRINT"5 - +X-AXIS TO BISECT SIDE"
1680 PRINT"6 - -X-AXIS TO BISECT SIDE"
1690 PRINT"7 - +Y-AXIS TO BISECT SIDE"
1700 PRINT"8 - -Y-AXIS TO BISECT SIDE"
1710 PRINT"9 - VERTEX TO BE LOCATED (X)-DEGREES        FROM +X-AXIS"
1720 GETZ$:IFZ$=""THEN1720
1730 Z=VAL(Z$):ONZGOSUB1750,1760,1770,1780,1790,1800,1810,1820,1830
1740 GOTO1850
1750 AD=0:RETURN
1760 AD=-(null):RETURN
1770 AD=(null)/2:RETURN
1780 AD=-(null)/2:RETURN
1790 AD=(null)/N:RETURN
1800 AD=(null)/N+(null):RETURN
1810 AD=(null)/N+(null)/2:RETURN
1820 AD=(null)/N-(null)/2:RETURN
1830 PRINT"[147]HOW MANY DEGREES FROM +X-AXIS SHOULD    FIRST VERTEX LIE";:INPUTAD
1835 AD=AD*(null)/180:RETURN
1850 PRINT"[147]X-Y COORDINATES OF"N"SIDED POLYGON":PRINT:PRINTSPC(13)"X"TAB(24)"Y"
1855 PRINTTAB(10)"[192][192][192][192][192][192]"TAB(21)"[192][192][192][192][192][192]"
1860 FORAE=0TO(N-1)
1870 X=R*(COS(AE*(2*(null))/N+AD))
1880 Y=R*(SIN(AE*(2*(null))/N+AD))
1885 X=INT(X*10000)/10000
1886 Y=INT(Y*10000)/10000
1890 PRINT"VERTEX"AE+1;X,Y
1900 NEXT:RETURN
1910 PRINT"[147]"SPC(15)"RECTANGLES":PRINTL$
1920 PRINT"SELECT KNOWN QUANTITIES FROM BELOW:"
1930 PRINT"1 - TWO SIDES":PRINT"2 - ONE SIDE/DIAGONAL
1940 [153]"3 - AREA/ONE SIDE"
1950 [161]Z$:[139]Z$[178]""[167]1950
1960 Z[178][197](Z$):[145]Z[141]1980,2060,2140
1970 [142]
1980 [153]"LOAD"[166]15)"RECTANGLES":[153]L$
1990 [153]"ENTER LENGTH SIDE 1";:[133]S1
2000 [153]"ENTER LENGTH SIDE 2";:[133]S2
2010 [141]68:[141]50
2020 [153]"    AREA ="A:[153]"DIAGONAL ="H
2030 [141]25
2040 [139]A$[178]"Y"[167]1980
2050 [142]
2060 [153]"LOAD"[166]15)"RECTANGLES":[153]L$
2070 [153]"ENTER LENGTH SIDE 1";:[133]S1
2080 [153]"ENTER LENGTH DIAGONAL";:[133]H
2090 [141]46:[141]68
2100 [153]"   AREA ="A:[153]" SIDE 2 ="S2
2110 [141]25
2120 [139]A$[178]"Y"[167]2060
2130 [142]
2140 [153]"LOAD"[166]15)"RECTANGLES":[153]L$
2150 [153]"ENTER LENGTH SIDE 1";:[133]S1
2160 [153]"ENTER AREA";:[133]A
2170 [141]70:[141]50
2180 [153]"DIAGONAL ="H:[153]"  SIDE 2 ="S2
2190 [141]25
2200 [139]A$[178]"Y"[167]2140
2210 [142]
2220 [153]"LOAD"[166]8)"TWO POINTS IN A PLANE":[153]L$
2230 [153]"SELECT KNOWN QUANTITIES FROM BELOW:"
2240 [153]"1 - POSITION OF POINT 1/POINT 2"
2245 [153]"2 - POSITION OF POINT 1"
2246 [153]"    DISTANCE BETWEEN POINT 1/POINT 2"
2247 [153]"    ANGLE LINE CONNECTING POINTS"
2248 [153]"    MAKES WITH X-AXIS"
2250 [161]Z$:[139]Z$[178]""[167]2250
2260 Z[178][197](Z$):[145]Z[141]2275,2355
2270 [142]
2275 [153]"LOAD"[166]8)"TWO POINTS IN A PLANE":[153]L$
2280 [153]"ENTER COORDINATES OF POINT 1":[133]"X1 =";X1:[133]"Y1 =";Y1
2290 [153]"ENTER COORDINATES OF POINT 2":[133]"X2 =";X2:[133]"Y2 =";Y2
2295 [139]X1[178]X2[167]AA[178][255][173]2:H[178][182](Y2[171]Y1):[137]2310
2300 [141]74:[141]72
2310 [153]"      ANGLE WITH X-AXIS ="AA[172]180[173][255]
2320 [153]"DISTANCE BETWEEN POINTS ="H
2330 [141]25
2340 [139]A$[178]"Y"[167]2275
2350 [142]
2355 [153]"LOAD"[166]8)"TWO POINTS IN A PLANE":[153]L$
2360 [153]"ENTER COORDINATES OF POINT 1":[133]"X1 =";X1:[133]"Y1 =";Y1
2370 [153]"ENTER ANGLE WITH X-AXIS":[133]AA:AA[178]AA[172][255][173]180
2375 [153]"ENTER DISTANCE BETWEEN POINTS";:[133]H
2380 [141]76:[141]78
2390 [153]"COORDINATES OF POINT 2:":[153]"X2 ="X2:[153]"Y2 ="Y2
2410 [141]25
2420 [139]A$[178]"Y"[167]2355
2430 [142]
2440 [153]"LOAD"[166]17)"CUBE":[153]L$
2450 [153]"SELECT KNOWN QUANTITY FROM BELOW:"
2460 [153]"1 - LENGTH OF SIDE":[153]"2 - VOLUME"
2490 [161]Z$:[139]Z$[178]""[167]2490
2495 Z[178][197](Z$):[145]Z[141]2500,2600
2498 [142]
2500 [153]"LOAD"[166]17)"CUBE":[153]L$
2510 [153]"ENTER LENGTH OF SIDE";:[133]S1
2520 [141]80:[141]84:[141]86:[141]88
2530 [153]"          VOLUME ="V
2540 [153]"    SURFACE AREA ="SA
2550 [153]"DIAGONAL OF FACE ="SD
2560 [153]"DIAGONAL OF CUBE ="LD
2570 [141]25
2580 [139]A$[178]"Y"[167]2500
2590 [142]
2600 [153]"LOAD"[166]17)"CUBE":[153]L$
2610 [153]"ENTER VOLUME";:[133]V
2620 [141]82:[141]84:[141]86:[141]88
2630 [153]"  LENGTH OF SIDE ="S1
2640 [153]"    SURFACE AREA ="SA
2650 [153]"DIAGONAL OF FACE ="SD
2660 [153]"DIAGONAL OF CUBE ="LD
2670 [141]25
2680 [139]A$[178]"Y"[167]2600
2690 [142]
2700 [153]"LOAD"[166]15)"CYLINDER":[153]L$
2710 [153]"SELECT KNOWN QUANTITIES FROM BELOW:"
2720 [153]"1 - DIAMETER/HEIGHT":[153]"2 - RADIUS/HEIGHT"
2730 [153]"3 - VOLUME/DIAMETER":[153]"4 - VOLUME/HEIGHT"
2740 [161]Z$:[139]Z$[178]""[167]2740
2750 Z[178][197](Z$):[145]Z[141]2760,2870,2980,3090
2755 [142]
2760 [153]"LOAD"[166]15)"CYLINDER":[153]L$
2770 [153]"ENTER DIAMETER";:[133]D:R[178]D[173]2
2780 [153]"ENTER HEIGHT";:[133]H
2790 [141]90:[141]96:[141]98
2800 [153]"                  RADIUS ="R
2810 [153]"                  VOLUME ="V
2820 [153]"CYLINDRICAL SURFACE AREA ="S
2830 [153]"      TOTAL SURFACE AREA ="A
2840 [141]25
2850 [139]A$[178]"Y"[167]2760
2860 [142]
2870 [153]"LOAD"[166]15)"CYLINDER":[153]L$
2880 [153]"ENTER RADIUS";:[133]R:D[178]2[172]R
2890 [153]"ENTER HEIGHT";:[133]H
2900 [141]90:[141]96:[141]98
2910 [153]"                DIAMETER ="D
2920 [153]"                  VOLUME ="V
2930 [153]"CYLINDRICAL SURFACE AREA ="S
2940 [153]"      TOTAL SURFACE AREA ="A
2950 [141]25
2960 [139]A$[178]"Y"[167]2870
2970 [142]
2980 [153]"LOAD"[166]15)"CYLINDER":[153]L$
2990 [153]"ENTER VOLUME";:[133]V
3000 [153]"ENTER DIAMETER";:[133]D:R[178]D[173]2
3010 [141]92:[141]96:[141]98
3020 [153]"                  RADIUS ="R
3030 [153]"                  HEIGHT ="H
3040 [153]"CYLINDRICAL SURFACE AREA ="S
3050 [153]"      TOTAL SURFACE AREA ="A
3060 [141]25
3070 [139]A$[178]"Y"[167]2980
3080 [142]
3090 [153]"LOAD"[166]15)"CYLINDER":[153]L$
3100 [153]"ENTER VOLUME";:[133]V
3110 [153]"ENTER HEIGHT";:[133]H
3120 [141]94:D[178]2[172]R:[141]96:[141]98
3130 [153]"                  RADIUS ="R
3140 [153]"                DIAMETER ="R[172]2
3150 [153]"CYLINDRICAL SURFACE AREA ="S
3160 [153]"      TOTAL SURFACE AREA ="A
3170 [141]25
3180 [139]A$[178]"Y"[167]3090
3190 [142]
3200 [153]"LOAD"[166]16)"SPHERE":[153]L$
3210 [153]"SELECT KNOWN QUANTITY FROM BELOW:"
3220 [153]"1 - DIAMETER":[153]"2 - RADIUS"
3230 [153]"3 - VOLUME":[153]"4 - SURFACE AREA"
3240 [161]Z$:[139]Z$[178]""[167]3240
3245 Z[178][197](Z$):[145]Z[141]3250,3330,3410,3500
3248 [142]
3250 [153]"LOAD"[166]15)"SPHERE":[153]L$
3260 [153]"ENTER DIAMETER";:[133]D:R[178]D[173]2
3270 [141]14:[141]18
3275 [153]"     RADIUS  ="R
3280 [153]"      VOLUME ="V
3290 [153]"SURFACE AREA ="A
3300 [141]25
3310 [139]A$[178]"Y"[167]3250
3320 [142]
3330 [153]"LOAD"[166]15)"SPHERE":[153]L$
3340 [153]"ENTER RADIUS";:[133]R
3350 [141]14:[141]18
3355 [153]"    DIAMETER ="R[172]2
3360 [153]"      VOLUME ="V
3370 [153]"SURFACE AREA ="A
3380 [141]25
3390 [139]A$[178]"Y"[167]3330
3400 [142]
3410 [153]"LOAD"[166]15)"SPHERE":[153]L$
3420 [153]"ENTER VOLUME";:[133]V
3430 [141]16:[141]18
3440 [153]"      RADIUS ="R
3450 [153]"    DIAMETER ="2[172]R
3460 [153]"SURFACE AREA ="A
3470 [141]25
3480 [139]A$[178]"Y"[167]3410
3490 [142]
3500 [153]"LOAD"[166]15)"SPHERE":[153]L$
3510 [153]"ENTER SURFACE AREA";:[133]A
3520 [141]20:[141]14
3530 [153]"      RADIUS ="R
3540 [153]"    DIAMETER ="2[172]R
3550 [153]"      VOLUME ="V
3560 [141]25
3570 [139]A$[178]"Y"[167]3500
3580 [142]
6682