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

---

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

---

391: １３２人目の素数さん [sage] 2024/12/07(土)10:48 ID:xtC19jyX(1/2)
m=50+1
n=2^Ceiling[Log[2,m]];
t1=Table[Reverse@IntegerDigits[x,2],{x,1,n-1}];
ans=Table[{},Log[2,n]];
For[i=1,i<m,i++,AppendTo[ans[[#]],i]& /@ Flatten@Position[t1[[i]],1]];
res=Reverse[ans];
MatrixForm@res

---

392(1): １３２人目の素数さん [sage] 2024/12/07(土)12:16 ID:xtC19jyX(2/2)
ある仮想疾患Fラン病（別名：チンパンフェチ病）を考える。

実験のために抗原陰性の血清50検体を準備していたところ、手違いで抗原陽性の検体が１つ紛れて51検体になった。
検体量は十分あるため抗原の有無の検査を繰り返すことは可能である。
複数の検体を混ぜて検査することも可能である。
検査１回に10万円かかるとする。
最低の費用で抗原陽性の検体を同定する方法を記載せよ。

Rで検体グループ分けを表示させる

m=50+1
g=ceiling(log2(m))
grp=vector("list",length=g)
f=Vectorize(\(x) dec2nw(x,2,g))
b=t(f(1:(m-1)))
for(i in 1:nrow(b)){
for(k in which(b[i,]==1)) grp[[k]]=c(grp[[k]],i)
}
grp

---

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

---

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

---

ぬこの手 ぬこTOP 0.036s