XProfan

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

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

Título de la ventana "Grad°, rad y Normalisierung"
Ventana de Estilo 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))
imprimir "\n Testwerte:\n"
imprimir " ";nmldeg(!r2d*!Pi* -1/3)," en [0,360]°"
imprimir " ";nmlmap(!r2d*!Pi* -1/3)," en ]-180,0,180]°"
imprimir "   ";nmlrad(!d2r*180* -5  ), " en [rad] (con 360°=2*!Pi)"
waitinput