[Kekcuk]

День добрый. Вообщем такая проблема: нужно построить график уравнения на Делфи в параметрической форме. F(x,y) где
x=(A-B)cos t + Dcos f
y=(A-B)sin t + Dsin f
где f=(A/B)t

Подскажите как сделать нормально ? чтобы в канву выводилось F(x,y) я в этом не бум бум. кто поможет - будет вознагражден. )

Вот допустим так я построил график одного из них:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;   end;   var   Form1: TForm1;   implementation var Xmax,Xmin,Ymax,Ymin:real; {$R *.dfm}   function Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real; var fi:real; Begin fi:=(9/5)*x; F:=(9-5)*cos(x)+2*cos(fi); Xmax:=50; Xmin:=-50; Ymax:=50; Ymin:=-50; End;   procedure TForm1.Button1Click(Sender: TObject); var x,y:real; PX,PY:longInt; begin Image1.Canvas.MoveTo(0,Image1.height div 2); for PX:=0 to Image1.Width do begin x:=Xmin+PX*(Xmax-Xmin)/Image1.Width; y:=F(x,Xmax,Xmin,Ymax,Ymin); PY:=trunc(Image1.Height-(y-Ymin)*Image1.height/(Ymax-Ymin)); image1.Canvas.Pixels[PX,PY]:=clBlack; Image1.Canvas.LineTo(PX,PY); end; end;   end.

Admin: Пользуемся тегами!

[NIch]

Не совсем понял как работает та функция которую ты описал...Хmin, Xmax и т.п....Попыталя сделать по твоему заданию...

F(x,y) где
x=(A-B)cos t + Dcos f
y=(A-B)sin t + Dsin f
где f=(A/B)t

Вот что вышло:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls;   type   TForm1 = class(TForm)     Image1: TImage;     Button1: TButton;     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     function FX(t, A, B, D : integer):integer;     function FY(t, A, B, D : integer):integer;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation var A, B, D : Integer; {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var  i : integer; begin  A := StrToInt(Edit1.Text);  B := StrToInt(Edit2.Text);  D := StrToInt(Edit3.Text);  Image1.Canvas.MoveTo(0,Image1.height div 2);  for i:=0 to Image1.Width do begin   image1.Canvas.Pixels[FX(i, A, B, D),FY(i, A, B, D)]:=clBlack;   Image1.Canvas.LineTo(FX(i, A, B, D),FY(i, A, B, D));  end; end;   function Tform1.FX(t, A, B, D : integer):integer; var  fi:real; Begin  fi:= (A/B)*t;  Result:=Trunc((A-B)*cos(t) + D*cos(fi)); End;   function Tform1.FY(t, A, B, D : integer):integer; var  fi:real; Begin  fi:= (A/B)*t;  Result:=Trunc((A-B)*cos(t) + D*cos(fi)); End;   end.

Может не совсем то, но я лично понял так...

[lmikle]

Ребята, возьмите TChart и не мучайтесь.

[NIch]

Может просто задание такое...нарисовать на канве график...

[NIch]

Вот рабочий, хоть и примитивный спирограф....только что накатал, ничего сложного, но очень красиво...
Последний параметр N -количество проходов, чем больше тем четче...не рекомендую больше 5 (просто долго ждать) впрочем если убрать из кода Sleep...остальные параметры не менее 50, а то картика мелковата...Писал на Delphi 2010...