Forum: Multimedia
Delphi
by SimStar001,
30. Mär 2009
ich würds dann so machen:
procedure Zeichne_Graph;
begin
for i := 0 to (2 * x0) do
begin
x:=(xb-x0)/(xEins-x0);
y:=x1*x*x*x*x+x2*x*x*x+x3*x*x+x4*x+x5;
yB:= Round(y*(YEins-y0)+y0);
Forum: Multimedia
Delphi
by SimStar001,
29. Mär 2009
irgendwie haut das ganze net wirklich hin: was ist x0? diese variable wird nirgends belegt, ist also 0, sprich du zeichnest ein rechteck von -1 bis 0?
Hier mal Code aus meinem Plotter:
function Graph2D : ErrorCode;
var ImageHeight : integer;
ImageLength : integer;
YAchse : integer;
XAchse : integer;