$**********************************************************
$ макро задает нелинейный торсион - соединительный элемент, передающий
$ момент от разности углов поворота соединяемых тел, при этом
$ функция момента гистерезисная - рессора НАМИ
$***********************************************************
$       формальные параметры шага МОДЕЛЬ
$ p1  - номер тела 1 крепления
$ p2  - номер узла 1 крепления
$ p3  - номер тела 2 крепления
$ p4  - номер узла 2 крепления
$ p5  - направление оси вращения (4,5,6)
$
BL16 NMX PRSOST TUF KPAR TDF KPAR
@   'характеристика торсиона torsres'
      nmx1    p5   30   20  50    1
BL17  NSE NPDS1  NUZ1 NPDS2  NUZ2  NMX
@   'нелинейный торсион torsres'
      nse1    p1    p2    p3    p4   nmx1
$***********************************************************
$       формальные параметры шага РАСЧЕТ
$***********************************************************
$ p1  - угловая жесткость на 1 и 2 участках
$ p2  - угловая жесткость на 3 участке
$ p3  - момент трения в торсионе на 1 и 2 участках
$ p4  - начальный угол закрутки
$ p5  - граница 2 и 3 участков
$ p6  - направление оси вращения (4,5,6)
$ p7  - момент трения в торсионе на 3 участке
$
BL33    NXAR    PRSOST    PRSL      KSTROK
@   'характеристика торсиона torsres'
      nmx1        p6        1          5
      p1       p1       p2-p7/0.06      p1
      p1       p2       0.0     p4*p1
      0.0      0.0      p4*p1+p3   0.0
      -100.    0.0      p5     10000000
      1000000  0.6     0.4     0.000001
      nmx1        p6        2          1
      10.0      0.0      0.         0.