Bestand:Coriolis.gif
Naar navigatie springen
Naar zoeken springen
Geen hogere resolutie beschikbaar.
Coriolis.gif (800 × 398 pixels, bestandsgrootte: 529 kB, MIME-type: image/gif, herhalend, 31 frames, 3,1 s)
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 toewijding aan het publieke domein. |
| 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 11:58 | | 800 × 398 (529 kB) | wikimediacommons>Berto | Uploaded own work with UploadWizard |
Bestandsgebruik
Dit bestand wordt op de volgende pagina gebruikt:
