s=figure;
set(s,'DefaultTextFontSize',10)
set(s,'DefaultAxesFontSize',10)
set(s,'DefaultAxesFontName','Times New Roman')
set(s,'DefaultTextFontName','Times New Roman')
set(s,'Units','inches')
pos=get(s,'Position');
set(s,'Position',[pos(1) pos(2) 6 4])
set(s,'PaperType','a4letter')
