www.pudn.com > yan.rar > 新建文本文档.txt, change:2010-05-30,size:2211b


70 
Private Sub计算_Click() 
………… 
k1=Val(InputBox("卫星的编号","请输入",0)) 
k2=Val(InputBox("波段号","请输入",0)) 
Text3.Text="" 
For j=1 To(GH1/20-4) 
'----提取各历元误差方程的常数项‘F’ 
……… 
Select Case k2 
Case 1 
Call组成常数项1(j,F(),k1) 
Case 2 
Call组成常数项2(j,F(),k1) 
Case Else 
Exit For 
End Select 
'---提取误差方程的系数阵 
Dim a()As Double 
ReDim Preserve a(1 To 10,1 To 7) 
Call组成系数阵(j,a()) 
Dim At()As Double 
ReDim Preserve At(1 To 7,1 To 10) 
Call矩阵转置(a(),At(),10,7) 
Dim AA()As Double 
ReDim Preserve AA(1 To 7,1 To 7) 
Call矩阵相乘(At(),a(),AA(),7,10,7) 
Dim AAr()As Double 
ReDim Preserve AAr(1 To 7,1 To 7) 
Call矩阵求逆(AA(),7,AAr())中国石油大学(华东)硕士论文附录 
71 
Dim aaa()As Double 
ReDim Preserve aaa(1 To 7,1 To 10) 
Call矩阵相乘(AAr(),At(),aaa(),7,7,10) 
'Dim x()As Double 
ReDim x(1 To 7,1) 
Call矩阵相乘(aaa(),F(),x(),7,10,1) 
'判断周跳是否大于10,是则改正,否则继续 
……….. 
If Int(Abs(x(7,1)))>10 Then 
n=(Int(x(7,1)/10))*10 
If k2=1 Then 
For i=4+j To GH1 
m=OBS1(i).L1(k1):L=m-n:OBS1(i).L1(k1)=L 
Next i 
ElseIf k2=2 Then 
For i=4+j To GH1 
m=OBS1(i).L2(k1):L=m-n:OBS1(i).L2(k1)=L 
Next i 
End If 
End If 
Text3.Text=Text3.Text+Str(x(7,1))+vbCrLf 
Next j 
………….. 
For j=1 To GH1 
Text2.Text=Text2.Text+OBS1(j).t1+vbCrLf 
For i=1 To OBS1(j).EShu 
ReDim Wname(1 To OBS1(j).EShu)中国石油大学(华东)硕士论文附录 
ReDim W(1 To OBS1(j).EShu) 
Wname(i)=Mid$(OBS1(j).t1,30+3*i,3) 
For P=1 To 30 
W(i)=Right(Wname(i),2) 
S(P)=Right(Sname(P),2) 
'----判断观测历元中的卫星名称是否与第几颗卫星的名称相同 
If Val(S(P))=Val(W(i))And SUMofTYPE>5 Then 
'----输出格式 
Text2.Text=Text2.Text+Format(Str(OBS1(j).C1(P)),"@@@@@@@@@ 
@@@@")+Space(2)+Format(Str(OBS1(j).P1(P)),"@@@@@@@@@@ 
@@@")+Space(2)+Format(Str(OBS1(j).P2(P)),"@@@@@@@@@@@ 
@@")+Space(2)+Format(Str(OBS1(j).L1(P)),"@@@@@@@@@@@@ 
@")+Space(2)+Format(Str(OBS1(j).L2(P)),"@@@@@@@@@@@@@ 
")+vbCrLf 
………….. 
ElseIf Val(S(P))=Val(W(i))And SUMofTYPE<=5 Then 
Text2.Text=Text2.Text+Format(Str(OBS1(j).L1(P)),"@@@@@@@@@ 
@@@@")+Space(2)+Format(Str(OBS1(j).C1(P)),"@@@@@@@@@@ 
@@@")+Space(2)+Format(Str(OBS1(j).D1(P)),"@@@@@@@@@@@ 
@@")+vbCrLf 
Exit For 
End If 
Next P 
Next i 
Next j 
End Sub