电法实习人机交互反演程序文档格式.docx
- 文档编号:21763881
- 上传时间:2023-02-01
- 格式:DOCX
- 页数:15
- 大小:17.18KB
电法实习人机交互反演程序文档格式.docx
《电法实习人机交互反演程序文档格式.docx》由会员分享,可在线阅读,更多相关《电法实习人机交互反演程序文档格式.docx(15页珍藏版)》请在冰豆网上搜索。
GUIallowsonlyone
%instancetorun(singleton)"
.
%Seealso:
GUIDE,GUIDATA,GUIHANDLES
%Edittheabovetexttomodifytheresponsetohelpdianfa
%LastModifiedbyGUIDEv2.521-May-201016:
34:
56
%Begininitializationcode-DONOTEDIT
gui_Singleton=1;
gui_State=struct('
gui_Name'
mfilename,...
'
gui_Singleton'
gui_Singleton,...
gui_OpeningFcn'
@dianfa_OpeningFcn,...
gui_OutputFcn'
@dianfa_OutputFcn,...
gui_LayoutFcn'
[],...
gui_Callback'
[]);
ifnargin&
&
ischar(varargin{1})
gui_State.gui_Callback=str2func(varargin{1});
end
ifnargout
[varargout{1:
nargout}]=gui_mainfcn(gui_State,varargin{:
});
else
gui_mainfcn(gui_State,varargin{:
%Endinitializationcode-DONOTEDIT
%---Executesjustbeforedianfaismadevisible.
functiondianfa_OpeningFcn(hObject,eventdata,handles,varargin)
%Thisfunctionhasnooutputargs,seeOutputFcn.
%hObjecthandletofigure
%eventdatareserved-tobedefinedinafutureversionofMATLAB
%handlesstructurewithhandlesanduserdata(seeGUIDATA)
%varargincommandlineargumentstodianfa(seeVARARGIN)
%Choosedefaultcommandlineoutputfordianfa
handles.output=hObject;
%Updatehandlesstructure
guidata(hObject,handles);
%UIWAITmakesdianfawaitforuserresponse(seeUIRESUME)
%uiwait(handles.figure1);
%---Outputsfromthisfunctionarereturnedtothecommandline.
functionvarargout=dianfa_OutputFcn(hObject,eventdata,handles)
%varargoutcellarrayforreturningoutputargs(seeVARARGOUT);
%Getdefaultcommandlineoutputfromhandlesstructure
varargout{1}=handles.output;
%---Executesonbuttonpressinpushbutton1.
functionpushbutton1_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton1(seeGCBO)
globalpsce
globalab
ab=textread('
ab.txt'
);
%读入极距AB/2
[filename,pathname]=uigetfile({'
*.txt'
},'
请导入实测数据'
str=fullfile(pathname,filename);
psce=load(str);
%---Executesonbuttonpressinpushbutton2.
functionpushbutton2_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton2(seeGCBO)
globalpsce%实测电阻率
globalflag%是否反演的标志
flag=1;
axes(handles.axes1);
loglog(ab,psce,'
r-o'
LineWidth'
2,'
MarkerEdgeColor'
k'
MarkerFaceColor'
g'
'
MarkerSize'
5);
gridon
xlabel('
AB/2(m)'
ylabel('
ρs(Ωm)'
legend('
实测数据'
holdon
%---Executesonbuttonpressinpushbutton3.
functionpushbutton3_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton3(seeGCBO)
globalps
globalrn
globaln
globalp
globalh
globalerror
globalerrsum
globalflag
ln=zeros(n,1);
fori=1:
n
ln(i,1)=i;
%层数
[filename,pathname]=uiputfile({'
保存'
fp=fopen(str,'
wt'
if(flag==1)
str=['
极距(m)实测数据(Ωm)反演数据(Ωm)相对误差总相对误差层数电阻率(Ωm)厚度(m)'
];
fprintf(fp,'
%s\n'
str);
fprintf(fp,'
%-12.1f%-15.3f%-15.3f%-12.5f%-12.5f%-8d%-12.1f%-10.2f\n'
ab(1,1),psce(1,1),ps(1,1),error(1,1),errsum,ln(1,1),p(1,1),h(1,1));
forj=2:
n-1
%-12.1f%-15.3f%-15.3f%-25.5f%-8d%-12.1f%-10.2f\n'
ab(j,1),psce(j,1),ps(j,1),error(j,1),ln(j,1),p(j,1),h(j,1));
end
%-12.1f%-15.3f%-15.3f%-25.5f%-8d%-12.1f\n'
ab(n,1),psce(n,1),ps(n,1),error(n,1),ln(n,1),p(n,1));
forj=n+1:
rn
%-12.1f%-15.3f%-15.3f%-25.5f\n'
ab(j,1),psce(j,1),ps(j,1),error(j,1));
fclose(fp);
%---Executesonbuttonpressinpushbutton4.
functionpushbutton4_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton4(seeGCBO)
flag=0;
axes(handles.axes1);
cla
gridoff
clear
clc
%---Executesonbuttonpressinpushbutton5.
functionpushbutton5_Callback(hObject,eventdata,handles)
%hObjecthandletopushbutton5(seeGCBO)
clear
close
functionedit1_Callback(hObject,eventdata,handles)
%hObjecthandletoedit1(seeGCBO)
%Hints:
get(hObject,'
String'
)returnscontentsofedit1astext
%str2double(get(hObject,'
))returnscontentsofedit1asadouble
n=str2double(get(handles.edit1,'
string'
));
%---Executesduringobjectcreation,aftersettingallproperties.
functionedit1_CreateFcn(hObject,eventdata,handles)
%handlesempty-handlesnotcreateduntilafterallCreateFcnscalled
%Hint:
editcontrolsusuallyhaveawhitebackgroundonWindows.
%SeeISPCandCOMPUTER.
ifispc&
isequal(get(hObject,'
BackgroundColor'
),get(0,'
defaultUicontrolBackgroundColor'
))
set(hObject,'
white'
functionedit2_Callback(hObject,eventdata,handles)
%hObjecthandletoedit2(seeGCBO)
)returnscontentsofedit2astext
))returnscontentsofedit2asadouble
globalp%电阻率
p(1,1)=str2double(get(handles.edit2,'
functionedit2_CreateFcn(hObject,eventdata,handles)
functionedit3_Callback(hObject,eventdata,handles)
%hObjecthandletoedit3(seeGCBO)
)returnscontentsofedit3astext
))returnscontentsofedit3asadouble
p(2,1)=str2double(get(handles.edit3,'
functionedit3_CreateFcn(hObject,eventdata,handles)
functionedit4_Callback(hObject,eventdata,handles)
%hObjecthandletoedit4(seeGCBO)
)returnscontentsofedit4astext
))returnscontentsofedit4asadouble
p(3,1)=str2double(get(handles.edit4,'
functionedit4_CreateFcn(hObject,eventdata,handles)
functionedit5_Callback(hObject,eventdata,handles)
%hObjecthandletoedit5(seeGCBO)
)returnscontentsofedit5astext
))returnscontentsofedit5asadouble
p(4,1)=str2double(get(handles.edit5,'
functionedit5_CreateFcn(hObject,eventdata,handles)
%handlesempty-handlesnotcre
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实习 人机交互 反演 程序