function PredictMain(data,m,tau,P,lmd,MaxStep)
%一次多步預(yù)測(cè)

% disp('--------最大預(yù)測(cè)步數(shù)---------')
%  MaxStep=round(1/lmd)
%  
%  MaxStep=5;%避免預(yù)測(cè)太長(zhǎng)控制在10步
% MaxStep=MaxStep+5;

newdata=data(1:length(data)-MaxStep);

PredictedData = FunctionChaosPredict(newdata,length(newdata),P,1,tau,m,MaxStep);%調(diào)用AOLMM進(jìn)行多步預(yù)報(bào)

plot(length(newdata)+1:length(data),data(length(newdata)+1:length(data)),'b-',length(newdata)+1:length(data),PredictedData,'r--');
legend('Original','Predict(一次多步)');

% delt=std(data(length(newdata)+1:length(data))-PredictedData')
disp('-----------求RMSE----------------------')
old=data(length(newdata)+1:length(data));
new=PredictedData';
q=mean(old);
RMSE=norm(new-old,2)/norm(old-q,2)
%disp('-------------中誤差-----------------')
%v=abs(new-old);
%MSE=sqrt(v'*v/length(new))

disp('----------MAPE平均絕對(duì)百分比誤差---------------')
for i=1:length(old)
    a(i)=abs((old(i)-new(i))/old(i));
end
MAPE=sum(a)/length(old)*100

disp('-------------中誤差-----------------')
v=abs(new-old);
MSE=sqrt(sum(v.^2)/length(old))



%此方式預(yù)測(cè)效果好