Форум программистов, компьютерный форум, киберфорум
Maple
Войти
Регистрация
Восстановить пароль
 
4 / 4 / 0
Регистрация: 28.10.2010
Сообщений: 71
1

Нахождение максимальной высоты от угла выстрела

02.04.2015, 21:04. Просмотров 401. Ответов 7
Метки нет (Все метки)

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

Haskell
1
2
3
4
5
6
7
8
> restart;
> g := 9.81; mu := 0.182e-1; r := .1; c := .4; rho := 1.2928; m := 4; h0 := 2.5; v0 := 10; a0 := (1/18)*Pi; an := (1/3)*Pi; n := 7; astep := (an-a0)/n; tmax := 5; k1 := (1/6)*Pi*r*mu; k2 := (1/2)*r^2*c*rho*Pi;
> for i from 0 to n do A0[i] := a0+i*astep; dsol := dsolve({diff(x(t), t, t) = -(k1+k2*sqrt((diff(x(t), t))^2+(diff(y(t), t))^2))*(diff(x(t), t))/m, diff(y(t), t, t) = -(k1+k2*sqrt((diff(x(t), t))^2+(diff(y(t), t))^2))*(diff(y(t), t))/m-g, x(0) = 0, y(0) = h0, (D(x))(0) = v0*cos(A0[i]), (D(y))(0) = v0*sin(A0[i])}, numeric, output = listprocedure); X[i] := eval(x(t), dsol); Y[i] := eval(y(t), dsol); Vx[i] := eval(diff(x(t), t), dsol); Vy[i] := eval(diff(y(t), t), dsol); tgrd[i] := fsolve(Y[i](t), t = 0 .. tmax) end do;
> plot({seq([X[i](t), Y[i](t), t = 0 .. tgrd[i]], i = 0 .. n)});
> plot({seq([t, sqrt(Vx[i](t)^2+Vy[i](t)^2), t = 0 .. tgrd[i]], i = 0 .. n)})
> Xa := evalf([seq([A0[i], X[i](tgrd[i])], i = 0 .. n)]); with(CurveFitting); IP := proc (x) options operator, arrow; PolynomialInterpolation(Xa, x) end proc; IP(x)
> plot({Xa, IP(a)}, a = a0 .. an)
> Amax := fsolve(diff(IP(a), a) = 0, a = a0 .. an); Xmax := IP(Amax)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2015, 21:04
Ответы с готовыми решениями:

Хватит ли 100% максимальной высоты
Есть общий блок #main. У него высота 1000 пикселей или 100% (формально). В нем есть #header,...

Составить уравнения медианы, высоты и биссектрисы угла, найти их длины
Даны координаты вершин треугольника АВС. Составить уравнения сторон треугольника. Составить...

Посоветуйте алгоритм нахождения максимальной высоты
Есть STL-файл (информация о фигуре в нём хранится в виде координат вершин треугольников). Пример:...

Определение максимальной высоты окна браузера
Здравствуйте, Никак не могу найти решение для следующей задачи: Как Вы знаете у каждого типа...

7
Модератор
Эксперт по математике/физике
4642 / 3555 / 1199
Регистрация: 30.07.2012
Сообщений: 10,119
02.04.2015, 21:15 2
Цитата Сообщение от vasya_91 Посмотреть сообщение
...только надо найти высоту максимальную
Держите... Все считается...
0
Миниатюры
Нахождение максимальной высоты от угла выстрела  
4 / 4 / 0
Регистрация: 28.10.2010
Сообщений: 71
02.04.2015, 21:18  [ТС] 3
Здесь находит максимальную дальность полета (по оси Х), мне нужно найти максимальную высоту (по оси Y)
0
Модератор
Эксперт по математике/физике
4642 / 3555 / 1199
Регистрация: 30.07.2012
Сообщений: 10,119
02.04.2015, 21:20 4
А что тогда на графике изображено? (по оси Х и по оси У)
0
4 / 4 / 0
Регистрация: 28.10.2010
Сообщений: 71
02.04.2015, 21:22  [ТС] 5
Зависимость дальности полета от угла броска.

Добавлено через 40 секунд
Мне нужно зависимость максимальной высоты от угла броска
0
Модератор
Эксперт по математике/физике
4642 / 3555 / 1199
Регистрация: 30.07.2012
Сообщений: 10,119
02.04.2015, 21:26 6
vasya_91, а ТАК не будет ли проще?
0
Миниатюры
Нахождение максимальной высоты от угла выстрела  
4 / 4 / 0
Регистрация: 28.10.2010
Сообщений: 71
02.04.2015, 21:28  [ТС] 7
В данном случае не учитывается сопротивление воздуха...
0
2572 / 2188 / 233
Регистрация: 03.07.2012
Сообщений: 7,901
Записей в блоге: 1
02.04.2015, 22:35 8
В первом сообщении есть слово "воздух"?
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2015, 22:35

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

По координатам вершин треугольника найти уравнение высоты, медианы, величину угла
1 и 2 есть. Сделать чертёж 7. записать систему линейных неравенств определяющих треугольник АВС....

Ограничение максимальной ширины и высоты картинки в CSS
Товарищи, помогите, пожалуйста! Тут такое дело. Взял в аренду интернет-магазин. Редактирую...

Вычисление максимальной дальности полета и максимального угла
Приветствую всех. Только начал изучение программирования, решил изучать с c++ Задачка для...

Длина высоты СМ равнобедренного треугольника АСВ (АС=СВ) равна 6 см. Вычислите синус угла САВ, если АС = 18 см
Помогите с задачей пожалуйста!! Длина высоты СМ равнобедренного треугольника АСВ (АС=СВ) равна 6...

Через какое время копьё поднялось на половину максимальной высоты?
3)Копье брошено с начальной скоростью 40 м/сек под углом 30 градусов к горизонту.Через какое время...

Вывести последовательность значений максимальной высоты над землей и моментом падения
Здравствуйте,помогите,пожалуйста с задачей. Тело подбрасывается вертикально вверх n раз с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.