NUM 1020 - Example of Application Subroutine

7 - 6 en-938872/2
7.4 Example of Application Subroutine
Application Subroutine %10150
This example is given only for guidance.
%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
(Reset the dimensions of the previous block in A, B and 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
(Read the inclined plane pivot point)
(and reset the dimensions of the previous block in X, Y and 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]
(Modify as required [X] [Y] [Z] of the spindle nose offset due to head rotation)
(Make sure there is no movement)
BCLR [.IBX(1)]/[.IBX(2)]/[.IBX(3)]/[.IBX(7)]/[.IBX(8)]/[.IBX(9)]
(Calculate the matrix coefficients)
[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- (Disable the previous matrix)
(Enable the new matrix)
G24+ X[X] Y[Y] Z[Z] P[K11]/[K12]/[K13] Q[K21]/[K22]/[K23] R[K31]/[K32]/[K33]
G997 G80