XProfan

Cls:set("decimals",17)
'************************
def !f  180/Pi()
print !f
'************************
print " ... Häää???":sound 50,250:sound 47,350:waitinput:end

Cls:set("decimals",17)
'************************
def f(0) 180/Pi()
print f()
'************************
print " OK!":sound 47,350:waitinput:end

WindowTitle "Grad°, rad und Normalisierung"
WindowStyle 24:cls:set("decimals",17):font 2
def !r2d 57.2957795130823208'76798154814105
def !d2r .0174532925199432957'6923690768489
def !Pi  3.141592653589793238'4626433832795
def !2Pi 6.283185307179586476'925286766559
def !PiH 1.570796326794896619'2313216916398
def !PiD 1.047197551196597746'1542144610932
def !PiV .7853981633974483096'1566084581988
def nmldeg(1) if(@!(1)<360, if(@!(1)<0,nmldeg(@!(1)+360),@!(1)),nmldeg(@!(1)-360))
def nmlmap(1) if(@!(1)<=180,if(@!(1)<=-180,nmlmap(@!(1)+360),@!(1)),nmlmap(@!(1)-360))
def nmlrad(1) if(@!(1)<!2Pi,if(@!(1)<0,nmlrad(@!(1)+!2Pi),@!(1)),nmlrad(@!(1)-!2Pi))
print "\n Testwerte:\n"
print " ";nmldeg(!r2d*!Pi* -1/3)," in [0,360]°"
print " ";nmlmap(!r2d*!Pi* -1/3)," in ]-180,0,180]°"
print "   ";nmlrad(!d2r*180* -5  ), " in [rad] (mit 360°=2*!Pi)"
waitinput