文档介绍：目录
实验一数字内定向编程实验
一、目的要求：
掌握数字内定向的原理，利用计算机编程语言实现数字内定向的过程，完成一立体像对两幅像片影像的数字内定向。
二、仪器用具：
计算机，编程软件（VB）
三、实验数据：
立体像对两像片（1504、1505）上四个框标点的理论位置以及四个框标点的像素坐标，具体如表3-1。
　
1504
1505
　
i
j
i
j
　
x
y
x
y
1

-

-

2

3

-

-
4

-
-
-
-
表3-1
四、实验内容：
内定向参数求取
方法：利用航摄像片上的四个框标点的理论位置以及四个框标点的像素坐标为依据。
根据条件：框标点的像素坐标通过公式转换后应等于其理论坐标。
利用式（3-1）列出方程，通过最小二乘法计算内定向参数: h0、 h1、 h2、 k0、k1、 k2。
计算公式：
x=h0 + h1*i + h2*j
y=k0 + k1*i + k2*j （3-1）
求解过程：
列误差方程法化求参数
将像点扫描坐标转化为框标坐标
通过公式：
x=h0 + h1*i + h2*j
y=k0 + k1*i + k2*j
将测量的同名点的扫描坐标转换位像框标坐标系中坐标。
五、实验程序：
Private Sub read_Click() '读入数据
Dim i%, j%, k%

Open For Input As #1
For i = 1 To 4
Line Input #1, s
s = Split(s, " ")
For j = 1 To 2
A(i, j + 1) = s(j - 1)
Next j
Line Input #1, s
s = Split(s, " ")
Lx(i, 1) = s(0)
Ly(i, 1) = s(1)
Next i
For i = 1 To 4
A(i, 1) = 1
Next i
End Sub
'内定向求解
Private Sub jisuan_Click()
Dim i%, j%, k%
For i = 1 To 3
For j = 1 To 4
at(i, j) = A(j, i)
Next j
Next i
'矩阵求解
JZC at(), A(), 3, 4, 3, B()
Rect B(), 3, BdN()
JZC BdN(), at(), 3, 3, 4, bb()
JZC bb(), Lx(), 3, 4, 1, HH()
JZC bb(), Ly(), 3, 4, 1, KK()
For i = 1 To 3
Text1 = Text1 & Format(HH(i, 1), "0.") & vbCrLf
Next i
Text1 = Text1 & vbCrLf
For i = 1 To 3
Text1 = Text1 & Format(KK(i, 1), "0.") & vbCrLf
Next i
Close #1
End Sub
'坐标转换
Private Sub Command1_Click()
xx = Val(Text2)
y