writelevelnetdata.m

来自「利用ＭＡＴＬＡＢ实现了对测量中的平面网」· M 代码 · 共 15 行

function writelevelnetdata(pn,be,en,h1,v,L,h0,dh,h,hm,uw0)
global pathname net_name s_datafile a1_datafile;
fid2=fopen(strcat(pathname,net_name,a1_datafile),'wt');
if(fid2==-1)
    msgbox('Error by Opening Output File','Warning','warn');
    break;
end 
fprintf(fid2,'待定点高程平差值及中误差：\n  pn       h0(m)      dh(m)       h(m)       hm\n');
fprintf(fid2,'%5d %10.4f %10.4f %10.4f %10.4f\n',[pn,h0,dh,h,hm]');
fprintf(fid2,'高差观测值平差值：\n  pn    pn       h0(m)       V(m)       H(m)\n');
fprintf(fid2,'%5d %5d %10.4f %10.4f %10.4f\n',[pn(be),pn(en),h1,v,L]');
fprintf(fid2,'单位权中误差：%10.4fm\n',uw0);
fclose(fid2);
open(strcat(pathname,net_name,a1_datafile));
return