Разработать программу расчета траектории баллистической цели

@Stonek · Регистрация: 07.12.2017

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

Доброго времени суток, товарищи. Пишу сюда т.к. зашел в тупик, зарылся по самые уши, а вытащить никто не может.
Разработал в среде маткад программу, суть программы в расчетах траектории баллистической цели, тут ничего секретного нет, но злой преподаватель требует цивильную программу.
Начал изучать по всяким обучалкам и видео-урокам но особо далеко уйти не смог, научился 2+2 складывать.
Прикладываю файл маткада. Буду благодарен всем идеям, подсказкам, советам!! Спасибо большое, Родина Вас не забудет!
курсант Иванов))

@Nanotentacle · 11.12.2017, 08:54

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

Если надо то обязательно могу пояснить кажду строку и так далее

Было бы уместно. Первый график понятен, второй - нет (вернее, понятно, что это увеличенная часть первого графика с зоной перехвата(?), но как вычислить эту зону - мне пока неясно).

Чистая математика на уровне "извлечь корень суммы квадратов координат" - это все легко. Логику понять сложнее. Поэтому если приведешь все к виду "высчитать функцию №1, высчитать функцию №2, посмотреть точки пересечения" - было бы здорово.

@Dmitrinik · 11.12.2017, 09:02

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

Очень нужна ваша помощь

Судя по графику траектории, баллистика без учета сопротивления воздуха? Неужели так трудно дать физическую постановку задачи?

@Matan! · 11.12.2017, 09:24

Первое значение $https://www.cyberforum.ru/cgi-bin/latex.cgi?\theta$ плохо видно.

Добавлено через 46 секунд

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

Судя по графику траектории, баллистика без учета сопротивления воздуха? Неужели так трудно дать физическую постановку задачи?

Перечитайте тему, пожалуйста. Это уже обсуждалось.

@Massaraksh7 · 11.12.2017, 18:57

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

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

Ну, начинай делать, ты поможем. Я, просто, логику MathCad не знаю.
Открывай новый проект в Delphi, на форму поставь кнопку, щёлкни на неё и пиши формулы в той последовательности, в которой они должны быть.
Типа:

Delphi
1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender:TObject)
var H1,H2,D1,D2,K1:double
begin
...
H1:=0;
H2:=0;
...
K1:=(H2-H1)/(D2-D1);
....

и т.д.
В чём вопрос возникнет - поможем.

@Stonek · 11.12.2017, 23:21 **[ТС]**

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

но как вычислить эту зону - мне пока неясно

Эта зона жестко закреплена, описывается несколькими функциями прямых, координаты которых мы задаем.
на первом скриншоте формулы описаны.

@Stonek · 11.12.2017, 23:52 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure TForm1.btn1Click(Sender: TObject);
begin
Rcp:= 15;                                    //
Dcpk := 450;                                 //   исходные данные по БР и ракете ЗРК
Dmax :=600;                                  //
Vp:= 2.43;                                   //
Q := (arcsin(Dcpk/Dmax))/2;                    // угол бросания в зависимости от нужной дальности полета
QQ := Q*180/pi;
d:= Rcp+Dcpk;
Htek(t):=t*tan(Q)-((t^2)/((cos(Q))^2)*2*Dmax);        // формула баллистики на нужную нам дальность
Q1 := pi/2 - Q;
Htek1(t):=t*tan(Q1)-((t^2)/((cos(Q1))^2)*2*Dmax);      // вторая траектория.
 
// блок описания функций красной зоны поражения
 
H1 := 0 ;
D1 := d-5;
K1:=(H2-H1)/(D2-D1);
b1 :=  H1-K1*D1;
D_1:= // ????  как описать что  D_1 изменяется от  D2 с шагом 0,000001 до D1;
H_1(D_1) := K1*D_1+b1;
 
 
H2 := 27 ;
D2 := d-5.001;
K2:=(H3-H2)/(D3-D2);
b2 :=  H2-K2*D2;
D_2:= // ????  как описать что  D_2 изменяется от  D3 с шагом 0,000001 до D2;
H_2(D_2) := K2*D_2+b2;
 
