高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
68: １３２人目の素数さん [sage] 2024/08/16(金) 18:05:04.95 ID:3S2KNH0L >>66 臨床問題wwwお前本当馬鹿なんだな じゃあ自称消化器外科のお前に問題出してやるよ ↓下の画像の病名は？ https://i.imgur.com/dCrMTtn.jpeg で、なんでこれの答えが肝腫瘍なんだよマヌケ http://rio2016.5ch.net/test/read.cgi/math/1723152147/68
274: １３２人目の素数さん [sage] 2024/10/30(水) 12:12:01.95 ID:1cUZWH52 >>271 比の検定だから、統計をやれば誰でも計算できる。ただし、裏口シリツ医は除く。 ちなみに、 女をみたら妊婦と思え、 シリツ医をみたら裏口と思え は日本人の常識。 小学生新聞にも掲載されているから、小学生でも知っている https://www.asagaku.com/jkp/2002/7/jkp7_6.html 国立卒の医師にかかる機会があれば 「お医者さんの世界の格言に ”女をみたら妊婦と思え”と言われるらしいですが、 日本では ”シリツ医をみたら裏口と思え” というのをネットでみたのですが、本当ですか？」 と聞いてみるのがいいぞｗ http://rio2016.5ch.net/test/read.cgi/math/1723152147/274
357: １３２人目の素数さん [sage] 2024/12/01(日) 10:07:47.95 ID:URtmhVxU 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桁の近似値でよい） http://rio2016.5ch.net/test/read.cgi/math/1723152147/357
736: １３２人目の素数さん [sage] 2025/02/22(土) 07:37:49.95 ID:C9pebjv4 (* 感度と特異度のリスト *) 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]] http://rio2016.5ch.net/test/read.cgi/math/1723152147/736
764: １３２人目の素数さん [sage] 2025/03/25(火) 12:08:08.95 ID:JvJVqzfB 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) http://rio2016.5ch.net/test/read.cgi/math/1723152147/764
929: １３２人目の素数さん [] 2025/06/22(日) 14:56:31.95 ID:DRKE+jFQ >>928 ただの日本語通じないレス乞食の分際で医者東大卒とか笑わせんな http://rio2016.5ch.net/test/read.cgi/math/1723152147/929
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.038s