第八讲测量程序设计在测绘中应用初步性试卷.ppt

n=input(‘请输入导线边数’); %观测数据输入 for i=1:n a=num2str(i); string1=(char((请输入第),a,(条导线边长))); bian(i)=input(string1); end for k=1:(1+n) s=num2str(k); string2=(char((请输入第),s,(个转折角))); ? b=input(string2,‘s’); %度分秒为字符串 du=str2num(b(1:3)); fen=str2num(b(4:5)); miao=str2num(b(6:7)); jiao(k)=du+fen/60+miao/3600; end xA=input(‘请输入已知点A的x坐标’); %起算数据输 yA=input(请输入已知点A的y坐标); xB=input(请输入已知点B的x坐标); yB=input(请输入已知点B的y坐标); %起算方位角的计算 rab=atand((abs(yB-yA))/(abs(xB-xA))); %起算方位角为度 if (yB-yA)0(xB-xA)0 fwjAB=rab; elseif (yB-yA)0(xB-xA)0 fwjAB=180-rab; elseif (yB-yA)0(xB-xA)0 fwjAB=180+rab; else(yB-yA)0(xB-xA)0 fwjAB=360-rab; end xC=input(请输入已知点C的x坐标); yC=input(请输入已知点C的y坐标); xD=input(请输入已知点D的x坐标); yD=input(请输入已知点D的y坐标); rcd=atand((abs(yD-yC))/(abs(xD-xC))); if (yD-yC)0(xD-xC)0 fwjCD=rcd; elseif (yD-yC)0(xD-xC)0 fwjCD=180-rcd; elseif (yD-yC)0(xD-xC)0 fwjCD=180+rcd; else (yD-yC)0(xD-xC)0 fwjCD=360-rcd; end %角度闭合差计算 fb=fwjAB-fwjCD+sum(jiao)-(n+1)*180; jiao1=jiao+(fb/(n+1))*(-1); %各观测角改正后的角度 %真方位角的计算 for k=1:n if k==1 fwjz(k)=fwjAB+jiao1(k); else k1 fwjz(k)=fwjz(k-1)+jiao1(k)-180; end end for i=1:n %坐标增量计算 xz(i)=bian(i)*cosd(fwjz(i)); end for i=1:n yz(i)=bian(i)*sind(fwjz(i)); end fx=xA+sum(xz)-xC; fy=yA+sum(yz)-yC; for i=1:n %坐标闭合差分配 vx(i)=(-1)*fx/sum(bian)*bian(i); end for i=1:n vy(i)=(-1)*fy/sum(bian)*bian(i); end %坐标计算 for i=1:n if i==1 x(1)=xA+xz(1)+vx(1) y(1)=yA+yz(1)+vy(1); else i1 x(i)=x(i-1)+xz(i)+vx(i); y(i)=y(i-1)+yz(i)+vy(i); end end x y 人有了知识，就会具备各种分析能力， 明辨是非的能力。 所以我们要勤恳读书，广泛阅读， 古人说“书中自有黄金屋。 ”通过阅读科技书籍，我们能丰富知识， 培养逻辑思维能力； 通过阅读文学作品，我们能提高文学鉴赏水平， 培养文学情趣； 通过阅读报刊，我们能增长见识，扩大自己的知识面。 有许多书籍还能培养我们的道德情操， 给我们巨大的精神力量， 鼓舞我们前进。 * 例1 教材P124 A和B是已知高程的水准点，C、D、E是待定点，A、B高程、观测高差和相应的水准路线长度见下表，试按间接平差求各待定点的高程平差值。 线路编号 观测高差