xnewrb.m

来自「本代码为黄华江编著《实用化工计算机模拟—MATLAB在化学工程中的应用》的配套车」· M 代码 · 共 36 行

function xNewrb
% xNewrb.m
% 本程序用newrb()创建径向基网络，并用sim()对网络进行仿真
%
%   Author: HUANG Huajiang
%   Copyright 2002 UNILAB Research Center,
%   East China University of Science and Technology, Shanghai, PRC
%   $Revision: 1.0 $  $Date: 2003/01/10 $
%
%   [Ref] MATLAB demo, Mathworks Co.

clear all
clc

% 输入样本p和目标t
p = -1:.1:1;
t = [-.9602 -.5770 -.0729  .3771  .6405  .6600  .4609 ...
          .1336 -.2013 -.4344 -.5000 -.3930 -.1647  .0988 ...
          .3072  .3960  .3449  .1816 -.0312 -.2189 -.3201];

% 用newrb()创建径向基网络以逼近由p和t定义的函数
eg = 0.02;  % 残差平方和指标(sum-squared error goal)
sc = 1;     % 径向基函数的分布常数(spread constant)
net=newrb(p,t,eg,sc);

x = -1:.01:1;
y = sim(net,x);   % 用sim()对网络进行仿真

% 绘制图形以观察网络性能（重画训练集p、t，并绘制模拟曲线）
plot(p,t,'^',x,y);
title('训练向量');
xlabel('输入向量 p');
ylabel('目标向量 t');