rnn3_gui.m

这是个神经网络工具箱的一点MATALAB 程序

%   File Name      : rnn3_gui.m
%   Purpose        : Main program window
%   Author         : Hossam E. Mostafa Abdelbaki, School of Computer Science, 
%                    University of Centeral Florida (UCF). 
%   Release        : ver. 1.0.
%   Date           : October 1998.
%
%       RNNSIM is a software program available to the user without any 
%   license or royalty fees. Permission is hereby granted to use, copy, 
%   modify, and distribute this software for any purpose. The Author 
%   and UCF give no warranty, express, implied, or statuary for the 
%   software including, without limitation, waranty of merchantibility 
%   and warranty of fitness for a particular purpose. The software 
%   provided hereunder is on an "as is"  basis, and the Author and the 
%   UCF has no obligation to provide maintenance, support, updates, 
%   enhancements, or modifications. 
%
%       RNNSIM  is available for any platform (UNIX, PCWIN, MACHITOCH). 
%   It runs under MATLAB ver. 5.0 or highrer. 
%
%       User feedback, bugs, or software and manual suggestions can 
%   be sent via electronic mail to :   [e-mail]

function fig = rnn3_gui()
% This is the machine-generated representation of a Handle Graphics object
% and its children.  Note that handle values may change when these objects
% are re-created. This may cause problems with any callbacks written to
% depend on the value of the handle at the time the object was saved.
%
% To reopen this object, just type the name of the M-file at the MATLAB
% prompt. The M-file and its associated MAT-file must be on your path.

load rnn3_gui

h0 = figure('Units','normalized', ...
	'Color',[0.8 0.8 0.8], ...
	'Colormap',mat0, ...
	'DeleteFcn','close all', ...
	'MenuBar','none', ...
	'Name','Random Neural Network Simulator ver. 1.0', ...
	'NumberTitle','off', ...
	'PointerShapeCData',mat1, ...
	'Position',mat2, ...
	'Resize','off', ...
	'Tag','RnnFig');
h1 = uimenu('Parent',h0, ...
   'Label','Edit', ...
	'Tag','EditMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute edit_net', ...
   'Label','Net. File', ...
   'Enable','off', ...   
   'Tag','EditNetFileMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute edit_train', ...
   'Label','Train File', ...
   'Enable','off', ...   
   'Tag','EditTrainFileMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute edit_test', ...
   'Label','Test File', ...
   'Enable','off', ...   
   'Tag','EditTestFileMnu');
h1 = uimenu('Parent',h0, ...
   'Label','Train', ...
	'Tag','Train1Mnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute train', ...
   'Label','Train Net.', ...
   'Enable','off', ...
   'Tag','TrainMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute stop', ...
   'Label','Stop', ...
   'Enable','off', ...   
   'Tag','StopMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute resume', ...   
   'Label','Resume', ...
   'Enable','off', ...   
   'Tag','ResumeMnu');
h1 = uimenu('Parent',h0, ...
	'Label','Test', ...
	'Tag','Test1Mnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute test', ...   
   'Label','Test Net.', ...
   'Enable','off', ...   
   'Tag','TestMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute show_log', ...   
   'Label','Show Log', ...
   'Enable','off', ...   
   'Tag','ShowLogMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute plot_error', ...   
   'Label','Plot Error', ...
   'Enable','off', ...   
   'Tag','PlotErrorMnu');
h1 = uimenu('Parent',h0, ...
	'Label','Accept', ...
	'Tag','Accept1Mnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute accept', ...   
   'Label','Accept Par.', ...
   'Enable','off', ...   
   'Tag','AcceptMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute reset_par', ...   
   'Label','Reset Par.', ...
	'Tag','ResetMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute draw_net', ...
   'Label','Draw Net.', ...
   'Enable','off', ...   
   'Tag','DrawNetMnu');
h1 = uimenu('Parent',h0, ...
	'Label','Help', ...
	'Tag','Help1Mnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute help_nn', ...   
   'Label','Help', ...
	'Tag','HelpMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute demo_nn', ...   
   'Label','Demo', ...
	'Tag','DemoMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','tutor_nn', ...   
   'Label','RNN Tutorial', ...
	'Tag','RNNTutorialMnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute about_nn', ...   
   'Label','About', ...
	'Tag','AboutMnu');
