05 марта 2016г.
Значительная часть военно-прикладных задач, в том числе – задачи радиоэлектронного подавления (РЭП), опирается на математический аппарат. При этом военно-технические науки уделяют большое внимание применению математических методов оптимизации [1], [2]. Поскольку в большинстве случаев на практике результат решения задачи должен быть представлен целыми числами, особого внимания заслуживают методы дискретного программирования. Рассмотрим реализацию одного из них на примере решения следующей задачи.
Производится подавление S линий связи противника комплексом РЭП, располагающим равноэффективными одноканальными станциями помех. По значимости (важности) линии связи характеризуются набором весовых коэффициентов Ai (i = 1, 2,..., S ) . Вероятность подавления i-й линии связи любой из станций помех комплекса равна wi (i = 1, 2,..., S ). Необходимо определить минимальное количество станций помех и их распределение по объектам подавления, обеспечивающее заданный уровень Fç эффективности подавления, измеряемой математическим ожиданием числа подавленных радиолиний противника с учетом их тактической значимости.
Приведем листинг процедуры, разработанной в среде Delphi 7, реализующей приведенный выше алгоритм. Листинг процедуры:
procedure TForm1.Button1Click(Sender: TObject);
Var
i,s,k,n:integer; Fsum,f0,max:real; f,A,w:array of real; x:array
of integer;
procedure Infile; //Процедура чтения входного файла Var
f1:TextFile; i:Integer;
begin AssignFile(f1,'input.txt');Reset(f1);
Memo1.Lines.LoadFromFile('input.txt'); for i:=0 to s-1 do read(f1,a[i]);
for i:=0 to s-1 do read(f1,w[i]); closefile(f1);
end;
procedure Outfile;//Процедура вывода
вектора Var
f2:TextFile; i:Integer;
begin AssignFile(f2,'output.txt');Rewrite(f2); edit3.Text:=inttostr(n); write(f2,'номер точки':21);
for i:=0 to s-1 do write(f2,i:2); writeln(f2);
write(f2,'распределение средств'); for i:=0 to s-1 do
write(f2,x[i]:2); closefile(f2);
Memo2.Lines.LoadFromFile('output.txt'); end;
Begin //Основной алгоритм s:=strtoint(edit1.Text); setlength(f,s);setlength(A,s); setlength(w,s);setlength(x,s); n:=0;Fsum:=0;f0:=strtofloat(edit2.text); Infile;
for i:=0 to s-1 do x[i]:=0;
for i:=0 to s-1 do f[i]:=A[i]*w[i]; repeat
max:=f[0];k:=0; for i:=1 to s-1 do
if f[i]>max then begin max:=f[i];k:=i;
end;
Fsum:=Fsum+f[k]; f[k]:=f[k]*(1-w[k]); x[k]:=x[k]+1; n:=n+1;
until f0end; end.
и, следовательно, чтобы эффективность подавления
была не ниже Fç = 60 , следует
выделить 11 станций помех, причем одну из них назначить
для подавлений первой
радиолинии, одну – для подавления четвертой радиолинии и так далее в соответствии с векторомV 0. Соответствующее значение эффективности подавления равно F ( X0 ) = 60,14 .В заключение отметим,
что с помощью рассмотренного метода
решается и обратная к (1)-(3) задача: отыскание такого распределения наперед заданного числа N равноэффективных средств
РЭП по S радиолиниям связи, которое максимизировало бы математическое ожидание числа подавленных целей
с учетом их значимости. Алгоритм решения остается тем же, но процесс прекращается в момент t = N . Таким образом, следует изменить лишь содержание пункта 5 алгоритма на проверку
выполнения условия t <
N .
Список литературы
1.
Берзин Е.А. Оптимальное распределение ресурсов и элементы синтеза систем.
– М., 1974. 247 c.
2.
Владимиров В.И. Принципы
и аппарат системных исследований радиоэлектронного конфликта. – Воронеж: ВВВИУРЭ, 1992.
108c.