ПО для РЛС

@kirpo · Регистрация: 09.03.2016

Студворк — интернет-сервис помощи студентам

Доброго времени суток!

Задача состоит в следующем: тема диплома: "Автоматизация настройки радиолокационных станций контроля надводной обстановки". Так как внедриться в ПО РЛС не представляется возможным, хочу написать симулятор или эмулятор, если так можно выразиться, интерфейса РЛС КНО. Хочу сделать это на Delphi. Собственно проблема состоит в реализации самого интерфейса (типа антенна крутится, цели появляются, присутствуют шумы и т. д.).

Заранее спасибо за помощь любого характера!

@kirpo · 21.03.2016, 14:03 **[ТС]**

Fulcrum_013, http://www.marcomm.ru/page/page166.html Буссоль-С - береговая РЛС. Функции автозахвата, сопровождения, определения скорости, курса и т. п. в ней есть, но они меня не интересуют, так как это третичная обработка. А я работаю над первичной, то есть как раз над обнаружением

Добавлено через 5 минут
Fulcrum_013,

набор концетрических окружностей, с набором радиусов. Это то что у тебя есть.

Это я хорошо представляю. А вот математика: как я уже говорил, как "размазать" этот массив значений по кругу. Вы уже предлагали вариант пересчёта (там где двойной цикл for), просто я его малость не понял

@Fulcrum_013 · 21.03.2016, 14:04

Сообщение от kirpo

А я работаю над первичной, то есть как раз над обнаружением

А она что не допплеровская? Т.е. скорость определяет по последовательным облучениям а не по смещению частоты?

@kirpo · 21.03.2016, 14:05 **[ТС]**

Нет, там используется амплитудный метод радиолокации.

@Fulcrum_013 · 21.03.2016, 14:07

Сообщение от kirpo

А вот математика: как я уже говорил, как "размазать" этот массив значений по кругу

Да они у тебя и есть по кругу. Их тебе не по кругу размазывать надо а пересчитать их проекцию из полярной в декартову систему. делается как уже написал: весовым усреднением секторов попавших в площадь пикселя.

@krapotkin · 21.03.2016, 14:10

x0,y0 - центр окружности
distPix - удаление = пропорция между макс. дальностью и радиусом окружности и текущим значением дальности
Az - азимут в радианах
тогда
X:=x0+cos(Az+pi/4) * distPix;
Y:=y0+sin(Az+pi/4) * distPix;
ну и Lum = уровень сигнала * 255 / макс сигнал;
color := rgbToColor(lum, lum, lum);

Добавлено через 47 секунд
это для простого пересчета, не учитывая суммирования сигналов в одной точке круга

@Fulcrum_013 · 21.03.2016, 14:29

Сообщение от krapotkin

это для простого пересчета, не учитывая суммирования сигналов в одной точке круга

Пойдет но со скрипом. на внешней окружности по 3 пикселя по окружности на шаг по азимуту, если на FullHD,
Тут как минимум нужно обратную проекцию пикселя из декартовой в полярную делать.

Delphi
1
2
3
4
5
6
7
8
9
dx=x-cx;
dy=y-cy;
Dist=dx*dx+dy*dy
if Dist<SquareMaxDist and dy>0 then
    Dist=Sqrt(Dist);
    Az=atan2(dx,dy);
    Lum=LumMatrix[1024*Az/(2*pi)][3200*Dist/ScreenSize]*255/MaxLum;    
    Canvas->Pixels[x][y]=rgbToColor(lum,lum,lum);
end;

Добавлено через 3 минуты
При этом Dist и Az для каждого пикселя const, соответственно их закешировать можно

@krapotkin · 21.03.2016, 14:31

т.е. зажигать все три ?
и чем дальше цель, тем ярче будет выглядеть?

Добавлено через 41 секунду
шаг по az не фиксированный ведь?

@Fulcrum_013 · 21.03.2016, 14:31

а при смешении яркостей для каждого пикселя кешируются не одно значение Dist и Az а всех в которые он попадает и коэффициент перекрытия.

@kirpo · 21.03.2016, 14:33 **[ТС]**

По-моему вы как-то сложно всё описываете

