%**************************************************************************
%This function plots the field at y = 0.
%
%Input:
%plt_file, plot file for results
%z, coordinate along the undulator (m)
%by, By at y = 0 (T)
%
%Zachary Wolf, 10/13/09

function [] = field_calc_plot_by(plt_file, z, by)

%Plot the field at y = 0
figure;
hold all;
plot(z, by, 'b-');
title('By Field From Expansion Coeffieients At y = 0');
xlabel('z (m)');
ylabel('By (T)');
grid on;
zoom on;
hold off;

%Save the plot
util_print_fig(plt_file);

%Done