h1 = uimenu('Parent',h0, ...
	'Label','Quit', ...
	'Tag','Quit1Mnu');
h2 = uimenu('Parent',h1, ...
	'Callback','excute quit_nn', ...
	'Label','Quit Simulator', ...
	'Tag','RnnFigQuitMnu');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',mat3, ...
	'Style','frame', ...
	'Tag','Frame2');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 0.501960784313725], ...
	'ListboxTop',0, ...
	'Position',mat4, ...
	'Style','frame', ...
	'Tag','Frame3');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','excute net_file', ...
	'ListboxTop',0, ...
	'Position',[0.259786 0.835381 0.163701 0.044226], ...
	'Style','edit', ...
	'Tag','NetFileNameEdT');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'FontUnits','normalized', ...
	'Callback','excute edit_net', ...
	'FontSize',0.392157, ...
	'ListboxTop',0, ...
	'Position',[0.256228 0.781327 0.16726 0.0565111], ...
	'String','Edit', ...
	'Tag','EditNetFilePB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',[0.275801 0.886978 0.135231 0.031941], ...
	'String','Net File Name', ...
	'Style','text', ...
	'Tag','StaticText4');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','excute trn_file', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.263345 0.587224 0.169039 0.04914], ...
	'Style','edit', ...
	'Tag','TrainFileNameEdT');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute edit_train', ...
	'Enable','off', ...
	'FontSize',10, ...
	'ListboxTop',0, ...
	'Position',[0.263345 0.523342 0.169039 0.0565111], ...
	'String','Edit', ...
	'Tag','EditTrainFilePB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',[0.282918 0.412776 0.135231 0.034398], ...
	'String','Test File Name', ...
	'Style','text', ...
	'Tag','StaticText9');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','excute tst_file', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.268683 0.361179 0.169039 0.046683], ...
	'Style','edit', ...
	'Tag','TestFileNameEdT');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','excute log_file', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.464413 0.363636 0.169039 0.046683], ...
	'Style','edit', ...
	'Tag','LogFileNameEdT');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute edit_test', ...
	'Enable','off', ...
	'FontSize',10, ...
	'ListboxTop',0, ...
	'Position',[0.268683 0.299754 0.170819 0.0589681], ...
	'String','Edit', ...
	'Tag','EditTestFilePB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[0.478648 0.412776 0.133452 0.039312], ...
	'String','Log File Name', ...
	'Style','text', ...
	'Tag','StaticText10');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute show_log', ...
	'Enable','off', ...
	'FontSize',10, ...
	'ListboxTop',0, ...
	'Position',[0.469751 0.302211 0.163701 0.0589681], ...
	'String','Show', ...
	'Tag','ShowLogPB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[0.275801 0.636364 0.135231 0.036855], ...
	'String','Train File Name', ...
	'Style','text', ...
	'Tag','StaticText6');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',[0.450178 0.635468 0.183274 0.044335], ...
	'String','Weights File Name', ...
	'Style','text', ...
	'Tag','StaticText7');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[1 1 1], ...
	'Callback','excute wts_file', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.455516 0.584767 0.172598 0.044226], ...
	'Style','edit', ...
	'Tag','WeightsFileNameEdT');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute test', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.6625 0.371158 0.139286 0.0567376], ...
	'String','Test', ...
	'Tag','TestPB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute train', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.658363 0.593596 0.13879 0.0566502], ...
	'String','Train', ...
	'Tag','TrainPB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute stop', ...
	'Enable','off', ...
	'ListboxTop',0, ...
	'Position',[0.660142 0.524631 0.13879 0.0566502], ...
	'String','Stop', ...
	'Tag','StopPB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontSize',18, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 0], ...
	'ListboxTop',0, ...
	'Position',[0.6387900355871886 0.6658476658476659 0.3540925266903914 0.3194103194103194], ...
	'String','Random Neural Network Simulator ver. 1.0', ...
	'Style','text', ...
	'Tag','StaticText1');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute demo_nn', ...
	'ListboxTop',0, ...
	'Position',[0.841071 0.212264 0.148214 0.0589623], ...
	'String','Demo', ...
	'Tag','DemoPB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute help_nn', ...
	'ListboxTop',0, ...
	'Position',[0.678571 0.212264 0.146429 0.0589623], ...
	'String','Help', ...
	'Tag','HelpPB');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','excute draw_net', ...