А можно создать свой примитив "сектор кольца" (круг ведь на них разбивается, на такие сектора). Затем отрисовать эти сектора с заливкой цветом в соответствии со значением в таблице. Перед отрисовкой нужно произвести масштабирование относительно центра, чтобы такое количество секторов поместилось на экране

@Fulcrum_013 · 21.03.2016, 14:56

Сообщение от krapotkin

шаг по az не фиксированный ведь?

Az это азимут, Dist - дистанция, LumMatrix - это его матрица со значением замеров.
Т.е. получается табличка координат для выборки из матрицы. т.е. фактически таблица координат пикселей в полярной системе, в которой и дана матрица уровней сигнала.

Добавлено через 20 минут

Сообщение от kirpo

можно создать свой примитив "сектор кольца" (круг ведь на них разбивается, на такие сектора). Затем отрисовать эти сектора с заливкой цветом в соответствии со значением в таблице

Можно то можно. только у тебя в один пиксель по дальности 6 таких примитивов умещается, а по азимуту от 1024 до 1/3

@kirpo · 21.03.2016, 15:59 **[ТС]**

Fulcrum_013,

Если не хватает скорости, то определяется какие ячейки грида видимы и обновляются только они. как при изменении данных так и при скролле грида.

Это делать как я понял через LeftCol, TopRow, VisibleColCount, VisibleRowCount? Ну, при первом заполнении грида я это сделаю, а как обновлять ячейки при скролле грида?

@Fulcrum_013 · 21.03.2016, 16:12

Сообщение от kirpo

а как обновлять ячейки при скролле грида

там событие есть OnTopLeftChanged . Срабатывает когда LeftCol или TopRow изменились. Тот же обработчик можно и на OnResize повесить.

@kirpo · 21.03.2016, 18:51 **[ТС]**

ОК, спасибо

Добавлено через 2 часа 19 минут
Fulcrum_013, проблема с обновлением грида. Даже если я тупо задаю обновление только одной ячейки таблицы:

Delphi
1
Form2.StringGrid1.Cells[1,1]:=FloatToStr(matrix_por[1,1]);

, то лагает всё равно также.

Добавлено через 53 секунды
Вот процедура полностью:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Porog(); //Ïðîöåäóðà èçìåíÿåò çíà÷åíèÿ â ÿ÷åéêàõ òàáëèöû
var                       //îò óñòàíîâëåííîãî ïîðîãà
k: integer;
l: integer;
begin
  man_porog:=TrackBar1.Position;
  label3.Caption:=FloatToStr(man_porog);
  for k:=1 to 3200 do
    for l:=1 to 1024 do
      begin
        matrix_por[k,l]:=matrix_por[k,l]-man_porog;
        //Form2.StringGrid1.Cells[k,l]:=FloatToStr(matrix_por[k,l]);
        //Form2.StringGrid1.Cells[1,1]:=FloatToStr(matrix_por[1,1]);
      end;
end;

Добавлено через 50 секунд
Хмм... беда какая-то с кодировкой

@jdzvk · 21.03.2016, 18:59

Не по теме:

поскольку упоминалось "для надводной обстановки", речь идёт об обычных РЛС различных диапазонов,
и РЛС с "фазированной решеткой". *типа как на коробке "вице-адмирал Ушаков".
также, предполагается, что актуальна задача целеуказания для тех перезаряжаемых маленьких спаренных ракеток,
которые выскакивают из трюмо и их турель умеет быстро-быстро крутиться, чтобы успеть "наставиться", нацелиться,
и попасть в ПКР, которая летит в корабль, в том числе с сверхзвуковой скоростью до 3,5Маха.
--
и актуальна задача(вы же актуальный диплом собираетесь делать?), - отсечь шумы.
получающиеся не только от постановки помех, но и переотражений от волн, которые есть солевой раствор,
иногда рассол, в т.ч. на фоне солнца, льда, полых плавающих алюминиевых шариков, надутых плавучих
кусочков с металлизированной оболочкой, выпущенных с подлодки или дна, - чего угодно.
--
для отсечения шумов ещё никто не пробовал - запускать привязанный проводами воздушный шарик,
на котором лишь сегменты приёмника. которые могут давать хорошую картинку именно помех.
вроде бы, витая пара: - работает лишь на длине 100 метров, но это не так. есть выпускающийся
развИтый провод(20рублей-метр), с экранированными 2мя парами, он работает до 300 метров на 100mbit.
*если вы это не в модный сетевой чип i219 мощностью 0,5Ватт будете вставлять, а в нормальный -
-оно будет работать - и вы уже можете иметь ловилку шумов на высоте 300м от верхушки мачты.
--
*в штиль. при ветре на высоте -200-250 метров - и это всё равно именно немало.
если вам нужна б0льшая высота - можно пробовать взять 4 качественных телевизионных коаксиала.
и, скорее всего, с хорошей сетевухой это будет работать на 2, а то и может даже на 3 километра.
*коаксиал тяжелый, - но диплому вашему - пофиг. если понадобится, сумеют сделать лёгкий коаксиал).

