Generate plots and a latex table of atm. properties across altitude.

------------------------------------------------------------------------
See also CreateLatexTable, StdAtm, NewFig, XLabelS, YLabelS
------------------------------------------------------------------------
%--------------------------------------------------------------------------
%   Copyright (c) 2007 Princeton Satellite Systems, Inc.
%   All rights reserved.
%--------------------------------------------------------------------------

h = linspace(0,24000);
	sPressure = 'N/m^2';
	sDensity  = 'kg/m^3';
	sSpeed    = 'm/s';
	sKinVisc  = 'm^2/s';
	sAlt      = 'm';
	sTemp     = 'deg-K';

g   = StdAtm( h );
h70 = 70000*12*0.0254;
g70 = StdAtm( h70 );
g0  = StdAtm( 0 );
xL  = ['Altitude (',sAlt,')'];

NewFig('Standard Atmosphere 1')
subplot(2,1,1)
semilogy(h,g.density)
YLabelS(['Density (',sDensity,')'])
grid
text(h70,g70.density,'x  70 kft')

subplot(2,1,2)
semilogy(h,g.pressure)
XLabelS(xL);
YLabelS(['Pressure (',sPressure,')'])
grid
text(h70,g70.pressure,'x  70 kft')

NewFig('Standard Atmosphere 2')
subplot(3,1,1)
plot(h,g.speedOfSound)
YLabelS(['Speed of sound (',sSpeed,')'])
grid
text(h70,g70.speedOfSound,'x  70 kft')

subplot(3,1,2)
plot(h,g.kinematicViscosity)
YLabelS(['Kinematic viscosity (',sKinVisc,')'])
grid
text(h70,g70.kinematicViscosity,'x  70 kft')

subplot(3,1,3)
plot(h,g.temperature)
XLabelS(xL);
YLabelS(['Temperature (',sTemp,')'])
grid
text(h70,g70.temperature,'x  70 kft')

x =      {'temperature' g0.temperature g70.temperature 'deg-K';...
          'pressure'    g0.pressure g70.pressure 'N/m$^2$';...
          'Density'     g0.density, g70.density 'kg/m$^3$';...
          'Speed of Sound' g0.speedOfSound g70.speedOfSound 'm/s';...
          'Kinematic Viscosity' g0.kinematicViscosity g70.kinematicViscosity, 'm$^2$/s'};
CreateLatexTable( x, 'Atm70KFt' );
DisplayLatexTable( x );

%--------------------------------------
grid =
     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1
grid =
     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1
grid =
     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1
grid =
     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1
grid =
     0     0     1     0     0     0     1     0
     0     0     0     1     0     1     0     0
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     1     0
     0     0     0     0     0     0     0     1
     0     0     0     0     0     0     0     0
     0     0     0     0     0     1     0     0
     0     1     0     0     0     1     1     1
        temperature 2.881600e+02 2.179860e+02    deg-K 
           pressure 1.013250e+05 4.450058e+03  N/m$^2$ 
            Density 1.225000e+00 7.112861e-02 kg/m$^3$ 
     Speed of Sound 3.402900e+02 2.959785e+02      m/s 
Kinematic Viscosity 1.460700e-05 2.010286e-04  m$^2$/s