XProfan

Window Title " BEWEIS THE ALLGEMEINEN SCHNITTFORMEL"
Window Style 24
set("DECIMALS",15)
declare x!
nochma:
Cls
print
print " for golden incision:  x = 1"
print " for Silbernen incision: x = 2 (there really!)"
print " for Broncenen incision: x = 3 (spare made up!)"
print " for Pi-ten incision (Kompletter nonsense): 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"