%**************************************************************************
%This function plots the field expansion coefficient ratios.
%
%Input:
%plt_file, plot file for results
%rn, field expansion coefficient ratio Bn/B1
%
%Zachary Wolf, 10/13/09

function [] = field_calc_plot_rn(plt_file, rn)

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

%Plot the field expansion coefficient ratios
figure;
hold all;
plot(n, rn, 'r*');
title('Field Expansion Coeffieient Ratios');
xlabel('n');
ylabel('Bn / B1');
grid on;
zoom on;
hold off;

%Save the plot
util_print_fig(plt_file);

%Done
