在delphi中,想用一组浮点数据绘制曲线,应用什么语句,最好给一个示例.((50分)

  • 主题发起人 主题发起人 蓝天鹤
  • 开始时间 开始时间

蓝天鹤

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中,想用一组浮点数据(包含X轴,Y轴)绘制曲线,应用什么语句,最好给一个示例
 
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
for x:= 0 to width do
begin
y:=round(30*sin(x/4)+30);
Canvas.LineTo (x,y);
end;
end;
 
如果是一组这样的浮点数该如何将它绘制成曲线? 240.25 1.8
240.50 2.0
240.75 2.5
241.00 2.8
241.25 3.0
241.50 2.7
.... ....
 
在DELPHI中如何定义绘图坐标系,
 
Canvas.polyline
 
用chart:)
with Tlineseries.Create(self) do
begin
parentchart:=chart1;
addx(数组名,,);
AddY(数组名,,);
linepen.Width:=2;
title:='?';
end;
 
to troyliu
Canvas.polyline 并不支持浮点数!如何实现?
 
to 山水之间
你给的示例无法运行,能具体一些吗?
 
再问"如何用浮点数绘制曲线",其他人提供的方法无法解决我的问题.
如果是一组这样的浮点数该如何将它绘制成曲线?... ....
240.25 1.8
240.50 2.0
240.75 2.5
241.00 2.8
241.25 3.0
241.50 2.7
.... ....
 
只给你一个思路:取得对应坐标的点后,在那个地方以坐标点为圆心,以一个适当的值为半径
画一个圆圈或方块,并用代码涂黑它!大多数作图的软件都是用的这个原理,如“几何画板”等。
这样你还可以动态设定点的大小和颜色。
 对不起!看错题了。我是说画点的方法。你是说画曲线是吧?也很简单。
 也是只说一下原理:
 曲线的绘制其实不是用点组成的,而是由一系列的小线段连接而成的。可惜我这儿只有VB
的代码。
 
to chemstar
VB的代码也可以,只要能解决问题.但它能支持浮点数据吗?请告之.
 
当然支持浮点数,当年我做了一个制作拟合曲线的的程序,数据可比你那个麻烦的多。
有空时找到了给你。
 但不知你的这个曲线是个什么类型的曲线,需要拟合吗?若不拟合的话,恐怕只是几段
折线吧?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部