高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
68: １３２人目の素数さん [sage] 2024/08/16(金)18:05:04.95 ID:3S2KNH0L(3/4)
>>66
臨床問題wwwお前本当馬鹿なんだな
じゃあ自称消化器外科のお前に問題出してやるよ
↓下の画像の病名は？
https://i.imgur.com/dCrMTtn.jpeg
で、なんでこれの答えが肝腫瘍なんだよマヌケ
274(1): １３２人目の素数さん [sage] 2024/10/30(水)12:12:01.95 ID:1cUZWH52(2/2)
>>271
比の検定だから、統計をやれば誰でも計算できる。ただし、裏口シリツ医は除く。
ちなみに、
女をみたら妊婦と思え、
シリツ医をみたら裏口と思え
は日本人の常識。
小学生新聞にも掲載されているから、小学生でも知っている
https://www.asagaku.com/jkp/2002/7/jkp7_6.html
国立卒の医師にかかる機会があれば
「お医者さんの世界の格言に
”女をみたら妊婦と思え”と言われるらしいですが、
日本では
”シリツ医をみたら裏口と思え”
というのをネットでみたのですが、本当ですか？」
と聞いてみるのがいいぞｗ
357(1): １３２人目の素数さん [sage] 2024/12/01(日)10:07:47.95 ID:URtmhVxU(1/7)
f(x,y)= x^y+y^x
0 <= x <= 1 かつ 0 <= y <= 1
とする
(1) z=f(x,y)を図示せよ
例 https://i.imgur.com/srMiE7B.gif
(2) z=f(x,y)とx-y平面で囲まれた図形の体積を求めよ
(3) z=f(x,y)の面積を求めよ（有効数字3桁の近似値でよい）
736(3): １３２人目の素数さん [sage] 02/22(土)07:37:49.95 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]]
764: １３２人目の素数さん [sage] 03/25(火)12:08:08.95 ID:JvJVqzfB(2/6)
pa[7,] # 2 4 4
c8=unique(comboGeneral(v,8)) ; c8
ans7=NULL
for(i in 1:nrow(c8)){
c44=c8[i,] ; c44
c4=unique(comboGeneral(c44,4)) ; c4
re44=cbind(c4,t(apply(c4,1, \(x) fn_rest(c44,x)))) ; re44
ans44=re44[apply(re44,1,\(x) sum(c(1000,100,10,1)*x[1:4]) <= sum(c(1000,100,10,1)*x[5:8])),] ; ans44
ans7=rbind(ans7,ans44)
}
matrix(c("赤","黒","白","青")[ans7],ncol=8) |> noquote()
re7=nrow(ans7) ; re7
pa[8,] # 3 3 4
c6=unique(comboGeneral(v,6)) ; c6
ans8=NULL
for(i in 1:nrow(c6)){
c33=c6[i,] ; c33
c3=unique(comboGeneral(c33,3)) ; c3
re33=cbind(c3,t(apply(c3,1, \(x) fn_rest(c33,x)))) ; re33
ans33=re33[apply(re33,1,\(x) sum(c(100,10,1)*x[1:3]) <= sum(c(100,10,1)*x[4:6])),] ; ans33
ans8=rbind(ans8,ans33)
}
matrix(c("赤","黒","白","青")[ans8],ncol=6) |> noquote()
re8=nrow(ans8) ; re8
(res=c(re1,re2,re3,re4,re5,re6,re7,re8))
sum(res)
929: １３２人目の素数さん [] 06/22(日)14:56:31.95 ID:DRKE+jFQ(4/5)
>>928
ただの日本語通じないレス乞食の分際で医者東大卒とか笑わせんな
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.040s