[bradley]

?

[silverek]

a do czego to

[bradley]

Mam tablice x
I na jej podstawie generuje tablice y1,y2,y3,y4,y5 wg ustalonego wzoru. Ta czesc zrobilem i w kazdej tablicy x jak i y sa 73 elementy
Teraz potrzebuje wygenerowac wykres y1(x), y2(x) itd. na jednym wykresie. Potrzebuje 5 kresek z zaznaczonymi osiami i skala.

Znalazlem, ze mozna uzyc komponentu timage
No wiec,

i := 1;
for z:= 1 to 73 do
begin
Image1.Canvas.MoveTo(x[i], y1[i]);
i:=i+1;
Image1.Canvas.LineTo(x[i], y1[i]);
end;

Ale program pluje sie, ze jedna zmienna jest integer a druga real. Po zmianie tablicy z integer na real dalej jest to samo.

Ten timage nie przemawia do mnie. Potrzebuje ladnego wykresu ze skala.


Znalazlem juz funkcje round do zamiany real na integer ale ten wykres wyglada baaaardzo skapo.

[bradley]

Napisalem tak jako, ze funkcje sa liniowe
begin
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y1[73])));
Image1.Canvas.Pen.Color := clyellow;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y2[73])));
Image1.Canvas.Pen.Color := clgreen;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y3[73])));
Image1.Canvas.Pen.Color := clblue;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y4[73])));
Image1.Canvas.Pen.Color := clpurple;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y5[73])));
end;



Rysuje 5 kresek ale nie mam mozliwosci ladnego opisania wykresu, linii wykresow i skali

[cinek82]

Ale, że ...... o czym Ty do mnie rozmawiasz.......

[silverek]

czarna magia normalnie