bradley - 2010-03-26, 16:22 Temat postu: Czy ktos zna sie na programowaniu w Delphi? ? 
silverek - 2010-03-26, 16:43 a do czego to bradley - 2010-03-26, 16:52 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 - 2010-03-26, 17:25 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 - 2010-03-26, 18:41 Ale, że ...... o czym Ty do mnie rozmawiasz....... 
silverek - 2010-03-26, 18:57 czarna magia normalnie |
