XProfan

WindowTitle " BEWEIS DER ALLGEMEINEN SCHNITTFORMEL"
WindowStyle 24
set("DECIMALS",15)
declare x!
nochma:
Cls
print
print " Für Goldenen Schnitt:  x = 1"
print " Für Silbernen Schnitt: x = 2 (gibt es wirklich!)"
print " Für Broncenen Schnitt: x = 3 (frei erfunden!)"
print " Für Pi-ten Schnitt (Kompletter Unsinn): x = "; 4*arctan(1)
print
print " x = ? ";:input x!
print
print ( x!/2 + sqrt(sqr(x!/2)+1) ) ,"-", 1/( x!/2 + sqrt(sqr(x!/2)+1) )," = "
print
print ( x!/2 + sqrt(sqr(x!/2)+1) ) - (1/( x!/2 + sqrt(sqr(x!/2)+1) )), "     ... q.e.d."
waitinput
goto "nochma"