var_def.bas

来自「摄影测量后方交会」· BAS 代码 · 共 42 行

Attribute VB_Name = "Var_Def"
Option Base 1
Public g_LN As String '左片号
Public g_RN As String '右片号
Public g_LineL As String '线元素限差
Public g_AngleL As String '角元素限差
Public g_F As String  '主距
Public g_DPotNum As String '待定点个数
Public g_KPotNum As String '控制点个数

Public Const g_MaxNum As Long = 300 '最大个数
Public g_Potname(g_MaxNum) As String '点名


Public g_X(g_MaxNum) As Double
Public g_Y(g_MaxNum) As Double
Public g_Z(g_MaxNum) As Double
Public g_A1 As String 'φ角
Public g_A2 As String 'Ω角
Public g_A3 As String 'κ角
Public g_Lx(g_MaxNum) As Double
Public g_Ly(g_MaxNum) As Double
Public g_Rx(g_MaxNum) As Double
Public g_Ry(g_MaxNum) As Double


Public g_XX(6) As Double '法方程的解
Public g_LL(g_MaxNum) As Double


Public g_N1(g_MaxNum) As Double
Public g_N2(g_MaxNum) As Double

Public g_H As Double  '航高


  Public XS As Double
   Public YS As Double
   Public ZS As Double