VB环境下TIN模型的应用.docVIP

VB环境下TIN模型的应用 　　【摘 要】基于三角网生成算法的不规则三角网，利用VB可视化用户界面结合数据库实现离散点构建三角网和其数据生成。本文对不规则三角网生长算法实现的研究，利用了VB强大的可视化用户界面及其编程语言的灵活性及简单易懂特点，基于各行业对于DEM的需要，开发出一种利用VB6.0语言生成基于生长算法的不规则三角网，结合数据库强大的数据存取、编辑、查询功能，共同实现离散点构建三角网和其数据生成。 　　【关键词】TIN模型 VB 数据生成 　　1 在VB环境中构建三角网 　　首先，我们要提取出需要处理的离散点集。本文介绍的数据都是存储在Access数据库中的数据。这样就要先解决VB与数据库连接的问题，需要创建控件，打开专有格式的文件（Access数据库文件格式为.mdb），然后打开数据库中的点表（xyz），从数据库的记录集的第一条向下读取直至读出所有数据。但是我们在程序上看不出来。这时我们如果想要看看点的离散状态可以把这些点展现在程序中，使我们能够直观的看到。点数据读出后就可以根据具体的算法进行三角网的生成了。 　　本文选用的方法是生长算法，算法的详细步骤如下。 　　（1）在离散数据点集V中任取一点，以点 为基点寻找与它最近的一点 。连接 ，就得到了三角形的一条基边，把该边作为扩展基边，代码如下： 　　k1 = 1 　　dmin = Sqr（（