mapbasic程序有详细的解释.docxVIP

河道比降计算程序mapinfo=================================================================== 项目：河道比降计算 作者：崔军明 版本：2.2 日期：2009-12-23 使用说明：?? 1、新建图层，绘制主河道（也可以复制水系，然后整理出主河道）。?? 2、确定高程的单位（米/分米）。如果与主河道相交的等高线的高程单位不统一，则将其修改一致。?? 3、运行此程序，打开需要的表，设置计算选项，计算河道比降。?? 4、如果遇到错误，根据提示将河道上的节点吸附在等高线上， 并保存河道表(Stream)。???? 关闭全部表（不必保存），重新运行程序。?? 5、程序运行结束后，保存计算结果，然后浏览比降计算表(Gradient)。???? (1) 复查高程列(Elev)的单位是否统一，确认设置计算选项时所作的选择是正确的。?? 6、注意，计算某个流域的河道比降时，只需打开对应部分的等高线图层。 如果等高线图层太大，会大大影响计算速度。=================================================================== ---------------------------------------------------------------------------------MapBasic的调试方法： (1) 在出错或需要的地方，使用Note（或Print）语句将变量的值显示出来。 (2) 在MapInfo中，打开MapBasic窗口，回车就会执行当前语句。MapBasic中SQL的特性： (1) Delete 语句，执行的是无条件删除，即删除表中的全部记录。它不像SQL Server的SQL语句，可以加Where限制从句。???? 它的Where Rowid = ? 子句用处不大！ (2) Update 语句，执行的也是无条件更新，默认情况下，它会更新全部记录。但是，Update语句可以通过视图更新，这就???? 等价于使用了Where子句。如：Select * From Table Where column = ? , Update Selection Set Column = Value，???? 参考MapBasic帮助。---------------------------------------------------------------------------------Include MAPBASIC.DEFDeclare Sub MainDeclare Sub OpenTableDeclare Sub InitDeclare Sub SetupCalcOptionDeclare Sub WriteElev2GradientDeclare Sub AddCrossingOnStreamDeclare Sub GetReachLenDeclare Sub WriteLen2GradientDeclare Function IsDownStream As LogicalDeclare Function LocateCrossing(L As Object, Li As Object, ByVal C As Integer) As IntegerDeclare Function CalcGradient As FloatDeclare Sub SaveGradient(ByVal J As Float)Global EV As Integer??? 等高线的高程，用来查询当前正在处理的等高线，便于找到没有吸附的等高线Global ELEV_UNITS As Integer 高程单位选项值----------------------------------------计算河道比降----------------------------------------Sub MainDim J As Float??? 河道比降Call OpenTable??? 打开相关表Call Init????? 初始化Call SetupCalcOption?? 设置计算选项Call WriteElev2Gradient 查询和河道相交的等高线并将其写入比降计算表Call AddCrossingOnStream 在河道上添加交点节点Call GetReachLen??? 获取河段长度，并将其存入河段长度临时表Call WriteLen2Gradient?? 将河段长度导入比降计算表中J = CalcGradient()??? 计算河道比降Call SaveGradient(J)?? 保存计算结果End Sub-----