Czy ktos moglby napisac posta lub wyslac mi program, dzieki ktoremu nauczylbym sie od podstaw rysowac wykresy funkcji w delph?
0
0
ktos kiedys mi napisal (dosc dawno) taki kod:
const
xmin=-10;
xmax=10;
ymin=-10;
ymax=10;
var
a,b,x,y,xcoeff,ycoeff:Double;
i:integer;
begin
a:=StrToFloat(Edit4.Text);
b:=StrToFloat(Edit5.Text);
xcoeff:=Image1.Width/(xmax-xmin);
ycoeff:=Image1.Height/(ymax-ymin);
Image1.Canvas.Brush.Style:= bsClear;
for i:=0 to Pred(Image1.Width) do
with Image1.Canvas do
begin
x:=i/xcoeff+xmin;
y:=a*x+b;
if i=0 then
MoveTo(i, -Round((y+ymin)*ycoeff))
else
LineTo(i, -Round((y+ymin)*ycoeff));
end;
end;
rysuje wykres funkcji liniowej otrzymujac parametry a i b. niestety nie pamietam kto napisal ten kod :|
0
a moze tak obejrzec program w katalogu Delphi
Demos\Teechart\teedemo.dpr
0
a ja nie mam takiego katalogu i tego pliku!