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

---

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

---

252: １３２人目の素数さん [sage] 2024/10/27(日)09:42 ID:HIz5euo6(1/3)
# 一峰性非対称分布する離散量t1の95% highest probability intervalを返す

t2=sort(table(t1),decreasing=TRUE)
t3=as.numeric(names(t2))
t4=t2/sum(t2)
t5=sum(cumsum(t4)<0.95)
range(t3[1:t5])
sum(t2[1:t5]/sum(t2))
range(t3[1:(t5+1)])
sum(t2[1:(t5+1)]/sum(t2))

---

253(1): １３２人目の素数さん [sage] 2024/10/27(日)09:51 ID:HIz5euo6(2/3)
>>246
例

複素平面上の点A,B,Cの作る三角形の面積を求める関数をプログラムせよ

行列式を使って1行で完成する

ABCS <- function(A,B,C) abs(det(rbind(c(Re(A-C),Im(A-C)),c(Re(B-C),Im(B-C)))))/2

---

254: １３２人目の素数さん [sage] 2024/10/27(日)09:55 ID:HIz5euo6(3/3)
数学の知識がプログラム短縮できる例（R言語）

四面体の頂点を与えて四面体の体積を行列式を使って計算

ABCD2V <- function(A,B,C,D){ # 四面体ABCDの体積
v=rbind(A,B,C,D)
abs(det(rbind(v[1,]-v[4,],v[2,]-v[4,],v[3,]-v[4,])))/6
}

---

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

---

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

---

ぬこの手 ぬこTOP 0.039s