%**************************************************************************
%This function plots the residuals to the fit of the slippage at the field
%peaks.
%
%Input:
%plt_file, plot file for results
%z_peak_no_ends, z position of the peak fields excluding the ends (m)
%slip_peak_resid_no_ends, residuals to the linear fit of the slippage at the peaks (m)
%
%Zachary Wolf, 6/26/10

function [] = slip_plot_slip_resid(plt_file, z_peak_no_ends, slip_peak_resid_no_ends)

%Initialize
figure;
hold on;

%Plot the slippage residuals
plot(z_peak_no_ends, slip_peak_resid_no_ends, '-b*');

%Labels
title('Slippage Residuals (Measured - Linear Fit) At Field Peaks, No Ends');
xlabel('Z (m)');
ylabel('Slippage Residual (m)');

%Finalize
grid on;
zoom on;
hold off;

%Print
util_print_fig(plt_file);

%Done
