$***********************************************************
$ макро задает параметры индикаторной диаграммы
$ процесса расширения газа, стартующего с заданного момента времени
$***********************************************************
$       формальные параметры шага МОДЕЛЬ
$ p1  - номер тела 1 крепления
$ p2  - номер узла 1 крепления
$ p3  - номер тела 2 крепления
$ p4  - номер узла 2 крепления
$ p5  - номер типа многополюсника характеристики диаграммы
$
BL14 NMX PRSOST TUF KPAR TDF KPAR
@  'характеристика индикаторной диаграммы'
        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  p5   8    50    1
@   ' пружина линии силы idiagram'
      nmx2    1   1    1  50    1
BL17  NSE  NT1  NUZ1  NT2  NUZ2  NMX
@   ' пружина линии силы idiagram'
      nse1    p1    p2    p3    p4   nmx2
@   'ход поршня - вычислитель'
      nse2    nse1  -1    npu1  1    1
@   'скорость поршня - вычислитель'
      nse3    nse1  -2    npu1  2    1
@   'вычислитель - ф.з.'
      nse4    npu1   1    npu2  1    1
@   'вычислитель - ф.з.'
      nse5    npu2   1    npu3  1    1
@   'ф.з. - линия силы'
      nse6    npu3   1    nse1 -1    1
@ 'пружина в шарнирах idiagram'
#tspring.mac  nse1
@     'сила в idiagram'
#wkt.mac  3  1  nse4  1  1  1
$***********************************************************
$       формальные параметры шага РАСЧЕТ
$***********************************************************
$ p1  - время начала действия силы (до этого мормента сила нулевая)
$ p2  - значение силы
$ p3  - ход поршня на котором действует сила
$ p4  - запасной параметр
$ p5  - запасной параметр
$ p6  - запасной параметр
$ p7  - запасной параметр
$ p8  - запасной параметр
$
BL33    NXAR    PRSOST    PRSL      KSTROK
@  'характеристика индикаторной диаграммы'
      nmx1   1  1   2
      p1  p2  p3  p4
      p5  p6  p7  p8
      nmx1   1  2   1
      0.0   0.0   0.0   0.0
@   ' пружина линии силы idiagram'
      nmx2    1   1    1
      0.0   0.0   0.0   0.0
      nmx2    1   2    1
      0.0   0.0   0.0   0.0
@ 'пружина в шарнирах amortbuf'
#lspring.mac  nse1 0