график функции(трилистник)

[Knopka77792]

нужно нарисовать оси координат и асимптоты, если они есть, трилистника--
r=a*cos(3*f) , a>0
Как нарисовать обычный синус знаю, а вот эту понятия не имею((

[Vago]

Переходить от полярных координат к Декартовым умеете?.. f - угол (меняете от 0 до2*PI с произвольным шагом). Для конкретного f по Вашей формуле вычисляете радиус-вектор r. А потом от пары (f,r) переходите к паре (x,y). Полученную последовательность точек (x,y) соединяете отрезочками.

[Sasha_Smirnov]

Кнопка! Спасибо Вам за формулу. Нарисовал по ней кучу цветов.

[Google2010]

function r( a1,f1:double):double;
begin
  result:=a1*cos(3*f1);
end;

procedure TForm1.cvetochek;
var x0,y0:integer;
 x,y:integer;
 f:double;
 a:integer;
 begin
  x0:=form1.ClientWidth div 2;
  y0:=form1.ClientHeight div 2;
  a:=75;
  with form1.canvas do begin
    f:=0;
    moveto(x0,y0);
    while f<=pi+0.1 do begin
       x:=x0+round(r(a,f)*cos(f));
       y:=y0+round (r(a,f)*sin(f));
       lineto(x,y);
       f:=f+0.1;
    end;
end;
end;

а уж оси координат сами нарисуйте)