VPF::[delphi]задачка с динамической графой

SniyLSD

Дата 7.7.2008, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

Привет! У меня появились затруднения в задаче для практики, текст таков -

Нарисовать на экране катящееся по кривой вида Y=A*X*X колесо с четырьмя спицами.

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

но реализовать это у меня не получается, плиз, помогите кодом))))) smile

SniyLSD

Дата 7.7.2008, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

часть проблемы я решил, но есть вопрос - как теперь задать координаты круга?
вот код таймера.

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Ax:=-3;    //границы по оси х "от"
 Bx:=3;     //границы по оси х "до"
 Ay:=-3;    //границы по оси у "от"
 By:=3;     //границы по оси у "до"
 N:=4500; //количество точек на графике
 Hx:=(ABS(Bx)+ABS(Ax))/N; //шаг по оси на графике 
  with PaintBox1 do
 begin
   x:=Ax;
   Nx:=Width;
   Ny:=Height;
   Dx:=Nx/(ABS(Bx)+ABS(Ax));
   Dy:=Ny/(ABS(By)+ABS(Ay));
   While x<Bx do
    begin
     Canvas.Pen.Color:=clGreen;
     y:=F1(x);
     Canvas.Ellipse(Round(x*Dx+(Width div 2)), Round((Height div 2)-y*Dy),
     Round(x*Dx+(Width div 2))+2, Round((Height div 2)-y*Dy)+2);
     x:=x+hx;
    end;
 end;
end;

теперь как дальше?

Это сообщение отредактировал(а) SniyLSD - 7.7.2008, 15:29

SniyLSD

Дата 7.7.2008, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 28.5.2008

Репутация: нет
Всего: нет

Все, разобрался я с ней smile

осталось только додуматься, как вращать спицы

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »