Entwickler-Ecke

Sonstiges (Delphi) - Grafen zu Funktionen


FlaVa - Mo 08.05.06 17:44
Titel: Grafen zu Funktionen
hi, ich hab n problem, also ich brauch für mein projekt jetzt noch eine grafik und da dacht ich mir ich bilde von den gleichungen die da rauskommen einen grafen dazu. nur wie kann ich das denn machen? wie macht man einen grafen zu einer gleichung? kann mir jemand weiterhelfen?



Delphi-Quelltext 
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:
 
procedure TForm1.Button1Click(Sender: TObject);

//Deklaration  
Var a,b,ausgabe : Integer;

 
Begin

//Initialsierung  
a := strtoint(edit1.text); //speichert den Inhalt von edit1 in die Variable a  
b := strtoint(edit2.text); //speichert den Inhalt von edit2 in die Variable b  
ausgabe := 1;

 
repeat
begin  

 
  //Berechnung  
  a := a * b;  
  b := b - 1;  

 
  // Ausgabe
  memo1.lines.add(inttostr(ausgabe)+'. Ableitung : f(x)='+inttostr(a)+'*xˆ'+inttostr(b));
  ausgabe:=ausgabe+1;


end;  
until b = 0;

end; 


end.


Tilo - Di 09.05.06 13:37
Wo liegt dein problem?

Quelltext 
1:
 
f(x)=ax+b

ist doch eine Gerade.
Nihm eine Zeichenfläche, legt den Kordinatenursprung (0|0) auf der Zeichenfläche fest. Die Mitte bittet sich an.


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
 
var
f:zeichenfläche;
xmitte,ymitte:integer;
x,y:integer;
begin
xmitte:=f.width div 2;
ymitte:=f.height div 2;
for x:=0 to f.width do
begin
 y= a*(x-xmitte)+b;
 f.pixel[x,ymitte-y].color:=clBlack;
end;
end;


Achtung ungetest und nur Pseudocode!

Moderiert von user profile iconraziel: Code- durch Delphi-Tags ersetzt.


nullplan001 - Di 09.05.06 15:14
Ich wüsste nicht, wieso man Graf einer Funktion werden wollte. Das wäre 'ne verdammt dünne Grafschaft *g*. Das Ding, was du meinst, schreibt sich mit ph. :mahn: :D . Nein, ansonsten, bau dir eine Zeichenfläche und mache den Graphen entsprechend seiner Definition, in dem du eine 'Menge an Punkten P(x/f(x))' auf ein Zeichenfeld malst. Sollte nicht das Ding werden. Zumal eine Koordinatsys-Kompo hier irgendwo in den Open Source Komponenten rumgeistert.
Tschö,
nullplan


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!