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');