С
—
шаг
по
частоте;
Ф
[/] —
передаточная функция бортовой качки;
Р
U) —
редукционный коэффициент;
П
—
частота собственных поперечных колебаний;
А
—
удвоенная величина безразмерного коэффициента сопротивления
p.gj
М
[J] —
кривая зависимости
А = f
(0);
К
[/] —
кривая зависимости (0)*
= /
(А),
где
(б)*
в
соответствии
с
рекомен-
дациями
ОСТ определяют
по
формуле
(0)*
= 1,9
L—
количество шагов
по М [J] и К [/];
Ы
—
линеаризированное значение коэффициента
А\
К1К2
—
коэффициенты зависимости
между
средней
и
3%-ной обеспеченности амплитудами
и
средне-
квадратичной;
SB
[/]—кривая спектральной плотности волнения;
SU
[I], SR [/], ST
[/]— кривые спектральных плотностей амплитуд
уг
лов,
угловых
скоростей
и
ускорений бортовой
качки;
U
C
p.
Rcp>
^cp.
U3, R3,
ГЗ —средние
и
3%-ной обеспеченности амплитуды
углов,
угловых
скоростей
и
ускорений борто-
вой качки.
Программа расчета бортовой качки
на
ЭЦВМ «Мир-Ь
••б./'ДЛ"/
=
/•Ш*/"Д0«1''ВЫП" СДЛ"/
=
/•Ш"/"ДО"^"ВЫП«
(W
[/]=
В +
(1
— I) хС; Ф [I] = Р [/] х П f
2/У((П
f 2 — W [1J f 2) 2 + (A
[J]xU)
f 2 x
W
[I] f 2)); SU [I] = Ф [/] f
2xSB
[I]; SR [/]= W [I] f 2 x SU [/]);
DR
= С x (S (/ = /, N, SR [/]) — (SR [I] + SR
[N])/2);
К V] = /.9 x V
(DR));
"ВЫП'-МАСС/С;
"ДЛ"/ =
1'ШЧ'ДР'Ь
—
/-ВЫП"
(X = (A [J+ I] —
A
[J])/№;
У= (K [J+ I) — K(J]) 100; Z= (M [J] — M [J +
/])//00;
•
"ДЛ"/
=
/"Ш'/'ДО'/ОО'ВЫП*
(К = К U] + У x I; M = M [J] — Zxl; 'E'K—
"
(Ы =А [J]+ Xxl;
"ВЫП»Ы; 'НА'2)));
2."ДЛ«/=
/«Ш"/"ДО»
••>
[/]*/>
Ц]хП •
2/(П(П
t 2— W [I] f 2) f 2+
(ЬЩ
f " ~
s
( [J+ ; ; ))); Д
Л^-ВЫП^Ф
[/]=
Р Ц]хП f
2/(К((П
f 2— Г [/] f 2) f 2+
(Ы«П)
f 2хГ
[/] f 2)); Sf/ [/] = Ф [/] f
2xSB
[/]; S/? = W [I] f
2>:St/
[/]; ST [/] =
Г
[/J f
2xSR
[/];
"f-S// [/]=0"TO" ("НА-Я");
«ВЫВИТА»/,
W [/], St/ [/],
Si? [/], ST [/]; Я.); DU=Cx(W= Л ^ ^ U])-SU [I) + SU [N])t2;
DR
C ( / {] []+ []/ C / /
[] []; ); (W Л ^ U]) ) )
DR
= Cx (2 (/ = /, tf, S/? {/]) —
(S/?
[/]+ SR
[N])/2);
DT = Cx (S (/ = /.
N
ST [/] — (ST [/] + Sr
[ЛП)/2)ГШ /C/V
(DU) R3
/C/V (D/?)
ГЗ
(2
( , {]) ( []+ [])); (S (
N,
ST [/] —
(ST
[/] + Sr
[ЛП)/2)ГШ
=
/C/xV (DU);
R3 =
/C/xV
(D/?);
ГЗ =
/ШУ
(DT); i/CP
=
K2xV (DU);
RCP =
K2xV (DR);
TCP =
/С2л;У (ОГ);»ВЫП"
-CTP0',
Dt/,
'ПР"2,
£/3,
*ПР«2(/СР, «CTPO'.Di?,
"ПР"2,
ЛЗ, «ПР"2, RCP, "CTP0",
DT,
"ПР"2,
ТЗ,
*ПР"2,
TCP
Программа расчета состоит
из
трех
органически связанных
между
собой частей,
причем каждая
из них
после незначительных дополнений командами может быть
использована
как
самостоятельная.
Первая
часть программы, заканчивающаяся выводом
на
печать массива
К [J],
позволяет вычислить значения угловой скорости бортовой качки (6)*
для
принятого
в
расчете диапазона значений
А
Массив
К [J]
выводится
на
печать.
Во второй части программы вычисляется значение линеаризированного
коэф-
фициента
сопротивления бортовой качки
Ы,
определяемое
как
значение
коэффи-
циента
А,
при котором
Q =
(0)*.
С
этой целью производят сравнение кривых
К [J]
и
М [J ]
при одинаковых значениях
А.
При выполнении условия
К — М ^ 0
счет
прекращается
и
значение Ы выдается
на
печать. Эта часть программы может успешно
использоваться как самостоятельная программа
для
поиска точки пересечения кри-
вых, заданных дискретными значениями
или
аналитически
Третья, последняя, часть-программы позволяет вычислить кривые спектраль-
ных плотностей, средние
и
3%-ной обеспеченности значения углов,
угловых
скоро-
стей
и
ускорений бортовой качки.
Все
эти величины выводятся
на
печать.
102