- 1 名前：１３２人目の素数さん mailto:sage [2024/08/09(金) 06:22:27.38 ID:9Q+t+cCw.net]
- 【質問者必読！！】
まず>>1-5をよく読んでね
このスレは医者・東大卒の人物専用スレです。
その他の人が書き込むことは許されません。
数学@5ch掲示板用 掲示板での数学記号の書き方例と一般的な記号の使用例
mathmathmath.dotera.net/
・まずは教科書、参考書、web検索などで調べるようにしましょう。（特に基本的な公式など）
・問題の写し間違いには気をつけましょう。
・長い分母分子を含む分数はきちんと括弧でくくりましょう。
（× x+1/x+2 ； ○((x+1)/(x+2)) ）
・丸文字、顔文字、その他は環境やブラウザによりうまく表示できない場合があります。
どうしても画像を貼る場合はPCから直接見られるところに見やすい画像を貼ってください。
ピクトはPCから見られないことがあるので避けてください。
・質問者は名前を騙られたくない場合、トリップを付けましょう。
（トリップの付け方は 名前(N)に 俺！#oretrip ←適当なトリ)
・質問者は回答者がわかるように問題を書くようにしましょう。
でないと放置されることがあります。
（変に省略するより全文書いた方がいい、また説明なく習慣的でない記号を使わないように）
・質問者は何が分からないのか、どこまで考えたのかを明記しましょう。
それがない場合、放置されることがあります。
（特に、自分でやってみたのに合わないので教えてほしい、みたいなときは必ず書くように）
・回答者も節度ある回答を心がけてください。
・出題スレではありません。出題は該当スレにお願いします。
・970くらいになったら次スレを立ててください。
※前スレ
高校数学の質問スレ Part437
https://rio2016.5ch.net/test/read.cgi/math/1721071007/
- 684 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 11:03:45.34 ID:TtoC1Krw.net]
- 臨床応用問題（別名：裏口容疑者判定問題）
インフルエンザの咽頭画像AI診断支援機器(AI群)は
従来のイムノクロマト法による抗原検査(immuno群)よりも発症12時間以内での感度が高いという。
ある試験ではAI群14/17 immuno群11/17であった。
【問題】AI群の感度がimmuno群の1.5倍以上である確率、2倍以上である確率を求めよ。
算出に必要な条件は適宜設定してよい。
- 685 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 11:54:33.84 ID:PCP+ZBYn.net]
- 偽医者は友人と呼べる者が居なく実社会でも余程嫌われている。精神患者の如く（真性？）関係ない事をグダグダと言う様では誰も寄り付かないだろ。
- 686 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:07:24.58 ID:rViXyt0w.net]
- >>668
nodocaで検体採取と言っているアホ発見！
あんた、Fランだろ。
- 687 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:14:54.48 ID:r+g7n4SK.net]
- >>673
スレタイ読めないアホ発見
アンタ小学校中退だろ
- 688 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:20:51.84 ID:rViXyt0w.net]
- >>674
Fラン大学では画像を検体というのか？
- 689 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:21:28.66 ID:rViXyt0w.net]
- 裏口シリツ医には無理な臨床応用問題
2025年版の当直医マニュアルが届いたので読んでいたら、
インフルエンザ感染咽頭の所謂イクラサインをAIに判定させる装置（商品名nodoca）に関して次のような記載があった。
>>
内視鏡用テレスコープを用いた咽頭画像等解析は発症12時間以内で感度、特異度ともに高いが
発症24時間を過ぎると抗原検査の方が感度が高い。
<<
どの程度の差があるのかと検索したらnodocaの添付文書に次のような図が掲載されていた。
https://i.imgur.com/OokYt5o.png
このグラフから数値を読み取って、好みの統計処理ソフトを用いて
nodocaと抗原検査の感度の比の分布を算出し、その比の95%CIが1を跨ぐかどうかで下記の主張が有意かどうかを判断せよ。
(1) 内視鏡用テレスコープを用いた咽頭画像等解析は発症12時間以内で感度が高い。
(2) 発症24時間を過ぎると抗原検査の方が感度が高い。
- 690 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:22:07.02 ID:rViXyt0w.net]
- 裏口シリツ医ってχ二乗検定すらできないようだなぁ。
- 691 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:23:11.73 ID:rViXyt0w.net]
- >>674
俺は東京医科歯科大学医学部卒。
あんたは？
- 692 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:36:22.98 ID:Kq
]
- [ここ壊れてます]
- 693 名前：o8KOCs.net mailto: >>673
nodocaを器具と言うのも同程度じゃないか？ [] - [ここ壊れてます]
- 694 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:41:25.03 ID:rViXyt0w.net]
- >>679
nodocaは器具だよ。医療器具だけどね。
で、あんたはどこ卒？
>676の答が出せないからFラン確定でいいよね？
- 695 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:45:13.86 ID:Kqo8KOCs.net]
- >>680
機器だが
- 696 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:46:56.48 ID:rViXyt0w.net]
- AI搭載インフルエンザ検査医療機器nodoca
はどうやって検体採取すんの？
Fランでは画像も検体というの？
- 697 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:47:16.84 ID:Kqo8KOCs.net]
- 機器だと器具も含まれちゃうな
機械、装置だね
質問と出題の違いといい、言葉の違いを理解できないんだね
- 698 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:51:04.01 ID:rViXyt0w.net]
- 有意差があるという判断を５％に設定するように、ある検査の感度が従来の検査より有用というには判断基準が必要。
こういう計算ができてこそ、有用性の判断ができる。
臨床応用問題（別名：裏口容疑者判定問題）
インフルエンザの咽頭画像AI診断支援機器(AI群)は
従来のイムノクロマト法による抗原検査(immuno群)よりも発症12時間以内での感度が高いという。
ある試験ではAI群14/17 immuno群11/17であった。
【問題】AI群の感度がimmuno群の1.5倍以上である確率、2倍以上である確率を求めよ。
算出に必要な条件は適宜設定してよい。
- 699 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:51:32.25 ID:Kqo8KOCs.net]
- >>682
医科歯科大は機械を器具って言うの？
出題も質問って言うの？
- 700 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 16:54:47.25 ID:rViXyt0w.net]
- >>683
あんたは>676の答が出せないアホでしょ。
- 701 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 17:00:03.58 ID:rViXyt0w.net]
- >>684
有意差があるかはシリツ医でもχ二乗検定くらいできるだろうから、判断できるはず。
裏口シリツ医には無理かもね。
臨床的に意義のある有意差をどこに設定するを問う問題がこれね。
臨床応用問題（別名：裏口容疑者判定問題）
インフルエンザの咽頭画像AI診断支援機器(AI群)は
従来のイムノクロマト法による抗原検査(immuno群)よりも発症12時間以内での感度が高いという。
ある試験ではAI群14/17 immuno群11/17であった。
【問題】AI群の感度がimmuno群の1.5倍以上である確率、2倍以上である確率を求めよ。
算出に必要な条件は適宜設定してよい。
- 702 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 17:17:38.98 ID:Kqo8KOCs.net]
- >>686
それで判断できると本気で思ってるの？
- 703 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 17:18:59.80 ID:Kqo8KOCs.net]
- しまった、隔離スレのつもりでレスしてたけど違った
皆様申し訳ない
もうスレ違いの書き込みはしません
- 704 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 17:26:31.62 ID:r+g7n4SK.net]
- 隔離病棟だよ
スレタイ読めない上に出題と質問の違いもわからずに発狂してる尿瓶ジジイID:rViXyt0wの
- 705 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 18:02:43.07 ID:rViXyt0w.net]
- >>688
定性的判断を定量的判断にする問題。
あんたはアホだからできないんじゃないの？
事前分布の設定には好みがあるだろうけど。
- 706 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 18:04:32.41 ID:rViXyt0w.net]
- 裏口シリツ医には無理な臨床応用問題
2025年版の当直医マニュアルが届いたので読んでいたら、
インフルエンザ感染咽頭の所謂イクラサインをAIに判定させる装置（商品名nodoca）に関して次のような記載があった。
>>
内視鏡用テレスコープを用いた咽頭画像等解析は発症12時間以内で感度、特異度ともに高いが
発症24時間を過ぎると抗原検査の方が感度が高い。
<<
どの程度の差があるのかと検索したらnodocaの添付文書に次のような図が掲載されていた。
https://i.imgur.com/OokYt5o.png
このグラフから数値を読み取って、好みの統計処理ソフトを用いて
nodocaと抗原検査の感度の比の分布を算出し、その比の95%CIが1を跨ぐかどうかで下記の主張が有意かどうかを判断せよ。
(1) 内視鏡用テレスコープを用いた咽頭画像等解析は発症12時間以内で感度が高い。
(2) 発症24時間を過ぎると抗原検査の方が感度が高い。
- 707 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 18:06:31.23 ID:rViXyt0w.net]
- >>688
あんたにできないだけの話。
- 708 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 18:17:29.97 ID:r+g7n4SK.net]
- >>693
アンタがとけないからレス乞食してるだけだろ
- 709 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 20:30:35.54 ID:r+g7n4SK.net]
- >>693
アンタはスレタイすらろくに読めないアホだろうが
- 710 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 20:32:28.61 ID:r+g7n4SK.net]
- >>678
証拠なんか何も出せない癖に頑なにその設定は譲らないんだな
アンタがそんなところ卒業できるようなオツムじゃないことくらいここの高校生だってわかるわw
- 711 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 21:54:20.50 ID:xJN+ycIq.net]
- >>678
じゃあ俺はハーバード大学医学部卒だ🖕
- 712 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 22:02:46.08 ID:bsIPz8xt.net]
- 医者と称してここに書き込んでいる時点で重篤な統合失調症だと分かる。
- 713 名前：１３２人目の素数さん mailto:sage [2025/02/06(木) 23:28:22.99 ID:A0voq4B8.net]
- >>678
誇大妄想（Grandiose Delusions）は、自分が特別な能力や重要性を持っていると信じる精神的な症状です。具体的には、以下のような特徴があります：
- **自分が有名人や重要人物であると信じる**
- **特別な才能や知識を持っていると主張する**
- **他人よりも優れていると考え、現実とはかけ離れた評価をする**
このような症状は、統合失調症、双極性障害、または他の精神疾患の一部として現れることがあります。治療には、薬物療法、心理療法、またはその両方が用いられることが一般的です。
もし自分や周囲の人がこのような症状を示している場合、専門的な医療機関での診察を受けることをお勧めします。
_免責事項：Grok は医師ではありません。ひとつご相談ください。あなたを特定できる情報は共有しないでください。_
- 714 名前：１３２人目の素数さん mailto:sage [2025/02/07(金) 09:11:25.96 ID:PB3p8GIB.net]
- 偽医者の精神状態はヤバすぎる。これだけ協調性がないと人間関係は最悪だぞ。
人間関係で孤立した加藤智大みたく差別殺人事件を起こすんじゃないか。
加藤智大も人間関係は、家族、学校、職場、ネット上の関係のいずれも悪かったとか。
- 715 名前：１３２人目の素数さん mailto:sage [2025/02/07(金) 12:32:49.71 ID:v/30yFsg.net]
- 60過ぎの5chでしか発狂できない老耄にそんな力残ってねぇよ
- 716 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 04:21:39.50 ID:U4NiYgkT.net]
- 5chでもまるで相手にされてないから話しかける相手がchatGPTしかいないんだね
実に哀れ
- 717 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 05:20:58.20 ID:U4NiYgkT.net]
- ここまでの書き込みを見て尿瓶ジジイID:rViXyt0wが医者か東大卒だと思う人は是非レスして下さい
- 718 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 06:03:19.62 ID:SqsAAYfd.net]
- 毎日書き込むほど暇でないだけでは
休日も来てないのはPCを開かないからでしょ
高校数学の本スレ
誰も次を立ててないけど作っとく？
単発の質問スレが増えてきてるし
- 719 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 06:13:33.41 ID:U4NiYgkT.net]
- え？平日昼だろうがお構いなしに毎回発狂する度に平気で何十レスもする尿瓶ジジイが？！ww
- 720 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 08:09:53.54 ID:JbtcoP/Y.net]
- 裏口シリツ医にはとうてい無理な臨床応用問題
2025年版の当直医マニュアルが届いたので読んでいたら、
インフルエンザ感染咽頭の所謂イクラサインをAIに判定させる装置（商品名nodoca）に関して次のような記載があった。
>>
内視鏡用テレスコープを用いた咽頭画像等解析は発症12時間以内で感度、特異度ともに高いが
発症24時間を過ぎると抗原検査の方が感度が高い。
<<
どの程度の差があるのかと検索したらnodocaの添付文書に次のような図が掲載されていた。
https://i.imgur.com/OokYt5o.png
このグラフから数値を読み取って、好みの統計処理ソフトを用いて
nodocaと抗原検査の感度の比の分布を算出し、その比の95%CIが1を跨ぐかどうかで下記の主張が有意かどうかを判断せよ。
(1) 内視鏡用テレスコープを用いた咽頭画像等解析は発症12時間以内で感度が高い。
(2) 発症24時間を過ぎると抗原検査の方が感度が高い。
定性的な記述を定量的に裏付けられるかという問題。
感度の比の分布が作成できれば、臨床的に有意義な差を設定（例えば感度が1.01倍は意味がないが、1.5倍なら有用とか）してその確率も算出できる。
- 721 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 08:19:29.02 ID:Jwab6M7K.net]
- >>706
AIに判定させる器具じゃないの？笑
- 722 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 08:24:51.00 ID:U4NiYgkT.net]
- >>706
臨床応用問題を質問スレでやってるアンタのほうがよっぽどアホだよ
- 723 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 11:38:07.83 ID:oEq2Oy5v.net]
- >>706
お前、友達いないだろw
- 724 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 12:31:03.62 ID:1THAJYf7.net]
- 友達どころか精神科連れて行ってくれる家族もいなさそう
- 725 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 16:01:15.73 ID:DETKFilM.net]
- そりゃあ、あんなキチガイに親兄弟でも近づきたくはないだろう。
- 726 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 16:25:38.57 ID:U4NiYgkT.net]
- >>706
くだらない書き込みしてる暇あったら精神科受診してこいよ
どうせ図星なんだろ？
- 727 名前：１３２人目の素数さん mailto:sage [2025/02/08(土) 16:45:35.60 ID:ZbmyDtrJ.net]
- >>708
正しすぎる…
- 728 名前：１３２人目の素数さん mailto:sage [2025/02/09(日) 01:23:04.65 ID:iJjW6s2l.net]
- 高木クラスのキ〇ガイ
- 729 名前：１３２人目の素数さん mailto:sage [2025/02/09(日) 08:46:20.28 ID:hYZP1Z1P.net]
- 1. ダニング＝クルーガー効果（Dunning-Kruger Effect）
説明
•知識やスキルが不足している人ほど、自分の能力を過大評価する傾向。
•逆に、能力が高い人ほど自分を過小評価しやすい。
•「少し知っただけで自信満々になる初心者」と「熟練者ほど自分の未熟さを感じる」という現象がこれに当たる。
具体例
•数回プログラミングを学んだ初心者が「自分は天才プログラマーだ」と思い込む。
•逆に、経験豊富なエンジニアが「自分はまだまだ未熟だ」と感じる。
- 730 名前：１３２人目の素数さん mailto:sage [2025/02/09(日) 19:28:56.86 ID:hfPTlL2M.net]
- >>706
5chで60過ぎのリアルじゃ誰にも相手にされてないジジイが高校生にすらバカにされるのがそんなに楽しいかって聞いてんだよ
- 731 名前：１３２人目の素数さん mailto:sage [2025/02/11(火) 10:22:10.18 ID:Zbo0GEyD.net]
- 尿瓶ジジイ完全ダンマリで草
医者板にはコソコソ書き込んでくる癖に
https://egg.5ch.net/test/read.cgi/hosp/1733201932/
- 732 名前：１３２人目の素数さん mailto:sage [2025/02/12(水) 16:15:05.87 ID:sK/q3f4l.net]
- 臨床応用問題
インフルエンザの咽頭画像AI診断支援機器(AI群)は
従来のイムノクロマト法による抗原検査(immuno群)よりも発症12時間以内での感度が高いという。
ある試験ではAI群14/17 immuno群11/17であった。
【問題】
(1) 「AI群はimmuno群より感度が高い」を「両群の感度は同じ」を帰無仮説として有意差検定せよ。
(2) AI群の感度がimmuno群の１倍以上である確率、1.5倍以上である確率、2倍以上である確率を求めよ。
(3) r = AI群の感度/immuno群の感度としてrの分布を図示せよ
(4) r の95%信頼区間を算出せよ
算出に必要な条件は適宜設定してよい。
(1)くらいはFラン卒でもできると思う。
- 733 名前：１３２人目の素数さん mailto:sage [2025/02/12(水) 17:43:29.71 ID:mV2bBNc5.net]
- >>718
>>715
- 734 名前：１３２人目の素数さん mailto:sage [2025/02/12(水) 17:44:18.07 ID:mV2bBNc5.net]
- >>718
医者板でも数学板でもボコボコにされてから大人しくなったな
いくら発狂しても無駄だとやっとわかったか？
- 735 名前：１３２人目の素数さん mailto:sage [2025/02/12(水) 18:37:31.60 ID:eVXf4lZV.net]
- >>718
出題スレでどうぞ
- 736 名前：１３２人目の素数さん mailto:sage [2025/02/13(木) 01:08:03.77 ID:faayYwLd.net]
- そもそも数学の問題として解釈することすらできない。
それすらわからん高木級の基地
- 737 名前：１３２人目の素数さん mailto:sage [2025/02/13(木) 20:52:02.17 ID:ZWOa7S22.net]
- >>718
アンカつけてないのに発狂ww
23：１３２人目の素数さん：[sage]：2025/02/12(水) 17:59:01.54 ID:mV2bBNc5
偽医者失せろ
29：１３２人目の素数さん：[sage]：2025/02/13(木) 13:04:49.20 ID:+F3hye2g
>>23
医師が羨ましければ再受験すればいいのに
同期の歯学部には東大数学科卒がいたぞ。
新潟大学には看護助手から医師になった女医がいた。
シリツ医なら、
＞7浪して医学部、国家試験に2回落ちて53歳で医師になった女性
というのもいるし。
- 738 名前：１３２人目の素数さん mailto:sage [2025/02/16(日) 12:34:06.49 ID:bIE2CWlM.net]
- インフルエンザの咽頭画像AI診断支援機器(AI群)は
従来のイムノクロマト法による抗原検査(immuno群)よりも発症12時間以内での感度が高いという。
添付文書のデータではAI群14/17 immuno群11/17。
咽頭画像AI診断支援機器は未導入の病院での話
発症から数時間で初診受診した患者はインフルエンザ抗原検査陰性であったが、翌日の再検で抗原陽性が判明。
インフルエンザの咽頭画像AI診断支援機器があれば陽性であった確率の95%信頼区間を求めよ。
計算に必要な条件は適宜設定してよい。
- 739 名前：１３２人目の素数さん mailto:sage [2025/02/16(日) 12:39:33.19 ID:tqwa/4qq.net]
- >>724
医者板じゃもうダンマリ決め込むしかないし60過ぎのジジイなのに高校生相手にしかイキれないみたいだね、実に哀れ
その高校生にすらバカにされてるけど
- 740 名前：１３２人目の素数さん mailto:sage [2025/02/17(月) 18:49:43.19 ID:yFZFt3NP.net]
- 偽医者は何でここに書き込まないで
高校数学スレに書き込んでるんだ？
このスレあるからスレ立てしなくていいって言ったよな？
- 741 名前：１３２人目の素数さん mailto:sage [2025/02/17(月) 22:39:37.23 ID:ESL/sItl.net]
- >>724
尿瓶ジジイダンマリ決め込むしかなくて哀れだね
- 742 名前：１３２人目の素数さん [2025/02/19(水) 08:35:58.81 ID:RsQEF1oZ4]
- カイロ大学だか学歴詐称だか知らんが海外に行くクズか゛物事を表面的にしか理解できないのは小池百合子見てればよく分かるが留学に31５万
もの都税くれてやって人殺しの仲間を増やそうという税金泥棒テロが悪質だな人殺しドクターヘリに3億もの都税をドブに捨てたり小笠原破壊
して空港計画だの莫大な温室効果ガスまき散らして気候変動させて災害連発させて人殺しまくって子の未来を暗黒の世界にする気満々のクソ
航空機がらみ殺人た゛らけ国會も給食無償化だの高校無償化だのしかも所得制限すらしないとか6ポケットなど実際何億も金持ってたりという
現実を無視して憲法違反強行、税金で個人の資産形成を可能にするとか次元が変わること認識しろよよくナマポと比較してと゛うこう言ってるが
それなら
- 743 名前：ナマポの資産調査も親類支援要請も廃止しないと整合性か゛取れなくなるな金あるのに赤の他人の金を強奪するとかルフィより圧倒的に
悪質ナマポより恥す゛かしがれよ落選しまくってた青柳我田引水仁士が遊ぶ金なかったのか3人も子作りしてたり食糧も教育も医療も不足してる
途上国がポンポン孑を産んでることからも金くれてやるほど少子化加速するのは明らか
(ref.) tТPs:／/www.call4.jp/info.php?tｙpe=iＴems&id=I0０0０06２
tTps://haneda-projеct.jimdofree.com/ , тtps://flight-routｅ.com/
tтps://n-souonhigaisosyoudan.amｅbaownd.com/ [] - [ここ壊れてます]
- 744 名前：１３２人目の素数さん mailto:sage [2025/02/20(木) 15:50:52.61 ID:wRRdyhfp.net]
- rm(list=ls())
"
Fラン病という仮想疾患があるとする。
Fラン病の検査には4種類あり、それぞれ独立で
感度は0.6,0.7,0.8,0.9
特異度は0.5,0.6,0.7,0.8
である。
ある患者のFラン病の検査前確率が0.5として
この検査で順に陰性、陽性、陰性、陽性であったときに
Fラン病である確率を求めよ。
"
prior=0.5
result=c(0,1,0,1)
sen=c(0.6,0.7,0.8,0.9)
spc=c(0.5,0.6,0.7,0.8)
fposterior=\(prior,result,sen,spc){
odds.prior=prior/(1-prior)
pLH=sen/(1-spc) # TP/FP
nLH=(1-sen)/spc # FN/TN
odds.posterior=odds.prior*prod(c(pLH[result==1], nLH[result==0]))
odds.posterior/(1+odds.posterior)
}
fposterior(prior,result,sen,spc)
- 745 名前：１３２人目の素数さん mailto:sage [2025/02/20(木) 17:20:34.03 ID:xO0dYZ4V.net]
- fラン病ってアンタのことだろ？
- 746 名前：１３２人目の素数さん mailto:sage [2025/02/20(木) 18:42:43.55 ID:wRRdyhfp.net]
- >>730
答は出せたの？Fランくん？
- 747 名前：１３２人目の素数さん mailto:sage [2025/02/20(木) 18:44:42.36 ID:wRRdyhfp.net]
- 来年度のバイトの契約更新完結。
懇意な内視鏡スタッフから御指名をうけてEGD施行。
非常勤医としては名誉なことだ。
CSもしますよと付言しておいたｗ
- 748 名前：１３２人目の素数さん mailto:sage [2025/02/20(木) 20:19:19.20 ID:aXm6Oecf.net]
- >>731
こんなん書いてるようじゃ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って証明もせずにいきなりなるんだよ
数学の証明問題全否定かよ
- 749 名前：１３２人目の素数さん mailto:sage [2025/02/21(金) 13:07:34.32 ID:pAox8bEe.net]
- 尿瓶ジジイ円周率で息できなくなったみたいだね
- 750 名前：１３２人目の素数さん mailto:sage [2025/02/21(金) 13:15:07.58 ID:pAox8bEe.net]
- >>731
で、いつになったら円周率は3.05より大きいことを証明できるのかな？
全て知ったかぶりのアホの証明しかできないのか？
- 751 名前：１３２人目の素数さん mailto:sage [2025/02/21(金) 19:28:12.64 ID:pAox8bEe.net]
- >>731
死んじゃったのかな？
- 752 名前：１３２人目の素数さん [2025/02/22(土) 07:18:28.58 ID:mnTVLfE0.net]
- 来週の東大文系数学が早慶理工数学どころか
東工大数学より難易度高かったら東大を叩いた方がいいと思う
- 753 名前：１３２人目の素数さん mailto:sage [2025/02/22(土) 07:37:49.95 ID:C9pebjv4.net]
- (* 感度と特異度のリスト *)
sen = {30, 5, 5, 97}/100;
spc = {68, 95
- 754 名前：, 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]] [] - [ここ壊れてます]
- 755 名前：１３２人目の素数さん mailto:sage [2025/02/22(土) 07:44:29.32 ID:zA95ywrz.net]
- >>738
円周率の定義すら分からないアホがまだ書き込みしようとしてんのかよ
- 756 名前：１３２人目の素数さん mailto:sage [2025/02/22(土) 08:00:52.12 ID:zA95ywrz.net]
- >>732＝>>738
こんなん書いてるようじゃ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って証明もせずにいきなりなるんだよ
数学の証明問題全否定かよ
- 757 名前：１３２人目の素数さん mailto:sage [2025/02/22(土) 12:50:53.59 ID:zA95ywrz.net]
- >>738
おい尿瓶ジジイ
この高校生の質問はいつになったら解けるんだよ？
自称東大は滑り止め()なんだろ？
統計とか御託はいいからさっさと高校生にもわかるように解けよ
225：１３２人目の素数さん：[sage]：2025/02/22(土) 07:48:45.08 ID:XJ7LDN2h
>>223
僕も直感に沿わなない解答されたので質問させてください
円周率が3.05より大きいことを証明せよ
ただし円周率は(円周)/(円の直径)と定義され
円周率が3.14より大きい事は判明していないものとする
- 758 名前：１３２人目の素数さん mailto:sage [2025/02/23(日) 04:28:48.64 ID:oZRDMAE1.net]
- 尿瓶ジジイID:wRRdyhfp ID:C9pebjv4高校生にまたもや論破されてダンマリ決め込むしかない模様w
- 759 名前：１３２人目の素数さん [2025/02/24(月) 07:37:27.94 ID:QKevMA1n.net]
- 明日前期で数学の問題が公表されるんだから
その時期ぐらいは問題の講評を真面目にやりなよ
- 760 名前：１３２人目の素数さん mailto:sage [2025/02/25(火) 06:46:30.29 ID:+08BF5jo.net]
- π > 3.14を示せ
あらゆるリソースを用いてよい。
例：ライプニッツの公式（ライプニッツのこうしき、英語: Leibniz formula）とは円周率の値を求めるための公式の一つである
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= Leibniz[m_]:= (
f[n_] := 4/(4*n - 3) - 4/(4*n - 1);
Sum[f[k],{k,1,m}]
)
In[2]:= N[Leibniz[313],10]
Out[2]= 3.139995211
In[3]:= N[Leibniz[314],10]
Out[3]= 3.140000298
- 761 名前：１３２人目の素数さん mailto:sage [2025/02/25(火) 07:59:17.12 ID:f2/AQ6e/.net]
- >>744
証明になってませんが
- 762 名前：１３２人目の素数さん mailto:sage [2025/02/25(火) 15:53:11.31 ID:ZGS
]
- [ここ壊れてます]
- 763 名前：nRYDz.net mailto: >>744
自称東大卒の偽医者君、お前のプログラムって、いつも冗長だな。頭の悪さがよく表れている。だからスレチだって理解が出来ないんだね
Leibniz[m_] := Sum[4*(-1)^(k+1)/(2*k-1), {k, 1, m}]
N[Leibniz[314], 10] > 3.14 [] - [ここ壊れてます]
- 764 名前：１３２人目の素数さん mailto:sage [2025/02/25(火) 16:23:46.39 ID:Z6OzPEfS.net]
- >>746
だって正しい板に書き込んだらプログラムも突っ込まれちゃうからね
- 765 名前：１３２人目の素数さん mailto:sage [2025/02/26(水) 12:24:59.00 ID:pTCZR9FN.net]
- 偽医者は自分が劣っているのを認めたくないんだろう。
だから、まったく関係ない書き込みをして、お山の大将に成ったと勘違いをしている。
- 766 名前：１３２人目の素数さん mailto:sage [2025/02/26(水) 21:30:26.26 ID:YlXsAeCe.net]
- >>744
数学における証明とは、論理的な推論のルールに従って、公理から結論を導くことを指します。
プログラムによる計算は、単なる演算の実行であり、それが数学的に正しいことを保証するものではありません。
- 767 名前：１３２人目の素数さん mailto:sage [2025/02/26(水) 21:49:38.37 ID:E7jH3bIC.net]
- チンパンプログラムを論破されて即ダンマリか
- 768 名前：１３２人目の素数さん mailto:sage [2025/02/28(金) 08:21:01.28 ID:qVZPDzwA.net]
- >>744に質問！
①円周率が3.05より大きいことを証明せよ。
ただし円周率は(円周)/(円の直径)と定義され、円周率が3.14より大きい事は判明していないものとする。
②√2+√3が無理数であることを証明せよ。
- 769 名前：１３２人目の素数さん mailto:sage [2025/02/28(金) 10:01:06.85 ID:eqavAO1F.net]
- 多分プログラミングもAIにやらしてんだろ
- 770 名前：１３２人目の素数さん mailto:sage [2025/03/01(土) 17:26:34.17 ID:uehyvjy5.net]
- 尿瓶ジジイ完全にダンマリで草
- 771 名前：１３２人目の素数さん mailto:sage [2025/03/01(土) 18:38:31.70 ID:uehyvjy5.net]
- リアルじゃ当然誰にも相手にされないしもちろんここでもそうだけどAIは話し相手になってくれるからここで発狂する必要がなくなったのか？よかったねww
- 772 名前：１３２人目の素数さん mailto:sage [2025/03/12(水) 21:31:17.69 ID:pDKAHj/P.net]
- 「鹿児島 私立中学 寮 事件」や「学校名 寮 いじめ」で画像検索したらどこかわかるけど、絶対に探すなよ
i.imgur.com/s0F0tJb.jpeg i.imgur.com/4nmblMW.png
ソース 鹿児島放送 動画 https://www.tiktok.com/@kkb_kagoshima5/video/7428406277253926162
【鹿児島】私立中男子が入浴中に寮で大けが…「加害生徒の処分を」被害生徒の父が会見、いじめ重大事態に認定した学校へ調査と適切な対応求める
鹿児島県内の私立中学校の寮で、入浴していた１年生の男子生徒が、同学年の複数の男子生徒に両足首を引っ張られて転倒し、右手にまひが残るけがを負っていたことが７日、分かった。
学校はいじめ防止対策推進法に基づく重大事態に認定。今後、第三者委員会を設置して調査を進める。
被害生徒の保護者や学校によると、発生は２０２４年６月２５日。寮の共同浴場で、一緒に入浴していた男子生徒に両足首を引っ張り上げられた。転倒した際、湯を張った浴槽の床に後頭部と首を強く打ち付けた。
７月上旬、別の男子生徒に拳で肩をたたかれて痛みが強くなったため、１０日に養護教諭に相談し発覚。同日に病院を受診し、頸髄不全損傷（全治約１カ月）と診断された。
保護者は８月中旬、県警に被害届を提出し、受理されている。
９月末、いじめ認定を求める申立書が被害生徒の保護者から出され、対応を再協議。１０月３日に重大事態に認定した。第三者委員会の設置時期は未定。
教頭は「重く受け止めている。症状が早く改善し、普段通り学校生活を送れるように対応する」としている。
この問題を受け、４０代の父親が２１日、鹿児島市の県庁で会見を開いた。「学校は、加害生徒への処分を検討してほしい」と訴えた。父親は「大けがなのに相応の処分がないのは納得できない。しっかりと調査して、適切に対応してほしい」と求めた。
南日本新聞
373news.com/_news/storyid/202380/
373news.com/_news/storyid/203141/
- 773 名前：１３２人目の素数さん mailto:sage [2025/03/19(水) 16:01:22.42 ID:TUD6PvYL.net]
- "
6人でババ抜きをした時の初期状態の手札の枚数の期待値は?
カードは52枚+ジョーカー
"
sim=function(){
# 1から13までの数字が各々4枚と0を含む53枚のリストを作成
numbers <- rep(c(0, 1:13), times = c(1, rep(4, 13)))
# 数字をシャッフルする
shuffled_numbers <- sample(numbers)
# 9枚を5組、8枚を1組に分ける
group_size_9 <- rep(9, 5) # 9枚のグループ5つ
group_size_8 <- 8 # 8枚のグループ1つ
group_sizes <- c(rep(9, 5), 8) # 9枚5組 + 8枚1組
# グループに分ける
groups <- split(shuffled_numbers, rep(1:6, times = group_sizes))
# ステップ4: 各グループで同じ数字があれば2個を組み合わせて捨てる
discarded_numbers <- list() # 捨てられる数字を保存
remaining_numbers <- list() # 残る数字を保存
for (i in 1:length(groups)) {
group <- groups[[i]]
count <- table(group) # 各数字の出現回数をカウント
discarded <- count %/% 2 # 同じ数字のペアを捨てる（整数除算）
remaining <- count %% 2 # 残りの数字（1枚残るもの）
# 捨てた数字と残りの数字をリストに保存
discarded_numbers[[i]] <- rep(names(discarded)[discarded > 0], discarded[discarded > 0])
remaining_numbers[[i]] <- rep(names(remaining)[remaining > 0], remaining[remaining > 0])
}
# 残りの枚数を計算
length(unlist(remaining_numbers))
}
- 774 名前：１３２人目の素数さん mailto:sage [2025/03/19(水) 16:11:50.24 ID:3ZtJz5f5.net]
- >>756
ジジイあれだけアホ晒しておいてまだ懲りてなかったのかよ
- 775 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 08:15:20.18 ID:Wji9obyD.net]
- 赤玉5個、黒玉3個、白玉2個を(4個, 3個, 3個)に分ける方法（もらう人を区別しない）」を全て列挙せよ
library(gtools) # permutations を使用
# 各色の玉の個数
balls <- c(赤 = 4, 黒 = 3, 白 = 2, 青 = 1)
# 各箱のサイズ
box_sizes <- c(4, 3, 3)
# 指定したサイズで玉を選ぶ関数
generate_combinations <- function(balls, size) {
colors <- names(balls)
all_combinations <- permutations(n = length(colors), r = size, v = colors, repeats.allowed = TRUE)
# 各組み合わせが元の玉の数を超えないようにフィルタリング
valid_combinations <- all_combinations[apply(all_combinations, 1, function(combo) {
all(table(combo) <= balls[names(table(combo))])
}), ]
return(unique(t(apply(valid_combinations, 1, sort)))) # 各組み合わせをソートして重複を削除
}
# すべての分割を求める
unique_distributions <- list()
first_box_choices <- generate_combinations(balls, box_sizes[1])
for (first_box in 1:nrow(first_box_choices)) {
remaining1 <- balls
first_selection <- first_box_choices[first_box, ]
for (color in first_selection) {
remaining1[color] <- remaining1[color] - 1
}
second_box_choices <- generate_combinations(remaining1, box_sizes[2])
for (second_box in 1:nrow(second_box_choices)) {
remaining2 <- remaining1
second_selection <- second_box_choices[second_box, ]
for (color in second_selection) {
remaining2[color] <- remaining2[color] - 1
}
# 第3箱は残りの玉で確定
third_box <- rep(names(remaining2), times = remaining2)
# 各箱内をソートし、3つの箱の並びも統一
sorted_distribution <- list(sort(first_selection), sort(second_selection), sort(third_box))
sorted_distribution <- sorted_distribution[order(sapply(sorted_distribution, paste, collapse = ""))] # 箱順も統一
# **文字列化してリストを扱いやすくする**
unique_distributions <- append(unique_distributions, list(paste(sapply(sorted_distribution, paste, collapse = ","), collapse = " | ")))
}
}
# 重複を削除
unique_distributions <- unique(unique_distributions)
# 総数を確認（正しく63になるはず）
length(unique_distributions)
# 結果を表示
print(unique_distributions)
- 776 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 16:20:54.16 ID:35F9kJ68.net]
- >>758に質問！
①円周率が3.05より大きいことを証明せよ。
ただし円周率は(円周)/(円の直径)と定義され、円周率が3.14より大きい事は判明していないものとする。
②√2+√3が無理数であることを証明せよ。
- 777 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 16:41:06.42 ID:qqln3hev.net]
- >>759
自明
- 778 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 16:52:11.86 ID:sGC1elSQ.net]
- >>760
？
- 779 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 18:45:32.75 ID:4gzHInjV.net]
- >>760
それ入試でもそう書くのかよアホ
- 780 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 18:47:25.44 ID:4gzHInjV.net]
- >>760
自称東大現役合格()ならここにいる全員が納得するような素晴らしい回答をよろしくw
- 781 名前：１３２人目の素数さん mailto:sage [2025/03/24(月) 19:08:30.18 ID:GfLc14sq.net]
- 758 名前：１３２人目の素数さん[age] 投稿日：2025/03/24(月) 18:20:09.05 ID:DrOjE5+L
2026年東大理系数学の予想問題を出題します
AB=AC=2,BC=1の△ABCがある。
A,B,Cをそれぞれ中心とする半径rの3つの円を描く。
△ABC全体が3つの円に覆われるようなrの最小値を求めよ。
- 782 名前：１３２人目の素数さん mailto:sage [2025/03/25(火) 12:07:55.54 ID:JvJVqzfB.net]
- "
赤玉4個、黒玉3個、白玉2個、青玉1個を空箱なしで3つの箱にいれる。
箱を区別しないとき、入れ方は何通りあるか？
"
rm(list=ls())
# vector から remove を除いた残りを返す
fn_rest <- function(vector,remove) Reduce(function(x, y) x[-match(y, x)], remove, init = vector)
fn_rest(c(1,2,2,3,3,3),c(2,3,3))
library(RcppAlgos)
v=rep(1:4,4:1)
pa=partitionsGeneral(10,3,repetition=TRUE) ; pa
pa[1,] # 1 1 8
c1=unique(comboGeneral(v,2)) ; c1
matrix(c("赤","黒","白","青")[c1],ncol=2) |> noquote()
re1=nrow(c1) ; re1
pa[2,] # 1 2 7
c2=unique(permuteGeneral(v,3)) ; c2
ans2=c2[apply(c2,1,\(x) x[2]<=x[3]),] ; ans2
matrix(c("赤","黒","白","青")[ans2],ncol=3) |> noquote()
re2=nrow(ans2) ; re2
pa[3,] # 1,3,6
c3=unique(permuteGeneral(v,4)) ; c3
ans3=unique(t(apply(c3,1,\(x) c(x[1],sort(x[2:4]))))) ; ans3
matrix(c("赤","黒","白","青")[ans3],ncol=4) |> noquote()
re3=nrow(ans3) ; re3
pa[4,] # 1 4,5
c4=unique(permuteGeneral(v,5)) ; c4
ans4=unique(t(apply(c4,1,\(x) c(x[1],sort(x[2:5]))))) ; ans4
matrix(c("赤","黒","白","青")[ans4],ncol=5) |> noquote()
re4=nrow(ans4) ; re4
pa[5,] # 2 2 6
c4=unique(comboGeneral(v,4)) ; c4
ans5=NULL
for(i in 1:nrow(c4)){
c22=c4[i,] ; c22
c2=unique(comboGeneral(c22,2)) ; c2
re22=cbind(c2,t(apply(c2,1, \(x) fn_rest(c22,x)))) ; re22
ans22=re22[apply(re22,1,\(x) sum(c(10,1)*x[1:2]) <= sum(c(10,1)*x[3:4])),] ; ans22
ans5=rbind(ans5,ans22)
}
matrix(c("赤","黒","白","青")[ans5],ncol=4) |> noquote()
re5=nrow(ans5) ; re5
pa[6,] # 2 3 5
c6=unique(permuteGeneral(v,5)) ; c6
ans6=unique(t(apply(c6,1,\(x) c(sort(x[1:2]),sort(x[3:5]))))) ; ans6
matrix(c("赤","黒","白","青")[ans6],ncol=5) |> noquote()
re6=nrow(ans6) ; re6
- 783 名前：１３２人目の素数さん mailto:sage [2025/03/25(火) 12:08
]
- [ここ壊れてます]
- 784 名前：:08.95 ID:JvJVqzfB.net mailto: 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) [] - [ここ壊れてます]
|
 |
