Etant en topographie, j'avais besoin d'un prog qui me faisait les grades.
Du coup, j'ai fait une fonction, qui a l'avantage par rapport à un programme de conversion de pouvoir être utilisée dirrectement dans un calcul:
Alors voilà, pour ceux que ça peut intéresser ou aider:
grad(a,b)
Func
Local c,d
getMode("Angle")="DEGREE"->c
left(a,1)="a"->d
expr(when(d,right(a,3 )&"-1",a)&"("&string(b)&when(d,"","*")&when(c,when(d,"",".9"),when(d,"","pi/200"))&")"&when(d,when(c,"/.9","200/pi"),""))
EndFunc
Attention au "-1", c'est un seul caractère (n° 180 dans le code ASCII)
Pour l'utiliser, vous faites:
grad(<opérateur>,<valeur numérique> )
opérateur est une chaine de caractère, et peut être:
"cos","sin", "tan", "asin", "acos","atan"
La valeur numérique doit être un réel quelconque (évidemment!), et peut être une opération:
grad("sin",25+25)
-> 0.707......
C'est utilisable dirrectement dans un calcul:
3*grad("atan", .5)
-> 88.5501........
Voilà, si ça rend service à quelqu'un, tant mieux!

[edit]Edité par nounoun le 18-02-2002 à 20:31:12[/edit]
[edit]Edité par nounoun le 18-03-2002 à 20:01:58[/edit]