ОПТИМАЛЬНОЕ УПРАВЛЕНИЕ ЦЕЛЕРАСПРЕДЕЛЕНИЕМ ОДНОРОДНЫХ СРЕДСТВ РАДИОЭЛЕКТРОННОЙ БОРЬБЫ

Значительная часть военно-прикладных задач, в том числе – задачи радиоэлектронного подавления (РЭП), опирается на математический аппарат. При этом военно-технические науки уделяют большое внимание применению математических методов оптимизации [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 f0

end; end.

В заключение отметим, что с помощью рассмотренного метода решается и обратная к (1)-(3) задача: отыскание такого распределения наперед заданного числа N равноэффективных средств РЭП по S радиолиниям связи, которое максимизировало бы математическое ожидание числа подавленных целей с учетом их значимости. Алгоритм решения остается тем же, но процесс прекращается в момент t = N . Таким образом, следует изменить лишь содержание пункта 5 алгоритма на проверку выполнения условия t < N .

Список литературы

1.     Берзин Е.А. Оптимальное распределение ресурсов и элементы синтеза систем. – М., 1974. 247 c.

2.     Владимиров В.И. Принципы и аппарат системных исследований радиоэлектронного конфликта. – Воронеж: ВВВИУРЭ, 1992. 108c.