chart1.SeriesList[15].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[15].AddXY(massx[3,i],massy[3,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[16].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[16].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[16].AddXY(massx[4,i],massy[4,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[17].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[17].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[17].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[18].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[18].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[18].AddXY(massx[4,i],massy[4,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[19].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[19].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[19].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[20].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[20].AddXY(massx[4,i],massy[4,i],'',clred);
chart1.SeriesList[20].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[21].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[21].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[21].AddXY(massx[4,i],massy[4,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[22].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[22].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[22].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[23].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[23].AddXY(massx[4,i],massy[4,i],'',clred);
chart1.SeriesList[23].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[24].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[24].AddXY(massx[4,i],massy[4,i],'',clred);
chart1.SeriesList[24].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[25].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[25].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[25].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[25].AddXY(massx[4,i],massy[4,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[26].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[26].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[26].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[26].AddXY(massx[5,i],massy[5,i],'',clred);
end;
for i:=0 to 5 do begin
chart1.SeriesList[27].AddXY(massx[1,i],massy[1,i],'',clred);
chart1.SeriesList[27].AddXY(massx[2,i],massy[2,i],'',clred);
chart1.SeriesList[27].AddXY(massx[3,i],massy[3,i],'',clred);
chart1.SeriesList[27].AddXY(massx[4,i],massy[4,i],'',clred);
chart1.SeriesList[27].AddXY(massx[5,i],massy[5,i],'',clred);
end;
end;
{система перегруппировки}
for i:=0 to n do chart1.SeriesList[i].Active:=false;
if checkbox1.Checked=true then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[0].Active:=true;
end;
if checkbox2.Checked=true then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[1].Active:=true;
end;
if checkbox3.Checked=true then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[2].Active:=true;
end;
if checkbox4.Checked=true then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[3].Active:=true;
end;
if checkbox5.Checked=true then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[4].Active:=true;
end;
if ((checkbox1.Checked=true)and(checkbox2.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[5].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox3.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[6].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[7].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[8].Active:=true;
end;
if ((checkbox2.Checked=true) and (checkbox3.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[9].Active:=true;
end;
if ((checkbox2.Checked=true) and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[10].Active:=true;
end;
if ((checkbox2.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[11].Active:=true;
end;
if ((checkbox3.Checked=true) and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[12].Active:=true;
end;
if ((checkbox3.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[13].Active:=true;
end;
if ((checkbox4.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[14].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox2.Checked=true) and (checkbox3.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[15].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox2.Checked=true) and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[16].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox2.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[17].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox3.Checked=true) and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[18].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox3.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[19].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox4.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[20].Active:=true;
end;
if ((checkbox2.Checked=true) and (checkbox3.Checked=true) and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[21].Active:=true;
end;
if ((checkbox2.Checked=true) and (checkbox3.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[22].Active:=true;
end;
if ((checkbox2.Checked=true) and (checkbox4.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[23].Active:=true;
end;
if ((checkbox3.Checked=true) and (checkbox4.Checked=true) and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[24].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox2.Checked=true) and (checkbox3.Checked=true)and (checkbox4.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[25].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox2.Checked=true) and (checkbox3.Checked=true)and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[26].Active:=true;
end;
if ((checkbox1.Checked=true) and (checkbox2.Checked=true) and
(checkbox3.Checked=true)and (checkbox4.Checked=true)and (checkbox5.Checked=true)) then
begin
for i:=0 to n do chart1.SeriesList[i].Active:=false;
chart1.SeriesList[27].Active:=true;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var q:byte;
x1,x2,x3,x_1,x_2,x_3:real;
a1,b1,c1,a2,b2,c2,a3,b3,c3:real;
y1,y2,y3:real;
y,x:array[0..10]of real;
k:array[0..3]of real;
h:real;
i,j:integer;
begin
for i:=0 to 16 do
begin
x1:=1.9;x2:=9.7;x3:=–1.4;a1:=7.6;a2:=2.2;
a3:=–1.3;b1:=0.5;b2:=9.1;b3:=0.2;c1:=2.4;
c2:=4.4;c3:=5.8;y1:=1.9;y2:=9.7;y3:=–1.4;
x_1:=1/a1*(y1–b1*x2–c1*x3);
x_2:=1/b2*(y2–a2*x_1–c2*x3);
x_3:=1/c3*(y3–a3*x_1–b3*x_2);
x1:=x_1;x2:=x_2;x3:=x_3;
k[0]:=h*(x[i]+y[i]);
k[1]:=h*x[i]+h/2*y[i]+k[0]/2;
k[2]:=h*x[i]+h/2–y[i]+k[1]/2;
k[3]:=h*x[i]+h*y[i]+k[2];
y[i+1]:=y[i]+1/6*(k[0]+2*k[1]+2*k[2]+k[3]);
end;
for q:=0 to 24 do
chart1.SeriesList[q].Active:=true;
end;
end.
Все функции программы реализованы следующими подпрограммами:
1) Ввод данных (принятого сигнала);
2) Обработка сигнала;
3) Алгоритм селекции;
4) Вывод результатов (классификация).
Каждая подпрограмма осуществлять некоторый набор функций.
Подпрограмма ввода данных выполняет следующие функции:
– ввод исходных данных;
Подпрограмма обработка данных;
– создание базы типовых характеристик;
Подпрограмма алгоритм селекции:
– сравнение характеристик сигнала с эталонными;
Подпрограмма вывода:
– присвоение класса сигналу и визуализация результатов.
Все функции выполняются в диалоговом режиме.
Для работы с программой требуется один человек. Необходимо знание ПК.
Требования к безопасности КПС включает в себя: основные правила, нормы и условия по технике безопасности, пожарной безопасности и промышленной санитарии, обеспечивающие безопасные условия работы. Безопасность КПС соответствует требованиям, предъявляемым следующими нормативными документами: ГОСТ 12.1.019–79 «ССБТ. Электробезопасность. Общие требования и номенклатура видов защиты», ГОСТ 12.1.045, ГОСТ 12.1.030–81 «ССБТ. Электробезопасность. Заземление. Зануление.»
Комплекс программных средств соответствовует требованиям по эргономике и технической эстетике, то есть:
– отсутствие на рабочем месте посторонних предметов;
– необходимому уровню обеспечения освещенности помещения;
– удобству рабочего места с соблюдением анатомических пропорций человека;
– соблюдением санитарно–технических условий труда.
Требования нормируются системой ГОСТ ССБТ.
В качестве исходных данных используется:
– детерминированный информационный сигнал;
Промежуточные выходные данные:
– дисперсия;
– среднеквадратичное отклонение;
– математическое ожидание;
Выходные данные:
Наибольшая вероятность отнесение классифицируемого объекта к эталонному.
В данной работе был проведен анализ и получены следующие результаты:
Проведен анализ физических предпосылок селекции движущихся МНЦ по спектральным параметрам. Разработка алгоритмов и устройств обнаружения МНЦ и оценка их эффективности.
Разработан алгоритм обнаружения МНЦ и оценена их эффективности.
Синтезирован алгоритм классификации движущихся МНЦ и оценена их эффективности.
Разработана система интеллектуального распознавания классов движущихся и селекции неподвижных МНЦ на фоне подстилающей поверхности в интересах построения РЛС разведки и целеуказания повышенной информативности.
Применяемые методы исследования – методологической основой развиваемых методов, алгоритмов и разрабатываемых устройств служат:
1. Элементы теории вероятностей, математической статистики и случайных процессов;
2. Методы статистической теории обнаружения и классификации случайных сигналов;
3. Методы статистической теории радиолокации;
4. Методы радиофизики, электродинамики и теории распространения радиоволн.
В рамках научно–технической задачи, решаемой в работе получены следующие результаты:
– разработана математическая модель.
– разработано информационное обеспечение.
– оценена эффективность полученных алгоритмов.
– разработано программное обеспечение.
На защиту выносятся следующие вопросы, соответствующие основе рассматриваемой задачи.
4. Совокупность аналитических соотношений для вероятностных характеристик поляризационных параметров сигналов, отраженных от МНЦ, наблюдаемых на фоне мешающих отражений.
5. Алгоритмы обнаружения сигналов, отраженных от неподвижных МНЦ, по поляризационным и корреляционным свойствам.
6. Алгоритмы распознавания классов движущихся МНЦ, методика оценки их эффективности.
Практическая значимость работы состоит в следующем:
4. В разработке программного комплекса для определения спектральных и поляризационных характеристик реальных целей.