如何画一条抛物线,如 Y=X**2+2*x-3(100分)

  • 主题发起人 主题发起人 windyhero
  • 开始时间 开始时间
W

windyhero

Unregistered / Unconfirmed
GUEST, unregistred user!
如何画一条抛物线,如 Y=X**2+2*x-3,以及用DBChart做图形分析
 
取一个区间[a,b],把区间等分为若干段每段取一个点,计算其对应y值,然后连接(x,y)就可以啦.
 
怎么连接,
我要画在dbchart上
 
我从来没有做过这方面的问题,对DBChart一窍不通
 
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;
 
忘了还要加上坐标的转换。
自己加吧
 
超出屏幕了!!先要判断一下最大最小值,进行缩放。
 
我要画在DBChart上
 
在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(y)
end;
end;
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
824
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
669
DelphiTeacher的专栏
D
后退
顶部