jianyan.m

来自「这个是用matlab写的测回法程序,很好的望大家一定要踊跃下载」· M 代码 · 共 29 行

a1=str2num(get(edit2,'string'));
a2=str2num(get(edit3,'string'));
a3=str2num(get(edit4,'string'));
a4=str2num(get(edit5,'string'));
a5=str2num(get(edit6,'string'));
a6=(duhu(a2)-duhu(a1));
a7=duhu(a4)-duhu(a3);
if a6<0 
    a6=a6+2*pi;
end
if a7<0
    a7=a7+2*pi;
end
a8=abs((a7)-(a6));
a9=duhu(a5);
if a9<a8
    a10=fix(hudu((a7+a6)/2)*10000)/10000;
    edit7 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[430  250  70  20],'String',a10);
label20 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[300  250  80  20],'String','一测回水平角');
    
    msgbox('number is not correct','warning','warn');
   break;
else
  a10=fix(hudu((a7+a6)/2)*10000)/10000;

edit7 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[430  250  70  20],'String',a10);
label20 =  uicontrol(mainfig ,'Style' , 'text' ,'Position',[300  250  80  20],'String','一测回水平角');
end