%The first part of this code sets defaults for the plots to look good
%The second part runs code to make plots.

%initial data
width = 5.1;     % Width in inches
height = 3;    % Height in inches
alw = 1;       % AxesLineWidth
fsz = 14;      % Fontsize
fna = 'Helvetica'; %Fontname
lw = 1.5;      % LineWidth
msz = 8;       % MarkerSize
interp = 'tex';

%pixs = get(0,'screensize');
%width = pixs(3)/2; height = pixs(4)/2-50;

%Close the figures
close all;

% The properties we've been using in the figures
set(0,'defaultLineLineWidth',lw);   % set the default line width to lw
set(0,'defaultLineMarkerSize',msz); % set the default line marker size to msz
set(0,'defaultLineLineWidth',lw);   % set the default line width to lw
set(0,'defaultLineMarkerSize',msz); % set the default line marker size to msz

set(0,'defaultAxesFontName',fna);
set(0,'defaultAxesFontSize',fsz);
set(0,'defaultTextInterpreter',interp);

% Set the default Size for display
defpos = get(0,'defaultFigurePosition');
set(0,'defaultFigurePosition', [defpos(1) defpos(2) width*100, height*100]);

% Set the defaults for saving/printing to a file
set(0,'defaultFigureInvertHardcopy','on'); % This is the default anyway
set(0,'defaultFigurePaperUnits','inches'); % This is the default anyway
defsize = get(gcf, 'PaperSize');
left = (defsize(1)- width)/2;
bottom = (defsize(2)- height)/2;
defsize = [left, bottom, width, height];
set(0, 'defaultFigurePaperPosition', defsize);


%run code to make plots

%for Jxx = [0,.3,1.43]
   % runit14(Jxx,0);
%end

I0_H1_pi = runit_H1_pi_r(1,0);
I3_H1_pi = runit_H1_pi_r(.3,0);
I4_H1_pi = runit_H1_pi_r(1.43,0);

% Ih01 = runit_H1_r(1,.01);
% Ih03 = runit_H1_r(1,.03);
% Ih1  = runit_H1_r(1,.1);
% 
% Ev = 2:18;
% hh=figure;%('Position',position);
% hold on;
% plot(log(I0{10}(Ev)),log(I0{4}(Ev)),log(Ih01{10}(Ev)),log(Ih01{4}(Ev)),log(Ih03{10}(Ev)),log(Ih03{4}(Ev)),log(Ih1{10}(Ev)),log(Ih1{4}(Ev)) );
% %errorbar(Ev,Ipp+Imm+Ipm,errs(:,4)+errs(:,5)+errs(:,6));
% title(['Raman Spectrum for H1: NNN hopping \kappa comparison (log plot)'])
% xlabel('log(\omega/J)');
% ylabel('log(I_{ac})');
% legend({'\kappa=0','\kappa=0.01','\kappa=0.03','\kappa=0.1'}, 'Location', 'SouthEast');
% hold off;
% filename = ['H1_Raman_magneticfield'];
% saveas(hh,filename)
% print(hh, '-dpng', filename);



diary H1_Raman_diary