Fil:Coriolis.gif
Coriolis.gif (800 × 398 billedpunkter, filstørrelse: 529 KB, MIME-type: image/gif, gentaget, 31 rammer, 3,1 s)
Denne fil er fra Wikimedia Commons. Beskrivelsen af filen fra Commons er gengivet nedenfor. |
Beskrivelse
BeskrivelseCoriolis.gif |
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). |
Dato | |
Kilde | https://twitter.com/j_bertolotti/status/1245346304454209536 |
Forfatter | Jacopo Bertolotti |
Tilladelse (Genbrug af denne fil) |
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]
Licensering
Denne fil er udgivet under Creative Commons CC0 1.0 Universal Public Domain Dedication. | |
Personen, der har tilknyttet et værk til dette dokument, har dikteret værket som offentlig ejendom ved at give afkald alle hans eller hendes rettigheder til værket på verdensplan efter lov om ophavsret og alle relaterede og beslægtede rettigheder, i det omfang lovgivningen tillader det. Du kan kopiere, distribuere og forarbejde værket selv til kommercielle formål; alt sammen uden at spørge om godkendelse.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Elementer som er med i denne fil
afbilder
Denne egenskab har en værdi, men den er ukendt
1. april 2020
image/gif
c7f906895c8ec26ceab8e8f8191ed6fb26200724
541.393 Byte
3,1000000000000014 sekund
398 pixel
800 pixel
Filhistorik
Klik på en dato/tid for at se filen som den så ud på det tidspunkt.
Dato/tid | Miniaturebillede | Dimensioner | Bruger | Kommentar | |
---|---|---|---|---|---|
nuværende | 2. apr. 2020, 12:58 | 800 × 398 (529 KB) | Berto | Uploaded own work with UploadWizard |
Filanvendelse
Den følgende side bruger denne fil:
Global filanvendelse
Følgende andre wikier anvender denne fil:
- Anvendelser på en.wikipedia.org
- Anvendelser på it.wikiquote.org
- Anvendelser på nl.wikipedia.org
Metadata
Denne fil indeholder ekstra information, som formentlig er tilføjet fra et digitalt kamera eller en skanner, der enten blev brugt til at skabe billede eller digitalisere det. Hvis filen har været ændret siden dens oprindelige tilblivelse, kan nogle detaljer muligvis ikke fuldt ud repræsentere det modificerede billede.
GIF-filkommentar | Created with the Wolfram Language : www.wolfram.com |
---|