function []=sameplot(u,v,x);
[n,m]=size(u);
u=(u-ones(n,1)*mean(u))./ (ones(n,1)*std(u)).*(ones(u)*std(v(:)))+ones(u)*mean(v(:));
if nargin<3
      x=1:m;
end
plot(x,u,x,v)
