C
chji
Unregistered / Unconfirmed
GUEST, unregistred user!
由于最近帮朋友写一个地质勘探方面的小软件,其中要将野处取得的一些数据(x,y,Z)
进行网格化处理,以便生成等值线图及表面立体图,但苦于水平有限,无法完成这一任务,
故只好求救各路算法高手,望各路高手能大发雷锋精神,帮小弟解决这个燃眉之急!
我目前是通过调用WinSurf的绘图命令GridData来暂时应急的,方法如下:
function GridData(DataFile,OutGrid:string;algorithm:integer;NumCols,NumRows, xMin, xMax, yMin, yMax:Variant):boolean;
Var surf:OleVariant;
begin
surf:= CreateoleObject('Surfer.Application');
result:=surf.GridData(DataFile, 1, 2, 3, , , , ,NumCols,NumRows,xMin, xMax, yMin, yMax,algorithm, , , ,
, , , , , , , , , , , , , , ,, , , , , , , , , , , , , , , , OutGrid,4);//, , , , , , );
surf.quit; surf:=null;
end;
但要前提是要先安装WinSurf的软件,且若版本不同时传输的参数也不同!因此调用
第三方软件的命令来达到此目的做法不要
以下为回报条件:
1、有更好提议者 100分
2、能提供实现上述功能的 dll,ocX...等无源码者 300分
3、能提供网格化源码者( 不论何种编程语言) 600分以上
此贴直到有完满答案才会结束...故希望看者能帮忙提前...多谢
提前者每人 10分
我的邮箱: need@21cn.com 或 index@163.com
进行网格化处理,以便生成等值线图及表面立体图,但苦于水平有限,无法完成这一任务,
故只好求救各路算法高手,望各路高手能大发雷锋精神,帮小弟解决这个燃眉之急!
我目前是通过调用WinSurf的绘图命令GridData来暂时应急的,方法如下:
function GridData(DataFile,OutGrid:string;algorithm:integer;NumCols,NumRows, xMin, xMax, yMin, yMax:Variant):boolean;
Var surf:OleVariant;
begin
surf:= CreateoleObject('Surfer.Application');
result:=surf.GridData(DataFile, 1, 2, 3, , , , ,NumCols,NumRows,xMin, xMax, yMin, yMax,algorithm, , , ,
, , , , , , , , , , , , , , ,, , , , , , , , , , , , , , , , OutGrid,4);//, , , , , , );
surf.quit; surf:=null;
end;
但要前提是要先安装WinSurf的软件,且若版本不同时传输的参数也不同!因此调用
第三方软件的命令来达到此目的做法不要
以下为回报条件:
1、有更好提议者 100分
2、能提供实现上述功能的 dll,ocX...等无源码者 300分
3、能提供网格化源码者( 不论何种编程语言) 600分以上
此贴直到有完满答案才会结束...故希望看者能帮忙提前...多谢
提前者每人 10分
我的邮箱: need@21cn.com 或 index@163.com