Page 63 - 4352

U_PRIM#=3
endif
G_PRIM# = X_PRIM#+100+U_PRIM#
write id1# using "G%d", G_PRIM#
' Вивід лінійного переміщення на нижній площині
write id1# using "X%.15g%.15g", x*RDISCR, y*RDISCR
' Вивід кругового переміщення на нижній площині
if(primitive#=ARC_CLW# OR primitive#=ARC_CCLW#) then
write id1# using "I%.15g%.15g", i*RDISCR, j*RDISCR
endif
' Вивід лінійного переміщення на верхній площині
write id1# using "U%.15g%.15g", up_x*RDISCR, up_y*RDISCR
'Вивід кругового переміщення на верхній площині
if(primitive#=ARC_CLW# OR primitive#=ARC_CCLW#) then
write id1# using "R390%+g391%+g", up_i*RDISCR, up_j+RDISCR
endif
--------------------------------------------------------------------------------------------------------
up_tx0, up_ty0, up_tz0 [up_tx0_, up_ty0_, up_tz0_, _ up_tx0, _ up_ty0, _
up_tz0]
Тип
дійсний
Умовчання
0
Опис
Параметр задається для верхньої керуючої площини
Для команд руху параметри рівні вираженими в дискретах проекціям на
координатні осі вектора, дотичного до траєкторії руху в початковій точці
аналізованого [попереднього, наступного] руху. Довжина цього вектора
приймається рівній довжині переміщення для лінійних переміщень (у цьому
випадку tx0=dx, tz0=dz, tz0=dz) і радіусу дуги для переміщень по кола. Напрямок
дотичного вектора збігається з напрямком руху в початковій точці переміщення.
Значення параметра зберігається незмінним доти, поки не буде перевизначено
новою командою руху.
--------------------------------------------------------------------------------------------------------
up_tx1, up_ty1, up_tz1 [up_tx1_, up_ty1_, up_tz1_, _ up_tx1, _ up_ty1, _
up_tz1]
Тип
дійсний
Умовчання
0
Опис
Параметр задається для верхньої керуючої площини
Для команд руху параметри рівні вираженими в дискретах проекціям на
координатні осі вектора, дотичного до траєкторії руху в кінцевій точці
аналізованого [попереднього, наступного] руху. Довжина цього вектора
приймається рівній довжині переміщення для лінійних переміщень (у цьому

62