高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)

高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

460: １３２人目の素数さん [sage] 2024/12/22(日) 17:42:21.06 ID:rKRhCRuS やはり、RのコードもWolframのコードもないクズ書き込みのみ。 Fラン確定！ Clear[{R,f,a,b,g}] (* 球の半径 *) R = 20; (* 半径を任意の値に設定 *) f[a_,b_]:=( {lat1,lon1}={a,0} Degree; {lat2,lon2}={b,90} Degree; cosc=Sin[lat1]Sin[lat2]+Cos[lat1]Cos[lat2]Cos[lon1-lon2]; R ArcCos[cosc] ) f[a,b] (* 点の座標 *) latLonToCartesian[R_, φ_, λ_] := R * { Cos[φ Degree] * Cos[λ Degree], Cos[φ Degree] * Sin[λ Degree], Sin[φ Degree] }; g[a_,b_]:=( (* 点 pC, pA, pB を設定 *) pC = latLonToCartesian[R, 90, 0] ;(* 点 P (90°, 経度0°) *) pA = latLonToCartesian[R, a, 0] ; (* 点 A (緯度a°, 経度0°) *) pB = latLonToCartesian[R, b , 90] ; (* 点 B (緯度0°, 経度90°) *) (* 大円の法線ベクトル *) n = Cross[pA, pB]; (* 点 P から大円への最短距離（球面上） *) distance = ArcSin[Abs[Dot[n, pC]] / Norm[n]] * R ) g[a,b] http://rio2016.5ch.net/test/read.cgi/math/1723152147/460

461: １３２人目の素数さん [sage] 2024/12/22(日) 17:55:17.31 ID:yf8QUsfH >>460 クズはいろんなスレに関係ないことしか書き込まないから総スカンにされてバカにされてるアンタのことだよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/461

462: １３２人目の素数さん [sage] 2024/12/22(日) 17:55:22.37 ID:gaGlxwVG >>460 やはりスレタイ読めない 保育園卒確定！ http://rio2016.5ch.net/test/read.cgi/math/1723152147/462

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 1.783s*