VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "levelnet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Dim xishuB() As Double  '系數矩陣
Dim L() As Double  '常數矩陣

Private Type ShuizhunNode   '定義水準點的結構
 ID As String    '定義水準點號
 'a() As Integer   '定義與之相連的點數
' B() As String    '定義與之相連的點號
 'ceduanH() As ceduanH    '定義測段的高差
 IDH As Double '存儲高程
End Type

Private Type ceduanH   '定義測段結構，存儲大小和方向
 H As Double        '測段高差大小
 'Obool As Boolean  '用來表明測段高差方向性
 ID1 As ShuizhunNode 'ID1用來存儲測段兩邊點號，高程大的為ID1
 ID2 As ShuizhunNode   'ID2用來存儲測段兩邊點號，高程小的為ID1
End Type

Public Sub xshuB()   '構造系數矩陣B以及l''''
  
  Dim i As Integer
  Dim k0 As Integer, k1 As Integer, k2 As Integer  'k0,k1,k2為for循環計數器
  ReDim xishuB(1 To i1, 1 To i2)  'i2 為所選必要觀測參數個數，還沒定義
  ReDim L(1 To i1)
  
  For i = 1 To i1
  If Mid(a1(i).ID1, 1, 4) = "Para" And Mid(a1(i).ID2, 1, 4) = "Para" Then
    xishuB(i, Val(Right(a1(i).ID1, 2))) = 1
    xishuB(i, Val(Right(a1(i).ID2, 2))) = -1
  For k0 = 1 To i2
      If Val(Right(a1(i).ID1, 2)) <> i0 Or Val(Right(a1(i).ID2, 2)) <> i0 Then
        xishuB(i, k0) = 0
      End If
        
    Next i2
    L(i) = (-1) * (a1(i).ID1.IDH - a1(i).ID2.IDH - a1(i).H) '構建常量矩陣L
    i = 1 + 1
 Else
  
  Select Case Mid(a1(i).ID1, 1, 4)
  Case Mid(a1.ID1, 1, 4) = "Para"
  'If Mid(a1.ID1, 1, 4) = "Para" Then
    xishuB(i, Val(Right(a1(i).ID1, 2))) = 1
    For k1 = 1 To i1
      If k1 <> Val(Right(a1(i).ID1, 2)) Then
      xishuB(i, k1) = 0
     End If
    Next k1
    L(i) = (-1) * (a1(i).ID1.IDH - a1(i).ID2.IDH - a1(i).H) '構建常量矩陣L
    i = i + 1
   Case Mid(a1(i).ID2, 1, 4) = "Para"
    xishuB(i, Val(Right(a1(i).ID2, 2))) = -1
    For k2 = 1 To i1
      If k2 <> Val(Right(a1(i).ID2, 2)) Then
      xishuB(i, k2) = 0
     End If
    Next k2
    L(i) = (-1) * (a1(i).ID1.IDH - a1(i).ID2.IDH - a1(i).H) '構建常量矩陣L
    i = i + 1
   End Select
 End If
   
    
   ' L(i) = (-1) * (a1(i).ID1.IDH - a1(i).ID2.IDH - a1(i).H) '構建常量矩陣L
    
    
  Next i
  
End Sub