Publicité
7.4
Exemple de sous programme d'application
7 - 6
fr-938872/2
Sous programme d'application %10150
Cet exemple n'est donné qu'à titre indicatif.
%10150
VAR [A]=[.RX(7)] [B]=[.RX(8)] [C]=[.RX(9)]
[K11] [K12] [K13]
[K21] [K22] [K23]
[K31] [K32] [K33]
[V] [X] [Y] [Z]
ENDV
(Remettre les cotes du bloc précédent dans A B et C)
IF [.IBX(7)] = 1 THEN
[V]=[..IRX(7)] A[V]
ENDI
IF [.IBX(8)] = 1 THEN
[V]=[..IRX(8)] B[V]
ENDI
IF [.IBX(9)] = 1 THEN
[V]=[..IRX(9)] C[V]
ENDI
(Lire le point de pivot du plan incliné)
(et remettre les cotes du bloc précédent dans X Y et Z
[X]=[.IRX(1)] [V]=[..IRX(1)] X[V]
[Y]=[.IRX(2)] [V]=[..IRX(2)] Y[V]
[Z]=[.IRX(3)] [V]=[..IRX(3)] Z[V]
(Modifier si nécessaire [X] [Y] [Z] du déport nez de broche dû à la rotation tête)
(Faire en sorte qu'il n'y ait pas de déplacement)
BCLR [.IBX(1)]/[.IBX(2)]/[.IBX(3)]/[.IBX(7)]/[.IBX(8)]/[.IBX(9)]
(Calculer les coefficient de la matrice)
[K11]=C[C]*C[B]
[K12]=S[C]*C[A] [K12]=C[C]*S[B]*S[A]-[K12]
[K13]=S[C]*S[A] [K13]=C[C]*S[B]*S[A]+[K13]
[K21]=S[C]*C[B]
[K22]=C[C]*C[A] [K22]=S[C]*S[B]*S[A]+[K22]
[K23]=C[C]*S[A] [K23]=S[C]*S[B]*C[A]-[K23]
[K31]=-S[B]
[K32]=C[B]*S[A]
[K33]=C[B]*C[A]
G24- (Invalider la matrice précédente)
(Valider la nouvelle matrice)
G24+ X[X] Y[Y] Z[Z] P[K11]/[K12]/[K13] Q[K21]/[K22]/[K23] R[K31]/[K32]/[K33]
G997 G80
Publicité
