fig=figure(i+1)
subplot(1,3,3)
text(0.2,0.5,a,'FontSize',12);
set(gcf,'OuterPosition',[0,0,700,700]);
mkdir (dir_address+"\"+date+"\"+TO+"\"+MW+"\"+obj+"\small pics parameters");
new_image_name=dir_address+"\"+date+"\"+TO+"\"+MW+"\"+obj+"\small pics parameters\small pic parameters"+num2str(i);
saveas(gcf,[char(new_image_name)], 'png');
