%
% Written by:
% --
% John L. Weatherwax                2009-04-21
%
% email: wax@alum.mit.edu
%
% Please send comments and especially bug reports to the
% above email address.
%
%-----

close all; clc; clear; 

% EPage 137

x_data = linspace( 0, 1, 20 );
E_data = [ -3.5, -10.5, -14, -14.25, -9, -4, 1, 3.5, 3, -0.25, -3.5, -6.25, -5.5, -1.75, 4, 10.5, 15, 16.25, 12.75, 6.5 ];

plot( x_data, E_data, '.k', 'MarkerSize', 18 ); hold('on');
xlabel('fraction of a year'); ylabel('E');

xx_data = linspace( 0, 1, 300 );
ee_data = interp1( x_data, E_data, xx_data );

plot( xx_data, ee_data, '-b' );

% [x,y] = ginput(4)

% Min/Max/Min/Max correspond to: 
%
% x =
%     0.1601
%     0.3675
%     0.5772
%     0.8929

% y =
%   -14.3348
%     3.3699
%    -6.2500
%    16.1623

%saveas( gcf, '../../WriteUp/Graphics/Chapter7/c_7_p_11_plot.eps', 'epsc' );