function [trainsamples,A,B] = scaletrain1(trainsamples)

[n,d] = size(trainsamples);
A = mean(trainsamples);
B = std(trainsamples);
trainsamples = trainsamples - repmat(A,n,1);
trainsamples = trainsamples.*repmat(1./B,n,1);