Home

Staff
     
Consulting
               
Mathematica Tools

Customer Quotes
        
Contact

Older Mathematica Items
 

 

 

 

 

Scientific Arts

StandardAtmospheres

•Functions and parameters contained in this package:

In[1]:=

RadarPackageFunctions[StandardAtmospheres, 2]

Out[1]//DisplayForm=

[Graphics:HTMLFiles/index_2.gif]

•Package functions and their basic documentation along with simple examples

•FindStationReport

[Graphics:HTMLFiles/index_3.gif]

In[2]:=

FindStationReport["len"]

[Graphics:HTMLFiles/index_5.gif]

In[3]:=

FindStationReport[{40, 42}, {-74, 0}, 400]

[Graphics:HTMLFiles/index_7.gif]

•FindStation

[Graphics:HTMLFiles/index_8.gif]

In[4]:=

FindStation["airport"]

Out[4]=

{{BROOME_AIRPORT, WEAU, 942030, {-17, -57}, {122, 14}, 9}, {BRUNEI_AIRPORT, BF, 963150, {4, 56 ... 876230, {-36, -34}, {295, 44}, 189}, {SAO_PAULO_AIRPORT, BZ, 837800, {-23, -37}, {313, 21}, 802}}

In[5]:=

FindStation["intl"]

Out[5]=

{{ANCHORAGE_INTL, AKUS, 702730, {61, 10}, {209, 59}, 45}, {BELIZE_INTL, BH, 785830, {17, 32}, ... INTL, WAUS, 727850, {47, 38}, {242, 28}, 720}, {TRIPOLI_INTL, LY, 620100, {32, 41}, {13, 10}, 80}}

•FindStationFull

[Graphics:HTMLFiles/index_13.gif]

Usage message for FindStationFull

•FindStationFullReport

[Graphics:HTMLFiles/index_14.gif]

Usage message for FindStationFullReport

•GeometricalHeight

[Graphics:HTMLFiles/index_15.gif]

In[6]:=

GeometricalHeight[h]

Out[6]=

(31855043857 h)/(5000 (31855043857/5000 - h))

•GeopotentialHeight

[Graphics:HTMLFiles/index_18.gif]

In[7]:=

GeopotentialHeight[h]

Out[7]=

(31855043857 h)/(5000 (31855043857/5000 + h))

•HeightTopographic

[Graphics:HTMLFiles/index_21.gif]

To find the location of Denver Co, first load the Mathematica standate add-on package Miscellaneous`CityData`

In[8]:=

Needs["Miscellaneous`CityData`"] ;

In[9]:=

denverLocation = CityData["Denver", CityPosition]

Out[9]=

{{39, 44, 21}, {-104, -59, -3}}

Denver is known as the "Mile High City".  This appears to be roughly accurate:

In[10]:=

HeightTopographic[Sequence @@ denverLocation] MetersToMiles

Out[10]=

1.037140756981638`

Here is an uncalibrated color rendition of the data:

In[11]:=

DensityPlot[HeightTopographic[lat, long], {long, -180, 180}, {lat, -90, 90}, ColorFunction -> Hue, PlotPoints -> 200, Mesh -> False, AspectRatio -> Automatic] ;

[Graphics:HTMLFiles/index_28.gif]

•MeanTemperature

[Graphics:HTMLFiles/index_29.gif]

In[12]:=

FindStationReport["mx"]

[Graphics:HTMLFiles/index_31.gif]

It is cooler in the mean at a high elevation in Mexico...

In[13]:=

KelvinToFarenheit[MeanTemperature[{28, 42}, {253, 56}]]

Out[13]=

54.71781551958164`

...than at a costal location:

In[14]:=

KelvinToFarenheit[MeanTemperature[{23, 12}, {253, 35}]]

Out[14]=

77.72252312743392`

Here is an uncalibrated color rendition of the data:

In[15]:=

DensityPlot[MeanTemperature[lat, long], {long, -180, 180}, {lat, -90, 90}, ColorFunction -> Hue, PlotPoints -> 150, Mesh -> False, AspectRatio -> Automatic] ;

[Graphics:HTMLFiles/index_37.gif]

•Pressure1976

[Graphics:HTMLFiles/index_38.gif]

In[16]:=

pressurePlot1976 = Plot[Pressure1976[h KilometersToMeters], {h, 0, 50}, Frame -> True, Exch ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[1, 0, 0]}] ;

[Graphics:HTMLFiles/index_40.gif]

•PressureCOSPAR

[Graphics:HTMLFiles/index_41.gif]

In[17]:=

pressurePlotCOSPAR = Plot[PressureCOSPAR[h KilometersToMeters], {h, 0, 50}, Frame -> True, ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[0, 1, 0]}] ;

[Graphics:HTMLFiles/index_43.gif]

In[18]:=

Show[pressurePlot1976, pressurePlotCOSPAR, ImageSize -> 400] ;

[Graphics:HTMLFiles/index_45.gif]

•PressureITU

[Graphics:HTMLFiles/index_46.gif]

•PressureLowLatitude

[Graphics:HTMLFiles/index_47.gif]

Usage message for PressureLowLatitude

In[19]:=

Plot[PressureLowLatitude[h KilometersToMeters], {h, 0, 50}, Frame -> True, Axes -> False ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[0, 1, 0]}] ;

[Graphics:HTMLFiles/index_49.gif]

•PressureSummerHighLatitude

[Graphics:HTMLFiles/index_50.gif]

In[20]:=

Plot[PressureSummerHighLatitude[h KilometersToMeters], {h, 0, 50}, Frame -> True, Axes -> ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[0, 1, 0]}] ;

[Graphics:HTMLFiles/index_52.gif]

•PressureSummerMidLatitude

[Graphics:HTMLFiles/index_53.gif]

In[21]:=

Plot[PressureSummerMidLatitude[h KilometersToMeters], {h, 0, 50}, Frame -> True, Axes -> ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[0, 1, 0]}] ;

[Graphics:HTMLFiles/index_55.gif]

•PressureWinterHighLatitude

[Graphics:HTMLFiles/index_56.gif]

In[22]:=

Plot[PressureWinterHighLatitude[h KilometersToMeters], {h, 0, 50}, Frame -> True, Axes -> ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[0, 1, 0]}] ;

[Graphics:HTMLFiles/index_58.gif]

•PressureWinterMidLatitude

[Graphics:HTMLFiles/index_59.gif]

In[23]:=

Plot[PressureWinterMidLatitude[h KilometersToMeters], {h, 0, 50}, Frame -> True, Axes -> ... abel -> {"Pressure", "Height (km)"}, PlotStyle -> {RGBColor[0, 1, 0]}] ;

[Graphics:HTMLFiles/index_61.gif]

•RelativeHumidity

[Graphics:HTMLFiles/index_62.gif]

In[24]:=

RelativeHumidity[WaterVaporDensityLowLatitude[0], SaturatedVaporDensity[TemperatureLowLatitude[0]]]

Out[24]=

0.7522144671639929`

•SaturatedVaporDensity

[Graphics:HTMLFiles/index_65.gif]

In[25]:=

SaturatedVaporDensity[TemperatureLowLatitude[0]]

Out[25]=

26.12845253309269`

In[26]:=

WaterVaporDensityLowLatitude[0]

Out[26]=

19.6542`

•StandardAtmospheres

[Graphics:HTMLFiles/index_70.gif]

•Temperature1976

[Graphics:HTMLFiles/index_71.gif]

In[27]:=

temperature1976 = Plot[Temperature1976[h KilometersToMeters], {h, 0, 200}, Frame -> True, Exchanged -> True, FrameLabel -> {"Temperature", "Height (km)"}] ;

[Graphics:HTMLFiles/index_73.gif]

•TemperatureCOSPAR

[Graphics:HTMLFiles/index_74.gif]

In[28]:=

temperatureCOSPARFebruary45 = Plot[TemperatureCOSPAR[February, h KilometersToMeters, 45], {h, ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[1, .2, .2]}] ;

[Graphics:HTMLFiles/index_76.gif]

In[29]:=

temperatureCOSPARJuly45 = Plot[TemperatureCOSPAR[July, h KilometersToMeters, 45], {h, 0, 100}, ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[.2, 1, .2]}] ;

