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

[enotgr]

В общем, задача стоит сложная и довольно интересная, поэтому я опишу подробно.
Начну с сути постановки задачи. Как я уже написал в заголовке: подвижная окружность с центром в точке О1 радиуса r движется без скольжения по неподвижной окружности с центром в точке О радиуса R против часовой.
Кривошип ОО1 вращается равномерно с постоянной угловой скоростью w0 (угол fi вычисляется по формуле: fi=w0*t).
Найти траекторию точки М, принадлежащей подвижной окружности радиуса r, причем точка М находится на расстоянии h от точки О1 (т.е. h=О1М). Нужно написать графическую программу, представляющую перемещение точки М с течением времени t по траектории. В начальный момент кривошип ОО1 находится на оси Оx (также и О1М).
R=3r;
h=r.
Программу желательно написать на Pascal ABC, ибо я совсем запутаюсь.

[min@y™]

Уверен, что смог бы написать такую шляпу.
Нечто похожее уже делал одному двоечнику.

Прицепил вместе с исходником, поиграйся.

Ссылка ещё.

[enotgr]

Спасибо. Сейчас гляну

[enotgr]

Не совсем то, что нужно. По неподвижно окружности движется еще окружность и нужно найти траекторию (второй раз не буду писать, все подробно уже описано)

[type_Oleg]

Где движется, снаружи неподввижной или внутри ?
И где точка М, принадлежащая подвижной окружности ?
Там не спутали понятия круг и окружность ?

[enotgr]

Ничего не перепутал. Движется по окружности. Я уже написал, что происходит движение подвижной окружности по (а не внутри) неподвижной. Рисунок первый ("так"). Из точки О1 идет стержень длинной h, в моем случае h равен радиусу r (подвижной окружности). Получается стержень О1М. Собственно точка М расположена на расстоянии h=r от центра подвижной окружности (т.е. на ее дуге, если быть проще). Когда механизм приходит в движение, точка М должна рисовать некую траекторию.

[type_Oleg]

Ну тогда, вот - https://ru.wikipedia.org/wiki/Эпициклоида
Может быть поможет. У вас k=3

И общий случай, при произвольном расположении M - https://ru.wikipedia.org/wiki/Эпитрохоида

[enotgr]

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

[type_Oleg]

Вот, в качестве затравки.
Только -
а) это не на ABC, а на Delphi, я ABC не владею, а разбираться неохота,
б) надо как то туда сунуть угловую скорость w0 радиуса неподвижной окружности . В формулах, что я взял из Википедии - параметр t - это вроде угол радиуса катящейся окружности.

implementation

{$R *.dfm}
procedure EpiTrohoid(t,R,m,h:Real;var x,y:Real);
begin
 x:=R*(m+1)*Cos(m*t)-h*Cos((m+1)*t);
 y:=R*(m+1)*Sin(m*t)-h*Sin((m+1)*t);
end;

procedure TForm1.Button1Click(Sender: TObject);
var R,r1,h,m,x,y:Real;
    XX,YY,i:Integer;
begin
  r1:=50;
  R:=3*r1;
  h:=r1;
  m:=r1/R;
  for i:=0 to 500 do
   begin
    EpiTrohoid(i*0.06,R,m,h,x,y);
    XX:=250+Round(x);
    YY:=250-Round(y);
    Image1.Canvas.Pixels[XX,YY]:=clRed;
   end;
end;
end.

Вместо procedure TForm1.Button1Click(Sender: TObject); напишете свое - ввод параметров, графику и пр. Я просто привел, чтобы показать что работает.

[enotgr]

А можно как-то сделать так, чтобы получался не пунктир, а непрерывная линия? Я так понял, только если уменьшить i? Но тогда все равно линия будет прерываться..