hallo,
ich muss ein funktionsplotter programmieren. so weit so gut, hab jetzt alle wichtigen funktionen schonmal drinne. mir fehlen jetzt nur noch 4 funktionen
Potenzfunktionen
Wurzelfunktionen
Exponentialfunktionen
Logarithmusfunktionen
probelm ist, ich bekomm die funktionen in meiner programmierweise nicht gezeichnet. ich zeig euch mal an hand der ganzrationalen wie ich alle bisherigen funktionen gezeichnet hab:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
d:=strtoint(edit4.Text);
e:=strtoint(edit5.Text);
for i:=-550 to 550 do
begin
x1:=457+i;
y1:=(round(272-((a/125000*i*i*i*i)+(b/2500*i*i*i)+(c/50*i*i)+(d/1*i)+e*50)));
x2:=457+i+1;
y2:=(round(272-((a/125000*(i+1)*(i+1)*(i+1)*(i+1))+(b/2500*(i+1)*(i+1)*(i+1))+(c/50*(i+1)*(i+1))+(d/1*(i+1))+e*50)));
canvas.MoveTo(x1,y1);
canvas.LineTo(x2,y2)end;
end;
oder geradenfunktion
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
m:=strtoint(edit6.Text);
n:=strtoint(edit7.Text);
for i:=-575 to 575 do
begin
x1:=457+i;
y1:=(round(272-(m*i+n*50)));
x2:=457+i+1;
y2:=(round(272-(m*(i+1)+n*50)));
canvas.MoveTo(x1,y1);
canvas.LineTo(x2,y2)end;
end;
ich hab es per einzelnen parameter gemacht. jetzt verzweifel ich hier wegen dem i, weil ich nicht weiß wie ich das bei den oben genannten funktionen einbaue wegen der wechselnen potenz.
könnt ihr mir nen tipp geben bzw. helfen wie ich das bauen muss?
mfg