Explore the Daily Change of Worldwide Tides

Open in Cloud
Download Notebook

Simulate the effect of the Moon's gravitational pull

Take a list of triples

{lat,lon,

}

, based on satellite data, for a rectangular grid of geo positions across the whole world:

In[1]:=

latlonM2=

M2 data

;

Compute tide elevation values for Jan 1, 2001, at intervals of 1 hour:

In[2]:=

date1=DateObject[{2001,1,1,0}];dates=DateRange[date1,date1+Quantity[1,"Days"],"Hour"];

Define a function using

TideData

to compute the current water level relative to the mean, for a given value of

, at specific geodetic position and date:

In[3]:=

tideWaterLevel[date_,{lat_,lon_,m2_}]:=GeoPosition[{lon,lat}]TideData

M 2	TIDAL CONSTITUENT

m2,"WaterLevel",date;

Obtain the water level on Jan 1, 2001:

In[4]:=

waterlevels=Outer[tideWaterLevel,dates,latlonM2,1];

Construct a contour plot of water levels for each of the 25 instants of time:

In[5]:=

contourplots=TableGeoContourPlotwaterlevelsi,

,{i,25};

In[6]:=

Showcontourplots1,

GeoGraphics[

]



Out[6]=

Animate those contour plots, showing tide oscillations for a full day. Blue-tone colors represent low tides and yellow-tone colors represent high tides:

In[7]:=

ListAnimateTableShowcontourplotsi,

GeoGraphics[

]

,{i,Length[dates]}

Out[7]=

Related Symbols

TideData
GeoPosition
GeoContourPlot
DateObject
DateRange

Publisher Information

Contributed by: Wolfram Staff

Wolfram Language Example Repository

Explore the Daily Change of Worldwide Tides

See Also

Publisher Information