%**************************************************************************
%This function plots the average of the tooling ball x positions.
%
%Input:
%plt_file, plot file for results
%input_name, legend for plot
%date_num, number giving the date of the measurement
%x_ave, average of the tooling ball x positions (m)
%
%Zachary Wolf, 4/7/09

function [] = k_comp_plot_xave(plt_file, date_num, x_ave, input_name)

%Make the plot
figure;
hold all;
for ii = 1 : length(x_ave)
    plot(date_num(ii), x_ave(ii), '*');
end
datetick('x', 'mm/yy', 'keepticks', 'keeplimits');
title('Average Of Tooling Ball X Positions Relative To Beam Axis');
xlabel('Date');
ylabel('Average Of Tooling Ball X Positions (m)');
legend(input_name', 'location', 'southeast');
grid on;
zoom on;
hold off;

%Save the plot
util_print_fig(plt_file);

%Done
