[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) я в этом не бум бум. кто поможет - будет вознагражден. )

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

Код:

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

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

Код:

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...