摄影测量学空间后方交会实验报告(12)

}

for (i = 0; i < 6; i++) {

a[i, k] = 0; a[k, k] = 1; } }

//恢复行列次序

for (j = 0; j < 6; j++) {

for (i = 0; i < 6; i++) {

a[p[i], j] = B[i, j]; } }

for (i = 0; i < 6; i++) {

for (j = 0; j < 6; j++) {

a[i, j] = a[i, j]; } }

return a; }

4．实验结果