MATLAB实验数据.docx
- 文档编号:6295681
- 上传时间:2023-01-05
- 格式:DOCX
- 页数:16
- 大小:17.49KB
MATLAB实验数据.docx
《MATLAB实验数据.docx》由会员分享,可在线阅读,更多相关《MATLAB实验数据.docx(16页珍藏版)》请在冰豆网上搜索。
MATLAB实验数据
functionpushbutton1_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton1(seeGCBO)
%eventdatareserved-tobedefinedinafutureversionofMATLAB
%handlesstructurewithhandlesanduserdata(seeGUIDATA)
mode1=get(handles.radiobutton1,'value');
mode2=get(handles.radiobutton2,'value');
ifmode1==1
set(handles.text5,'Visible','off');
set(handles.edit5,'Visible','off');
else
set(handles.text3,'Visible','off');
set(handles.edit3,'Visible','off');
set(handles.text4,'Visible','off');
set(handles.edit4,'Visible','off');
end
[]=uigetfile(...
{'*.txt;*.xls','dataFiles(*.txt,*.xls)'},...
'pickafile');
if(isempty(pathname))
return;
end
(pathname,);
mode=get(handles.radiobutton2,'value');
O=get(handles.popupmenu2,'value');
switchO
case1
[XB,YB,azi1,Ang,Dis,Raw,Raw1]=FhDxReadData1();
handles.XB=XB;
handles.YB=YB;
handles.azi1=azi1;
handles.Ang=Ang;
handles.Dis=Dis;
handles.Raw=Raw;
handles.Raw1=Raw1;
pts=strcat(Raw,'--',num2str(Ang));
set(handles.listbox1,'string',pts);
n=length(Dis);
fori=1:
n
dts(i)=strcat(Raw(i),Raw(i+1));
end
dits=strcat(dts','--',num2str(Dis));
set(handles.listbox2,'string',dits);
fwj1=rad_mds(azi1);
set(handles.edit5,'string',num2str(fwj1));
set(handles.edit1,'string',num2str(XB));
set(handles.edit2,'string',num2str(YB));
guidata(hObject,handles)
case2
set(handles.text3,'Visible','on');
set(handles.edit3,'Visible','on');
set(handles.text4,'Visible','on');
set(handles.edit4,'Visible','on');
[XB,YB,azi1,XC,YC,azi2,Ang,Dis,Raw]=FhDxReadData2();
handles.XB=XB;
handles.YB=YB;
handles.XC=XC;
handles.YC=YC;
handles.azi1=azi1;
handles.azi2=azi2;
handles.Ang=Ang;
handles.Dis=Dis;
handles.Raw=Raw;
pts=strcat(Raw,'--',num2str(Ang));
set(handles.listbox1,'string',pts);
n=length(Dis);
fori=1:
n
dts(i)=strcat(Raw(i),Raw(i+1));
end
dits=strcat(dts','--',num2str(Dis));
set(handles.listbox2,'string',dits);
fwj1=rad_mds(azi1);
fwj2=rad_mds(azi2);
set(handles.edit5,'string',num2str(fwj1));
set(handles.edit18,'string',num2str(fwj2));
set(handles.edit1,'string',num2str(XB));
set(handles.edit2,'string',num2str(YB));
set(handles.edit3,'string',num2str(XC));
set(handles.edit4,'string',num2str(YC));
guidata(hObject,handles)
case3
[XB,YB,azi1,Ang,Dis,Raw,Raw1]=FhDxReadData3();
handles.XB=XB;
handles.YB=YB;
handles.azi1=azi1;
handles.Ang=Ang;
handles.Dis=Dis;
handles.Raw=Raw;
handles.Raw1=Raw1;
pts=strcat(Raw,'--',num2str(Ang));
set(handles.listbox1,'string',pts);
set(handles.listbox4,'string',pts);
n=length(Dis);
fori=1:
n
dts(i)=strcat(Raw(i),Raw(i+1));
end
dits=strcat(dts','--',num2str(Dis));
set(handles.listbox2,'string',dits);
set(handles.listbox5,'string',dits);
fwj1=rad_mds(azi1);
set(handles.edit5,'string',num2str(fwj1));
set(handles.edit1,'string',num2str(XB));
set(handles.edit2,'string',num2str(YB));
guidata(hObject,handles)
end
functionpushbutton3_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton3(seeGCBO)
%eventdatareserved-tobedefinedinafutureversionofMATLAB
%handlesstructurewithhandlesanduserdata(seeGUIDATA)
jiao=handles.Ang;
n=length(jiao);
excel=actxserver('Excel.Application');
set(excel,'Visible',1);
wkbs=excel.Workbooks;
wbk=invoke(wkbs,'Add');
Actsh=excel.Activesheet;
A=['导线平差成果报表'];
actshrng=get(Actsh,'Range','A1','F1');
set(actshrng,'MergeCell',4);
set(actshrng,'HorizontalAlignment',3);
set(actshrng,'Value',A);
actshrng=get(Actsh,'Range','A2','A2');
set(actshrng,'Value','点名');
ptname=handles.Raw;
fori=1:
n+2
ifi==1
actshrng=get(Actsh,'Range','A3','A3');
set(actshrng,'Value','后视定向点');
elseifi R1=strcat('A',num2str(i+2)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',ptname(i-1)); else R1=strcat('A',num2str(i+2)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','前视定向点'); end end R=strcat('F',num2str(n+5)); actshrng=get(Actsh,'Range','A2',R); set(actshrng,'HorizontalAlignment',2); actshrng=get(Actsh,'Range','B2','B2'); set(actshrng,'Value','角度'); fori=1: n R1=strcat('B',num2str(i+3)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(jiao(i))); end actshrng=get(Actsh,'Range','C2','C2'); set(actshrng,'Value','距离'); dts=handles.Dis; m=length(dts); fori=1: m R1=strcat('C',num2str(i+4)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(dts(i))); end actshrng=get(Actsh,'Range','D2','D2'); set(actshrng,'Value','方位角'); fwj=handles.fwj; fwj=rad_mds(fwj); m=length(fwj); azi1=rad_mds(handles.azi1); azi2=rad_mds(handles.azi2); fori=1: m+1 ifi==1 actshrng=get(Actsh,'Range','D4','D4'); set(actshrng,'Value',num2str(azi1)); elseifi R1=strcat('D',num2str(i+3)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(fwj(i))); else R1=strcat('D',num2str(i+3)); actshrng=get(Actsh,'Range',R1); jh=strcat(num2str(azi2),'检核'); set(actshrng,'Value',jh); end end actshrng=get(Actsh,'Range','E2','E2'); set(actshrng,'Value','坐标X'); actshrng=get(Actsh,'Range','F2','F2'); set(actshrng,'Value','坐标Y'); x=handles.xx; y=handles.yy; m=length(x); fori=1: m R1=strcat('E',num2str(i+3)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(x(i))); R1=strcat('F',num2str(i+3)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(y(i))); end Actsh.Range('A1: F1').ColumnWidth=[16]; R=strcat('A2: ','F',num2str(m+7)); Actsh.Range(R).Borders.Item(3).Linestyle=1; Actsh.Range(R).Borders.Item (2).Linestyle=1; R1=strcat('A',num2str(m+5),': ','F',num2str(m+5)); Actsh.Range(R1).MergeCells=1; Actsh.Range(R1).Value='精度指标'; Actsh.Range(R1).HorizontalAlignment=3; R1=strcat('A',num2str(m+6)); xc=get(handles.edit14,'string'); xcb=get(handles.edit15,'string'); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','角度闭合差(秒): '); R1=strcat('B',num2str(m+6)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',xc); R1=strcat('A',num2str(m+7)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','限差(秒): '); xcc=get(handles.edit16,'string'); R1=strcat('B',num2str(m+7)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',xcc); R1=strcat('C',num2str(m+6)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','全长相对闭合差: '); R1=strcat('D',num2str(m+6)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',xcb); R1=strcat('E',num2str(m+6)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','坐标增量fx(mm)'); R1=strcat('F',num2str(m+6)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(handles.fx*1000)); R1=strcat('E',num2str(m+7)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','坐标增量fy(mm)'); R1=strcat('F',num2str(m+7)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',num2str(handles.fy*1000)); R1=strcat('C',num2str(m+7)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value','限差(秒): '); xxcc=get(handles.edit11,'string'); R1=strcat('D',num2str(m+7)); actshrng=get(Actsh,'Range',R1); set(actshrng,'Value',xxcc); R=strcat('A',num2str(m+8),': ','F',num2str(m+8)); Actsh.Range(R).Borders.Item(3).Linestyle=1; functionpushbutton2_Callback(hObject,eventdata,handles) %hObjecthandletopushbutton2(seeGCBO) %eventdatareserved-tobedefinedinafutureversionofMATLAB %handlesstructurewithhandlesanduserdata(seeGUIDATA) O=get(handles.popupmenu2,'value'); switchO case1 XB=handles.XB; YB=handles.YB; azi1=handles.azi1; Ang=handles.Ang; Dis=handles.Dis; Raw=handles.Raw; Raw1=handles.Raw1; n=length(Ang); [x,y,k,fbx,fx,fy,fwj]=TranverseFH1(XB,YB,azi1,Ang,Dis); set(handles.edit14,'string',num2str(fbx)); set(handles.edit15,'string',strcat('1/',num2str(k))); m=get(handles.popupmenu1,'value'); switchm case1 set(handles.edit11,'string','1/60000'); xc=60*sqrt(n-1); sxc=num2str(xc); set(handles.edit16,'string',sxc); case2 set(handles.edit11,'string','1/40000'); xc=40*sqrt(n-1); sxc=num2str(xc); set(handles.edit16,'string',sxc); case3 set(handles.edit11,'string','1/40000'); xc=20*sqrt(n-1); sxc=num2str(xc); set(handles.edit16,'string',sxc); case4 set(handles.edit11,'string','1/10000'); xc=10*sqrt(n-1); sxc=num2str(xc); setset(handles.edit16,'string',sxc); case5 set(handles.edit11,'string','1/6000'); xc=5*sqrt(n-1); sxc=num2str(xc); set(handles.edit16,'string',sxc); case6 set(handles.edit11,'string','1/2000'); xc=1*sqrt(n-1); sxc=num2str(xc); set(handles.edit16,'string',sxc); end subplot(handles.axes1); yy=[500.000YBy]; xx=[770.000XBx]; xy=strcat(Raw1,': ',num2str(xx'),'--',num2str(yy')); set(handles.listbox3,'string',xy); plot(yy,xx,'-mo'); text(yy,xx,Raw1); handles.yy=yy; handles.xx=xx; handles.fx=fx; handles.fy=fy; handles.fwj=fwj; guidata(hObject,handles); case2 XB=handles.XB; YB=handles.YB; XC=handles.XC; YC=handles.YC; azi1=handles.azi1; azi2=handles.azi2; Ang=handles.Ang; Dis=handles.Dis; Raw=handles.Raw; n=length(Ang); [x,y,k,fbx,fx,fy,fwj]=TranverseFH2(XB,YB,azi1,XC,YC,azi2,Ang,Dis); set(handles.edit14,'string',num2str(fbx)); set(handles.edit15,'string',strcat('1/',num2str(k))); t=get(handles.popupmenu1,'value'); switcht case1 set(handles.edit11,'string','1/60000'); xc=3*sqrt(n); sxc=num2str(xc); set(handles.edit16,'string',sxc); case2 set(handles.edit11,'string','1/40000'); xc=5*sqrt(n); sxc=num2str(xc); set(handles.edit16,'string',sxc); case3 set(handles.edit11,'string','1/40000'); xc=10*sqrt(n); sxc=num2str(xc); set(handles.edit16,'string',sxc); case4 set(handles.edit11,'string','1/10000'); xc=16*sqrt(n); sxc=num2str(xc); setset(handles.edit16,'string',sxc); case5 set(handles.edit11,'string','1/6000'); xc=24*sqrt(n); sxc=num2str(xc); set(handles.edit16,'string',sxc); case6 set(handles.edit11,'st
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- MATLAB 实验 数据