@kirpo · 21.03.2016, 19:06 **[ТС]**

jdzvk, тема моего диплома: "Автоматизация настройки радиолокационного изображения радиолокационных станций контроля надводной обстановки", моя задача - автоматизировать то, что есть, а не придумать новый метод фильтрации. И ещё. Моя РЛС стоит на берегу и отношения к кораблям и суднам не имеет (точней имеет - они для неё цели и всё

)

@jdzvk · 21.03.2016, 19:36

Не по теме:

kirpo, -аххах), -да? сори, плохо прочетал).
а ваша аватарка, с виду - как будто вы спите и видите, как докторскую из диплома сделать).
-тут же что главное - застолбить тему.) ..а с берега воздушный шарик даже круче пускать. хоть змея.
и диплом, и баловство, и дажеж какая-нибудь баба, клюнуть, может
--
*и вообще не колотит не только ПКР, а дажеж холодными брызгами от форштевня. -угощались когда-нибудь?)
кстати, почему те ракетки по 1шт на направляющей до сих пор делают - непонятно.
вероятность поражения ПКР 0,9 или 0,98 всё равно не устраивает, и запускают их по две.
а если оно начало разгоняться на финальном участке, и действительно идёт с 3,5Маха
- 4 ракетки с вероятностью поражения 0,4-0,6 одновременно - уже 1,2-1,8 - что приятно.
а перезарядить - и вручную подскочить могут. экстрим иногда с крабами делает чудеса

@Fulcrum_013 · 21.03.2016, 19:51

Сообщение от kirpo

Даже если я тупо задаю обновление только одной ячейки таблицы:

А задаете в цикле или вне цикла?
Буквально с недельку назад тоже большую табличку в грид выкидывал. около 2500x5 всю целиком. как там и росла. Правда на Билдере, но грид тот же, правда вместо FloatToStr IntToHex был, ну и массивы в дельфе конечно тормозные но не настолько чтобы пересчет лагал. да и 20 лет назад большие таблицы в нее без проблем выкидывались, значит дело не в мощности. Да и 3 миллиона флоатов сложить для 386-го может еще и задача, а первый пенек даже не заметил бы. Да кстати, ты в начале количество то строк столбцов ей укажи

Delphi
1
2
StringGrid.RowCount=1024;
StringGrid.ColCount=3200;

До цикла

Добавлено через 5 минут

Не по теме:

Сообщение от jdzvk

*и вообще не колотит не только ПКР, а дажеж холодными брызгами от форштевня. -угощались когда-нибудь?)
кстати, почему те ракетки по 1шт на направляющей до сих пор делают - непонятно.
вероятность поражения ПКР 0,9 или 0,98 всё равно не устраивает, и запускают их по две.
а если оно начало разгоняться на финальном участке, и действительно идёт с 3,5Маха
- 4 ракетки с вероятностью поражения 0,4-0,6 одновременно - уже 1,2-1,8 - что приятно.
а перезарядить - и вручную подскочить могут. экстрим иногда с крабами делает чудеса

Потому что направляющие уже давно не актуально. просто трюм с ячейками из которого эти ракетки стартуют. Как ПКР так и зенитные. кстати 4 ракетки с вероятностью 0,6 это 0,9744 вероятность поражения цели.

@kirpo · 21.03.2016, 20:09 **[ТС]**

Сообщение от Fulcrum_013

количество то строк столбцов

