% Actual wavelength, where we found it
data = [3125.67 3133.48;
        3650.15 3655.00;
        3654.84 3659.68;
        4046.56 4048.77;
        4347.40 4347.32;
        4358.33 4358.02;
        5460.74 5450.88;
        6907.52 6880.46];

% subplot(211);
% plot(data(:,1),data(:,2),'o'); hold on;
% plot(data(:,1),data(:,1),'k--');
% xlabel('Actual CRC wavelength');
% ylabel('Where we found the peak on monochromator');
% subplot(212);
plot(data(:,1),data(:,2)-data(:,1),'o'); grid on;
xlabel('Actual CRC wavelength');
ylabel('Difference in wavelengths: Observed-actual');
title('Deviation in monochromator scale for 1800gpmm grating');
