mainform.m

这是用于工程测量进行大坝变形分析的软件

clear all
clc
global edit2 edit3 edit4 edit5
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',[10  250  50  30],'String','投影方向方位角');
edit1 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[70  250  60  20],'String',num2str((alfa(945.32-909.67,6378.83-6420.98)-3*pi/2)/pi*180));
label11 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[130  250  20  15],'String','度');

label2 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[160  250  40  15],'String','起始年');
edit2 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[210  250  50  20],'String','2000');

label3 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[340  250  40  15],'String','终止年');
edit3 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[390  250  50  20],'String','2004');

label4 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[270  250  40  15],'String','月');
edit4 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[300  250  30  20],'String','01');

label5 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[450  250  40  15],'String','月');
edit5 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[480  250  30  20],'String','11');

frame1  =  uicontrol(mainfig, 'Style', 'frame', 'Position',[10 50 220 140]);
frame2  =  uicontrol(mainfig, 'Style', 'frame', 'Position',[290 50 220 140]);

radio1=uicontrol(mainfig, 'Style', 'radio','Position',[20 200 100 20],'String','总体拟合','Value',1,'callback','f_r1');
radio1_1=uicontrol(mainfig, 'Style', 'radio','Position',[20 140 100 20],'String','直线拟合','Value',1,'callback','f_r1_1');  
radio1_2=uicontrol(mainfig, 'Style', 'radio','Position',[20 70 100 20],'String','样条拟合','Value',0,'callback','f_r1_2');
 
radio2=uicontrol(mainfig, 'Style', 'radio','Position',[300 200 100 20],'String','各点拟合','Value',0,'callback','f_r2');
label6 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[300  150  170  15],'String','输入要拟合的点号，0代表全部');
edit6 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[300  130  170  20],'String','0');
radio2_1=uicontrol(mainfig, 'Style', 'radio','Position',[300 100 100 20],'String','直线拟合','Value',0,'callback','f_r2_1');
radio2_2=uicontrol(mainfig, 'Style', 'radio','Position',[300 70 100 20],'String','样条拟合','Value',0,'callback','f_r2_2');

button1=uicontrol(mainfig, 'Style',' push ', 'Position',[10 10 70 25],'String' ,'画拟合图','CallBack','draw_nihe');
button2=uicontrol(mainfig, 'Style',' push ', 'Position',[110 10 120 25],'String' ,'画各时期位移图','CallBack','draw_weiyi');

button5=uicontrol(mainfig, 'Style',' push ', 'Position',[410 10 50 25],'String' ,'关闭','CallBack','formclose');

label7 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[120  72  50  15],'String','验前方差');
edit7 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[170  72  30  20],'String','2');
label9 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[200  72  20  15],'String','mm');

label8 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[400  72  50  15],'String','验前方差');
edit8 =  uicontrol(mainfig ,'Style' , 'edit' ,'Position',[450  72  30  20],'String','2');
label10 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[480  72  20  15],'String','mm');

set(mainfig,'Menubar','none')
menu_open=uimenu(mainfig, 'Label' , '读取数据' , 'Callback' , 'readdata' );

set(button1,'enable','off');
set(button2,'enable','off');