function?yuclose=myrbf（pricenm）
%ji?suan?gen?ju?RBF?de?chu?de?shu?chu?Y
%RBF神經(jīng)網(wǎng)絡(luò)算法，需要參數(shù)為?輸入變量矩陣price，擴(kuò)展系數(shù)n，估計(jì)范圍m，即用前m個(gè)數(shù)估計(jì)第m+1個(gè)數(shù)字n，m不是必須的

if?nargin<1
????error（‘you?should?input?one?argument?at?least.‘）
elseif?nargin<2
????n=1;
????m=5;
elseif?nargin<3
????c=n;
????m=5;
end

sclose=price;
c=n;
num=m;
k=size（sclose）;
P=zeros（5k（1）-4）;
T=zeros（1k（1）-4）;
mi=min（sclose）;
ma=max（sclose）;
for?i=1:1:k（1）
????sclose（i）=（sclose（i）-mi）/（ma-mi）;
end
for?j=1:1:k（1）-4
????for?i=1:1:num
????????P（ij）=sclose（i+j-1）;
????end
????T（1j）=sclose（j+4）;
end
net=newrbe（PT3）;
yyclose=sim（netP）;
a=size（yyclose）;
yuclose=zeros（1a（2））;
for?i=1:1:a（2）
????yuclose（1i）=yyclose（i）*（ma-mi）+mi;
end

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

?????文件??????32256??2009-11-25?20:10??price_close.xls

?????文件???????3619??2010-03-18?09:21??price_sclose.mat

?????文件???????3619??2010-03-18?09:21??price_sopen.mat

?????文件???????3463??2009-11-25?21:06??rbf.fig

?????文件???????6775??2009-12-17?11:35??rbf.m

?????文件????????772??2009-12-19?15:44??myrbf.m

?????文件???????2076??2009-11-24?10:19??plot_of_k.m

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

????????????????52580????????????????????7