[Graphics:HTMLFiles/index_78.gif]

In[30]:=

Show[temperature1976, temperatureCOSPARFebruary45, temperatureCOSPARJuly45, Axes -> False] ;

[Graphics:HTMLFiles/index_80.gif]

•TemperatureITU

[Graphics:HTMLFiles/index_81.gif]

•TemperatureLowLatitude

[Graphics:HTMLFiles/index_82.gif]

In[31]:=

Plot[TemperatureLowLatitude[h KilometersToMeters], {h, 0, 100}, Frame -> True, Exchanged -& ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[.2, 1, .2]}] ;

[Graphics:HTMLFiles/index_84.gif]

•TemperatureSummerHighLatitude

[Graphics:HTMLFiles/index_85.gif]

In[32]:=

Plot[TemperatureSummerHighLatitude[h KilometersToMeters], {h, 0, 100}, Frame -> True, Excha ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[.2, 1, .2]}] ;

[Graphics:HTMLFiles/index_87.gif]

•TemperatureSummerMidLatitude

[Graphics:HTMLFiles/index_88.gif]

In[33]:=

Plot[TemperatureSummerMidLatitude[h KilometersToMeters], {h, 0, 100}, Frame -> True, Exchan ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[.2, 1, .2]}] ;

[Graphics:HTMLFiles/index_90.gif]

