$**********************************************************
$ макро задает линейный торсион - соединительный элемент, передающий
$ момент от разности углов поворота соединяемых тел
$***********************************************************
$       формальные параметры шага МОДЕЛЬ
$ p1  - номер тела 1 крепления
$ p2  - номер узла 1 крепления
$ p3  - номер тела 2 крепления
$ p4  - номер узла 2 крепления
$ p5  - направление оси вращения (4,5,6)
$
BL16 NMX PRSOST TUF KPAR TDF KPAR
@   'характеристика торсиона torslin'
      nmx1    p5   13    2  53    3
BL17  NSE NPDS1  NUZ1 NPDS2  NUZ2  NMX
@   'линейный торсион torslin'
      nse1    p1    p2    p3    p4   nmx1
$***********************************************************
$       формальные параметры шага РАСЧЕТ
$***********************************************************
$ p1  - угловая жесткость торсиона
$ p2  - начальный угол закрутки
$ p3  - момент трения в торсионе
$ p4  - направление оси вращения (4,5,6)
$
BL33    NXAR    PRSOST    PRSL      KSTROK
@   'характеристика торсиона torslin'
      nmx1        p4        1          1
      p1      p2*p1    0.0    0.0
      nmx1        p4        2          1
      p3      0.025      0.         0.