Spirolaterkurve

[TeddyPicker]

hier ist der quelltext ..und ich wurd nicht fragen wenn ich nicht echt schon alles probiert habe denn sonst könnt ich auch allein ...es ist auch keine hausaufgabe (ich weiß das das hier kein hausaufgaben forum ist)..ich dachte man kann mir hier helfen eine lösung für das problem zu finden

Delphi-Quellcode:

unit Unit1;


var
  Form1: TForm1;

implementation

{$R *.dfm}
function f(x:real):real;
begin f:=(((x-4)*x-2)*x+4)*x+5
end;

procedure TForm1.Imageleeren;
begin
  image1.Canvas.Brush.Color:=clWhite;
  image1.Canvas.Pen.Color:=clWhite;
  image1.Canvas.Rectangle(0,0,image1.Width,image1.Height);
  image1.Canvas.Pen.Color:=clBlack;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Imageleeren;
  SpinEditx.Value:=image1.Width div 3;
  SpinEdity.Value:=image1.Height div 2;
end;

procedure TForm1.ButtonZeichnenClick(Sender: TObject);

//var
//x,y:real;
//xs:integer;

begin
 //for xs:=0 to xsMax do begin
//x:= xmin + xs;
//y:=f(x);
//ys:= round ((yMax-y)* yMF);


//end;
//write;readln
end ;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SpinEditx.Value:=x;
  SpinEdity.Value:=y;
  ButtonZeichnenClick(self);
end;

end.

[edit=Luckie]Delphi-Codetags eingefügt. Beim nächsten mal bitte selber machen. Mfg, Luckie[/edit]