XProfan

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

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

Titre de la fenêtre "Grad°, roue et Normalisierung"
Fenêtre Style 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) si(@!(1)<360, si(@!(1)<0,nmldeg(@!(1)+360),@!(1)),nmldeg(@!(1)-360))
def nmlmap(1) si(@!(1)<=180,si(@!(1)<=-180,nmlmap(@!(1)+360),@!(1)),nmlmap(@!(1)-360))
def nmlrad(1) si(@!(1)<!2Pi,si(@!(1)<0,nmlrad(@!(1)+!2Pi),@!(1)),nmlrad(@!(1)-!2Pi))
imprimer "\n Testwerte:\n"
imprimer " ";nmldeg(!r2d*!Pi* -1/3)," dans [0,360]°"
imprimer " ";nmlmap(!r2d*!Pi* -1/3)," dans ]-180,0,180]°"
imprimer "   ";nmlrad(!d2r*180* -5  ), " dans [roue] (avec 360°=2*!Pi)"
waitinput