function [TrainErrorMSE,TrainErrorRate]=Train_Error(train_p,train_t,H,W)
% 求訓練MSE及訓練分類錯誤率
row=size(train_p,1);
t=H*W;
t_error=t-train_t;
% % 求MSE
% t_error=t_error.^2;
% t_error=sum(t_error,2)/size(train_t,2);
% % 二泛數
t_error=t_error.^2;
t_error=sum(t_error,2);
% t_error=sqrt(t_error);
% % 一泛數
% t_error=abs(t_error);
% t_error=sum(t_error,2);
t_error=sum(t_error,1);
% TrainErrorMSE=sqrt(t_error/row);      % 對應Wing的模型
TrainErrorMSE=t_error/row;
% 求訓練分類錯誤率
[t1,index1]=max(t,[],2);
[t2,index2]=max(train_t,[],2);
TrainCorrectnum=0;
for i=1:row
    if index1(i,1)==index2(i,1)
       TrainCorrectnum=TrainCorrectnum+1;
    end
end
TrainErrorRate=1-TrainCorrectnum/row;