nndemo.m

是一个用MATLAB编的一个系统

%开始页面

clear;
figure('color',[.8 .8 .8],'position',[150 150 750 500],'name','神经网络仿真系统 NNDemo2.0',...
   'numbertitle','off');

%退出菜单
hm_q=uimenu(gcf,'label','Quit');
uimenu(hm_q,'label','Q&uit System','callback','close(gcf);clear');
uimenu(hm_q,'label','Qu&it Matlab','callback','quit');

hm_a=uimenu(gcf,'label','About NNDemo2.0');
uimenu(hm_a,'label','About NNDemo2.0','callback','NNEditionInfo');

%框架
uicontrol(gcf,'style','frame','units','normalized','position',[0 0 1 1],...
   'back',[.5 .5 .5]);
uicontrol(gcf,'style','frame','units','normalized','position',[0.001 0.001 0.999 0.999]);

%程序说明
uicontrol(gcf,'style','text','units','normalized','position',[0.1 0.83 0.8 0.1],...
   'string','神经网络仿真系统  NNDemo 2.0','fontsize',21,'fontWeight','bold','fore','red');
%uicontrol(gcf,'style','text','units','normalized','position',[0.1 0.80 0.8 0.1],...
%   'string','实验演示系统','fontsize',18,'fontWeight','bold');

uicontrol(gcf,'style','text','units','normalized','position',[0.17 0.70 0.8 0.08],...
   'string','欢迎您进入神经网络仿真系统 NNDemo 2.0，系统开发环境'...
   ,  'fontsize',13,'horizontal','left');
uicontrol(gcf,'style','text','units','normalized','position',[0.12 0.61 0.8 0.08],...
   'string','Matlab 6 // Windows2000，开发时间2002年9月-2003年10月，版本'...
   ,  'fontsize',13,'horizontal','left');

uicontrol(gcf,'style','text','units','normalized','position',[0.12 0.52 0.8 0.08],...
   'string','号2.0，建议分辨率1024×768。如您有任何问题，请联系作者!',...
   'fontsize',13,'horizontal','left');
% uicontrol(gcf,'style','text','units','normalized','position',[0.12 0.43 0.2 0.08],...
%    'string','','fontsize',13,'horizontal','left');

uicontrol(gcf,'style','text','units','normalized','position',[0.17 0.43 0.8 0.08],...
   'string','请点击"确定"按钮进入仿真系统，点击"取消"按钮退出系统!','fontsize',13,'horizontal','left');

%按钮设置
uicontrol(gcf,'style','push','units','normalized','position',[0.45 0.2 0.15 0.12],...
   'string',' 确  定 ','fontsize',15,'callback','close(gcf);NNindex1','fontWeight','bold');
uicontrol(gcf,'style','push','units','normalized','position',[0.7 0.2 0.15 0.12],...
   'string',' 取  消 ','fontsize',15,'callback',['close(gcf);clear;clc'],'fontWeight','bold');


%开发者信息
uicontrol(gcf,'style','text','units','normalized','position',[0.07 0.05 0.9 0.05],...
   'string','Copyright  2002-2003  合肥工业大学 计算机与信息学院 图像信息处理研究室 ','fontsize',11);