% 徑向基函數RBF神經網絡用于函數擬合　
% 操作平臺 - Matlab6.5


lc
clear
close all

%---------------------------------------------------
% 產生訓練樣本與測試樣本

n1 = 1:2:200;
x1 = sin(n1*0.1);

n2 = 2:2:200;
x2 = sin(n2*0.1);

xn_train = n1;          % 訓練樣本，每一列為一個樣本
dn_train = x1;          % 訓練目標，行向量

xn_test = n2;           % 測試樣本，每一列為一個樣本
dn_test = x2;           % 測試目標，行向量

%---------------------------------------------------
% 訓練與測試

net = newgrnn(xn_train,dn_train);       % 訓練
X = sim(net,xn_test);                   % 測試 - 輸出為預測值

%---------------------------------------------------
% 結果作圖

plot(1:length(n2),x2,'r+:',1:length(n2),X,'bo:')
title('+為真實值，o為預測值')