erb1.m

来自「利用网络实现函数逼近 使用的主要函数如下： NEWRB——设计径向基函数」· M 代码 · 共 35 行

%径向基函数网络实例1_利用网络实现函数逼近
close all
clf reset
figure(gcf);
%使用的主要函数如下：
%NEWRB——设计径向基函数神经网络
%SIM——对径向基函数网络进行仿真
disp('Press any key to start');
echo on
pause
clc
%定义输入矢量P
P=[-1:.1:1];
%定义目标矢量T
T=sin(5*P)+cos(3*P);
%画出待逼近的函数图形
plot(P,T,'+');
pause
clc
%设计径向基函数网络，对函数进行逼近
goal=.01;    %误差指标
sp=1;        %扩展常数
mn=20;       %神经元的最多个数
df=1;        %训练过程的显示频率
net=newrb(P,T,goal,sp,mn,df);
pause
clc
%对网络进行仿真并画出样本数据和网络输出图形
Y=sim(net,P);
plot(P,T,'+')
hold on
plot(P,Y)
echo off