bpnet.m

结合Matlab的GUI和神经网络开发出来的界面

% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns listbox3 contents as cell array
%        contents{get(hObject,'Value')} returns selected item from listbox3

set(handles.listbox4,'Value',get(handles.listbox3,'Value'));  % 定位输入数据在输出数据中的对应项

% --- Executes during object creation, after setting all properties.
function listbox3_CreateFcn(hObject, eventdata, handles)
% hObject    handle to listbox3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: listbox controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on selection change in listbox4.
function listbox4_Callback(hObject, eventdata, handles)
% hObject    handle to listbox4 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Hints: contents = get(hObject,'String') returns listbox4 contents as cell array
%        contents{get(hObject,'Value')} returns selected item from listbox4

set(handles.listbox3,'Value',get(handles.listbox4,'Value'));  % 定位输出数据在输入数据中的对应项

% --- Executes during object creation, after setting all properties.
function listbox4_CreateFcn(hObject, eventdata, handles)
% hObject    handle to listbox4 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: listbox controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

global xlist ylist x y tx ty
n=get(handles.listbox1,'Value');  % 取得用户所选项在列表中位置
tx=[tx;x(n-1,:)];
ty=[ty;y(n-1,:)];
set(handles.listbox3,'String',[xlist;{num2str(tx)}]);  % 显示用户所选项
set(handles.listbox4,'String',[ylist;{num2str(ty)}]);  % 显示用户所选项
x(n-1,:)=[];  % 删除在原始输入数据样本中的所选项
y(n-1,:)=[];  % 删除在原始输出数据样本中的所选项
set(handles.listbox1,'String',[xlist;{num2str(x)}]);
set(handles.listbox2,'String',[ylist;{num2str(y)}]);

% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

global xlist ylist x y tx ty
m=get(handles.listbox3,'Value');  % 取得用户所选项在列表中位置
x=[x;tx(m-1,:)];
y=[y;ty(m-1,:)];
set(handles.listbox1,'String',[xlist;{num2str(x)}]);  % 显示用户所选项
set(handles.listbox2,'String',[ylist;{num2str(y)}]);  % 显示用户所选项
tx(m-1,:)=[];  % 删除在原始输入数据样本中的所选项
ty(m-1,:)=[];  % 删除在原始输出数据样本中的所选项
set(handles.listbox3,'String',[xlist;{num2str(tx)}]);
set(handles.listbox4,'String',[ylist;{num2str(ty)}]);

% --- Executes on button press in pushbutton3.
function pushbutton3_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton3 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

set([handles.listbox1,handles.listbox2,handles.listbox3,handles.listbox4],'String',[]);  % 清除导入的数据