количество строк/столбцов задано через Object Inspector. Оно фиксировано и меняться не будет.
Сейчас значения в таблице меняются вот этой процедурой, пока цикл от 1 до 100 по k, и от 1 до 100 по l ничего не виснет, начиная от 500 - виснет. Всё это происходит в цикле, ещё и в двойном (а как по другому обновить все ячейки грида?).

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Porog(); //Процедура изменяет значения в таблице
var                                            //в зависимости от установленного порога
a,b,c,d,k,l: integer;
begin
  a:=1;
  b:=100;
  c:=1;
  d:=100;
  man_porog:=TrackBar1.Position;
  label3.Caption:=FloatToStr(man_porog);
  for k:=a to b do
    for l:=c to d do
      begin
        Form2.StringGrid1.Cells[k,l]:=FloatToStr(matrix_por[k,l]-man_porog);
      end;
end;

Добавлено через 8 минут
Может быть так виснет из-за того, что, например, если я перемещу ползунок TrackBar с 0 до 50, то будут просчитываться все промежуточные положения TrackBar, т. е. 1, 2, 3, 4...49 и 50?

Добавлено через 3 минуты

Сообщение от kirpo

Может быть так виснет из-за того, что, например, если я перемещу ползунок TrackBar с 0 до 50, то будут просчитываться все промежуточные положения TrackBar, т. е. 1, 2, 3, 4...49 и 50?

Не, похоже не из-за этого.

@Fulcrum_013 · 21.03.2016, 20:12

Сообщение от kirpo

(а как по другому обновить все ячейки грида?).

А по другому никак.
Можно вот так сделать
StringGrid.Cols[0].BeginUpdate();
а после цикла
StringGrid.Cols[0].EndUpdate();

Сообщение от kirpo

то будут просчитываться все промежуточные положения

Смотри когда у тебя события срабатывает и с какими значениями тракбара. Если такие дела то обновлять только видимую часть таблицы.

@kirpo · 21.03.2016, 20:15 **[ТС]**

Сообщение от Fulcrum_013

Смотри когда у тебя события срабатывает и с какими значениями тракбара. Если такие дела то обновлять только видимую часть таблицы.

Лагает не из-за этого, потому что если TrackBar на 1 изменить всё равно лагает.
А может есть какой-то другой способ отображения содержимого столбца кроме StringGrid, может быть более производительный?

Новые блоги и статьи Все статьи Все блоги /
Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))

@kirpo 0 / 0 / 0 Регистрация: 09.03.2016 Сообщений: 86

	ПО для РЛС 09.03.2016, 11:49. Показов 11108. Ответов 153 Метки delphi 7 (Все метки) *Доброго времени суток!* Задача состоит в следующем: тема диплома: "Автоматизация настройки радиолокационных станций контроля надводной обстановки". Так как внедриться в ПО РЛС не представляется возможным, хочу написать симулятор или эмулятор, если так можно выразиться, интерфейса РЛС КНО. Хочу сделать это на Delphi. Собственно проблема состоит в реализации самого интерфейса (типа антенна крутится, цели появляются, присутствуют шумы и т. д.). *Заранее спасибо за помощь любого характера!* 0

@kirpo 0 / 0 / 0 Регистрация: 09.03.2016 Сообщений: 86
	21.03.2016, 14:05 [ТС]
	Нет, там используется амплитудный метод радиолокации. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	21.03.2016, 14:10
	x0,y0 - центр окружности distPix - удаление = пропорция между макс. дальностью и радиусом окружности и текущим значением дальности Az - азимут в радианах тогда X:=x0+cos(Az+pi/4) * distPix; Y:=y0+sin(Az+pi/4) * distPix; ну и Lum = уровень сигнала * 255 / макс сигнал; color := rgbToColor(lum, lum, lum); Добавлено через 47 секунд это для простого пересчета, не учитывая суммирования сигналов в одной точке круга 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	21.03.2016, 14:31
	т.е. зажигать все три ? и чем дальше цель, тем ярче будет выглядеть? Добавлено через 41 секунду шаг по az не фиксированный ведь? 0

