高校数学の質問スレ（医者・東大卒専用） Part439 (50ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

13: １３２人目の素数さん [sage] 08/09(土)17:23:57.87 ID:niZXQaB5(10/16)
>>9
Rで自作したコードをAIでMathematicaに移植。
Rだと小数解になるので、厳密解（分数解）で出したいときは、AIに移植を依頼すると要望に応えてくれる。

光速を１としたときに速度u,vがすれ違うときの相対速度のグラフ。

https://i.imgur.com/L4iA483.png


relativeVelocity[u_, v_, theta_: Pi, c_: 1] := Module[{
numerator,
denominator
},
numerator = Sqrt[u^2 + v^2 - 2*u*v*Cos[theta] - (u^2*v^2*Sin[theta]^2)/c^2];
denominator = 1 - (u*v*Cos[theta])/c^2;

numerator/denominator
]

u = Range[0, 1, 1/99];
v = Range[0, 1, 1/99];

z = Outer[relativeVelocity, u, v];

ContourPlot[relativeVelocity[x, y], {x, 0, 1}, {y, 0, 1},
PlotLegends -> Automatic,
Contours -> 50,
FrameLabel -> {"u", "v"}
]

relativeVelocity[15/30,15/30]
relativeVelocity[20/30,20/30]
relativeVelocity[9/10,9/10]

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.016s