コンテンツにスキップ

ファイル:Coriolis.gif

ページのコンテンツが他言語でサポートされていません。

Coriolis.gif (800 × 398 ピクセル、ファイルサイズ: 529キロバイト、MIME タイプ: image/gif、ループします、31 フレーム、3.1秒)

概要

解説
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).
日付
原典 https://twitter.com/j_bertolotti/status/1245346304454209536
作者 Jacopo Bertolotti
許可
(ファイルの再利用)
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]

ライセンス

この作品の著作権者である私は、この作品を以下のライセンスで提供します。
Creative Commons CC-Zero このファイルはクリエイティブ・コモンズ CC0 1.0 全世界 パブリック・ドメイン提供のもとで利用可能にされています。
ある作品に本コモンズ証を関連づけた者は、その作品について世界全地域において著作権法上認められる、その者が持つすべての権利(その作品に関する権利や隣接する権利を含む。)を、法令上認められる最大限の範囲で放棄して、パブリック・ドメインに提供しています。

この作品は、たとえ営利目的であっても、許可を得ずに複製、改変・翻案、配布、上演・演奏することが出来ます。

キャプション

このファイルの内容を1行で記述してください
Schematic of how Coriolis effect arise from a change of frame of refenence.

このファイルに描写されている項目

題材

1 4 2020

c7f906895c8ec26ceab8e8f8191ed6fb26200724

541,393 バイト

3.1000000000000014

398 ピクセル

800 ピクセル

ファイルの履歴

過去の版のファイルを表示するには、その版の日時をクリックしてください。

日付と時刻サムネイル寸法利用者コメント
現在の版2020年4月2日 (木) 10:582020年4月2日 (木) 10:58時点における版のサムネイル800 × 398 (529キロバイト)BertoUploaded own work with UploadWizard

このファイルを使用しているページはありません。

グローバルなファイル使用状況

以下に挙げる他のウィキがこの画像を使っています:

メタデータ