%**************************************************************************
%This function plots the difference in slippage for different calculation
%methods.
%
%Input:
%plt_file, plot file for results
%z, position along the undulator (m)
%slip_diff, slippage difference (m)
%
%Zachary Wolf, 6/26/10

function [] = slip_plot_slip_diff(plt_file, z, slip_diff)

%Initialize
figure;
hold on;

%Plot the slippage difference
plot(z, slip_diff, 'linewidth', 2.);

%Labels
title('Slippage Difference');
ylabel('Slippage Difference (m)');
xlabel('Z (m)');

%Finalize
grid on;
zoom on;
hold off;

%Print
util_print_fig(plt_file);

%Done
