%%?use?logistic?function?to?genenrate?a?sequence?
%%
clear?all;
x=[];
T=[];
x（1）=0.22;
k=4;
n=900;
N=400;
%?產(chǎn)生logistic序列，前100個(gè)去除
for?i=1:n
????x（i+1）=k*x（i）*（1-x（i））;
end
X（1:800）=x（101:900）;

%?用X的前400個(gè)數(shù)據(jù)訓(xùn)練RBF神經(jīng)網(wǎng)絡(luò)
for?j=1:N????
????P（1:8j）=X（j:j+7）‘;
end
T=X（9:408）;???%?目標(biāo)數(shù)據(jù)
net1=newrb（PT0.0011）;??%?訓(xùn)練RBF神經(jīng)網(wǎng)絡(luò)

N1=300;

%?選取X的400—700個(gè)數(shù)據(jù)進(jìn)行RBF神經(jīng)網(wǎng)絡(luò)檢驗(yàn)
for?j=1:N1
????P1（1:8j）=X（j+400:j+7+400）‘;
end
T1=X（409:708）;???%?目標(biāo)數(shù)據(jù)

%仿真驗(yàn)證
a=sim（net1P1）;??%?對檢驗(yàn)數(shù)據(jù)的預(yù)測結(jié)果

e?=?T1-a;????????%?一步預(yù)測誤差

mse?=?sqrt（e*e‘）/size（e2）????%?均方誤差?Mean??Square??Error?

%畫圖描繪仿真結(jié)果
figure（2）
plot（X（1:200））;
axis（[1?200?-0.1?1.1]）;
title（‘logistic混沌序列‘）;
xlabel（‘t‘）;
ylabel（‘magnitude‘）;

figure（3）
plot（1:300T1‘b‘1:300a‘r*‘）;
h?=?legend（‘混沌序列‘‘RBF神經(jīng)網(wǎng)絡(luò)一步預(yù)測值‘）;?
axis（[1?300?-0.5?1.5]）;
hold?on
title（‘混沌序列與一步預(yù)測值‘）;
xlabel（‘t‘）;
ylabel（‘magnitude‘）;


figure（4）;
plot（e‘b-‘）;
axis（[1?300?-0.1?0.1]）;
title（‘預(yù)測誤差e‘）;
xlabel（‘t‘）;
ylabel（‘magnitude‘）;

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----

?????文件???????1115??2008-09-05?08:39??一個(gè)混沌神經(jīng)網(wǎng)絡(luò)的matlab程序\chaotic_neuranetwork.m

?????文件??????????0??2011-12-26?20:41??一個(gè)混沌神經(jīng)網(wǎng)絡(luò)的matlab程序\新建?文本文檔.txt

?????目錄??????????0??2012-03-25?09:31??一個(gè)混沌神經(jīng)網(wǎng)絡(luò)的matlab程序

-----------?---------??----------?-----??----

?????????????????1115????????????????????3