- 博客(6)
- 资源 (4)
- 收藏
- 关注
原创 等值线的生成(平滑)(MAPX+VB.net)
Private Sub spline(ByVal LD As Integer, ByVal DwX() As Double, ByVal DwY() As Double) Dim style11 As New MapXLib.Style Dim newpt As New MapXLib.Point Dim newpts As New MapXLib.
2008-08-19 14:03:00 1351 2
原创 关于等值线生成问题的补充
主要代码已经贴出来了,需要说明的是,等值线的代码一定要与前面所写的三角网的程序结合起来,并且有些地方需要改动,比如,以前的三角网生成代码再读点时没读入Z值,在生成等值线时要加上,如 Vertex(tPoints).x = CDbl(dataReader(1)) Vertex(tPoints).y = CDbl(dataReader(2)
2008-08-19 14:03:00 660
原创 未平滑等值线的生成(VB.NET+MAPX)
上一篇写的是基于MO的,下面换一种方式,把等值线的生成用MAPX来写!承接上一篇日志,即要调用的 zhixian(LD, DwX, DwY) 函数(虽然上篇是基于MO的,但除了画线,代码变化不大!) Private Sub zhixian(ByVal LD As Integer, ByVal dwx() As Double, ByVal dwy() As Double) Di
2008-08-19 14:02:00 804
原创 基于VB.NET和MO的等值线的生成
前些日子做了一个大作业,在以前的日志里,曾把三角网的代码贴了出来,当时等值线还没做出。现在吧等值线的代码也贴出来,希望能对大家有所帮助!这里的代码是承接上次的三角网的代码段,是基于三角网的等值线的 生成。同时,还有基于MapX版本的代码,有兴趣的可以索要,其实没多大区别…… 代码都经过测试了,这里就不加截图了,因为现在已经不再用MO或是MapX了,竟然MO的安装程序都不到了,
2008-08-19 13:14:00 1309 3
原创 线性方程组得求解问题(VB.net)
同学说需要一个 现行方程组的求解程序,花了一帧下午的时间,搞出来的了,呵呵,给大家共享一下!先是找了些原理性的东西,利用的是LU算法:算法名称:LU分解法算法描述:假定能够把矩阵A写成两个矩阵相乘的形式 (1)其中L为下三角矩阵,U为上三角矩阵。例如,4×4矩阵A的情况,(1)式如下: (2
2008-06-12 16:55:00 2578
原创 MO+VB2005做的离散点生成三角网(原创)
最近搜罗了一些资料,做了一个生成狄洛尼三角网的程序,希望与大家共享!(祥子原创)还作了基于MO+VB的较为详细功能的开发,希望与大家交流!点是存储在Access数据库里,当然也可以 改为.dat或是其它格式。下图分别为主窗口和生成三角网窗口,等值线还未做出,希望达到大家的指导。现在把代码贴出来,希望能对大家有帮助,也希望得到大家的指导!希望大家多多光顾本圈子(http://q.163.com/gi
2008-06-12 16:39:00 1725 5
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人