example34index.m

是一个用MATLAB编的一个系统

clc;
clear;
close;
%Rbf网络实验
Hrbf2=figure('color',[0.8 0.8 0.8],'position',[120 120 600 400],'name',...
   'example3.4 ','numbertitle','off');

%界面说明
uicontrol( Hrbf2,'style','text','units','normalized','position',[0.1 0.8 0.8 0.15],...
   'horizontal','center','string',' 例4. 用RBF网络实现函数逼近','back',[0.8 0.8 0.8],...
   'fontsize',12,'fontWeight','bold');

%框架
uicontrol(Hrbf2,'style','frame','units','normalized','position',[0.1 0.1 0.45 0.7],...
   'back',[0.8 0.8 0.8]);

uicontrol(Hrbf2,'style','text','units','normalized','position',[0.12 0.68 0.42 0.1],...
   'string','试设计RBF网络实现函数逼近：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf2,'style','text','units','normalized','position',[0.12 0.61 0.42 0.1],...
   'string','  P=-1:0.1:1;','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf2,'style','text','units','normalized','position',[0.12 0.54 0.42 0.1],...
   'string','  T=[ -0.96  -0.577  -0.0729  0.377  0.641...','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf2,'style','text','units','normalized','position',[0.12 0.47 0.42 0.1],...
   'string','0.66  0.461  0.1336  -0.201  -0.434  -0.5  ...','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf2,'style','text','units','normalized','position',[0.12 0.4 0.42 0.1],...
   'string','-0.393  -0.1647  0.0988  0.3072  0.396  ...','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
uicontrol(Hrbf2,'style','text','units','normalized','position',[0.12 0.33 0.42 0.1],...
   'string','0.3449  0.1816  -0.0312  0.2183  -0.3201 ]','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

%网络参数设置
uicontrol(Hrbf2,'style','text','units','normalized','position',[0.58 0.7 0.3 0.1],...
   'string','网络参数设置','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf2,'style','text','units','normalized','position',[0.58 0.62 0.2 0.1],...
   'string','期望误差：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hrbf2_error=uicontrol(Hrbf2,'style','edit','units','normalized','position',[0.58 0.62 0.13 0.05],...
   'string','0.02','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf2,'style','text','units','normalized','position',[0.58 0.50 0.2 0.1],...
   'string','最多神经元数：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12 );
Hrbf2_num=uicontrol(Hrbf2,'style','edit','units','normalized','position',[0.58 0.50 0.13 0.05],...
   'string','100','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf2,'style','text','units','normalized','position',[0.58 0.37 0.2 0.1],...
   'string','分布常数','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12 );
Hrbf2_disc=uicontrol(Hrbf2,'style','edit','units','normalized','position',[0.58 0.37 0.13 0.05],...
   'string','1 ','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf2,'style','text','units','normalized','position',[0.58 0.25 0.2 0.1],...
   'string','训练显示频率：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hrbf2_disp=uicontrol(Hrbf2,'style','edit','units','normalized','position',[0.58 0.25 0.13 0.05],...
   'string','10','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);

uicontrol(Hrbf2,'style','text','units','normalized','position',[0.58 0.11 0.2 0.1],...
   'string','网络测试输入：','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12);
Hrbf2_test=uicontrol(Hrbf2,'style','edit','units','normalized','position',[0.58 0.11 0.07 0.06],...
   'string','0.33','back',[0.8 0.8 0.8],'horizontal','left','fontsize',12,'Max',10);


%按钮
uicontrol(Hrbf2,'style','push','units','normalized','position',[0.78 0.7 0.16 0.1],...
   'string','输入输出图示','callback','example34_figure','fontsize',12);

uicontrol(Hrbf2,'style','push','units','normalized','position',[0.78 0.57 0.16 0.1],...
   'string','运行程序','fontsize',12,'callback',[...
                                              'Sc=get(Hrbf2_disc,''string'');'...
                                              'M=get(Hrbf2_num,''string'');'...
                                              'err_goal=get(Hrbf2_error,''string'');'...
                                              'disp_freq=get(Hrbf2_disp,''string'');'...                                          
                                              'example34']);
 
uicontrol(Hrbf2,'style','push','units','normalized','position',[0.78 0.44 0.16 0.1],...
   'string','显示误差曲线','callback',' example34_error','fontsize',12);

uicontrol(Hrbf2,'style','push','units','normalized','position',[0.665 0.11 0.08 0.06],...
   'string','确 定','fontsize',12,'callback',[...
                                  'input=get(Hrbf2_test,''string'');'... 
                                  'example34_test']);
                                    

%查看函数
uicontrol(Hrbf2,'style','push','units','normalized','position',[0.77 0.25 0.18 0.1],...
   'string','查看网络函数','callback','NNfunctionindex','fontsize',12);

%退出
uicontrol(Hrbf2,'style','push','units','normalized','position',[0.77 0.13 0.18 0.1],...
   'string','返       回','callback','close(Hrbf2);NNindex12','fontsize',12);
uicontrol(Hrbf2,'style','push','units','normalized','position',[0.77 0.01 0.18 0.1],...
   'string','退出系统','callback','close(Hrbf2)','fontsize',12);