levelnet.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','高程控制网平差计算程序');
gcf=figure('Menubar','none','NumberTitle','off','Name','高程控制网平差计算程序');
data=uimenu(gcf,'Label','数据文件');     
	dat1=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','level_close1;');                
		close12=uimenu(close1,'Label', '余枝搜索法','Callback','level_close2;');                
	close2=uimenu(close,'Label', '附合路线','Callback','level_close3;');                
adjust=uimenu(gcf,'Label','平差计算'); 
	adjust2=uimenu(adjust,'Label', '利用Matlab矩阵运算平差','Callback','level3;');

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));');                            
quit_prog=uimenu(gcf,'Label','退出','Callback','CLOSE;main;'); 
%***********************%***********************