module1.bas

摄影测量影象匹配

Attribute VB_Name = "全局变量的声明"
Option Base 1

Public xzs As Double, yzs As Double
Public xzx As Double, yzx As Double      '左相片的窗口定义坐标

Public xys As Double, yys As Double
Public xyx As Double, yyx As Double      '右相片的窗口定义坐标

Public zmx As Single, zmy As Single      '左右窗口目标点坐标
Public ymx As Single, ymy As Single

Public huidul As Long                    '长整形颜色值
Public huidu As Single

Public zq() As Single, yq() As Single    '存储目标区和匹配区的灰度数值

Public q1 As Double, q2 As Double
Public k1 As Double, k2 As Double
Public w1 As Double, w2 As Double        '关于左右影象的外方位旋转角
Public f As Double

Public a1 As Double, b1 As Double, c1 As Double
Public a2 As Double, b2 As Double, c2 As Double
Public a3 As Double, b3 As Double, c3 As Double

Public a11 As Double, b11 As Double, c11 As Double
Public a21 As Double, b21 As Double, c21 As Double
Public a31 As Double, b31 As Double, c31 As Double  '关于旋转矩阵的个函数的值

Public nm As Integer                     '目标窗口像元素的个数

Public xzp() As Single, yzp() As Single
Public xyp() As Single, yyp() As Single   '左右倾斜相片投影到水平面的坐标

Public jiange As Single    '采样间隔值
Public jiange1 As Single


Public zanshi1x As Single, zanshi1y As Single  '暂时的变量

Public zmxp As Single, zmyp As Single '左窗口目标点在水平图象上的投影
Public ymxp As Single, ymyp As Single '右窗口目标点在水平图象上的投影

Public qk() As Single '用于保存左右影象相关系数的是数值

Public ntming As Integer  '用于保存左右相片选取的同名点的个数的值
Public shid As Integer

Public ybjx1 As Single, ybjy1 As Single  '求的右影象最小的x值在其对应的水平影象中的x坐标
Public ybjx2 As Single, ybjy2 As Single


Public bianbiaox As Integer   '选择是否需要在匹配前选择范围