ファイル:MOND vs Newtonian rotation.gif
高解像度版はありません。
MOND_vs_Newtonian_rotation.gif (369 × 314 ピクセル、ファイルサイズ: 2.47メガバイト、MIME タイプ: image/gif、ループします、101 フレーム、10秒)
|
ウィキメディア・コモンズのファイルページにある説明を、以下に表示します。
|
概要
| 解説 |
English: MOND is a possible explanation for the observed v(r) curve for stars in a galaxy (which is incompatible with Newtonian gravity).
The observed behaviour is explained by assuming that Newton's second law (F=m a) is modified for very small values of a. |
| 日付 | |
| 原典 | https://twitter.com/j_bertolotti/status/1283363962780815361 |
| 作者 | Jacopo Bertolotti |
| 許可 (ファイルの再利用) |
https://twitter.com/j_bertolotti/status/1030470604418428929 |
Mathematica 12.1 code
\[Rho]0 = 5 ; Rs = 10; a0 =.; G = 1; M[r_] := \[Rho]0 (1 - Cosh[r] + Sinh[r]);(*Exponential mass distribution*)
\[Omega]newton[pos_] := Sqrt[(G M[r])/Norm[pos]^3];
\[Omega]MOND[r_, a0_] := Evaluate[FullSimplify[Sqrt[Evaluate[ a /. Solve[(G M[r])/Norm[r]^2 == a/Sqrt[1 + a0^2/a^2], a][[4]] ]/ Norm[r]]] ]
rmax = 10;
\[Delta]r = 0.1;
a0 = 20;
p0 = Table[
Grid[{
{
Plot[\[Omega]newton[r]*r, {r, 0, rmax}, ImageSize -> Small, PlotRange -> {0, 4}, Axes -> False, Frame -> True, FrameTicks -> None, FrameLabel -> {{"v", ""}, {"r", "Newtonian gravity"}}, LabelStyle -> {Bold, LightGray}, PlotStyle -> {White}, Background -> Black]
,
Plot[\[Omega]MOND[r, a0]*r, {r, 0, rmax}, ImageSize -> Small, PlotRange -> {0, 4}, Axes -> False, Frame -> True, FrameTicks -> None, FrameLabel -> {{"v", ""}, {"r", "MOND"}}, LabelStyle -> {Bold, LightGray}, PlotStyle -> {White}, Background -> Black]
}, {
Graphics[{
Flatten@Table[{
Orange,
Disk[{0, 0}, r + \[Delta]r, {0 + \[Omega]newton[r] t, \[Pi] + \[Omega]newton[r] t}],
Black,
Disk[{0, 0}, r, {0 + \[Omega]newton[r] t, \[Pi] + \[Omega]newton[r] t}],
Purple,
Disk[{0, 0}, r + \[Delta]r, {\[Pi] + \[Omega]newton[r] t, 2 \[Pi] + \[Omega]newton[r] t}],
Black,
Disk[{0, 0}, r, {\[Pi] + \[Omega]newton[r] t, 2 \[Pi] + \[Omega]newton[r] t}]
}, {r, rmax - \[Delta]r, \[Delta]r/10, -\[Delta]r}]
}, PlotRange -> 1.1 {{-rmax, rmax}, {-rmax, rmax}},
Background -> Black]
,
Graphics[{
Flatten@Table[{
Orange,
Disk[{0, 0},
r + \[Delta]r, {0 + \[Omega]MOND[r, a0] t, \[Pi] + \[Omega]MOND[r, a0] t}],
Black,
Disk[{0, 0}, r, {0 + \[Omega]MOND[r, a0] t, \[Pi] + \[Omega]MOND[r, a0] t}],
Purple,
Disk[{0, 0}, r + \[Delta]r, {\[Pi] + \[Omega]MOND[r, a0] t, 2 \[Pi] + \[Omega]MOND[r, a0] t}],
Black,
Disk[{0, 0}, r, {\[Pi] + \[Omega]MOND[r, a0] t, 2 \[Pi] + \[Omega]MOND[r, a0] t}]
}, {r, rmax - \[Delta]r, \[Delta]r/10, -\[Delta]r}]
}, PlotRange -> 1.1 {{-rmax, rmax}, {-rmax, rmax}},
Background -> Black]
}}, Background -> Black]
, {t, 0, 10, 0.1}];
ListAnimate[p0]
ライセンス
この作品の著作権者である私は、この作品を以下のライセンスで提供します。
 
|
このファイルはクリエイティブ・コモンズ CC0 1.0 全世界 パブリック・ドメイン提供のもとで利用可能にされています。 |
| ある作品に本コモンズ証を関連づけた者は、その作品について世界全地域において著作権法上認められる、その者が持つすべての権利（その作品に関する権利や隣接する権利を含む。）を、法令上認められる最大限の範囲で放棄して、パブリック・ドメインに提供しています。
この作品は、たとえ営利目的であっても、許可を得ずに複製、改変・翻案、配布、上演・演奏することが出来ます。 |
ファイルの履歴
過去の版のファイルを表示するには、その版の日時をクリックしてください。
| 日付と時刻 | サムネイル | 寸法 | 利用者 | コメント | |
|---|---|---|---|---|---|
| 現在の版 | 2020年7月16日 (木) 10:05 | | 369 × 314 (2.47メガバイト) | Berto | Uploaded own work with UploadWizard |
ファイルの使用状況
以下のページがこのファイルを使用しています:
