Evolution of our location in the universe. From the center to the edge.
Exponential explosion of knowledge
Unification of the desire to go to the center of the Earth and the angles pushing planets. Newton’s apple. Apocryphal.
http://demonstrations.wolfram.com/ConditionForFreeFallAroundEarth/
The law of cosines
Voyager’s speed ~ 60,000km/h (Circumference of the Earth: 40,075 km. Why is it so close to 40,000km?)
60,000km/h divided by 1,000,000,000 km/h ~ 0.00006c
Addition of two speeds in Galilean and Eisensteinian frame of reference
Gravitational lensing demonstration
Spectrum. How to know red shift and how to detect the composition of distance stars. The nature of astronomy.
Gravity inside Earth http://demonstrations.wolfram.com/MotionInATunnelThroughTheEarth/
Tidal force makes rings
Interference pattern,
Manipulate[
GraphicsColumn[{
Plot[Sin[f t], {t, 0, 2 Pi}, PlotRange -> {-2, 2}],
Plot[Sin[f (t - distance)], {t, 0, 2 Pi}, PlotRange -> {-2, 2}],
Plot[Sin[f t] + Sin[f (t - distance)], {t, 0, 2 Pi},
PlotRange -> {-2, 2}]}, ImageSize -> 300]
, {f, 1, 20}, {distance, 0, Pi/20}]
beat frequency: http://demonstrations.wolfram.com/SuperpositionOfWaves/
diffraction: http://demonstrations.wolfram.com/FraunhoferDiffractionDoubleSlit/
MandelbrotSetPlot[{-2 - 1.5 I, 1 + 1.5 I},
ColorFunction -> ColorData["SandyTerrain"]]