10 CLS 15 PRINT " ******* HAUPTMENU *******" 20 PRINT "(1) Kosinussatz (2)verschr. Trapez" 30 PRINT "(3) quad. Gleichungen (4) Hoehenber." 35 PRINT "(5) Sp. Kreis-Kreis (6) Bogenabst." 40 A$=INPUT $ (1) 50 IF A$="1" THEN GOTO 700 60 IF A$="2" THEN GOTO 500 70 IF A$="3" THEN GOTO 1300 72 IF A$="4" THEN GOTO 1600 74 IF A$="5" THEN GOTO 2050 76 IF A$="6" THEN GOTO *BOGEN 80 IF A$="0" THEN END ELSE GOTO 10 500 CLS :PRINT "***** VERSCHRAENKTES TRAPEZ *****" 510 INPUT "Y-aussen: ";YA 520 INPUT "Y-innen: ";YI 530 INPUT "X-2: ";XB 540 INPUT "X-1: ";XA 550 LET A=(XB-XA)*(YI-YA) 560 LET B=A/2 570 CLS 580 PRINT "2F=";A 590 PRINT "F=";B 600 PRINT "NOCHMAL (J/N)?" 610 AA$=INPUT $ (1) 620 IF AA$="J" OR AA$="j" THEN GOTO 500 630 IF AA$="N" OR AA$="n" THEN GOTO 10 640 IF AA$<>"J" AND AA$<>"N" AND AA$<>"j" AND AA$<>"n" THEN GOTO 600 700 'BERECHNUNG MIT DEM KOSINUSSATZ 710 CLS :PRINT "Berechnung mit dem Kosinussatz" 720 ' 730 'FALLUNTERSCHEIDUNG 740 PRINT "Winkel, Strecke berechnen? (W/S)":A$=INPUT $(1) 750 CLS 760 IF A$="W" THEN GOTO 790 770 IF A$="S" THEN GOTO 930 ELSE 740 780 ' 790 INPUT "a=";S1 800 INPUT "b=";S2 810 INPUT "c=";S3 820 ' 830 'WINKEL BERECHNEN 840 AL=ACS ((S1^2-S2^2-S3^2)/(-2*S2*S3)) 850 BE=ACS ((S2^2-S1^2-S3^2)/(-2*S1*S3)) 860 GA=ACS ((S3^2-S1^2-S2^2)/(-2*S1*S2)) 870 CLS 880 PRINT "ALPHA=";AL 890 PRINT "BETA=";BE 900 PRINT "GAMMA=";GA 910 ' 920 GOTO 1180 930 PRINT "Welche Strecke Wollen Sie Berechnen?" 940 PRINT "(1) a" 950 PRINT "(2) b" 960 PRINT "(3) c":D$=INPUT $ (1) 970 IF D$="1" THEN GOTO 1000 980 IF D$="2" THEN GOTO 1060 990 IF D$="3" THEN GOTO 1120 ELSE GOTO 930 1000 INPUT "b :";S2 1010 INPUT "c :";S3 1020 INPUT "ALPHA :";A 1030 LET S1=((S2^2+S3^2)-(2-S2*S3*COS A))^0.5 1040 PRINT "a =";S1 1050 GOTO 1180 1060 INPUT "a :";S1 1070 INPUT "c :";S3 1080 INPUT "BETA :";B 1090 LET S2=((S1^2+S3^2)-(2*S1*S3*COS B))^0.5 1100 PRINT "b =";S2 1110 GOTO 1180 1120 INPUT "a =";S1 1130 INPUT "b =";S2 1140 INPUT "GAMMA =";C 1150 S3=((S1^2+S2^2)-(2*S1*S2*COS C))^0.5 1160 PRINT "c =";S3 1170 GOTO 1180 1180 PRINT "NOCHMAL? (J/N)":AA$=INPUT $ (1) 1190 IF AA$="J" OR AA$="j" THEN GOTO 700 1200 IF AA$="N" OR AA$="n" THEN GOTO 10 ELSE GOTO 1180 1250 REM ****** QUAD. GLEICHUNGEN ***** 1300 CLS :PRINT " Loesung fuer quadratische Gleichungen" 1310 PRINT "FORMEL: ax^2 + bx + c = 0" 1320 INPUT "a: ";A 1330 INPUT "b: ";B 1340 INPUT "c: ";C 1350 IF A=0 THEN GOTO 1530 1360 LET P=B/A 1370 LET Q=C/A 1380 LET L=(-1)*((P/2)^2) +Q 1390 IF L>0 THEN GOTO 1510 1400 LET L=L*(-1) 1410 LET XA=(L^(1/2))- (P/2) 1420 LET PB=P/2 1430 LET XB=-(L^(1/2)) - (P/2) 1440 PRINT "QUAD. ERGAENZUNG= (";PB;")^2" 1450 PRINT "X1= ";XA 1460 PRINT "X2= ";XB 1470 INPUT "NOCHMAL (J/N)?";A$ 1480 IF A$="J" OR A$="j" THEN GOTO 1300 1490 IF A$="N" OR A$="n" THEN GOTO 10 1500 IF A$<>"J" AND A$<>"N" AND A$<>"j" AND A$<>"n" THEN GOTO 1470 1510 PRINT "KEINE LOESUNG MOEGLICH!" 1520 GOTO 1470 1530 PRINT " DARF NICHT NULL SEIN." 1540 GOTO 1470 1590 REM ****** HOEHENBERECHNUNG ***** 1600 CLS :PRINT " Hoehenberechnung" 1610 PRINT "V-Winkel, Standpunkthoehe, gem. Strecke" 1620 PRINT " < TASTE >" 1630 A$=INPUT $ (1) 1640 INPUT "Standpunkthoehe: ";S 1650 INPUT "Instrumentenhoehe: ";IH 1660 INPUT "Prismenhoehe: ";TH 1670 INPUT "gem. Strecke: ";D 1680 INPUT "V-Winkel: ";V 1690 IF V<100 AND V>0 THEN 1700 LET W=100-V 1710 GOTO 1920 1720 ENDIF 1730 IF V>100 AND V<200 THEN 1740 LET W=V-100 1750 GOTO 1920 1760 ENDIF 1770 IF V>200 AND V<300 THEN 1780 LET W=300-V 1790 GOTO 1920 1800 ENDIF 1810 IF V>300 AND V<400 THEN 1820 LET W=V-300 1830 GOTO 1920 1840 ENDIF 1850 IF V=100 OR V=300 THEN 1860 LET HA=S+IH-TH 1870 PRINT "Die Hoehe des Punktes betraegt ";HA;"m." 1880 PRINT " < TASTE >" 1890 A$=INPUT $ (1) 1900 GOTO 2010 1910 ENDIF 1920 LET H=SIN W*D 1930 IF V<100 AND V>0 THEN H=H+S+IH-TH 1940 IF V>100 AND V<200 THEN H=S-H+IH-TH 1950 IF V>200 AND V<300 THEN H=S-H+IH-TH 1960 IF V>300 AND V<400 THEN H=H+S+IH-TH 1970 PRINT "Die Hoehe des Punktes betraegt ";H;"m." 1980 PRINT " < TASTE >" 1990 A$=INPUT $ (1) 2000 GOTO 2010 2010 INPUT "Nochmaleinmal rechnen? ";B$ 2020 IF B$="J" OR B$="j" THEN GOTO 1600 2030 IF B$="N" OR B$="n" THEN GOTO 10 2040 GOTO 2010 2045 REM ***** KREIS-KREIS-SCHNITT **** 2050 CLS 2060 PRINT " Schnittpunktberechnung von" 2070 PRINT " 2 KREISEN" 2080 PRINT " V0.5" 2090 PRINT " " 2100 A$=INPUT $ (1) 2110 CLS 2120 PRINT "Mittelpunkt 1" 2130 INPUT "Y-Koordinate:";YA 2140 INPUT "X-Koordinate:";XA 2150 INPUT "Radius:";RA 2160 CLS 2170 PRINT "Mittelpunkt 2" 2180 INPUT "Y-Koordinate:";YB 2190 INPUT "X-Koordinate:";XB 2200 INPUT "Radius:";RB 2210 CLS 2220 S=SQR ((YB-YA)^2+(XB-XA)^2) 2230 IF XB-XA<>0 THEN 2240 DYX=(YB-YA)/(XB-XA) 2250 IF YB-YA>0 THEN 2260 IF XB-XA>0 THEN 2270 T=ATN DYX 2280 ENDIF 2290 IF XB-XA<0 THEN 2300 T=ATN DYX 2310 T=200+T 2320 ENDIF 2330 ENDIF 2340 IF YB-YA<0 THEN 2350 IF XB-XA<0 THEN 2360 T=ATN DYX 2370 T=T+200 2380 ENDIF 2390 IF XB-XA>0 THEN 2400 T=ATN DYX 2410 T=400+T 2420 ENDIF 2430 ENDIF 2440 ENDIF 2450 IF XB-XA=0 THEN 2460 IF YB-YA>0 THEN T=100 2470 IF YB-YA<0 THEN T=300 2480 ENDIF 2490 IF YB-YA=0 THEN 2500 IF XB-XA>0 THEN 2510 T=0 2520 ENDIF 2530 IF XB-XA<0 THEN 2540 T=200 2550 ENDIF 2560 ENDIF 2570 Z=(RA^2-RB^2+S^2)/(2*S) 2580 V=RA^2-Z^2 2590 IF V<0 THEN GOTO 2620 2600 IF V=0 THEN GOTO 2690 2610 IF V>0 THEN GOTO 2690 2620 CLS : REM *** KEIN SCHNITTPUNKT *** 2630 PRINT "Die Kreise schneiden sich nicht." 2640 PRINT "Nocheinmal rechnen (J/N)" 2650 A$=INPUT $ (1) 2660 IF A$="N" OR A$="n" THEN GOTO 10 2670 IF A$="J" OR A$="j" THEN GOTO 2110 2680 GOTO 2620 2690 CLS :REM *** SCHNITTPUNKTE *** 2700 O=SIN T 2710 A=COS T 2720 YSA=YA+O*Z+A*SQR V 2730 XSA=XA+A*Z-O*SQR V 2740 YSB=YA+O*Z-A*SQR V 2750 XSB=XA+A*Z+O*SQR V 2760 PRINT "Schnittpunkt 1:" 2770 PRINT "Y1= ";YSA 2780 PRINT "X1= ";XSA 2790 PRINT " " 2800 AA$=INPUT $ (1) 2810 PRINT "Schnittpunkt 2:" 2820 PRINT "Y2= ";YSB 2830 PRINT "X2= ";XSB 2840 PRINT "Nochmal rechnen? (J/N)" 2850 A$=INPUT $ (1) 2860 IF A$="N" OR A$="n" THEN GOTO 10 2870 IF A$="J" OR A$="j" THEN GOTO 2110 2890 *BOGEN 2900 CLS 2910 USING "#####.#####" 2920 PRINT "Absteckung von:" 2930 PRINT "(T)angente oder" 2940 PRINT "(S)ehne" 2950 A$=INPUT $(1) 2960 IF A$="T" OR A$="t" THEN *TANGENTE 2970 IF A$="S" OR A$="s" THEN *SEHNE 2975 IF A$="0" THEN GOTO 10 2980 GOTO 2950 2990 *TANGENTE 3000 CLS 3010 PRINT "(1) mit gleichen Abszissen (x1=x2=...)" 3020 PRINT "(2) mit gleichen Bogenstk (b1=b2=...)" 3030 PRINT "ALPHAn=(Bn*(200/PI))/R" 3040 A$=INPUT $(1) 3050 IF A$="1" THEN *TAB 3060 IF A$="2" THEN *TBO 3070 IF A$="0" THEN GOTO 2900 3080 GOTO 3040 3090 *TAB 3100 CLS 3110 PRINT "Yn=R-wurzel(Rquad-Xnquad)" 3120 INPUT "R= ";R 3130 INPUT "Xn= ";XN 3140 YN=R-SQR (SQU R-SQU XN) 3150 PRINT "Yn= ";MDF YN 3160 B$=INPUT $(1) 3170 GOTO *TANGENTE 3180 *TBO 3190 CLS 3200 PRINT "Xn=SIN ALPHAn*R" 3210 PRINT "Yn=R*(1-COS ALPHAn)" 3220 INPUT "ALPHAn= ";ALP 3230 INPUT "R= ";R 3240 XN=SIN ALP*R 3250 YN=R*(1-COS ALP) 3260 PRINT "Xn= ";MDF XN 3270 PRINT "Yn= ";MDF YN 3280 B$=INPUT $(1) 3290 GOTO *TANGENTE 3300 *SEHNE 3310 CLS 3320 PRINT "(1) mit gleichen Abszissen (x1=x2=..." 3330 PRINT "S/2=SIN(MALPHA/2)*R" 3340 PRINT "(2) mit gleichen Bogenstk. (b1=b2=..." 3350 PRINT "ALPHAn=(Bn*(200/PI))/R" 3360 A$=INPUT $(1) 3370 IF A$="1" THEN *SAB 3380 IF A$="2" THEN *SBO 3390 IF A$="0" THEN GOTO 2900 3400 GOTO 3360 3410 *SAB 3420 CLS 3430 PRINT "Yn=wurzel(Rquad-(S/2-Xn)quad)-(R-H) 3440 INPUT "R= ";R 3450 INPUT "S (Sehne)= ";S 3460 INPUT "Xn= ";XN 3470 RH=SQR (SQU R-SQU (S/2)) 3480 YN=SQR (SQU R-SQU (S/2-XN))-RH 3490 PRINT "Yn= ";MDF YN 3500 B$=INPUT $(1) 3510 GOTO *SEHNE 3520 *SBO 3530 CLS 3540 PRINT "Yn=R*COS(MALPHA/2-ALPHAn)-(R-H)" 3550 PRINT "Xn=S/2-R*SIN(MALPHA/2-ALPHAn) 3560 INPUT "R= ";R 3570 INPUT "MALPHA= ";MALP 3580 INPUT "ALPHAn= ";ALP 3590 INPUT "S (Sehne)= ";S 3600 RH=SQR (SQU R-SQU (S/2)) 3610 YN=R*COS ((MALP/2)-ALP)-RH 3620 XN=S/2-R*SIN ((MALP/2)-ALP) 3630 PRINT "Yn= ";MDF YN 3640 PRINT "Xn= ";MDF XN 3650 B$=INPUT $(1) 3660 GOTO *SEHNE