矩形网格等值线算法程序函数

difoyushi · 发表于 2014-6-26 20:05:40

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

调试通过欢迎提意见欢迎使用

使用说明如下：

Dim a(n,m) as single, v_iso()as single,iso_lines()as single, iso_describing()as single

在Call isoline(a, v_iso, iso_lines, iso_describing)前a(n,m)要赋值，v_iso()须redim并赋上所要求的等值线的值。矩形网格的横坐标为:0--n纵坐标为:0—m, Call isoline后，iso_lines（0，i）为第i点的横坐标，iso_lines（1，i）为第i点的纵坐标，UBound(iso_describing, 2)为等值线线条数减1，iso_describing(1,j) 为第j条等值线的值，iso_describing(1, j) 为第j条等值线点子数减1。

difoyushi · 发表于 2014-6-26 20:08:52

订正：
在Call isoline(a, v_iso, iso_lines, iso_describing)前a(n,m)要赋值，v_iso()须redim并赋上所要求的等值线的值。矩形网格的横坐标为:0--n纵坐标为:0—m, Call isoline后，iso_lines（0，i）为第i点的横坐标，iso_lines（1，i）为第i点的纵坐标，UBound(iso_describing, 2)为等值线线条数减1，iso_describing(0,j) 为第j条等值线的值，iso_describing(1, j) 为第j条等值线点子数减1。

yzydys · 发表于 2014-11-29 00:08:22

多谢楼主分享，辛苦啦.

suirosu · 发表于 2015-8-23 07:52:14

谢谢分享，好啊

suirosu · 发表于 2015-8-23 07:52:26

谢谢分享，好啊

suirosu · 发表于 2015-8-23 07:52:38

谢谢分享，好啊

suirosu · 发表于 2015-8-23 07:52:49

谢谢分享，好啊

suirosu · 发表于 2015-8-23 07:53:03

谢谢分享，好啊

suirosu · 发表于 2015-8-23 07:53:26

谢谢分享，好啊

suirosu · 发表于 2015-8-23 07:53:44

谢谢分享，好啊

		自动登录	找回密码
密码			立即注册

矩形网格等值线 算法 程序 函数

登录后查看更多精彩内容~

浏览过的版块

矩形网格等值线算法程序函数