有一些折线图,横坐标纵坐标确定,怎么才能把曲线图的折点值读出来啊,紧急求救!!
解决方案 »
- >>>>>>>>>>>>> 关闭 RichEdit 自动选择整行功能 <<<<<<<<<<<<<<<<<<<<<<<
- 如何在2k,xp下隐藏进程?要编译能通过的原码(非dll注入)
- 如何将多个DBGrid中的内容导到一个Word文档的多个表格中?
- intraweb开发时提到的TIWServerController,TIWUserSession谁解释一下?
- 一简单问题
- 关于友类的用处!!!!
- 我的Delphi程序的Exe文件,再没有装Delphi的机子上不能运行,
- 怎样设置文件夹的属性?只读,存档,隐藏。。。?
- 送分,大家看看TForm1=class(TForm)这个
- 在Database的参数中添加了user 和password,而当用database.session.gettablename还要登陆???
- 听说Delphi7在开发信息系统方面不怎么好还有听说Borland公司现在正走下坡路这对Delphi程序员有什么影响????????
- 咨询一个多线程通讯的问题
function FindZD(ZD:array of Integer):Integer;
var
x:Integer;
begin
Result:=0;
for x:=a+1 to b-1 do
if (F(x)-F(x-1))<>(F(x+1)-F(x)) then
begin
ZD[n]=x;//返回折点横坐标
Inc(Result);
end;
end;
而F(x)你可以如下定义(假定其值域为[y1,y2]):
function F(x:Integer):Integer;
begin
Result:=y1;
while Result<y2-1 do
begin
if Pixels[x,y] and Pixels[x,y+1] and Pixels[x,y+2]<>0 then
Inc(Result,3)//连续3点相同则该三点不在曲线上
else
begin//其它情况说明连续3点有一点在曲线上
if Pixels[x,y]=Pixels[x,y+1] then
Result:=y+2
else if Pixels[x,y]=Pixels[x,y+2] then
Result:=y+1
else
Result:=y;
Break;
end;
end;
end;