%**************************************************************************
%This function plots the field expansion coefficients.
%
%Input:
%plt_file, plot file for results
%bn, field expansion coefficient (T)
%
%Zachary Wolf, 10/13/09

function [] = field_calc_plot_bn(plt_file, bn)

%Get n values
n = 1 : length(bn);

%Plot the field expansion coefficients
figure;
hold all;
plot(n, bn, 'r*');
title('Field Expansion Coeffieients');
xlabel('n');
ylabel('Bn (T)');
grid on;
zoom on;
hold off;

%Save the plot
util_print_fig(plt_file);

%Done
