clc
close all
clear all

cd('C:\OneDrive\Studie\SuperK\Matlab\Spectra')
a = importdata('Thulium_Fiber_Cross_Sections.xlsx');

h=figure; hold on; box on;
plot(a.data.CrossSection(:,1),smooth(a.data.CrossSection(:,2),10),'LineWidth',1.5)
plot(a.data.CrossSection(:,3),smooth(a.data.CrossSection(:,4),10),'LineWidth',1.5)
xlim([1400 2300])
xlabel('Wavelength [nm]')
ylabel('Cross Section [$\cdot 10^{-21}\mathrm{cm^{-1}}$]')
set(h, 'Position', [300 300 1.7*550 550*(3/4)])
legend('Absorption','Emission')

%cd('D:\OneDrive\Studie\SuperK\Thesis\latex\Figures')
%matlab2tikz('Thulium.tex','width','0.7\textwidth');