Campbell Scientific CR200 Série Manuel D'utilisation page 87

Chapitre 8 Instructions de calcul et de traitement
BeginProg
Scan (1, Sec)
RealTime (rTime())
CallTable VALUES
Next Scan
EndProg
RectPolar (Dest, Source)
Cette instruction convertit des coordonnées rectangulaires en coordonnées polaires.
Paramètres
& type de donnée
Dest
Ligne de données
Source
Ligne de données
Exemple : Dans l'exemple suivant, un compteur (Deg) est incrémenté entre 0 et 360 degrés. Le
cosinus et le sinus de l'angle sont pris afin de transformer X et Y en coordonnées rectangulaires.
RecPolar est alors utilisé afin de convertir les coordonnées polaires.
Dim XY(2), Polar(2), Deg, AngleDeg
Const Pi=4*ATN(1)
Alias XY(1)=X
Alias XY(2)=Y
Alias Polar(1) = Longueur
Alias Polar(2) = AngleRad
Data Table(RtoP,1,500)
Sample(1,Deg)
Sample(2,XY)
Sample(2,Polar)
Sample(1,AngleDeg)
EndTable
BeginProg
For Deg=0 to 360
XY(1)=Cos(Deg*Pi/180)
XY(2)=Sin(Deg*Pi/180)
RectPolar(Polar, XY)
AngleDeg=Polar(2)*180/Pi
CallTable RtoP
Next Deg
EndProg
Entrée
La ligne de données variable dans laquelle on stocke 2 valeurs résultantes.
La longueur du vecteur est enregistrée dans l'élément de destination
spécifiée, et l'angle en radians (+ ou - π), dans l'élément suivant de la ligne
de données.
La ligne de données variable qui contient les coordonnées X et Y à convertir
en coordonnées polaires. La valeur de X doit être dans la ligne de donnée
destination spécifiée, et la valeur de Y doit être l'élément suivant dans la
ligne de données.
'Cosinus et Sinus fonctionnent en radian
'Convertit l'angle en degré pour la comparaison
'w/Deg
8-15