有没有办法用TEECHART画出函数Y=4X^2的平滑的曲线呢？

有没有办法用TEECHART画出函数Y=4X^2的平滑的曲线呢？请给程序参考！ 问题点数：100、回复次数：7Top

1 楼afei78223（阿飞）回复于 2005-01-02 18:39:21 得分 80

参考如下的代码  
  //其中Count为点的个数/2，Step为步长  
  procedure   AddLine(Chart:TChart;Count:Integer;Step:Double);  
   
  var  
      I:Integer;  
      X,Y:Double;  
      Line:TLineSeries;  
  begin  
      Line:=TLineSeries.Create(Chart);  
      Chart.AddSeries(Line);  
      for   I:=Count   downto   0   do  
      begin  
          X:=-I*Step;  
          Y:=4*X*X;  
          Line.Add(X,Y,FloatToStr(X),clTeeColor);    
      end;  
      for   I:=0   to   Count   do  
      begin  
          X:=I*Step;  
          Y:=4*X*X;  
          Line.Add(X,Y,FloatToStr(X),clTeeColor);    
      end;      
  end;Top

2 楼zzlingaaa（小舟）回复于 2005-01-03 00:35:30 得分 10

点越多,曲线就越平滑...Top

3 楼constantine（飘遥的安吉儿）回复于 2005-01-03 09:45:20 得分 4

对Top

4 楼zzlazio（sritsb）回复于 2005-01-03 10:42:29 得分 1

多设置几个点就行了.Top

5 楼huojiangui（活见鬼）回复于 2005-01-04 17:10:28 得分 0

阿飞你的程序有问题啊，执行到Line.Add(X,Y,FloatToStr(X),clTeeColor);   的时候会出错，参数错误的！Top

6 楼nyf1220（我是党员----不过听说最近风声紧，打算换名字）回复于 2005-01-04 17:22:01 得分 5

应该是三个参数  
  Line.Add(X,FloatToStr(X),clTeeColor);    
   
  这样吧Top

7 楼afei78223（阿飞）回复于 2005-01-04 17:33:40 得分 0

不好意思，应该是  
  Line.AddXY(X,Y,FloatToStr(X),clTeeColor);Top

相关问题

• clteecolor
• floattostr
• line
• step
• chart
• count
• begin
• add

• 帖主：huojiangui
• afei78223
• zzlingaaa
• constantine
• zzlazio
• nyf1220

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载