コンテンツにスキップ

ファイル: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

使用された手段・手法: SHA-1

データサイズ

541,393 バイト

継続時間

3.1000000000000014 秒

全高

398 ピクセル

全幅

800 ピクセル

ファイルの履歴

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

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

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

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

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

メタデータ

このファイルには、追加情報があります (おそらく、作成やデジタル化する際に使用したデジタルカメラやスキャナーが追加したものです)。

このファイルが元の状態から変更されている場合、修正されたファイルを完全に反映していない項目がある場合があります。

「https://ja.wikipedia.org/wiki/ファイル:Coriolis.gif」から取得