$***********************************************************
$   макро задает траекторию движения произвольной точки тела
$   в пространстве
$***********************************************************
$      формальные параметры шага МОДЕЛЬ
$ p1  - номер  тела
$ p2  - номер узла тела
$ p3  - номер типа многополюсника задания траектории
$
BL14 NPDS  NTIP   LX  LY  LZ  UX  UY  UZ
@   'земля'
       npt1    npt1+100   0   0   0   0   0   0
@   'подсистема траектории'
       npu1    nmx1   0   0   0   0   0   0
@   'фиктивное звено'
       npu2    111    0   0   0   0   0   0
@   'фиктивное звено'
       npu3    111    0   0   0   0   0   0
BL16 NMX NAPR  TUF  KPAR  TDF  KPAR
@  'механическая характеристика траектории'
       nmx1    1    p3   8    50    1
@  'шарнир траектории'
       nmx2    1    15   3    50    1
       nmx2    2    15   3    50    1
       nmx2    3    15   3    50    1
BL17  NSE  NT1  NUZ1  NT2  NUZ2  NMX
@   'связь с траекторией'
    nse1    p1   p2    npt1    1    nmx2
@   'вход по X'
    nse2    nse1  -1   npu1  1     1
@   'вход по Y'
    nse3    nse1  -1   npu1  2     2
@   'вход по Z'
    nse4    nse1  -1   npu1  3     3
@   'фиктивное звено'
    nse5    npu1   1   npu2  1     1
@   'фиктивное звено'
    nse6    npu2   1   npu3  1     1
@ 'траектория X'
#wkt.mac  3  1  nse5  1   1   1
$************************************************
$      формальные параметры шага РАСЧЕТ
$ Формальные параметры зависят от точки, для которой описывется
$ движение, подробное описание параметров см подпрограмму SPATIAL1.F32
$ p1  - время разгона
$ p2  ..............
$ p5  - признак наличия связи по X (1 - есть, 0 - нет)
$ p6  - признак наличия связи по Y (1 - есть, 0 - нет)
$ p7  - признак наличия связи по Z (1 - есть, 0 - нет)
$ p8  ..............
$
BL31 NPDS    MAS     JNX     JNY     JNZ
@   'земля'
       npt1    1.    1.   1.   1.
BL33    NXAR    PRSOST    PRSL      KSTROK
$  'механическая характеристика траектории'
$if p1 == 0 then
$        nmx1     1        1          2
$          0.  0.  0.1   0.
$          0.   0.   0.   0.
$        nmx1     1        2          1
$          0.   0.   0.   0.
$else
        nmx1     1        1          2
          p1  p2   p3   p4
          p5  p6   p7   p8
        nmx1     1        2          1
          0.   0.   0.   0.
k1=123456
if p5 == 0 then
  k1=0.000000001
endif
k2=123456
if p6 == 0 then
  k2=0.000000001
endif
k3=123456
if p7 == 0 then
  k3=0.000000001
endif
$@  'шарнир траектории'
$       nmx2    1        1          1
$        125000000.00001  0.   0.   0.
$       nmx2    1        2          1
$         15000.0001 0.   0.   0.
$       nmx2    2        1          1
$        125000000.00001  0.   0.   0.
$       nmx2    2        2          1
$         15000.0001 0.   0.   0.
$       nmx2    3        1          1
$        125000000.00001  0.   0.   0.
$       nmx2    3        2          1
$        15000.0001 0.   0.   0.
@  'шарнир траектории'
       nmx2    1        1          1
        k1  0.   0.   0.
       nmx2    1        2          1
        0.  0.   0.   0.
       nmx2    2        1          1
        k2  0.   0.   0.
       nmx2    2        2          1
        0.0  0.   0.   0.
       nmx2    3        1          1
        k3  0.   0.   0.
       nmx2    3        2          1
        0.0  0.   0.   0.