1;


load '/tmp/total_relative_transmission_vs_theta.mat' ;

% let's create sideband transmission vs angle vectors
% 1st of all we need to create matrix instead of a vector
% with rows corresponding to absorption for each sideband
% and columns to each phi angle

N_detunings=length(detuning_freq);
N_angles=length(thetas);

transmission_matrix=reshape(total_relative_transmission_vs_theta, N_detunings, N_angles);

% the last sideband is not in two-photon resonance
% we use it as a reference for background transmission
background_vector=transmission_matrix(N_detunings,:);
background_transmission=repmat( background_vector , N_detunings, 1);

transmission_matrix=-background_transmission+transmission_matrix;



line_colors= [ ...
	[ 0,   0,   1]; ...
	[ 1,   0,   0]; ...
	[ 0,   1,   0]; ...
	[ 0,   0,   0]; ...
	[ 0, 0.8,   0]; ...
	[ 1,   0,   1]; ...
	[ 0,   0,  .6] ...
	];

figure(1);
clf();
hold off;
labels={};
for i=1:N_detunings-1
	%we will skip the very last row since it the reference transmission

	zoom_factor=1;
	%plot_style=strcat("-", num2str(i));
	%plot( thetas, zoom_factor*(transmission_matrix(i,:)), plot_style);  
	labels = {labels{:}, strcat("Sideband_{", num2str(i-4), "}")};
	line( thetas, zoom_factor*(transmission_matrix(i,:)), "color", line_colors(i,:) );  
	hold on;
endfor

title("relative transmission");
xlabel("angle theta, between B-field and light propagation direction");
ylabel("amplitude");
legend(labels);

hold off;

figure(2)
j=4; k= 3;
j=2; k= 7;
% plotting parametric line of a sideband amplitude (j) vs another one (k)
plot(zoom_factor*(transmission_matrix(j,:)), zoom_factor*(transmission_matrix(k,:)))
xlabel( labels{j});
ylabel( labels{k});
title('One sideband amplitude vs another for different angles theta, between B-field and light propagation direction');


% vim: ts=2:sw=2:fdm=indent