control2main.m

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

clear all
clc
fsize=[530  300];
figpos=[100 100 fsize(1:2)];
mainfig=figure('Position',figpos,'Color',[0.83 0.81 0.78],'NumberTitle','off','Name','控制网平差程序');
label1=uicontrol(mainfig,'Style','text','Position',[80  220  350  40],'String','控制网平差程序','fontsize',25);
radio1=uicontrol(mainfig,'Style','push','Position',[80 150 100 50],'String','水准网','fontsize',20,'foregroundcolor',[0.0 0.0 1.0],'Value',1,'CallBack','mainlevel');
radio2=uicontrol(mainfig,'Style','push','Position',[300 150 100 50],'String','平面网','fontsize',20,'Value',0,'CallBack','adjust_2d');

button2=uicontrol(mainfig,'Style','push','Position',[200 50 120 50],'String','退出','fontsize',18,'CallBack','close(mainfig)');
set(mainfig,'Menubar','none')


% % * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * * *
% %adjust_2d.m
% % * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * * *
% clear;
% clc;
% global pathname net_name s_datafile x0y0_datafile cl_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','数据文件');
%     dat3=uimenu(data,'Label','编辑数据文件','Callback','editfile;');
%     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]=poleterml(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)');
%      pc3=uimenu(close,'Label','附合导线','Callback','poly_close(e,d,sid,g,f,dir,si,ni,ed,dd,pn,x0,y0)');
% 
% adjust=uimenu(gcf,'Label','平差计算','Callback','adj;');
% draw=uimenu(gcf,'Label','绘图');
%     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
% % * * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * *
% clear;
% clc;
% global pathname net_name s_datafile c1_datafile c2_datafile c3_datafile a1_datafile b_datafile a2_datafile a3_datafile a4_datafile;
% global ed dd sd pn gd h0 k1 k2 h1 s dh;
% s_datafile='.txt'; b_datafile='_bak.txt'; c1_datafile='_close.out'; c2_datafile='_fuhe.out';
% a1_datafile='_level.out'; a2_datafile='_trans.out';pathname='';net_name='';
% gcf=figure('NumberTitle','off','Name','高程控制网平差计算程序');
% 
% data=uimenu(gcf,'Label','数据文件');
%     dat1=uimenu(data,'Label','编辑数据文件','Callback','editfile;');
%     dat2=uimenu(data,'Label','读入数据文件','Callback','[ed,dd,sd,gd,pn,h0,k1,k2,h1,s]=readlevelnetadta;');
% close=uimenu(gcf,'Label','闭合差计算');
%      close1=uimenu(close,'Label','闭合路线');
%            close11=uimenu(close,'Label','优化树法','Callback','type=1;level_close;');
%            close12=uimenu(close,'Label','优化树法','Callback','type=2;level_close;');
%      close2=uimenu(close,'Label','附合路线','Callback','type=3;level_close;');
%      
% adjust=uimenu(gcf,'Label','平差计算文件');
%       adjust0=uimenu(adjust,'Label','一维压缩存储法方程平差','Callback','level1');
%       adjust1=uimenu(adjust,'Label','上三角存储法方程平差','Callback','level2');
%       adjust2=uimenu(adjust,'Label','利用MATLAB矩阵运算平差','Callback','level3');
%       
% draw=uimenu(gcf,'Label','成果的相互转换','Callback','transform(ed,dd,sd,pn,dh,h0)');
% 
% disp=uimenu(gcf,'Label','显示计算结果');
%     disp0=uimenu(disp,'Label','观测数据','Callback','open(strcat(pathname,net_name,s_datafile));');
%     disp2=uimenu(disp,'Label','闭合差');
%          disp23=uimenu(disp2,'Label','闭合路线','Callback','open(strcat(pathname,net_name,c1_datafile));');
%          disp24=uimenu(disp2,'Label','附合路线','Callback','open(strcat(pathname,net_name,c2_datafile));');  
%     disp3=uimenu(disp,'Label','平差结果','Callback','open(strcat(pathname,net_name,a1_datafile));'); 
%     disp3=uimenu(disp,'Label','平差转换结果','Callback','open(strcat(pathname,net_name,a2_datafile));');
% quit_prog=uimenu(gcf,'Label','退出','Callback','CLOSE;main;');
% % * * * * * * * * * * * * * * * * * * * % * * * * * * * * * * * * * * * * * * *