%Saves all S-plots with 2 successive base pairs removed at different places in the molecule.

ss = get(0,'ScreenSize');
cdir = 'D:\Maths-EPFL-UNI\Travail de master\Matlab\scripts';
cd(cdir)
p = who('sc*');
for k = 1:length(p),
    A = eval(char(p(k))); 
	%f = figure('Position',[1 ss(4)/2 ss(3) 2*ss(4)/3]);
	f=delends(A);
	name = char(p(k));                               %'scXXXX'
	name = ['endeffects_' name(3:6) '.png'];         %'sumsXXXX.png'
	folder = '..\..\figures\End effects';
	screen2png(f,name,folder)
	close
	cd(cdir)
end;