•TemperatureWinterHighLatitude

[Graphics:HTMLFiles/index_91.gif]

In[34]:=

Plot[TemperatureWinterHighLatitude[h KilometersToMeters], {h, 0, 100}, Frame -> True, Excha ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[.2, 1, .2]}] ;

[Graphics:HTMLFiles/index_93.gif]

•TemperatureWinterMidLatitude

[Graphics:HTMLFiles/index_94.gif]

In[35]:=

temperatureWinterMidLatitude = Plot[TemperatureWinterMidLatitude[h KilometersToMeters], {h, 0, ... -> {"Temperature", "Height (km)"}, PlotStyle -> {RGBColor[.2, 1, .2]}] ;

[Graphics:HTMLFiles/index_96.gif]

In[36]:=

Show[temperatureCOSPARFebruary45, temperatureWinterMidLatitude, Axes -> False] ;

[Graphics:HTMLFiles/index_98.gif]

•VaporDensity

[Graphics:HTMLFiles/index_99.gif]

•WaterVaporDensityITU

[Graphics:HTMLFiles/index_100.gif]

•WaterVaporDensityLowLatitude

[Graphics:HTMLFiles/index_101.gif]

•WaterVaporDensityMidLatitudeMean

[Graphics:HTMLFiles/index_102.gif]

In[37]:=

Plot[WaterVaporDensityMidLatitudeMean[h KilometersToMeters], {h, 0, 50}, Frame -> True, Exchanged -> True, FrameLabel -> {"Water vapor density", "Height (km)"}] ;

[Graphics:HTMLFiles/index_104.gif]

In[38]:=

Plot[WaterVaporDensitySummerMidLatitude[h KilometersToMeters], {h, 0, 50}, Frame -> True, E ... changed -> True, FrameLabel -> {"Water vapor density", "Height (km)"}] ;

[Graphics:HTMLFiles/index_106.gif]

•WaterVaporDensity

[Graphics:HTMLFiles/index_107.gif]

•WaterVaporDensitySummerHighLatitude

[Graphics:HTMLFiles/index_108.gif]

•WaterVaporDensitySummerMidLatitude

[Graphics:HTMLFiles/index_109.gif]

•WaterVaporDensityWinterHighLatitude

[Graphics:HTMLFiles/index_110.gif]

•WaterVaporDensityWinterMidLatitude

[Graphics:HTMLFiles/index_111.gif]

For further information on our services send email to info@scientificarts.com .
Contents of this web site Copyright © 1999-2011, Scientific Arts, LLC.

d