高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

445(4): 2024/12/22(日)10:04 ID:rWRciXK9(1/8) AAS
>>439
では毒薬が２本のときのWolframのコードを書いてみ！

---

447(1): 2024/12/22(日)11:05 ID:rWRciXK9(2/8) AAS
>>445
Wolframを使えないのが確定。
やはり、Fラン卒なのか？

---

452(3): 2024/12/22(日)12:33 ID:rWRciXK9(3/8) AAS
>>444
>>444
Wolframで思い通りに作図するスキルはないので
R言語で最小値と最大値を求めてそのときの図を作図。
r=0.3のとき
> c(min,max)
[1] 0.3314719 2.0285281
省6

---

453(1): 2024/12/22(日)12:35 ID:rWRciXK9(4/8) AAS
>>452
おまけ、R言語でのクズコード
理工系卒ならWolframで書けるはず。
但し、Fラン卒は除く。

r=0.3
source("toolmini.R")
p=0.5+0.5i
省33

---

454: 2024/12/22(日)12:40 ID:rWRciXK9(5/8) AAS
>>453
算出のために作った関数の動作確認の図
画像ﾘﾝｸ[png]:i.imgur.com

---

455: 2024/12/22(日)12:42 ID:rWRciXK9(6/8) AAS
毒薬が２本のときのWolframのコード 　まだぁ？

---

463(2): 2024/12/22(日)18:41 ID:rWRciXK9(7/8) AAS
>444に答えてあげればいいのに。
それもできないのでFラン確定！

fd=\(lat1,lon1,lat2,lon2,R){
R*acos(
sin(lat1)*sin(lat2)+cos(lat1)*cos(lat2)*cos(lon1-lon2)
)
}
省1

---

466(1): 2024/12/22(日)21:03 ID:rWRciXK9(8/8) AAS
spherical_triangle_area <- function(R, a, b, c) {
# 直交座標への変換
to_cartesian <- function(lat, lon) {
c(cos(lat) * cos(lon), cos(lat) * sin(lon), sin(lat))
}

p <- to_cartesian(a[1], a[2])
q <- to_cartesian(b[1], b[2])
省17

---

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

---

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

---

ぬこの手 ぬこTOP 0.029s