%---- save all QQplots -----
ss = get(0,'ScreenSize'); 
cdir = 'D:\Maths-EPFL-UNI\Travail de master\Matlab\scripts';
cd(cdir)
p = who('sc*');
for k = 1:length(p),
	for l=k+1:length(p),
		A = eval(char(p(k)));  %A is a stiffness matrix
		B = eval(char(p(l)));  %B is a stiffness matrix
		f = figure('Position',[1 60 0.65*ss(3) ss(4)]);
		Q1 = q(A);
		Q2 = q(B);
		pcolor(Q1'*Q2);
		shading flat
		colorbar
		colormap('HSV')
		   %%% lines %%%
		a=158*ones(1,211)+1;
		b=[1:211];
		line(a,b,'color','red','linewidth',1)
		line(b,a,'color','red','linewidth',1)
		
		nameA = char(p(k));                         %'scXXXX'
		nameB = char(p(l));                         %'scYYYY'
		name = ['QQ_' nameA(3:6) '_' nameB(3:6) '.png'];  %'QQ_XXXX_YYYY.png'
		folder = '..\..\Figures web\QQ';
		screen2png(f,name,folder)
		close
		cd(cdir)
	end;
end;