Построить эпициклоиду — кривую, заданную параметрическим уравнением

@Барбадос · Регистрация: 04.04.2015

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

Построить эпициклоиду - кривую, заданную параметрическим уравнением x=(a+b) cos(t) - a cos((a+b) t/a),
y=(a+b) sin(t) - a sin((a+b) t/a), a>0, b>0,
b/a - целое положительное число, t принадлежит интервалу [0,2 Пи ].

@ZX Spectrum-128 · 04.04.2015, 09:37

Нарисовать эпициклоиду за 3600 шагов

@Puporev · 04.04.2015, 10:59

Pascal

uses graphABC,crt;
var  a,b,c,x,y:integer;
     t,m:real;
begin
repeat
writeln('Введите 2 положительных числа a<b b кратно а');
readln(a,b);
until(a<b)and(b mod a=0);
clrscr;
hidecursor;
setwindowsize(500,500);
centerwindow;
c:=windowwidth div 2;
m:=c/(2*b);
t:=0;
while t<=2*pi do
 begin
  x:=c+round(m*((a+b)*cos(t)-a*cos((a+b)*t/a)));
  y:=c+round(m*((a+b)*sin(t)-a*sin((a+b)*t/a)));
  setpixel(x,y,clRed);
  t:=t+0.001;
 end;
end.

@Барбадос · 07.04.2015, 09:33 **[ТС]**

Puporev, это уже готовая? или заменить что-то надо?

@Puporev · 07.04.2015, 09:33

Так запусти и посмотришь.

@Барбадос · 07.04.2015, 09:42 **[ТС]**

Всплывающие окно - прекращена работа программы.. не работает вроде - pascal ABS.NET, не в той теме создал)) запускал через shift+f9

@Puporev · 07.04.2015, 10:01

Не по Net_овски, но работает

Pascal

uses graphABC;
var  a,b,c,x,y:integer;
     t,m:real;
begin
repeat
writeln('Введите 2 положительных числа a<b b кратно а');
readln(a,b);
until(a<b)and(b mod a=0);
clearwindow;
setwindowsize(500,500);
centerwindow;
c:=windowwidth div 2;
m:=c/(2*b);
t:=0;
while t<=2*pi do
 begin
  x:=c+round(m*((a+b)*cos(t)-a*cos((a+b)*t/a)));
  y:=c+round(m*((a+b)*sin(t)-a*sin((a+b)*t/a)));
  setpixel(x,y,clRed);
  t:=t+0.001;
 end;
end.

@Барбадос · 07.04.2015, 10:11 **[ТС]**

спасибо большое

@Барбадос 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 12
		1
	Построить эпициклоиду — кривую, заданную параметрическим уравнением 04.04.2015, 09:04. Показов 4604. Ответов 7 Метки нет (Все метки) Построить эпициклоиду - кривую, заданную параметрическим уравнением x=(a+b) cos(t) - a cos((a+b) t/a), y=(a+b) sin(t) - a sin((a+b) t/a), a>0, b>0, b/a - целое положительное число, t принадлежит интервалу [0,2 Пи ]. 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	04.04.2015, 09:37	2
	Нарисовать эпициклоиду за 3600 шагов 0

@Барбадос 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 12
	07.04.2015, 09:33 [ТС]	4
	Puporev, это уже готовая? или заменить что-то надо? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.04.2015, 09:33	5
	Так запусти и посмотришь. 0

@Барбадос 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 12
	07.04.2015, 09:42 [ТС]	6
	Всплывающие окно - прекращена работа программы.. не работает вроде - pascal ABS.NET, не в той теме создал)) запускал через shift+f9 0

@Барбадос 0 / 0 / 0 Регистрация: 04.04.2015 Сообщений: 12
	07.04.2015, 10:11 [ТС]	8
	спасибо большое 0

Построить эпициклоиду — кривую, заданную параметрическим уравнением

Решение