load data input output input_test output_test
%輸矩和輸出矩轉置
input=input';
output=output';
%配置網絡參數
spread=25;
goal=0.00001;
%訓練網駱
[net,tr] = newrb(input,output,goal,spread);
%預測輸出
output_for=sim(net,input_test');
%計算誤差
e=output_test'-output_for;

figure(1)
plot(output_test,'r')
hold on
plot(output_for)
title('RBF網絡預測股票走勢行情');
legend('實際股票走勢','預測股票走勢');
axis([0,30,0,1.5])

figure(2)
plot(e)
title('預測值和實際值的誤差');
xlabel('迭代次數');
ylabel('誤差')