p=1;
qrule=1;
%set(1,'PaperUnits','centimeters')
%set(1,'PaperPosition',[5,5,10,12])
%set(1,'PaperType','a4letter')
