《测绘程序设计》课件6 来自07测绘3 魏志刚.pptVIP

测绘数据处理中常用数值计算方法 而A*B的正确数应为531212.6525，计算到分时为531212.65元，因而多了0.05元，这在财务管理上是不允许的。那么我们把上述程序稍加修改即可得到满意的结果。 10 A=3876.05:B=137.05 20 C=A*B 30 C1=INT(C) 40 C2=INT((C-C1)*100+0.5)/100 50 PRINT C=;C1;.;C2 60 END * 第三章 * 总共 8学时 理论教学 4学时 上机实验 4学时 一、矩阵加减法 5 REM矩阵加减法 10 READ M,N 15 DIM A(M,N),B(M,N),C(M,N),D(M,N) 20 FOR I=1 TO M 30 FOR J=1 TO N 40 READ A(I,J) 50 NEXT J:NEXT I 60 FOR I=1 TO M 70 FOR J=1 TO N 80 READ B(I,J) 90 C(I,J)=A(I,J)+B(I,J) 100 D(I,J)=A(I,J)-B(I,J) 110 PRINT C(I,J);:NEXT J 130 PRINT:NEXT I 140 FOR I=1 TO M 150 FOR J=1 TO N 160 PRINT D(I,J);:NEXT J 170 PRINT:NEXT I 180 END 190 DATA 2,3 200 DATA 2,3,4,1,6,-7,1,2,6,4,1,3 ? 算例3-3利用上述程序求出下列两矩阵的和与差。 2 3 4 1 2 6 A＝ B= 1 6 -7 4 1 3 3 5 10 -1 1 -2 C= D= 5 7 -4 -3 -5 -10 二、矩阵乘法 130 C(I,J)=C(I,J)+A(I,K)*B(K,J) 140 NEXT K 150 PRINT C(I,J); 160 NEXT J:PRINT:NEXT I 170 END 190 DATA 2,3,3 200 DATA 1,2,3,4,5,6,1,-1,1,2,1,1,3,2,4 5 REM矩阵乘法 10 DIM A(M,N),B(N,P),C(M,P) 15 READ M,N,P 20 FOR I=1 TO M 30 FOR J=1 TO N 40 READ A(I,J) 50 NEXT J:NEXT I 60 FOR I=1 TO N 70 FOR J=1 TO P 80 READ B(I,J) :NEXT J:NEXT I 90 FOR I=1 TO M 100 FOR J=1 TO P 110 C(I,J)=0 120 FOR K=1 TO P 算例3-4： 已知矩阵如下： 1 2 3 1 -1 1 A= B= 2 1 1 4 5