Bestand:Coriolis.gif
Geen hogere resolutie beschikbaar.
Coriolis.gif (800 × 398 pixels, bestandsgrootte: 529 kB, MIME-type: image/gif, herhalend, 31 frames, 3,1 s)
|
Dit is een bestand van Wikimedia Commons. Onderstaande beschrijving komt van de beschrijving van het bestand daar. |
Beschrijving
| Beschrijving |
English: If your frame of reference is rotating, objects that are in fact moving in a straight line looks to you like they are bending sideways, like there was a lateral force acting on them (Coriolis force). |
| Datum | |
| Bron | https://twitter.com/j_bertolotti/status/1245346304454209536 |
| Auteur | Jacopo Bertolotti |
| Toestemming (Hergebruik van dit bestand) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 12.0 code
\[Omega] = \[Pi]/2;
\[CapitalDelta] = 0.01;
sphr[t_] := Piecewise[{{0, t < 0.5}, {(t - 0.5)/Sqrt[2], 0.5 < t < 1.5}, {1/Sqrt[2], t >= 1.5}}];
landscape = {White, Table[Sphere[{RandomReal[{-4, 4}], RandomReal[{-4, 4}], 0.05}, 0.05], {40}]};
p0 = Table[
GraphicsRow[{
Graphics3D[{
Purple, Table[Sphere[{sphr[\[Tau]], sphr[\[Tau]], 0.11}, 0.02], {\[Tau], 0.5, t, \[CapitalDelta]}], Sphere[{sphr[t], sphr[t], 0.2}, 0.1],
landscape,
Lighter@Gray, Cylinder[{{0, 0, 0}, {0, 0, 0.1}}, 1],
Darker@Green, Cylinder[{{0, 0, 0}, {0, 0, -0.1}}, 10],
Black, Thickness[0.009], Thick, Sphere[{0, 0, 0.1}, 0.05],
Line[{{-Cos[\[Omega] t], -Sin[\[Omega] t], 0.1}, {Cos[\[Omega] t], Sin[\[Omega] t], 0.1}}],
Line[{{-Cos[\[Omega] t + \[Pi]/2], -Sin[\[Omega] t + \[Pi]/2], 0.1}, {Cos[\[Omega] t + \[Pi]/2], Sin[\[Omega] t + \[Pi]/2], 0.1}}]
}, Lighting -> "Neutral",
ViewVector -> {{3, 0, 1.5}, {0, 0, 0}}, ViewVertical -> {0, 0, 1}, ViewAngle -> 50*Degree, Boxed -> False, Background -> Black]
,
Graphics3D[{
Purple, Table[Sphere[{sphr[\[Tau]]*Sqrt[2] Cos[\[Omega] (t - \[Tau]) + \[Pi]/4], sphr[\[Tau]]*Sqrt[2] Sin[\[Omega] (t - \[Tau]) + \[Pi]/4], 0.11}, 0.02], {\[Tau], 0, t, \[CapitalDelta]}],
Sphere[{sphr[t], sphr[t], 0.2}, 0.1],
landscape,
Lighter@Gray, Cylinder[{{0, 0, 0}, {0, 0, 0.1}}, 1],
Darker@Green, Cylinder[{{0, 0, 0}, {0, 0, -0.1}}, 10],
Black, Thickness[0.009], Sphere[{0, 0, 0.1}, 0.05],
Line[{{-Cos[\[Omega] t], -Sin[\[Omega] t], 0.11}, {Cos[\[Omega] t], Sin[\[Omega] t], 0.11}}],
Line[{{-Cos[\[Omega] t + \[Pi]/2], -Sin[\[Omega] t + \[Pi]/2], 0.1}, {Cos[\[Omega] t + \[Pi]/2], Sin[\[Omega] t + \[Pi]/2], 0.1}}]
}, Lighting -> "Neutral", ViewVector -> {{3 Cos[\[Omega] t], 3 Sin[\[Omega] t], 1.5}, {0, 0, 0}}, ViewVertical -> {0, 0, 1}, ViewAngle -> 50*Degree, Boxed -> False, Background -> Black]
}]
, {t, 0, 1.5, 1/20}];
ListAnimate[p0]
Licentie
Ik, de auteursrechthebbende van dit werk, maak het hierbij onder de volgende licentie beschikbaar:
 
|
Dit bestand is beschikbaar onder Creative Commons CC0 1.0 Universele Public Domain Dedication. |
| De persoon die een werk voorziet van deze licentie stelt dit werk beschikbaar aan het publieke domein door, voor zover dit wettelijk is toegestaan, afstand te doen van alle rechten op het werk in de zin van het auteursrecht, met inbegrip van alle aanverwante of naburige rechten. U kunt het werk kopiëren, aanpassen, distribueren en uitvoeren, ook voor commerciële doeleinden, zonder dat u daarvoor toestemming hoeft te vragen.
|
Bestandsgeschiedenis
Klik op een datum/tijd om het bestand te zien zoals het destijds was.
| Datum/tijd | Miniatuur | Afmetingen | Gebruiker | Opmerking | |
|---|---|---|---|---|---|
| huidige versie | 2 apr 2020 12:58 | | 800 × 398 (529 kB) | Berto | Uploaded own work with UploadWizard |
Bestandsgebruik
Dit bestand wordt op de volgende pagina gebruikt:
Globaal bestandsgebruik
De volgende andere wiki's gebruiken dit bestand:
- Gebruikt op da.wikipedia.org
- Gebruikt op en.wikipedia.org
- Gebruikt op it.wikiquote.org
