$***********************************************************
$   макро передает для запоминания перемещения, скорости и ускорения
$   точки тела по заданному направлению
$***********************************************************
$      формальные параметры шага МОДЕЛЬ
$ p1  - номер  тела
$ p2  - номер узла тела
$ p3  - признак направления (1 - 6)
$
BL14 NPDS  NTIP   LX  LY  LZ  UX  UY  UZ
@   'блок запоминания координат'
       npu1    nmx1   0   0   0   0   0   0
@   'фиктивное звено'
       npu2    111    0   0   0   0   0   0
BL16 NMX NAPR  TUF  KPAR  TDF  KPAR
@   'блок запоминания координат'
       nmx1    1    497  8    50    1
BL17  NSE  NT1  NUZ1  NT2  NUZ2  NMX
@   'передача перемещения'
    nse1    p1   p2    npu1   1    p3
@   'передача скорости'
    nse2    p1   p2    npu1   2   -p3
@   'передача ускорения'
    nse3    p1   p2    npu1   3    p3+10
@   'блок передачи - фиктивное звено'
    nse4    npu1  1    npu2   1    1
$************************************************
$      формальные параметры шага РАСЧЕТ
$      нет параметров
$
BL33    NXAR    PRSOST    PRSL      KSTROK
$  'блок запоминания координат'
        nmx1     1        1          2
          0    0    0    0
          0.   0.   0.   0.
        nmx1     1        2          1
          0.   0.   0.   0.