MATLAB实验数据.docx
《MATLAB实验数据.docx》由会员分享,可在线阅读,更多相关《MATLAB实验数据.docx(16页珍藏版)》请在冰豆网上搜索。
![MATLAB实验数据.docx](https://file1.bdocx.com/fileroot1/2023-1/5/6e337734-110e-4fb0-9048-9fbbffda970a/6e337734-110e-4fb0-9048-9fbbffda970a1.gif)
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','后视定向点');
elseifiR1=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));
elseifiR1=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