[Мандрюля]

Разработать приложение, которое построит астроиду, задаваемую уравнениями:
x=a*cos3t, y=a*sin3t, где a>0, t от [0, 2pi).

cos3 и sin3 это в третьей степени.

вывожу систему координат, а график либо смещается, либо вообще не отображается.
помогите плизз

[Kailon]

Тебе такое надо?



Если да, то вот

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  a: Integer;
  x, y, t: Real;
begin
  a := 10;
  t := 0;
  while t < 2*PI do
    begin
      x := a*((3*COS(t) + COS(3*t))) / 4;
      y := a*((3*SIN(t) - SIN(3*t))) / 4;
      Series1.AddXY(X, Y, '', clRed);
      t := t + 0.001;
    end;
end;

[Ambassador]

О чем идет речь? паскаль? дельфи? способ реализации? можно и на канвасе точками натыкать...

[Мандрюля]

да да это)) а что такое Series1.AddXY(X, Y, '', clRed); мне ошибку выдает..

[Мандрюля]

Сообщение от Ambassador

О чем идет речь? паскаль? дельфи? способ реализации? можно и на канвасе точками натыкать...

да хоть как в принципе-то)) это из госов задача, а способ реализации любой, лишь бы решить

[lmikle]

Сообщение от Мандрюля

да да это)) а что такое Series1.AddXY(X, Y, '', clRed); мне ошибку выдает..

Это добавление точки на графике в TChart.
На этапе дизайна надо в TChart создать серию.

[Мандрюля]

а если на канвасе просто сделать, то как?

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
 x,y,t,a:real;
begin
a:=2;
Form1.Canvas.MoveTo(0, ClientWidth div 2);
Form1.Canvas.LineTo (ClientHeight, ClientWidth div 2);
Form1.Canvas.MoveTo(ClientHeight div 2,0);
Form1.Canvas.LineTo (ClientHeight div 2, ClientWidth);
{Form1.Canvas.Pixels[200,200]:=clRed; }
while t < 2*PI do
    begin
      x:= a*((3*COS(t) + COS(3*t))) / 4;
      y:= a*((3*SIN(t) - SIN(3*t))) / 4;
     Form1.Canvas.Pixels[round(X),round(Y)];
      t := t + 0.001;
      end;

Админ: Не забываем теги для оформления кода.

у меня система координат выводится, а сам график нет

[Моклев]

потому что ты просто пишешь pixels, но ничего не присваиваешь
кст, еще ClientWidth и ClientHeight перепутал

Код:

procedure TForm1.FormPaint(Sender: TObject);
var
x,y,t,a:real;
begin
a:=200;
Form1.Canvas.MoveTo(0, ClientHeight div 2);
Form1.Canvas.LineTo (ClientWidth, ClientHeight div 2);
Form1.Canvas.MoveTo(ClientWidth div 2,0);
Form1.Canvas.LineTo (ClientWidth div 2, ClientHeight);
{Form1.Canvas.Pixels[200,200]:=clRed; }
t:=0;
while t < 2*PI do
begin
x:= a*((3*COS(t) + COS(3*t))) / 4;
y:= a*((3*SIN(t) - SIN(3*t))) / 4;
Form1.Canvas.Pixels[round(X)+ClientWidth div 2,round(Y)+ClientHeight div 2]:=clBlack;
t := t + 0.001;
end;
end;

[Мандрюля]

Спасибо большое)) все работает. я просто ступила чего-то)