Курсовая)

[Deniska112]

Всем привет!
Вот задали курсовую по проге:
Эпитрохоида. X = (R+r)*cos(t) - d*cos((R+r)*t/r);
Y = (R+r)*sin(t) - d*sin((R+r)*t/r);
Точка пересечения осей координат должны располагаться в центре экрана. Затем
б) Построение выполнить для случая, когда R/r = 6 и d<r (укороченная эпициклоида).Повторить изображение кривой в 4-х точках экрана: вверху и внизу средней вертикали и слева и справа средней горизонтали, осуществив поворот осей координат каждого изображения на 90 градусов, относительно предыдущего, и сжатие по оси X в 2 раза. Залить изображения частой штриховкой.
Прошу помощи. Если кто-то что-то подобное делал напишите плиз.Или скиньте ссылочку где можно почитать про это. Очень надеюсь на вашу помощь.Заранее благодарен)

[Olga 2008]

Приветик))) а у тебя это вся программа или еще есть? просто мне задали примерно такую же только еще несколько пунктов не хватает

[Deniska112]

нет пока полностью нет а у тебя есть сам код который хотя бы график выводит?если есть напиши плиз)

[Deniska112]

народ помогите вот есть нароботки походу всё правилно подскажите в чём ошибка)
{$N+}
{$E+}
program ex;
uses crt, graph;

type
tcurve = procedure(t: double;
var x, y: double);
const

a = 3;
b = 9;
L: double = 4;
r=8;

scale = 30; { mashtab izobrageniya }
step = 0.005;

{
procedura dlya otrisovki tochki krivoy,
parametricheskoe predstavlenie kotoroy zadano funkchiey F
pri znachenii parametra = T
}

procedure set_point(t: double; f: tcurve);
var
x, y: double;
begin
f(t, x, y);
putpixel( (getmaxx div 2) + trunc(scale * x),
(getmaxy div 2) - trunc(scale * y), white );
end;

{
otrisovka krivoy so znacheniem parametra,
legavshim v intervale [start, finish] i shagom izmeneniya parametra step
}

procedure draw_curve(start, finish, step: double;
f: tcurve);
var t: double;
begin
{ risovanie osi koordinat }
setcolor(green);
line(0, getmaxy div 2, getmaxx, getmaxy div 2);
line(getmaxx div 2, 0, getmaxx div 2, getmaxy);

t := start; { nachalo intervala }

{ poka ne vishli za granichu intervala }

while t <= finish do begin
set_point(t, f);
t := t + step; { narashivaem parametr}
end;
end;

procedure evolventa(t: double; var x, y: double;k:integer); far;
begin
x :=r*(k-1)*(cos(t)+(cos((k-1)*t)/(k-1)));
y :=r*(k-1)*(sin (t)-(sin((k-1)*t)/(k-1)));
end;

var
mode, driver:integer;
begin
driver:=detect;
initgraph(mode, driver, 'c:\TP\bgi');

{draw_curve(nachalo intervala, konech intervala, shag, my_curve);}

draw_curve(-30, 30, step, evolventa);
readln;

closegraph;
end.

[Deniska112]

только не эпитрохоида а гипотрохоида))

[Olga 2008]

А тебе на паскале надо или в делфи?)

[Olga 2008]

Если ты сделал,можешь скинут текст программы??? =)
Ооочень надо!!! или еще как-нибудь)