function [Dtr,Dte,Dhtr,Dhte] = prep_srmc(Xtr,Xte,yte,d,B)
P = size(Xtr,2); 
Pt = P/10;
u = ones(1,Pt); 
ytr = [u 2*u 3*u 4*u 5*u 6*u 7*u 8*u 9*u 10*u];
yte = 1 + yte(:)';
Dtr = [Xtr; ytr];
Dte = [Xte; yte];
H = [];
for i = 1:P
    xi = Xtr(:,i);
    mi = reshape(xi,28,28);
    hi = hog20new(mi,d,B);
    H = [H hi];
end
Dhtr = [H; ytr];
T = size(Xte,2);
Hte = [];
for i = 1:T
    xi = Xte(:,i);
    mi = reshape(xi,28,28);
    hi = hog20new(mi,d,B);
    Hte = [Hte hi]; 
end
Dhte = [Hte; yte];