декартовы координаты описанной окружности

Image1.Canvas.LineTo(round(x),round(y));

yd:=(u0*Sin(a)*i)-((9.8*i*i)/2);

ky:=(Image1.Height)/((u0*u0)/(2*9.8));

kx:=(Image1.Width)/((u0*u0)/9.8);

a:=StrToFloat(Edit2.Text)*pi/180;

Image1.Canvas.Pen.Color:=clBlue;

var u0, a, N, x, y, kx, ky, xd, yd, i : double;

procedure TForm1.Button1Click(Sender: TObject);

Тогда длительность временного интервала (шаг по t )

Для определения времени полета прировняем у = 0

Координаты произвольной точки траектории движения определяются уравнениями:

Математическая модель

Задача : Изобразить местонахождение тела, брошенного с земли с начальной скорость U0 под углом к горизонту a, через равные интервалы времени ( N число равных временных интервалов)

Опубликовано в |

Image1.Canvas.Pen.Color:=clblue;

Image1.Canvas.LineTo(round(x),round(y));

procedure TForm1.DrawClick(Sender: TObject);

x0 иPy0 координаты центра, аPR радиус описанной вокруг правильного многоугольника окружности , v0 угловая координата первой вершины, тогда декартовы координаты вершин правильного n угольника определяются формулами

Задача : Построить правильный n -угольник, количество углов которого задано и вводиться через пользовательский интерфейс

Just another WordPress.com weblog