@Fulcrum_013 2083 / 1576 / 169 Регистрация: 14.12.2014 Сообщений: 13,614
	21.03.2016, 14:31
	а при смешении яркостей для каждого пикселя кешируются не одно значение Dist и Az а всех в которые он попадает и коэффициент перекрытия. 0

@kirpo 0 / 0 / 0 Регистрация: 09.03.2016 Сообщений: 86
	21.03.2016, 14:33 [ТС]
	По-моему вы как-то сложно всё описываете А можно создать свой примитив "сектор кольца" (круг ведь на них разбивается, на такие сектора). Затем отрисовать эти сектора с заливкой цветом в соответствии со значением в таблице. Перед отрисовкой нужно произвести масштабирование относительно центра, чтобы такое количество секторов поместилось на экране 0

@jdzvk
	21.03.2016, 18:59
	Не по теме: поскольку упоминалось "для надводной обстановки", речь идёт об обычных РЛС различных диапазонов, и РЛС с "фазированной решеткой". типа как на коробке "вице-адмирал Ушаков". также, предполагается, что актуальна задача целеуказания для тех перезаряжаемых маленьких спаренных ракеток, которые выскакивают из трюмо и их турель умеет быстро-быстро крутиться, чтобы успеть "наставиться", нацелиться, и попасть в ПКР, которая летит в корабль, в том числе с сверхзвуковой скоростью до 3,5Маха. -- и актуальна задача(вы же актуальный диплом собираетесь делать?), - отсечь шумы. получающиеся не только от постановки помех, но и переотражений от волн, которые есть солевой раствор, иногда рассол, в т.ч. на фоне солнца, льда, полых плавающих алюминиевых шариков, надутых плавучих кусочков с металлизированной оболочкой, выпущенных с подлодки или дна, - чего угодно. -- для отсечения шумов ещё никто не пробовал - запускать привязанный проводами воздушный шарик, на котором лишь сегменты приёмника. которые могут давать хорошую картинку именно помех. вроде бы, витая пара: - работает лишь на длине 100 метров, но это не так. есть выпускающийся развИтый провод(20рублей-метр), с экранированными 2мя парами, он работает до 300 метров на 100mbit. если вы это не в модный сетевой чип i219 мощностью 0,5Ватт будете вставлять, а в нормальный - -оно будет работать - и вы уже можете иметь ловилку шумов на высоте 300м от верхушки мачты. -- в штиль. при ветре на высоте -200-250 метров - и это всё равно именно немало. если вам нужна б0льшая высота - можно пробовать взять 4 качественных телевизионных коаксиала. и, скорее всего, с хорошей сетевухой это будет работать на 2, а то и может даже на 3 километра. коаксиал тяжелый, - но диплому вашему - пофиг. если понадобится, сумеют сделать лёгкий коаксиал). 0

@kirpo 0 / 0 / 0 Регистрация: 09.03.2016 Сообщений: 86
	21.03.2016, 19:06 [ТС]
	jdzvk, тема моего диплома: "Автоматизация настройки радиолокационного изображения радиолокационных станций контроля надводной обстановки", моя задача - автоматизировать то, что есть, а не придумать новый метод фильтрации. И ещё. Моя РЛС стоит на берегу и отношения к кораблям и суднам не имеет (точней имеет - они для неё цели и всё ) 0

@jdzvk
	21.03.2016, 19:36
	Не по теме: kirpo, -аххах), -да? сори, плохо прочетал). а ваша аватарка, с виду - как будто вы спите и видите, как докторскую из диплома сделать). -тут же что главное - застолбить тему.) ..а с берега воздушный шарик даже круче пускать. хоть змея. и диплом, и баловство, и дажеж какая-нибудь баба, клюнуть, может -- *и вообще не колотит не только ПКР, а дажеж холодными брызгами от форштевня. -угощались когда-нибудь?) кстати, почему те ракетки по 1шт на направляющей до сих пор делают - непонятно. вероятность поражения ПКР 0,9 или 0,98 всё равно не устраивает, и запускают их по две. а если оно начало разгоняться на финальном участке, и действительно идёт с 3,5Маха - 4 ракетки с вероятностью поражения 0,4-0,6 одновременно - уже 1,2-1,8 - что приятно. а перезарядить - и вручную подскочить могут. экстрим иногда с крабами делает чудеса 0