H3 := 26.5;
D3 := d-22.9  ;
K3:=(H4-H3)/(D4-D3);
b3 :=  H3-K3*D3;
D_3:= // ????  как описать что  D_3 изменяется от  D4 с шагом 0,000001 до D3;
H_3(D_3):= K3*D_3+b3;
 
 H4 := 16;
D4 := d-31.1;
K4:=(H5-H4)/(D5-D4);
b4 :=  H4-K4*D4;
D_4:= // ????  как описать что  D_4 изменяется от  D5 с шагом 0,000001 до D4;
H_4(D_4):= K4*D_4+b4;
 
 
 H5 := 7;
D5 := d-34.3;
K5:=(H6-H5)/(D6-D5);
b5 :=  H5-K5*D5;
D_5:= // ????  как описать что  D_5 изменяется от  D5 с шагом 0,000001 до D6;
H_5(D_5):= K5*D_5+b5;
 
 
 
 
end;

Вот примерно накидал формулы красной зоны поражения, две траектории полета БР на нужную нам дальность,
Теперь самое сложное, построить эти графики и найти точки пересечения траектории и зоны поражения,

Сообщение от Matan!

Первое значение плохо видно.

вот скриншот сделал этого момента получше

@Massaraksh7 · 12.12.2017, 00:03

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

Delphi
1
2
D_1:= // ????  как описать что  D_1 изменяется от  D2 с шагом 0,000001 до D1;
H_1(D_1) := K1*D_1+b1;

В объявлениях:

Delphi
1
2
var d_1,k1,b1:double;i:integer;
h_1:array [0..1000000] of double; // Размер массива прикинуть и поставить более-менее реальную цифру

В реализации:

Delphi
1
2
3
4
5
6
d_1:=d2;i:=0;
while (d2<d1) do  //---если d2<d1 и d_1 увеличивается
   begin
   h_1[i]:=k1*d_1+b1;
   inc(i);d_1:=d_1+0.000001;  
   end;

@Stonek · 12.12.2017, 00:05 **[ТС]**