% --------------------------------------------------------------------
function File_Callback(hObject, eventdata, handles)
% hObject    handle to File (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --------------------------------------------------------------------
function Edit_Callback(hObject, eventdata, handles)
% hObject    handle to Edit (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --------------------------------------------------------------------
function Help_Callback(hObject, eventdata, handles)
% hObject    handle to Help (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --------------------------------------------------------------------
function ProductHelp_Callback(hObject, eventdata, handles)
% hObject    handle to ProductHelp (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --------------------------------------------------------------------
function AboutBPNET_Callback(hObject, eventdata, handles)
% hObject    handle to AboutBPNET (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)


% --------------------------------------------------------------------
function Initialize_Callback(hObject, eventdata, handles)
% hObject    handle to Initialize (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

global net
set([handles.listbox1,handles.listbox2,handles.listbox3,handles.listbox4],'String',[]);
set([handles.edit1,handles.edit2,handles.edit3,handles.edit4,handles.edit5,handles.edit6],'String',[]);
set([handles.popupmenu1,handles.popupmenu2,handles.popupmenu3],'Value',1);
net=init(net);
% 清除导入的数据，初始化参数及网络

% --------------------------------------------------------------------
function ImportData_Callback(hObject, eventdata, handles)
% hObject    handle to ImportData (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

global xlist x
[FileName PathName]=uigetfile({'*.xls','Excel Files(*.xls)';'*.txt','Txt Files(*.txt)';'*.*','All Files(*.*)'},'请选择输入数据文件');  % 选择输入数据文件
L=length(FileName);  % 取得文件名长度
if L<5
    errordlg('输入数据文件导入错误!','错误');  % 提示用户文件导入错误
    return;
end
testf=FileName(1,L-3:L);  % 取得文件后缀名
switch testf
    case '.txt'
        str=[PathName FileName];
        fin=fopen(str,'r');
        str=fgetl(fin);
        [str1 str2 str3]=strread(str,'%s %s %s','delimiter',' ');  % 读取后缀名为TXT的文本文档的首行
        xlist=strcat(str1,str2,str3);
        counter=1;
        while feof(fin)==0
            str=fgetl(fin);
            [a b c]=strread(str,'%f %f %f','delimiter',' ');  % 逐行读取后缀名为TXT的文本文档
            xa(counter)=a;
            xb(counter)=b;
            xc(counter)=c;
            counter=counter+1;
        end
        x=[xa;xb;xc]';
        set(handles.listbox1,'string',[xlist;{num2str(x)}]);  % 显示用户导入的数据
        set(handles.listbox3,'string',xlist);
        fclose(fin);
        guidata(hObject,handles);  % 更新主界面数据
        msgbox('导入输入数据文件完毕!');  % 提示用户文件导入成功
    case '.xls'
        str=[PathName FileName];
        [x xl]=xlsread(str);  % 读取后缀名为XLS的文本文档
        xlist=strcat(xl(1),xl(2),xl(3));
        set(handles.listbox1,'string',[xlist;{num2str(x)}]);  % 显示用户导入的数据
        set(handles.listbox3,'string',xlist);
        guidata(hObject,handles);  % 更新主界面数据
        msgbox('导入输入数据文件完毕!');  % 提示用户文件导入成功
    otherwise
        msgbox('输入数据文件导入错误!','错误');  % 提示用户文件导入错误
        return;
end;

% --------------------------------------------------------------------
function ExportData_Callback(hObject, eventdata, handles)
% hObject    handle to ExportData (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

global ylist y
[FileName PathName]=uigetfile({'*.xls','Excel Files(*.xls)';'*.txt','Txt Files(*.txt)';'*.*','All Files(*.*)'},'请选择输出数据文件');  % 选择输入数据文件
L=length(FileName);  % 取得文件名长度
if L<5
    errordlg('输出数据文件导入错误!','错误');  % 提示用户文件导入错误
    return;
end
testf=FileName(1,L-3:L);  % 取得文件后缀名
switch testf
    case '.txt'
        str=[PathName FileName];
        fin=fopen(str,'r');
        str=fgetl(fin);
        [str1 str2]=strread(str,'%s %s','delimiter',' ');  % 读取后缀名为TXT的文本文档的首行
        ylist=strcat(str1,str2);
        counter=1;
        while feof(fin)==0
            str=fgetl(fin);
            [a b]=strread(str,'%f %f','delimiter',' ');  % 逐行读取后缀名为TXT的文本文档
            ya(counter)=a;
            yb(counter)=b;
            counter=counter+1;
        end
        y=[ya;yb]';
        set(handles.listbox2,'string',[ylist;{num2str(y)}]);  % 显示用户导入的数据
        set(handles.listbox4,'string',ylist);
        fclose(fin);
        guidata(hObject,handles);  % 更新主界面数据
        msgbox('导入输出数据文件完毕!');  % 提示用户文件导入成功
    case '.xls'
        str=[PathName FileName];
        [y yl]=xlsread(str);  % 读取后缀名为XLS的文本文档
        ylist=strcat(yl(1),yl(2));
        set(handles.listbox2,'string',[ylist;{num2str(y)}]);  % 显示用户导入的数据
        set(handles.listbox4,'string',ylist);
        guidata(hObject,handles);  % 更新主界面数据
        msgbox('导入输出数据文件完毕!');  % 提示用户文件导入成功
    otherwise
        msgbox('输出数据文件导入错误!','错误');  % 提示用户文件导入错误
        return;
end;

% --------------------------------------------------------------------
function Exit_Callback(hObject, eventdata, handles)
% hObject    handle to Exit (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

clc;
clear all;
close all;
% 清空，清除工作空间的所有变量，并关闭所有窗口