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

蓝天鹤 · 2002-12-17

在delphi中,想用一组浮点数据(包含X轴,Y轴)绘制曲线,应用什么语句,最好给一个示例

djf813 · 2002-12-17

用CHART

zw84611 · 2002-12-17

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;

蓝天鹤 · 2002-12-18

如果是一组这样的浮点数该如何将它绘制成曲线? 240.25 1.8
240.50 2.0
240.75 2.5
241.00 2.8
241.25 3.0
241.50 2.7
.... ....

蓝天鹤 · 2002-12-18

在DELPHI中如何定义绘图坐标系,

troyliu · 2002-12-18

Canvas.polyline

山水之间 · 2002-12-18

用chart：）
with Tlineseries.Create(self) do
begin
parentchart:=chart1;
addx(数组名,,);
AddY(数组名,,);
linepen.Width:=2;
title:='?';
end;

蓝天鹤 · 2002-12-18

to troyliu
Canvas.polyline 并不支持浮点数!如何实现?

蓝天鹤 · 2002-12-19

to 山水之间
你给的示例无法运行,能具体一些吗?

蓝天鹤 · 2002-12-22

再问"如何用浮点数绘制曲线",其他人提供的方法无法解决我的问题.
如果是一组这样的浮点数该如何将它绘制成曲线?... ....
240.25 1.8
240.50 2.0
240.75 2.5
241.00 2.8
241.25 3.0
241.50 2.7
.... ....

chemstar · 2002-12-22

只给你一个思路：取得对应坐标的点后，在那个地方以坐标点为圆心，以一个适当的值为半径
画一个圆圈或方块，并用代码涂黑它！大多数作图的软件都是用的这个原理，如“几何画板”等。
这样你还可以动态设定点的大小和颜色。
　对不起！看错题了。我是说画点的方法。你是说画曲线是吧？也很简单。
　也是只说一下原理：
　曲线的绘制其实不是用点组成的，而是由一系列的小线段连接而成的。可惜我这儿只有VB
的代码。

lufang · 2002-12-22

蓝天鹤 · 2002-12-22

to chemstar
VB的代码也可以,只要能解决问题.但它能支持浮点数据吗?请告之.

chemstar · 2002-12-22

当然支持浮点数，当年我做了一个制作拟合曲线的的程序，数据可比你那个麻烦的多。
有空时找到了给你。
　但不知你的这个曲线是个什么类型的曲线，需要拟合吗？若不拟合的话，恐怕只是几段
折线吧？

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

蓝天鹤

Unregistered / Unconfirmed

djf813

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

蓝天鹤

Unregistered / Unconfirmed

蓝天鹤

Unregistered / Unconfirmed

troyliu

Unregistered / Unconfirmed

山水之间

Unregistered / Unconfirmed

蓝天鹤

Unregistered / Unconfirmed

蓝天鹤

Unregistered / Unconfirmed

蓝天鹤

Unregistered / Unconfirmed

chemstar

Unregistered / Unconfirmed

lufang

Unregistered / Unconfirmed

蓝天鹤

Unregistered / Unconfirmed

chemstar

Unregistered / Unconfirmed

Similar threads