nccreate('MCA_S.nc','m','Dimensions',{'x',1,leng_n});
nccreate('MCA_S.nc','n','Dimensions',{'y',1,leng_n});
nccreate('MCA_S.nc','S','Dimensions',{'x','y'});
ncwrite('MCA_S.nc','S',S1);
ncwrite('MCA_S.nc','m',n);
ncwrite('MCA_S.nc','n',n);

ncwriteatt('MCA_S.nc', 'S', 'long_name', 'matrix S - matran duong cheo');
ncwriteatt('MCA_S.nc', 'S', 'units', '-');
ncwriteatt('MCA_S.nc', 'm', 'long_name','rows');
ncwriteatt('MCA_S.nc', 'm', 'units','-');
ncwriteatt('MCA_S.nc', 'n', 'long_name','columns');
ncwriteatt('MCA_S.nc', 'n', 'units','-');