mainlevel.m

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

%***********************%***********************
%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]=readlevelnetdata;'); 
close=uimenu(gcf,'Label','闭合差计算 ');
	close1=uimenu(close,'Label', '闭和路线');                
		close11=uimenu(close1,'Label', '优化树法','Callback','type=1;level_close;');                
		close12=uimenu(close1,'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;'); 
%***********************%***********************