Massaraksh7, это уже для меня темный лес((
Может тут я и с формулами напутал, но я ж делал для маткада, поэтому там такие условия надо было делать.
Как можно увидеть то углы красной зоны имеют дальность и высоту, но не от центра координат, параметр d смещает всю зону по оси Х, и строим мы по этим углам.

@Massaraksh7 · 12.12.2017, 00:07

t^2

Степень в delphi

Delphi
1
power(t,2)

Но в данном случае можно

Delphi
1
t*t

Добавлено через 45 секунд

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

Massaraksh7, это уже для меня темный лес((

Я и пишу, как почти механически заменить.

@Stonek · 12.12.2017, 00:13 **[ТС]**

Ребят, а может проще маткад связать как нибудь с делфи? и только как нибудь вывести график примерный и результаты вычислений в делфи?? видимо написать такую программу это непосильно((

@Massaraksh7 · 12.12.2017, 00:23

Если только через экспорт данных.

@Stonek · 12.12.2017, 00:27 **[ТС]**

Massaraksh7, Сможете мне в этом помочь?

Не по теме:

Мужики поймите, я по натуре человек технического склада ума, я могу мотор перебрать не запоминая где откуда какой болтик, гайка, но в программных кодах я совсем не понимаю, мы все вкладываем крупинки в развитие своей страны, а главное в свое развитие,тем самым хочу сказать, что не оставляйте без внимания и помощи, человека реально нуждающегося в ваших навыках и знаниях!! Спасибо!

@Massaraksh7 · 12.12.2017, 01:03

Поможем. Экспортируй данные, распиши, в каком они формате, и что тебе нужно на выходе.

@Nanotentacle · 12.12.2017, 08:46

Я попробую что-то сваять используя формулы из поста выше. Посмотрим, что выйдет.

Добавлено через 1 час 40 минут
Вопрос: в приведенных формулах, обставленных под делфи, углы Q и QQ в каких единицах измеряются? Радианы или градусы?

@Nanotentacle · 12.12.2017, 09:12

Так... Добился некоторых результатов. Код из Delphi 10. Траектория рисуется динамически, можно сделать статичную рисовку графика, задание начальных значений и т.д. В целом, все это будет несложно, я код набросал на скорую руку с парой-тройкой костылей и без принятых правил хорошего тона.

@Stonek · 13.12.2017, 00:26 **[ТС]**

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

Добавлено через 10 часов 12 минут

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

Код из Delphi 10.

Никак не получается открыть, открыл в Делфи 10, ошибка при компиляции((

@Stonek · 13.12.2017, 00:32 **[ТС]**

Вот скрин, сорри за доп пост

@Massaraksh7 · 13.12.2017, 01:17

---

@Stonek · 13.12.2017, 21:31 **[ТС]**

Начало примерно такое, как бы на этом же графике зону поражения построить. и изменять дальность полета, изменяя угол.

Delphi
1
Q := (arcsin(Dcpk/Dmax))/2;

@Nanotentacle · 14.12.2017, 04:45

Легко. Доберусь до компа - покажу как.

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Stonek 0 / 0 / 0 Регистрация: 07.12.2017 Сообщений: 25
	12.12.2017, 00:05 [ТС]
	Massaraksh7, это уже для меня темный лес(( Может тут я и с формулами напутал, но я ж делал для маткада, поэтому там такие условия надо было делать. Как можно увидеть то углы красной зоны имеют дальность и высоту, но не от центра координат, параметр d смещает всю зону по оси Х, и строим мы по этим углам. 0

@Stonek 0 / 0 / 0 Регистрация: 07.12.2017 Сообщений: 25
	12.12.2017, 00:13 [ТС]
	Ребят, а может проще маткад связать как нибудь с делфи? и только как нибудь вывести график примерный и результаты вычислений в делфи?? видимо написать такую программу это непосильно(( 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,749 Записей в блоге: 7
	12.12.2017, 00:23
	Если только через экспорт данных. 0

@Stonek 0 / 0 / 0 Регистрация: 07.12.2017 Сообщений: 25
	12.12.2017, 00:27 [ТС]
	Massaraksh7, Сможете мне в этом помочь? Не по теме: Мужики поймите, я по натуре человек технического склада ума, я могу мотор перебрать не запоминая где откуда какой болтик, гайка, но в программных кодах я совсем не понимаю, мы все вкладываем крупинки в развитие своей страны, а главное в свое развитие,тем самым хочу сказать, что не оставляйте без внимания и помощи, человека реально нуждающегося в ваших навыках и знаниях!! Спасибо! 0

@Massaraksh7 Айлурофил 518 / 451 / 112 Регистрация: 27.05.2017 Сообщений: 2,749 Записей в блоге: 7
	12.12.2017, 01:03
	Поможем. Экспортируй данные, распиши, в каком они формате, и что тебе нужно на выходе. 0

@Nanotentacle 882 / 404 / 173 Регистрация: 20.10.2016 Сообщений: 1,828
	12.12.2017, 08:46
	Я попробую что-то сваять используя формулы из поста выше. Посмотрим, что выйдет. Добавлено через 1 час 40 минут Вопрос: в приведенных формулах, обставленных под делфи, углы Q и QQ в каких единицах измеряются? Радианы или градусы? 0

@Stonek 0 / 0 / 0 Регистрация: 07.12.2017 Сообщений: 25
	13.12.2017, 00:32 [ТС]
	Вот скрин, сорри за доп пост Миниатюры 0

@Nanotentacle 882 / 404 / 173 Регистрация: 20.10.2016 Сообщений: 1,828
	14.12.2017, 04:45
	Легко. Доберусь до компа - покажу как. 0