高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
736(3): １３２人目の素数さん [sage] 02/22(土)07:37 ID:C9pebjv4(1)
(* 感度と特異度のリスト *)
sen = {30, 5, 5, 97}/100;
spc = {68, 95, 95, 60}/100;
(* すべての組み合わせを生成 *)
result = Tuples[{0, 1}, Length[sen]];
(* 事前確率 *)
prior = 1/2;
(* 尤度比の計算 *)
LikelihoodRatioPositive[s_, sp_] := s / (1 - sp);
LikelihoodRatioNegative[s_, sp_] := (1 - s) / sp;
(* 事後確率を求める関数 *)
fposterior[obs_, prior_, sen_, spc_] := Module[
{odds, lr},
odds = prior / (1 - prior); (* 事前オッズ *)
lr = Times @@ Table[
If[obs[[i]] == 1,
LikelihoodRatioPositive[sen[[i]], spc[[i]]],
LikelihoodRatioNegative[sen[[i]], spc[[i]]]
],
{i, Length[sen]}
];
odds = odds * lr; (* 事後オッズ *)
odds / (1 + odds) (* 事後確率 *)
];
(* すべての組み合わせに対して計算 *)
res = fposterior[#, prior, sen, spc] & /@ result;
(* 事後確率のリストを表示 *)
res
(* 事後確率をソート *)
sortedRes = Sort[res]
(* すべて陽性のときの事後確率 *)
fposterior[{1, 1, 1, 1}, prior, sen, spc]
% // N
(* すべて陰性のときの事後確率 *)
fposterior[{0, 0, 0, 0}, prior, sen, spc]
% // N
(* 最大の事後確率 *)
maxRes = Max[res]
% // N
(* 最大の事後確率を持つ組み合わせ *)
Extract[result, Position[res, maxRes]]
(* 最小の事後確率 *)
minRes = Min[res]
% // N
(* 最小の事後確率を持つ組み合わせ *)
Extract[result, Position[res, minRes]]
737: １３２人目の素数さん [sage] 02/22(土)07:44 ID:zA95ywrz(1/3)
>>736
円周率の定義すら分からないアホがまだ書き込みしようとしてんのかよ
738: １３２人目の素数さん [sage] 02/22(土)08:00 ID:zA95ywrz(2/3)
>>730＝>>736
こんなん書いてるようじゃfランどころか小学生未満だね
201：１３２人目の素数さん：[sage]：2025/02/20(木) 18:14:26.50 ID:wRRdyhfp
π＞3.14＞3.05
Q.E.D.
204：１３２人目の素数さん：[sage]：2025/02/20(木) 18:20:59.19 ID:zfoflehA
>>201
やっぱ馬鹿だから証明問題は出来ないみたいだな
思考回路が小学生並み
205：１３２人目の素数さん：[sage]：2025/02/20(木) 18:23:05.99 ID:zfoflehA
そもそも円周率は、π=(円周)/(円の直径)
が定義だからな
何でπ>3.14って証明もせずにいきなりなるんだよ
数学の証明問題全否定かよ
739: １３２人目の素数さん [sage] 02/22(土)12:50 ID:zA95ywrz(3/3)
>>736
おい尿瓶ジジイ
この高校生の質問はいつになったら解けるんだよ？
自称東大は滑り止め()なんだろ？
統計とか御託はいいからさっさと高校生にもわかるように解けよ
225：１３２人目の素数さん：[sage]：2025/02/22(土) 07:48:45.08 ID:XJ7LDN2h
>>223
僕も直感に沿わなない解答されたので質問させてください
円周率が3.05より大きいことを証明せよ
ただし円周率は(円周)/(円の直径)と定義され
円周率が3.14より大きい事は判明していないものとする
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.025s