% RBF 神經(jīng)網(wǎng)絡(luò)用于函數(shù)擬合　
% 使用平臺(tái) - Matlab6.5
% 作者：陸振波，海軍工程大學(xué)
% 歡迎同行來信交流與合作，更多文章與程序下載請(qǐng)?jiān)L問我的個(gè)人主頁(yè)
% 電子郵件：luzhenbo@sina.com
% 個(gè)人主頁(yè)：luzhenbo.88uu.com.cn

clc
clear
close all

%---------------------------------------------------
% 產(chǎn)生訓(xùn)練樣本與測(cè)試樣本

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

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

xn_train = n1;          % 訓(xùn)練樣本，每一列為一個(gè)樣本
dn_train = x1;          % 訓(xùn)練目標(biāo)，行向量

xn_test = n2;           % 測(cè)試樣本，每一列為一個(gè)樣本
dn_test = x2;           % 測(cè)試目標(biāo)，行向量

%---------------------------------------------------
% 訓(xùn)練與測(cè)試

net = newgrnn(xn_train,dn_train);       % 訓(xùn)練
X = sim(net,xn_test);                   % 測(cè)試 - 輸出為預(yù)測(cè)值

%---------------------------------------------------
% 結(jié)果作圖

plot(1:length(n2),x2,'r+:',1:length(n2),X,'bo:')
title('+為真實(shí)值，o為預(yù)測(cè)值')