start: CLS h=0 R=0 faktor=0 PRINT PRINT " Berechnung der Schnittweiten-Differenz Hyperbel" PRINT " ===============================================================" PRINT " h=200 | r=3200 | konKonst=-1.5 (Hyperbel) " PRINT PRINT " Bei Parabel -1 | Eingabe -1.000001, wegen Fehlermeldung" PRINT " --------------------------------------------------------" PRINT " Einfallsh”he = halber Durchmesser"; INPUT h PRINT " Eingabe Radius Krmmungsmittelpunkt"; INPUT R konstante: PRINT " Konische Konstante "; INPUT k glied1=-k/(k+1) PRINT " Glied1 = ";glied1 PRINT glied2=(k+1)*h^2 Glied3=SQR(R^2-glied2) sdiff=glied1*(R-Glied3) PRINT " SchnittweitenDifferenz = ";sdiff PRINT REPEAT UNTIL INKEY$>CHR$(0) OR MOUSEK ALERT 2,"andere Konstante?",1," Ja | END | Neu ",a& IF a&=1 GOTO konstante ENDIF IF a&=3 GOTO start ENDIF END