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

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