MATLAB实验数据Word下载.docx

MATLAB实验数据Word下载.docx

《MATLAB实验数据Word下载.docx》由会员分享，可在线阅读，更多相关《MATLAB实验数据Word下载.docx（16页珍藏版）》请在冰豆网上搜索。

'

pickafile'

if（isempty（pathname））

return;

end

（pathname,）;

mode=get（handles.radiobutton2,'

O=get（handles.popupmenu2,'

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））;

dits=strcat（dts'

num2str（Dis））;

set（handles.listbox2,'

dits）;

fwj1=rad_mds（azi1）;

num2str（fwj1））;

set（handles.edit1,'

num2str（XB））;

set（handles.edit2,'

num2str（YB））;

guidata（hObject,handles）

case2

on'

[XB,YB,azi1,XC,YC,azi2,Ang,Dis,Raw]=FhDxReadData2（）;

handles.XC=XC;

handles.YC=YC;

handles.azi2=azi2;

fwj2=rad_mds（azi2）;

set（handles.edit18,'

num2str（fwj2））;

num2str（XC））;

num2str（YC））;

case3

[XB,YB,azi1,Ang,Dis,Raw,Raw1]=FhDxReadData3（）;

set（handles.listbox4,'

set（handles.listbox5,'

functionpushbutton3_Callback（hObject,eventdata,handles）

%hObjecthandletopushbutton3（seeGCBO）

jiao=handles.Ang;

n=length（jiao）;

excel=actxserver（'

Excel.Application'

set（excel,'

1）;

wkbs=excel.Workbooks;

wbk=invoke（wkbs,'

Add'

Actsh=excel.Activesheet;

A=['

导线平差成果报表'

];

actshrng=get（Actsh,'

Range'

A1'

F1'

set（actshrng,'

MergeCell'

4）;

HorizontalAlignment'

3）;

Value'

A）;

A2'

点名'

ptname=handles.Raw;

fori=1:

n+2

ifi==1

actshrng=get（Actsh,'

A3'

set（actshrng,'

后视定向点'

elseifi<

R1=strcat（'

A'

num2str（i+2））;

R1）;

ptname（i-1））;

else

前视定向点'

R=strcat（'

F'

num2str（n+5））;

R）;

2）;

B2'

角度'

B'

num2str（i+3））;

num2str（jiao（i）））;

C2'

距离'

dts=handles.Dis;

m=length（dts）;

m

C'

num2str（i+4））;

num2str（dts（i）））;

D2'

方位角'

fwj=handles.fwj;

fwj=rad_mds（fwj）;

m=length（fwj）;

azi1=rad_mds（handles.azi1）;

azi2=rad_mds（handles.azi2）;

m+1

D4'

num2str（azi1））;

D'

num2str（fwj（i）））;

jh=strcat（num2str（azi2）,'

检核'

jh）;

E2'

坐标X'

F2'

坐标Y'

x=handles.xx;

y=handles.yy;

m=length（x）;

E'

num2str（x（i）））;

num2str（y（i）））;

Actsh.Range（'

A1:

）.ColumnWidth=[16];

A2:

'

num2str（m+7））;

Actsh.Range（R）.Borders.Item（3）.Linestyle=1;

Actsh.Range（R）.Borders.Item

（2）.Linestyle=1;

R1=strcat（'

num2str（m+5）,'

:

num2str（m+5））;

Actsh.Range（R1）.MergeCells=1;

Actsh.Range（R1）.Value='

精度指标'

;

Actsh.Range（R1）.HorizontalAlignment=3;

num2str（m+6））;

xc=get（handles.edit14,'

xcb=get（handles.edit15,'

角度闭合差（秒）：

xc）;

限差（秒）：

xcc=get（handles.edit16,'

xcc）;

全长相对闭合差：

xcb）;

坐标增量fx（mm）'

num2str（handles.fx*1000））;

坐标增量fy（mm）'

num2str（handles.fy*1000））;

xxcc=get（handles.edit11,'

xxcc）;

num2str（m+8）,'

num2str（m+8））;

functionpushbutton2_Callback（hObject,eventdata,handles）

%hObjecthandletopushbutton2（seeGCBO）

O=get（handles.popupmenu2,'

switchO

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,'

num2str（fbx））;

set（handles.edit15,'

strcat（'

1/'

num2str（k）））;

m=get（handles.popupmenu1,'

switchm

set（handles.edit11,'

1/60000'

xc=60*sqrt（n-1）;

sxc=num2str（xc）;

set（handles.edit16,'

sxc）;

1/40000'

xc=40*sqrt（n-1）;

xc=20*sqrt（n-1）;

case4

1/10000'

xc=10*sqrt（n-1）;

setset（handles.edit16,'

case5

1/6000'

xc=5*sqrt（n-1）;

case6

1/2000'

xc=1*sqrt（n-1）;

subplot（handles.axes1）;

yy=[500.000YBy];

xx=[770.000XBx];

xy=strcat（Raw1,'

num2str（xx'

）,'

num2str（yy'

））;

set（handles.listbox3,'

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）;

XC=handles.XC;

YC=handles.YC;

azi2=handles.azi2;

[x,y,k,fbx,fx,fy,fwj]=TranverseFH2（XB,YB,azi1,XC,YC,azi2,Ang,Dis）;

t=get（handles.popupmenu1,'

switcht

xc=3*sqrt（n）;

xc=5*sqrt（n）;

xc=10*sqrt（n）;

xc=16*sqrt（n）;

xc=24*sqrt（n）;

st