XProfan

Windowtitle "STANGE-UMS-ECK-PROBLEM"
declare x!,y!,Lmax!,h!
start:
font 2:Print "\n Vorfrage: Lichte Plafondhöhe in [m],"
print "\n (Wert 0: 2D-Problem): ";:input h!:print
rept:
font 2
print "\n Breite von Gang 1 [m] = ";:input x!:case x!<=0:x!=1/1e12
print "\n Breite von Gang 2 [m] = ";:input y!:case y!<=0:y!=1/1e12
Lmax!=((x!)^(2/3)+(y!)^(2/3))^1.5
print "\n Max. Schattenlänge = ";Lmax!,"[m]"
print "\n\n Das bedeutet, schräg angehoben bekommt man eine"
print "\n schlanke Stange mit einer maximalen Raumdiagonale "
print "\n von ";format$("0.000",Sqrt(sqr(h!)+sqr(Lmax!)));
print " [m] um die Ecke.":font 0
print "\n\n [Taste oder ESC für Neustart]"
waitinput
cls
case %key=27:goto "start"
goto "rept"