rnn3.m

随机神经网络工具箱

%   File Name      : rnn3.m
%   Purpose        : Welcome figure
%   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()
% 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

h0 = figure('Units','normalized', ...
	'Color',[0.8 0.8 0.8], ...
	'Colormap',mat0, ...
	'MenuBar','none', ...
	'Name','Welcome', ...
	'NumberTitle','off', ...
	'PointerShapeCData',mat1, ...
	'Position',[0.31 0.285 0.31125 0.4866666666666667], ...
	'Resize','off', ...
	'WindowStyle','modal', ...   
   'Tag','WelcomeFig');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',mat2, ...
	'Style','frame', ...
	'Tag','WelcomeFigFrm1');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontSize',12, ...
	'FontWeight','bold', ...
	'ForegroundColor',[1 0 0], ...
	'ListboxTop',0, ...
	'Position',mat3, ...
	'String','Random Neural Network Simulator', ...
	'Style','text', ...
	'Tag','WelcomeFigStT1');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontSize',10, ...
	'FontWeight','bold', ...
	'ListboxTop',0, ...
	'Position',[0.365462 0.726027 0.261044 0.0719178], ...
	'String','ver. 1.0', ...
	'Style','text', ...
	'Tag','WelcomeFigStT2');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontSize',10, ...
	'ForegroundColor',[0 0 1], ...
	'ListboxTop',0, ...
	'Position',mat4, ...
	'String',['Hossam E. Mostafa ';'[e-mail]'], ...
	'Style','text', ...
	'Tag','WelcomeFigStT3');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontSize',10, ...
	'FontWeight','demi', ...
	'ForegroundColor',[0 0 1], ...
	'ListboxTop',0, ...
	'Position',[0.028112 0.404109 0.947791 0.174657], ...
   'String',['University of Centeral Florida ';...
             '  School of Computer Science   ';...
             '           1998                '],...
	'Style','text', ...
	'Tag','WelcomeFigStT4');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'FontWeight','light', ...
	'HorizontalAlignment','left', ...
	'ListboxTop',0, ...
	'Position',[0.064257 0.239726 0.871485 0.136986], ...
	'String',mat5, ...
	'Style','text', ...
	'Tag','WelcomeFigStT5');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
   'Callback', 'enter_nn', ... 
   'FontSize',12, ...
	'FontWeight','demi', ...
	'ListboxTop',0, ...
	'Position',[0.670682 0.030821 0.301204 0.099315], ...
	'String','Enter', ...
	'Tag','WelcomeFigPB2');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'Callback','close(gcbf)', ...
	'FontSize',12, ...
	'FontWeight','bold', ...
	'ListboxTop',0, ...
	'Position',[0.036144 0.027397 0.297188 0.099315], ...
	'String','Dismiss', ...
	'Tag','WelcomeFigPB1');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941 0.752941 0.752941], ...
	'ListboxTop',0, ...
	'Position',mat6, ...
	'Style','text', ...
	'Tag','WelcomeFigStT6');
h1 = uicontrol('Parent',h0, ...
	'Units','normalized', ...
	'BackgroundColor',[0.752941176470588 0.752941176470588 0.752941176470588], ...
	'ListboxTop',0, ...
	'Position',mat7, ...
	'Style','text', ...
   'Tag','WelcomeFigStT7');

   WelcomeFigStT7 = findobj(gcf,'Tag','WelcomeFigStT7');
   fid = fopen('count','r');
   if(fid == -1)
      mess = sprintf('Session no.  %d',1);
      set(WelcomeFigStT7,'String',mess);
   else
      mess = sprintf('Session no.  %d',fscanf(fid','%d',1));
      set(WelcomeFigStT7,'String',mess);
      fclose(fid);
   end
if nargout > 0, fig = h0; end