W
windyhero
Unregistered / Unconfirmed
GUEST, unregistred user!
如何画一条抛物线，如 Y=X**2+2*x-3,以及用DBChart做图形分析
J
JohnsonGuo
Unregistered / Unconfirmed
GUEST, unregistred user!
取一个区间[a,b],把区间等分为若干段每段取一个点,计算其对应y值,然后连接(x,y)就可以啦.
W
windyhero
Unregistered / Unconfirmed
GUEST, unregistred user!
怎么连接，
我要画在dbchart上
我要画在dbchart上
W
windyhero
Unregistered / Unconfirmed
GUEST, unregistred user!
我从来没有做过这方面的问题，对DBChart一窍不通
小
小虫子:P
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
for x:= 0 to 500 do
begin
y:=x*x+x*2+3;
form1.Canvas.LineTo (x,y);
end;
end;
var x,y:integer;
begin
for x:= 0 to 500 do
begin
y:=x*x+x*2+3;
form1.Canvas.LineTo (x,y);
end;
end;
小
小虫子:P
Unregistered / Unconfirmed
GUEST, unregistred user!
忘了还要加上坐标的转换。
自己加吧
自己加吧
J
jsxjd
Unregistered / Unconfirmed
GUEST, unregistred user!
超出屏幕了！！先要判断一下最大最小值，进行缩放。
W
windyhero
Unregistered / Unconfirmed
GUEST, unregistred user!
我要画在DBChart上
J
JohnsonGuo
Unregistered / Unconfirmed
GUEST, unregistred user!
在DBChart1中添加一个折线图序列,然后使用以下代码即可.
const
n = 20;
var
i: Integer;
a, b, x, y, step: Extended;
begin
a := -5;
b := 3;
step := (b - a) / n;
for i := 0 to n do begin
x := a + i * step;
y := Sqr(x) + 2 * x - 3;
DBChart1.Series[0].Add
end;
end;
const
n = 20;
var
i: Integer;
a, b, x, y, step: Extended;
begin
a := -5;
b := 3;
step := (b - a) / n;
for i := 0 to n do begin
x := a + i * step;
y := Sqr(x) + 2 * x - 3;
DBChart1.Series[0].Add
end;
end;
W
windyhero
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
Z
zhili
Unregistered / Unconfirmed
GUEST, unregistred user!
[]
]