controlnet.m

利用ＭＡＴＬＡＢ实现了对测量中的平面网

% * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * * *
%adjust_2d.m
% * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * * *
clear;
clc;
global pathname net_name s_datafile x0y0_datafile c1_datafile  c2_datafile c3_datafile c4_datafile c5_datafile a_datafile b_datafile;
global net ed dd sd dd1 pn x0 y0 m1 m2 m3 ms pp e d sid md g f dir ni si ma s t az aa bb cc rt rr tt
s_datafile='.txt';b_dataflie='_fak.txt'; x0y0_datafile='_x0y0.out';
c1_datafile='_wabc.out';   c2_datafile='_pol.out'; c3_datafile='_ins.out'; c4_datafile='_poly.out';  c5_datafile='_fuhe.out';
a_datafile='_adj.out';d_datafile='.dxf';
pathname='';net_name='';
gcf=figure('Menubar','none','NumberTitle','off','Name','平面控制网平差计算程序');
%gcf=figure('NumberTitle','off','Name','平面控制网平差计算程序');
%  data=uimenu(gcf,'Label','读入数据');
%    dat1=uimenu(data,'Label','路径设置','Callback','pathname=uigetdir;');
%    dat2=uimenu(data,'Label','网名设置','Callback','put_net_name');
%    dat3=uimenu(data,'Label','编辑数据文件','Callback','open(strcat(pathname,net_name,s_datafile));');

data=uimenu(gcf,'Label','数据文件');
     dat4=uimenu(data,'Label','读入数据文件','Callback','rddat1');
    
coor=uimenu(gcf,'Label','近似坐标计算','Callback','calcux0y0'); 

close=uimenu(gcf,'Label','闭合差计算');
     pc0=uimenu(close,'Label','三角形闭合差','Callback','wabc');
     pc1=uimenu(close,'Label','极条件闭合差','Callback','[cpp2,mr,tr]=poleterm1(ed+dd,e,d,sid,g,f,dir,si,ni,pn,md)');
     pc2=uimenu(close,'Label','边角网条件','Callback','[cpp3,mr,tr]=inscribed1(sd,ms,pp,e,d,sid)');
     pc3=uimenu(close,'Label','闭合导线','Callback','poly_close(e,d,sid,g,f,dir,si,ni,ed,dd,pn,x0,y0)');
     pc4=uimenu(close,'Label','附合导线','Callback','poly_fuhe(e,d,sid,g,f,dir,si,ni,ed,dd,pn,x0,y0)');

adjust=uimenu(gcf,'Label','平差计算','Callback','adj;');
    dtaw1=uimenu(gcf,'Label','绘制网图','Callback','netzbild');
    dtaw2=uimenu(gcf,'Label','输出DXF文件','Callback','dxfout');
    
disp=uimenu(gcf,'Label','显示计算结果');
    disp0=uimenu(disp,'Label','观测数据','Callback','open(strcat(pathname,net_name,s_datafile));');
    disp1=uimenu(disp,'Label','近似坐标','Callback','open(strcat(pathname,net_name,x0y0_datafile));');
    disp2=uimenu(disp,'Label','闭合差');
    disp20=uimenu(disp2,'Label','三角形闭合差','Callback','open(strcat(pathname,net_name,c1_datafile));');
    disp21=uimenu(disp2,'Label','极条件闭合差','Callback','open(strcat(pathname,net_name,c2_datafile));');
    disp22=uimenu(disp2,'Label','边角网条件','Callback','open(strcat(pathname,net_name,c3_datafile));');
    disp23=uimenu(disp2,'Label','闭合导线','Callback','open(strcat(pathname,net_name,c4_datafile));'); 
    disp24=uimenu(disp2,'Label','附和导线','Callback','open(strcat(pathname,net_name,c5_datafile));');
    disp3=uimenu(disp,'Label','平差结果','Callback','open(strcat(pathname,net_name,a_datafile));');
exit=uimenu(gcf,'Label','退出','Callback','CLOSE;main;');
% * * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * *
% * * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * *
%adjust_1d.m
% * * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * *