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

function [] = slip_plot_slip(plt_file, z, slip)

%Initialize
figure;
hold on;

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

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

%Finalize
grid on;
zoom on;
hold off;

%Print
util_print_fig(plt_file);

%Done
