$***********************************************************
$   макро моделирует аэродинамические силы, действующие на автомобиль
$***********************************************************
$       формальные параметры шага МОДЕЛЬ
$ p1 - номер тела 'кузов'
$ p2 - номер узла ц.м. кузова
$ p3 - номер узла кузова приложения аэродинамических сил
BL14  NPDS  TPDS  LX  LY  LZ  UX  UY  UZ
@  'пилот вождения по кругу'
      npu1   nmx1   0   0   0   0   0   0
@  'фиктивное звено'
      npu2   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu3   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu4   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu5   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu6   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu7   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu8   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu9   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu10   111    0   0   0   0   0   0
@  'фиктивное звено'
      npu11   111    0   0   0   0   0   0
BL16 NMX NAPR  TUF  KPAR  TDF  KPAR
@  'аэродинамический вычислитель'
      nmx1    1     469    20    50  1
BL17   NSE NPDS1  NUZ1 NPDS2  NUZ2  NMX
@     'Вход - проекция скорости автомобиля X'
         nse1 p1  p2  npu1 1  -1
@     'Вход - проекция скорости автомобиля Y'
         nse2 p1  p2  npu1 2  -2
@     'Вход - матрица поворота'
         nse3 p1  p2  npu1 3   20
@     'Выход -  сила X'
         nse4  npu1  1 npu2 1   1
@     'Выход -  сила X'
         nse5  npu2  1 npu8 1   1
@     'Выход -  сила X'
         nse6  npu8  1 p1   p3  1
@     'Выход -  сила Y'
         nse7  npu1  2 npu3 1   1
@     'Выход -  сила Y'
         nse8  npu3  1 npu9 1   1
@     'Выход -  сила Y'
         nse9  npu9  1 p1   p3  2
@     'Выход -  сила Z'
         nse10  npu1  3 npu4 1   1
@     'Выход -  сила Z'
         nse11  npu4  1 p1   p3  3
@     'Выход -  момент X'
         nse12  npu1  4 npu5 1   1
@     'Выход -  момент X'
         nse13  npu5  1 p1   p3  4
@     'Выход -  момент Y'
         nse14  npu1  5 npu6 1   1
@     'Выход -  момент Y'
         nse15  npu6  1 p1   p3  5
@     'Выход -  момент Z'
         nse16  npu1  6 npu7 1   1
@     'Выход -  момент Z'
         nse17  npu7  1 p1   p3  6
@     'Выход -  угол натекания'
         nse18  npu1  7 npu10 1   1
@     'Выход -  угол натекания'
         nse19  npu10 1 npu11 1   1
@ 'угол натекания'
#wkt.mac 3 1 nse19 1  1  3
@ 'сила сопр. воздуха по X'
#wkt.mac 3 1 nse4  1  1  3
@ 'сила сопр. воздуха по Y'
#wkt.mac 3 1 nse7  1  1  3
$************************************************
$      формальные параметры шага РАСЧЕТ
$C      P(1) - плотность воздуха
$C      P(2) - площадь лобового миделя
$C      P(3) - колея
$C      P(4) - колесная база
$C      P(5) - Cx
$C      P(6) - Cy
$C      P(7) - Cz
$C      P(8) - Mx
$C      P(9) - My
$C      P(10) - Mz
$C      P(11) - боковой ветер
$C      P(12) - курсовой ветер
$C      P(13) - Cxb (Изменение от угла натекания)
$C      P(14) - Cyb
$C      P(15) - Czb
$C      P(16) - Mxb
$C      P(17) - Myb
$C      P(18) - Mzb
BL33    NXAR    PRSOST    PRSL      KSTROK
@  'аэродинамический вычислитель'
         nmx1    1    1    5
        p1     p2      p3    p4
        p5     p6      p7    p8
        p9     p10     p11   p12
        p13    p14     p15   p16
        p17    p18      0     0
         nmx1  1    2    1
         0.0    0.       0.      0.