高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
59(1): 2024/08/16(金)14:05 ID:D3c2lioP(1/2)調 AAS
>>56
24：卵の名無しさん：2024/08/16(金) 08:48:49.90 ID:eXoor/xc
>>20
50歳男性
食事の際に胸がつかえる感じがする
下の内視鏡所見
↓
https://i.imgur.com/qcEfQIC.jpeg
診断と治療は？内視鏡専門にしてるなら答えれるよなwww
無視したり答えられなかったらお前は底辺シリツ医以下の知能しか無いってことでwww
これの答えまだ？
60: 2024/08/16(金)14:25 ID:D3c2lioP(2/2)調 AAS
スレタイ以外のことでいくら発狂したところで無視されるのは当たり前だろマヌケ
無理数の>>31すら答えられないのかよ？
61(1): 2024/08/16(金)15:15 ID:ahhsBV/s(1/2)調 AAS
尿瓶ジジイID:BuIOB4cEにはできない問題を質問します
①√2は無理数であることを証明せよ。
②1+2+…+2024は何桁の整数か。
62: 2024/08/16(金)15:31 ID:bNupVHmJ(1)調 AAS
（1）リウヴィルの定理
p, q が自然数のとき
｜√2 − p/q｜ ≧ (6-4√2)/qq,
∴ √2 ≠ p/q (無理数)
63: 2024/08/16(金)15:49 ID:ahhsBV/s(2/2)調 AAS
当然ながら同じIDじゃないと認めません
64: 2024/08/16(金)16:58 ID:3S2KNH0L(1/4)調 AAS
本スレでは散々発狂してますが>>61に対してこっちでは一切ダンマリを決め込んでる模様
65: 2024/08/16(金)17:29 ID:NAPgnpHZ(1/2)調 AAS
問題 油分け算のソルバーを作れ。（言語は問わない）
R言語でのソルバー
https://i.imgur.com/bqkmHbB.png
これをWolframに移植する気にならんなぁ。
Wolframでないと分数での厳密解が出せないというわけでもないから。
黒瀬のスパイスをつかってチキンジャーキーを作る方が楽しい。
焼き肉のタレでつくったら嫁から評判が悪かったので作り直し。
66(3): 2024/08/16(金)17:46 ID:NAPgnpHZ(2/2)調 AAS
>>59
輪状襞と縦走襞から好酸球性食道炎を疑う所見。
まあ、特異的な治療があるわけでもないので、無症状なら検診で遭遇しても生検しないこともあるなぁ。
A型胃炎を疑っても金がかかるだけなので、
無症状で貧血でもなければ、抗胃壁細胞抗体やガストリンも測定せずに
検診を毎年受けてくださいの説明だけにしていることもままある。
内視鏡やっているなら即答できる問題
鮮血を吐血したと紹介された患者に何を内服していないかを問診すべきか？
経管栄養している患者が下血したと病棟から呼ばれた何を内服していないかを問診すべきか？
67: 2024/08/16(金)17:50 ID:3S2KNH0L(2/4)調 AAS
尿瓶ジジイこちらの問題にはダンマリ決め込んでる模様
①√2は無理数であることを証明せよ。
②1+2+…+2024は何桁の整数か。
68: 2024/08/16(金)18:05 ID:3S2KNH0L(3/4)調 AAS
>>66
臨床問題wwwお前本当馬鹿なんだな
じゃあ自称消化器外科のお前に問題出してやるよ
↓下の画像の病名は？
https://i.imgur.com/dCrMTtn.jpeg
で、なんでこれの答えが肝腫瘍なんだよマヌケ
69(4): 2024/08/16(金)19:06 ID:3S2KNH0L(4/4)調 AAS
医者スレにて尿瓶ジジイ大発狂中www
5択問題すらまともに答えられずww
40：卵の名無しさん：[sage]：2024/08/16(金) 18:13:16.70 ID:6sTnd4ml
>>25
学生時代には女子医大生には息子が大変お世話になりました。
作業仮説
臨床やっている女医は不細工か不倫している。
（エビデンスレベルV：個人の経験 n=22)
55：卵の名無しさん：2024/08/16(金) 18:57:15.96 ID:VnGGyzKc
ほら次の問題だぞ
健康診断の腹部超音波検査で肝臓に異常を指摘されたため来院した．
腹部単純CT【図No.1】，腹部造影CT【図No.2（早期相）】，【図No.3（門脈相）】，【図No.4（平衡相）】および【図No.5（早期相・冠状断）】を示す．矢印は腫瘤を示す．
考えられるのはどれか．1つ選べ．
（a）肝細胞癌
（b）肝血管腫
（c）転移性肝癌
（d）肝内胆管癌
（e）肝限局性結節性過形成〈focal nodular hyperplasia：FNH〉
https://i.imgur.com/591fanA.jpeg
選択肢までつけてやったぞ簡単だろ？ChatGPTにまた聞いてみるか？www
62：卵の名無しさん：[sage]：2024/08/16(金) 19:01:43.99 ID:6sTnd4ml
>>55
肝腫瘍
70: 2024/08/17(土)11:44 ID:dkCzRgHk(1/4)調 AAS
>>66
>>69のゴキジェットで無事死んじゃった
71: 2024/08/17(土)13:19 ID:dkCzRgHk(2/4)調 AAS
>>66ここのスレではダンマリ決め込んでるみたい
ようやく自分が医者でも東大卒でもないことがわかったの？
72: 2024/08/17(土)14:29 ID:mowI5mD2(1/4)調 AAS
(*
10人のうち血液型A,O,B,ABの人がそれぞれ4,3,2,1人いる。
この中から無作為に3人を選んだとき3人の血液型がすべて異なる確率を求めよ。
シミュレーションしてその数値が正しいことを検証せよ。
*)
b= {1, 2, 2, 3, 3, 3, 4, 4, 4, 4};
c = Subsets[b,{3}];
Total@Boole[Length@Union@# ==3 & /@ c]/Length@c
% // N
k=10^6;
Table[Boole[Length@Union@RandomSample[b,3]==3],k] // Mean // N
73: 2024/08/17(土)14:30 ID:mowI5mD2(2/4)調 AAS
Wolfram言語に少々なれてきた。
74: 2024/08/17(土)14:48 ID:mowI5mD2(3/4)調 AAS
(*
10人のうち血液型A,O,B,ABの人がそれぞれ4,3,2,1人いる。
この中から無作為に n 人を選んだとき血液型がすべて異なる確率を求めるソルバーを作れ。
*)
solve[n_] :=(
b= {1, 2, 2, 3, 3, 3, 4, 4, 4, 4};
c = Subsets[b,{n}];
Total@Boole[Length@Union@# ==Min[n,4] & /@ c]/Length@c
)
Table[solve[n],{n,1,10}]
75(1): 2024/08/17(土)14:49 ID:mowI5mD2(4/4)調 AAS
In[3]:= Table[solve[n],{n,1,10}]
7 5 4 2 7 19 7 9
Out[3]= {1, -, --, --, -, --, --, -, --, 1}
9 12 35 7 15 30 9 10
76: 2024/08/17(土)15:09 ID:dkCzRgHk(3/4)調 AAS
>>75
で、尿瓶チンパンジジイはこれはいつになったら解けるの？
①√2は無理数であることを証明せよ。
②1+2+…+2024は何桁の整数か。
77: 2024/08/17(土)15:10 ID:dkCzRgHk(4/4)調 AAS
頭が悪すぎてフルボッコにされていることも理解できないみたいだねw
>>69に5択すら選べないみたいだしそこまでしてバカにされたい？w
78(1): 2024/08/17(土)18:23 ID:g0prVaq1(1)調 AAS
質問スレなのに質問が無い
79(1): 2024/08/18(日)06:09 ID:Qg46pTwQ(1/3)調 AAS
(* n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* 勝者が1人になるまでのジャンケン回数の期待値 *)
je={1};
AppendTo[je,x /. Solve[x == ja[2,0]x +1 ,x][[1]][[1]]]
AppendTo[je,x /. Solve[x == ja[3,0]x + ja[3,2]je[[2]]+1][[1]][[1]] ]
AppendTo[je,x /.Solve[x == ja[4,0]x + ja[4,3]je[[3]] + ja[4,2]je[[2]] + 1,x][[1]][[1]]]
80(2): 2024/08/18(日)06:11 ID:Qg46pTwQ(2/3)調 AAS
>>78
では、質問
王様（王位にある人） と 王様でない人とはどちらが多いでしょうか?
81(1): 2024/08/18(日)06:46 ID:Qg46pTwQ(3/3)調 AAS
(* n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* 勝者が1人になるまでのジャンケン回数の期待値 *)
je={0};
AppendTo[je,x /. Solve[x == ja[2,0]x +1 ,x][[1]][[1]]]
AppendTo[je,x /. Solve[x == ja[3,0]x + ja[3,2]je[[2]]+1][[1]][[1]] ]
AppendTo[je,x /.Solve[x == ja[4,0]x + ja[4,3]je[[3]] + ja[4,2]je[[2]] + 1,x][[1]][[1]]]
AppendTo[je,x /.Solve[x == ja[5,0]x + Sum[ja[5,i],{i,2,4}] + 1,x][[1]][[1]] ]
AppendTo[je,x /.Solve[x == ja[6,0]x + Sum[ja[6,i],{i,2,6-1}] + 1,x][[1]][[1]] ]
calc[m_] := AppendTo[je,x /.Solve[x == ja[m,0]x + Sum[ja[m,i],{i,2,m-1}] + 1,x][[1]][[1]] ]
calc[7]
calc[8]
calc[9]
calc[10]
calc[11]
% // N
82: 2024/08/18(日)11:13 ID:fBcVsaRS(1/2)調 AAS
>>80
スレタイ読めないアホ発見
83: 2024/08/18(日)13:29 ID:S1VoGAV5(1/3)調 AAS
>>81
アルゴリズムのバグ発見したのでデバッグ
(* ja[n_,m_] := n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* je : 勝者が1人になるまでのジャンケン回数の期待値リスト *)
je={1};
AppendTo[je,x /. Solve[x == ja[2,0](x +1)+ja[2,1] ,x][[1]]]
AppendTo[je,x /. Solve[x == ja[3,0](x+1)+ja[3,1]+ja[3,2](1+je[[2]]),x][[1]]]
AppendTo[je,x /. Solve[x == ja[4,0](x+1)+ja[4,1]+ja[4,2](1+je[[2]])+ja[4,3](1+je[[3]]),x][[1]]]
AppendTo[je,x /. Solve[x == ja[5,0](x+1)+ja[5,1]+ja[5,2](1+je[[2]])+ja[5,3](1+je[[3]])+ja[5,4](1+je[[4]]),x][[1]]]
calc[m_] := AppendTo[je,x /. Solve[x == ja[m,0](x+1)+ja[m,1] + Sum[ja[m,i](1+je[[i]]),{i,2,m-1}],x][[1]]]
calc[6]
calc[7]
calc[8]
calc[9]
calc[10]
calc[11]
84(1): 2024/08/18(日)14:21 ID:S1VoGAV5(2/3)調 AAS
４０人のクラスで代表１人をジャンケンで選ぶ。
全員でのジャンケンから始めてその勝者でジャンケンを続けることを繰り返す。
代表が決まるまでのジャンケンの回数の期待値を求めよ。
答は分数もしくは小数第１位を四捨五入にした整数でよい。
(* ja[n_,m_] := n 人でジャンケンして勝者がm人になる確率 *)
ja[n_,m_] := (
If[m>=n,Return[0]];
If[m==0,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* je : 勝者が1人になるまでのジャンケン回数の期待値リスト *)
je={0};
AppendTo[je,x /. Solve[x == ja[2,0](x +1)+ja[2,1] ,x][[1]]];
AppendTo[je,x /. Solve[x == ja[3,0](x+1)+ja[3,1]+ja[3,2](1+je[[2]]),x][[1]]];
calc[m_] := AppendTo[je,x /. Solve[x == ja[m,0](x+1)+ja[m,1] + Sum[ja[m,i](1+je[[i]]),{i,2,m-1}],x][[1]]];
re40=Table[calc[m],{m,4,40}][[-1]][[-1]]
N[re40,7]
N[re40,8]
85: 2024/08/18(日)15:28 ID:fBcVsaRS(2/2)調 AAS
>>84
自称有能ならレス乞食しないで自分で勝手にやってろよ
86(2): 2024/08/18(日)20:29 ID:S1VoGAV5(3/3)調 AAS
このスレならこの程度の問題にしていただきたいね。
iのi乗根は無理数であることを示せ
1+2+3+...+2024!を7進法で表示すると何桁の数になるか算出せよ。
87: 2024/08/18(日)21:48 ID:LYw/XosF(1)調 AAS
>>86
そんな簡単ならさっさと答えろよレス乞食
88(1): 2024/08/19(月)05:30 ID:qPuO+ITh(1)調 AAS
(* jan[n_,m_] := n 人でジャンケンして参加者が m 人になる確率 *)
jan[n_,m_] := (
If[m==0 || m>n, Return[0]];
If[m==n,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
(* je : 勝者が1人になるまでのジャンケン回数の期待値リスト *)
solve[n_]:=(
je={0};
calc[m_] := AppendTo[je,x /. Solve[x == jan[m,m](x+1)+jan[m,1] + Sum[jan[m,i](1+je[[i]]),{i,2,m-1}],x][[1]]];
Table[calc[m],{m,2,n}][[-1]];
je
)
solve[10][[-1]]
% // N
89: 2024/08/19(月)20:37 ID:LNMh0Kop(1)調 AAS
だよなあ
今回段取りだけはすごい強いわなんなんだよな
90: 2024/08/19(月)21:07 ID:qEmD6FDJ(1)調 AAS
実際やってるような気が付いたから大丈夫
トレンド1位スナイプできるレベルで技は３ー４個しか使えずインフレして自分達で爆死させて貰いますた
女は恋愛すんな
91: 2024/08/19(月)21:25 ID:fCkpErGW(1)調 AAS
スノのいいドラマは被らないとこでライブ配信やって下げるのに
ワーキングプアしてるのか
お前らの
92: 2024/08/19(月)21:31 ID:wxqnnk1E(1)調 AAS
サガスカおもろかったやん
死んでない
検査装置で、脳梗塞でも書き込めなくなってきた
93: 2024/08/19(月)21:51 ID:Uz3cJ0Q4(1)調 AAS
>>14
典型的な買い
https://i.imgur.com/CJx8FpV.png
94: 2024/08/19(月)22:04 ID:nSXgUTL8(1)調 AAS
ヨーモニ〜💏
あいがみも酔ってる方だと思うわ
投資スタイルなんてだいぶ昔に統一関係議員全員美少女化したのここ？
https://0kvs.if.d42c/5vthR
95: 2024/08/19(月)22:08 ID:fivowbXI(1)調 AAS
>>79
逆にテレビ千鳥は深夜に戻っとるやん！
なんのため
ガチで
96: 2024/08/19(月)22:37 ID:IyUu92sy(1)調 AAS
試合で一回も成功してたしね
暴露で集めただけに近いし
97: 2024/08/19(月)22:51 ID:XQP/Eri1(1)調 AAS
関連はようございます
https://i.imgur.com/qmb6Gyk.jpg
https://i.imgur.com/wbdW1SY.png
98: 2024/08/19(月)23:18 ID:CBhSN87T(1)調 AAS
あのキャラ絶対芸能界向きだと自サーバーにクレカ情報渡したくないわ
28000まで同じような順位なん？
決済
アイスタ素直に逮捕されて使い道ない
99: 2024/08/19(月)23:28 ID:y+uVizcc(1)調 AAS
>>88
ウィスキーとか飲むイメージだな
ソシャゲは最早ガチャでエロ絵集めるだけやで
100: 2024/08/19(月)23:40 ID:TuWh8Fdq(1)調 AAS
他全滅
101: 2024/08/19(月)23:47 ID:pUs7ogYC(1)調 AAS
すかへんくくしあろはせまけひいけきねぬひきさえなとやいろに
102: 2024/08/20(火)05:30 ID:O+DDQLmu(1/4)調 AAS
"
n=11;
pn={jan[n,1]};
Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,1],{x1,2,n},{x2,2,x1},{x3,2,x2}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3}]//AppendTo[pn,#]&;
"
str=NULL
str[1]="pn={jan[n,1]};"
str[2]="Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;"
str[3]="Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;"
str[4]="Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,1],{x1,2,n},{x2,2,x1},{x3,2,x2}]//AppendTo[pn,#]&;"
str[5]="Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3}]//AppendTo[pn,#]&;"
for(i in 2:30){
y=paste0(",x",i,"]jan[x",i,",1],")
tmp=sub(",1],",y,str[i])
z=paste0("},{x",i,",2,x",i-1,"}]")
str[i+1]=sub("}]",z,tmp)
}
103: 2024/08/20(火)08:08 ID:O+DDQLmu(2/4)調 AAS
jan[n_,m_] := (
If[m==0 || m>n, Return[0]];
If[m==n,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
n=11;
pn={jan[n,1]};
Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,1],{x1,2,n},{x2,2,x1},{x3,2,x2}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4}]//AppendTo[pn,#]&;
...
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,x9]jan[x9,x10]jan[x10,x11]jan[x11,x12]jan[x12,x13]jan[x13,x14]jan[x14,x15]jan[x15,x16]jan[x16,x17]jan[x17,x18]jan[x18,x19]jan[x19,x20]jan[x20,x21]jan[x21,x22]jan[x22,x23]jan[x23,x24]jan[x24,x25]jan[x25,x26]jan[x26,x27]jan[x27,x28]jan[x28,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7},{x9,2,x8},{x10,2,x9},{x11,2,x10},{x12,2,x11},{x13,2,x12},{x14,2,x13},{x15,2,x14},{x16,2,x15},{x17,2,x16},{x18,2,x17},{x19,2,x18},{x20,2,x19},{x21,2,x20},{x22,2,x21},{x23,2,x22},{x24,2,x23},{x25,2,x24},{x26,2,x25},{x27,2,x26},{x28,2,x27}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,x9]jan[x9,x10]jan[x10,x11]jan[x11,x12]jan[x12,x13]jan[x13,x14]jan[x14,x15]jan[x15,x16]jan[x16,x17]jan[x17,x18]jan[x18,x19]jan[x19,x20]jan[x20,x21]jan[x21,x22]jan[x22,x23]jan[x23,x24]jan[x24,x25]jan[x25,x26]jan[x26,x27]jan[x27,x28]jan[x28,x29]jan[x29,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7},{x9,2,x8},{x10,2,x9},{x11,2,x10},{x12,2,x11},{x13,2,x12},{x14,2,x13},{x15,2,x14},{x16,2,x15},{x17,2,x16},{x18,2,x17},{x19,2,x18},{x20,2,x19},{x21,2,x20},{x22,2,x21},{x23,2,x22},{x24,2,x23},{x25,2,x24},{x26,2,x25},{x27,2,x26},{x28,2,x27},{x29,2,x28}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,x9]jan[x9,x10]jan[x10,x11]jan[x11,x12]jan[x12,x13]jan[x13,x14]jan[x14,x15]jan[x15,x16]jan[x16,x17]jan[x17,x18]jan[x18,x19]jan[x19,x20]jan[x20,x21]jan[x21,x22]jan[x22,x23]jan[x23,x24]jan[x24,x25]jan[x25,x26]jan[x26,x27]jan[x27,x28]jan[x28,x29]jan[x29,x30]jan[x30,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7},{x9,2,x8},{x10,2,x9},{x11,2,x10},{x12,2,x11},{x13,2,x12},{x14,2,x13},{x15,2,x14},{x16,2,x15},{x17,2,x16},{x18,2,x17},{x19,2,x18},{x20,2,x19},{x21,2,x20},{x22,2,x21},{x23,2,x22},{x24,2,x23},{x25,2,x24},{x26,2,x25},{x27,2,x26},{x28,2,x27},{x29,2,x28},{x30,2,x29}]//AppendTo[pn,#]&;
pn
Accumulate[pn]
% // N
104: 2024/08/20(火)08:10 ID:O+DDQLmu(3/4)調 AAS
自民党総裁選は候補者11人という。
11人でジャンケンをして勝者が複数なら勝者だけでジャンケンを繰り返すという方式で総裁を決めるとき
ジャンケンの回数（アイコも１回と数える）の最頻値と中央値を求めよ。
105(1): 2024/08/20(火)08:11 ID:O+DDQLmu(4/4)調 AAS
Rの文字列操作関数を駆使してWolframのコードを作成するという戦略を採った。
Wolframだけで完結するコードの投稿を期待します。
106(1): 2024/08/20(火)08:24 ID:cBs2zsg2(1)調 AAS
ここまで教えてもらってまだできんww wwwwww
無能wwwwwwwwwwwwwww
107(2): 2024/08/20(火)23:02 ID:3diBYk2P(1)調 AAS
冒頭、
>> このスレは医者・東大卒の人物専用スレです。
>> その他の人が書き込むことは許されません。
とあるので、許されないのかもしれませんが、向こうに書き込むよりはましかと思いこちらに投稿します。
>> 答に自信が持てないので質問します。
>>
>> 自民党総裁選は候補者11人という。
...
>> 199602482890927685979724552820321419790
>> Out[14]= ----------------------------------------
>> 1330279464729113309844748891857449678409
>>
>> で合っているでしょうか？
私も自信があるわけではないが、コードと得た答えを記します。
p[a_,b_]:=p[a,b]=If[a==b,1-(2^a-2)/3^(a-1),Binomial[a,b]/3^(a-1)]
m=11;
f=Flatten[Table[{m,m-x1,m-x2,m-x3,m-x4,m-x5,m-x6,m-x7,m-x8,m-x9,1},
{x1,0,m-1},{x2,x1,m-1},{x3,x2,m-1},{x4,x3,m-1},{x5,x4,m-1},
{x6,x5,m-1},{x7,x6,m-1},{x8,x7,m-1},{x9,x8,m-1}],8];
Total[Product[p[#[[k]],#[[k+1]]],{k,1,10}] & /@f]//InputForm
449687340186660888579056289638229806808082/2909321189362570808630465826492242446680483
108(2): 2024/08/21(水)08:28 ID:trPnwZW4(1/6)調 AAS
>>106
で、３Dグラフの動画はまだできんのだが？
109: 2024/08/21(水)09:46 ID:4xmRA5nu(1)調 AAS
>>108
なんだ、あんたも無能なんだ
110: 2024/08/21(水)10:42 ID:trPnwZW4(2/6)調 AAS
>>107
レスありがとうございます。
コードを解読しました。
(* a 人でジャンケンして参加者が b 人になる確率,a==b ならアイコ *)
p[a_,b_]:=p[a,b]=If[a==b,1-(2^a-2)/3^(a-1),Binomial[a,b]/3^(a-1)]
m=11;
(* 参加者数の変遷を列挙 *)
f=Flatten[Table[{m,m-x1,m-x2,m-x3,m-x4,m-x5,m-x6,m-x7,m-x8,m-x9,1},
{x1,0,m-1},{x2,x1,m-1},{x3,x2,m-1},{x4,x3,m-1},{x5,x4,m-1},
{x6,x5,m-1},{x7,x6,m-1},{x8,x7,m-1},{x9,x8,m-1}],8];
(* 変遷確率積の総和*)
Total[Product[p[#[[k]],#[[k+1]]],{k,1,10}] & /@f]
% // N
正しいように思いますので自分のコードのデバッグ作業に移ります。
111: 2024/08/21(水)11:14 ID:trPnwZW4(3/6)調 AAS
デバッグして、数値が合致しました。
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= (* jan[n_,m_] := n 人でジャンケンして参加者が m 人になる確率 *)
In[2]:= jan[n_,m_] := (
If[m==0 || m>n, Return[0]];
If[m==n,1 - 3*(2^n-2)/3^n,3*Binomial[n,m]/3^n]
)
In[3]:= n=11;
In[4]:= (* 10回以下で終了する確率*)
In[5]:= Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,x9]jan[x9,1]
,{x1,1,n},{x2,1,x1},{x3,1,x2},{x4,1,x3},{x5,1,x4},{x6,1,x5},{x7,1,x6},{x8,1,x7},{x9,1,x8}]
449687340186660888579056289638229806808082
Out[5]= -------------------------------------------
2909321189362570808630465826492242446680483
112: 2024/08/21(水)11:27 ID:trPnwZW4(4/6)調 AAS
(* 各回ごとの確率 *)
pn={jan[n,1]};
Total@Flatten@Table[jan[n,x1]jan[x1,1],{x1,2,n}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,1],{x1,2,n},{x2,2,x1}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,1],{x1,2,n},{x2,2,x1},{x3,2,x2}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7}]//AppendTo[pn,#]&;
Total@Flatten@Table[jan[n,x1]jan[x1,x2]jan[x2,x3]jan[x3,x4]jan[x4,x5]jan[x5,x6]jan[x6,x7]jan[x7,x8]jan[x8,x9]jan[x9,1],{x1,2,n},{x2,2,x1},{x3,2,x2},{x4,2,x3},{x5,2,x4},{x6,2,x5},{x7,2,x6},{x8,2,x7},{x9,2,x8}]//AppendTo[pn,#]&
Total@pn
113(1): 2024/08/21(水)11:44 ID:trPnwZW4(5/6)調 AAS
シミュレーションによる検証
Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.
In[1]:= j[n_] :=( (* n人でジャンケンして勝者が決まるまでの回数と勝者の数*)
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, winners=Count[a,2]];
If[b=={2,3}, winners=Count[a,3]];
If[b=={1,3}, winners=Count[a,1]] ;
{winners,count}
)
In[2]:=
In[2]:= sim[n_] :=((* 勝者が一人になるまでの回数 *)
For[{winner,counts}=j[n],winner>1k=j[winner];winner=k[[1]];counts=counts+k[[2]]];
counts
)
In[3]:= res11=Table[sim[11],10^6];
In[4]:= Histogram[res11,"Scott","PDF"]
Out[4]= -Graphics-
In[5]:= Mean[res11] // N
Out[5]= 34.9504
In[6]:= Median[res11]
Out[6]= 27
In[7]:= N@Mean@Boole[#<=10&/@res11]
Out[7]= 0.154785
In[8]:= 449687340186660888579056289638229806808082/2909321189362570808630465826492242446680483
449687340186660888579056289638229806808082
Out[8]= -------------------------------------------
2909321189362570808630465826492242446680483
In[9]:= % // N
Out[9]= 0.154568
114: 2024/08/21(水)16:33 ID:fRgQD6bE(1)調 AAS
>>108
日本語不自由な無能発見
115(1): 2024/08/21(水)16:34 ID:EiqnP9Ex(1/5)調 AAS
>>107
あからさまな自演で草
116: 2024/08/21(水)17:53 ID:EiqnP9Ex(2/5)調 AAS
>>113
>>69にはいつになったら答えられるんだよゴミ
117(4): 2024/08/21(水)17:57 ID:trPnwZW4(6/6)調 AAS
>>115
Flattenの使い方とか熟練者のコード解析は勉強になる。
118: 2024/08/21(水)18:09 ID:EiqnP9Ex(3/5)調 AAS
>>117
そもそも脳内医者なのになんでこのスレ書き込めるんだよ？
119: 2024/08/21(水)19:14 ID:EiqnP9Ex(4/5)調 AAS
>>117
>>69にはいつまでダンマリ決め込んでんだよ？
120: 2024/08/21(水)20:27 ID:rsVL5MYO(1)調 AAS
アイスタマジヤバいの来そうやないか？
パーマかけたんだね
121: 2024/08/21(水)20:34 ID:YldtGvrJ(1)調 AAS
逆に言えば、僕らはそれを隠してたんだね
122: 2024/08/21(水)21:13 ID:orJvOL8Q(1)調 AAS
土曜の昼間にやることがあるやんけ
今週中に脳梗塞でもないからな
123: 2024/08/21(水)22:21 ID:EiqnP9Ex(5/5)調 AAS
>>117
134：卵の名無しさん：2024/08/21(水) 22:14:22.45 ID:Mk9xahY2
>>131
即答出来なかった癖にってwww
そりゃお前の脳内妄想医療なんぞ想像出来るわけないだろ臨床に全くそってないのに
普通は議題にも上がらないからな
仮にリファンピシン何て飲んでたらGFを消火器にふる前にそういう情報出てるよな
わざわざ他科にコンサルトしてんだから
正確には常に気をつける薬剤では無く飲んでたらそれが原因だと気づく薬剤なんだよ
お前、現在リファンピシン飲んでる結核患者なんてどれぐらいいるのか知ってるのか？
妄想も大概にしろよ
135：卵の名無しさん：2024/08/21(水) 22:17:01.89 ID:Mk9xahY2
>>132
どう考えてもわかってなかったよな？
変なプログラム書いてる暇あったらすぐに反論できたよね？
後出し乙
もう医者のフリするのやめない？馬鹿なんだからwww
124: 2024/08/22(木)11:17 ID:moSOEVeB(1)調 AAS
体に良い親人と出会っていたんだろうな。
ラメーン食いたいもんかラーメンて
125: 2024/08/22(木)11:20 ID:rXGE90op(1)調 AAS
付け焼き刃的に持ってないな
それにたいする答えてのは好きじゃないとしたら
126: 2024/08/22(木)11:46 ID:+idgYRUh(1)調 AAS
>>32
俺くらいになるね
でもチケ代高い割には何もやらない方がでかいな
画面越しのヒントになるってだけ
127: 2024/08/22(木)12:19 ID:cPl6boaC(1)調 AAS
なんかぞわぞわするんだよお婆さん
今はSNSでの煽り行為や公共の福祉以外に何を不幸自慢してるんだろうなぁ
枠拡充120万くらいなのに
128: 2024/08/22(木)12:25 ID:KCeZ3hz8(1)調 AAS
>>105
自分の立場だったら記念切手の感覚でやってるフリしてる奴らて何も分かって怖い
横転した統一系のサークルで勧誘してるねー
129: 2024/08/22(木)13:22 ID:8qGY+6eb(1)調 AAS
>>117
142：卵の名無しさん：2024/08/22(木) 09:09:23.36 ID:Hxf3Cpig
>>137
吐血と下血の区別ぐらいつくわwww
喀血もわからないお前じゃないんだから
んで、リファンピシンで治療するような病気を診ている呼吸器内科がいる規模の病院なのに
消火器内科ではなく自称外科医のお前に内視鏡を依頼するのは何故？
→脳内医療だからwww
結核だろうが肺MAC症だろうが外科に内視鏡頼むような病院でそんな病気診る呼吸器内科がいるわけないじゃん
そもそもリファンピシン飲んでるのわかってるのにその呼吸器内科は内視鏡やる医者にその事を伝えないのか？滅茶苦茶だなwww
どう見ても脳内医療
130: 2024/08/22(木)16:23 ID:0a4dfs+c(1)調 AAS
>>80
王位にある人は 藤井聡太七冠
永世王位にある人は 大山15世(故人)、中原16世、羽生19世(永世七冠)
(大意)
王位戦七番勝負は現在 3−1 で、渡辺九段にあと1勝すれば防衛。
連続5期に到達するので、永世王位に就く。
131(1): 2024/08/22(木)20:15 ID:ZYoBe3+E(1)調 AAS
f[n_,x_] = f[n]=If[
n==1,
1/(1-x),
1/(1-(1-(2^n-2)/3^(n-1))x) x Sum[Binomial[n,m]/3^(n-1)f[m,x],{m,1,n-1}]]
Table[{n,SeriesCoefficient[f[11,x],{x,0,n}]},{n,9,15}]
Table[{n,SeriesCoefficient[f[11,x]*(1-x),{x,0,n}]},{n,9,5}]
Table[{n,N@SeriesCoefficient[f[11,x]*(1-x),{x,0,n}]},{n,0,20}]
Table[{n,Sign@SeriesCoefficient[f[11,x]*(1-2*x+x^2),{x,0,n}]},{n,0,20}]
ListPlot[Table[SeriesCoefficient[f[11,x]*(1-x),{x,0,n}],{n,30}]]
N@SeriesCoefficient[1/(1-x)-f[11,x],{x,1,0}]
132(4): 2024/08/23(金)04:02 ID:/G4Ss0QX(1/3)調 AAS
>>86
ｉ = e^{iπ/2} のｉ乗根は e^{π/2}
S = 1 + 2 + …… + 2024!
= (2024!)(2024!+1)/2
≒ (1/2)(2024!)^2
≒ 2024^{4049}･π･e^{−4048} Stirlingの式
log(S) = 4049･log(2024) + log(π) −4048
≒ 26777.497572
log(S)/log(7) = 13760.911615…
∴ 13761桁
133(1): 2024/08/23(金)07:15 ID:eFoV/xUL(1/2)調 AAS
>>132
レスありがとうございます。
想定解の数値と合致です。
134(1): 2024/08/23(金)07:18 ID:eFoV/xUL(2/2)調 AAS
11人でジャンケンしたときの終了回数のシミュレーションは
期待値、中央値はシミュレーション値と理論値がほぼ合致したが、
最頻値はずいぶんと乖離した。
練習問題
1人の勝者が決まるまで11人でジャンケンをしたとき
終了までのジャンケンの回数の最頻値とその確率を求めよ。
勝者が複数なら勝者間でジャンケンを継続し、アイコも１回と数える。
135: 2024/08/23(金)08:31 ID:Am/2METs(1)調 AAS
>>133
数値一致wwww
等号の意味すら分からないのかよwwww
136(1): 2024/08/23(金)13:14 ID:g6kRvRuw(1)調 AAS
シミュレーションでの分布
https://i.imgur.com/LKj8vo6.png
最頻値は理論値とずれた。
137(1): 2024/08/23(金)13:40 ID:Cv/P/3fy(1)調 AAS
尿瓶ジジイ＝>>136は高校数学の基礎の基礎であるこちらの問題にはダンマリ決め込んで懲りずにチンパン統計をぶつぶつほざいている模様
①√2は無理数であることを証明せよ。
②1+2+…+2024は何桁の整数か。
138(1): 2024/08/23(金)14:00 ID:wqZOBs8f(1)調 AAS
当たり前やろ
こんな分布1000000回ごときのシミュで答え出るわけないやろ
この無能頭わいてんのかね？
無能ってかわいそう
139(1): 2024/08/23(金)18:49 ID:xQPSXxbD(1)調 AAS
150：卵の名無しさん：2024/08/23(金) 06:33:17.51 ID:0RpmxFnA
尿瓶ジジイが本当に臨床統計を理解しているか確認する問題
原著論文の抄録を示す．
背景・目的：腰痛には心理的要因が影響していることが知られているが，心理行動学的介入が腰痛患者のQOLに効果があるかは不明である．本研究では，腰痛患者に対する認知行動療法が，患者の健康関連QOLに与える効果を検討する．
方 法：参加した50施設の整形外科外来に慢性腰痛で受診中の患者のうち，同意を得られた880名（平均年齢 ± 標準偏差 ＝ 72.4 ± 4.5歳，男女比 ＝ 1：1.2）を本研究の対象とした．ランダム割付けを行い，通常治療＋認知行動療法を行う介入群と通常治療のみの比較対照群に分類した．ベースラインと12か月時点の健康関連QOLをSF 36 Health Survey日本語版〈SF-36〉の下位項目「活力」で測定し，スコアの変化量の2群間の差をt検定で解析した．Intention to Treat解析を用いた．
結 果：12か月の追跡率は70％であった．ベースラインのSF-36「活力」に2群で統計学的有意差はみられなかった．12か月後の「活力」の変化量は比較対象群と比べて介入群で統計学的有意な改善を認めた（P値 ＜ 0.001）．
結 論：慢性腰痛症に対する認知行動療法は健康関連QOLを改善させる．
本研究結果を臨床応用するうえで最も確認したい論文中の情報はどれか．1つ選べ．
（a）P値（絶対値）
（b）各群の追跡率
（c）二重盲検順守率
（d）per protocol解析結果
（e）変化量の2群間差の値（95％信頼区間）
臨床統計得意なんでしょ？5択だし流石に答えられるよね？
140(2): 2024/08/23(金)19:36 ID:R15w90it(1)調 AAS
>>134
M=Table[If[n==m,1-(2^m-2)/3^(m-1),Binomial[m,n]/3^(m-1)],{m,1,11},{n,1,11}];
u=Table[Boole[i==11],{i,1,11}];
v=Table[Boole[i== 1],{i,1,11}];
p=Differences@Table[u.MatrixPower[M,i].v,{i,0,20}];
max=Max[p]
12597340638043496499971512842764330462294598371/515377520732011331036461129765621272702107522001
Position[p,max]
11
141: 2024/08/23(金)23:29 ID:/G4Ss0QX(2/3)調 AAS
>>132
S = 1 + 2 + …… + n!
= (n!)(n!+1)/2
≒ (1/2)(n!)^2
≒ n^{2n+1}･e^{−2n}･π･(1+1/(6n)) Stirlingの式
log(S) ≒ (2n+1)･log(n) - 2n + log(π) + 1/(6n)
≒ 26777.49765435
log(S)/log(7) ≒ 13760.91165738…
∴ 13761桁
142: 2024/08/23(金)23:37 ID:/G4Ss0QX(3/3)調 AAS
>>132
56155314531336…… (13761桁)
143: 2024/08/24(土)14:31 ID:CzjhaWSa(1)調 AAS
x,yは x<=y の正整数とし、x^2+y^2は25の倍数である。
これを満たす{x,y}の組み合わせを x+y が小さい順に並べる。
10番目、20番目、30番目の{x,y}の組み合わせを求めよ。
xy=Flatten[Table[{x,y},{x,1,25},{y,1,25}],1];
re=Select[xy,Mod[ #[[1]]^2 + #[[2]]^2,25] == 0 && #[[1]] <= #[[2]] &];
Table[SortBy[re,Total][[i]],{i,{10,20,30}}]
144(3): あぼーん [あぼーん] AAS
あぼーん
145: 2024/08/25(日)05:42 ID:/qrXHaIo(1/11)調 AAS
>>140
レスありがとうございます。
想定解と合致しました。
https://i.imgur.com/b226zjT.png
146(3): 2024/08/25(日)05:50 ID:/qrXHaIo(2/11)調 AAS
>>139
問題を読むだけでも面倒だが、(e)だろ。
臨床統計ｗの問題
ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
とする。
各々10000発撃ったとき各ゴルゴの命中数の期待値はいくらか？
147: 2024/08/25(日)08:47 ID:XxCJyA5c(1)調 AAS
>>144
やるしか無いわ
148: 2024/08/25(日)09:15 ID:rhW1eedt(1/2)調 AAS
>>144
やるしかないね
149: 2024/08/25(日)10:53 ID:0Dxrgsfy(1/4)調 AAS
数学板でも高校生にボコされた上にスクリプト爆撃を受けてもう元気がなくなった様子w
>>146
ずっとダンマリ決め込んでたくせに今更後出しジャンケンだっさw
189：卵の名無しさん：2024/08/24(土) 08:17:30.15 ID:q7UaKMDX
尿瓶ジジイは言い訳ばっかで結局答えわからんかったって事でとりあえず答え書いとくわ
P値とは統計的仮説検定を行う際，「比較する2群の結果に差がない」という仮説（帰無仮説）どおりになる確率のことである．すなわちP = 0.001とは，標本抽出して検定を1,000回行うと１回だけ帰無仮説どおりになることである．
この際，2群の差が大きいほどP値は小さくなる．一方，P値が小さいことは2群の差が大きいことを意味するとは限らない．例えば，サンプルサイズが大きければP値は低くなる傾向がある．ゆえにP値の絶対値が介入の効果の大きさを直接示しているわけではない．
ランダム化比較研究の結果を広く臨床に応用する際，介入の効果（有効性）の大きさを考慮することは大事である．今回の研究においては介入の効果を，変化量の2群間の差や改善割合の2群間の比として95％信頼区間で示すというのが可能である．また，効果量を算出する方法もある．2群の平均値の差であれば，t 値と自由度とを使って計算するr 値や，平均や標準偏差から計算する d 値で示すことができる．効果量も絶対的な指標ではないものの，介入効果を示す1つとして覚えておくと良い．
以上から，選択肢の中では（e）を正解，（a）を不正解．
150: 2024/08/25(日)11:52 ID:rhW1eedt(2/2)調 AAS
>>146
結局答え教えてもらってから書き込んでんじゃん
ダサッ！
151: 2024/08/25(日)12:09 ID:0Dxrgsfy(2/4)調 AAS
>>146
問題文読むだけでも面倒って自己紹介？
自分は散々人にスレチな出題をレス乞食しておいていざ人にご指名で質問されたらご丁寧に答え教えてくた後出しジャンケンとか一体何様なの？w
こんなのが医者や東大卒だと思う人レスして下さい
152: 2024/08/25(日)12:59 ID:/qrXHaIo(3/11)調 AAS
>>140
行列で計算させると算出時間が爆速なのにびっくりしました。
達人のスクリプトを改造して道具箱に保存しておきます。
(* j 人でジャンケンをしたときの終了までの回数の最頻値とその確率を返す *)
calc[j_]:=(
M=Table[If[n==m,1-(2^m-2)/3^(m-1),Binomial[m,n]/3^(m-1)],{m,1,j},{n,1,j}];
p=Differences@Table[MatrixPower[M,i][[j,1]],{i,0,10j}];
max=Max@p;
Flatten@{Position[p,max],max,N[max]}
)
In[3]:= calc[15]
Out[3]= {30, 65101358743766874914341259145354001254712997240185483777481087387163094008455949207206\
> 93198405902336999941273392239247993407703628004425130823658476122231689832344483758966236574\
> 375695 / 11947838420050013668726696739307151046843799152024135169583095938840977078626722578\
> 97327618239887790786549346048626664496721871548575328400043101228717425477619608889629973635\
> 327326175449, 0.0054488}
calc[15]
153(1): 2024/08/25(日)13:02 ID:/qrXHaIo(4/11)調 AAS
一次方程式の問題を解けないようなシリツ医を相手にしないのよ。
154(1): 2024/08/25(日)13:04 ID:/qrXHaIo(5/11)調 AAS
すぐに読める問題
ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
とする。
各々10000発撃ったとき各ゴルゴの命中数の期待値はいくらか？
155(1): 2024/08/25(日)13:08 ID:/qrXHaIo(6/11)調 AAS
>>138
最初の参加人数が少なければシミュレーションと理論値が合致するぞ。
156: 2024/08/25(日)13:29 ID:u4or3250(1)調 AAS
>>144
こういう情報を知りたかった
157: 2024/08/25(日)13:29 ID:0Dxrgsfy(3/4)調 AAS
>>153
スレタイも理解できないチンパンが相手にされてないからここで発狂してんだろうがw
158: 2024/08/25(日)13:30 ID:/qrXHaIo(7/11)調 AAS
練習問題
１５人のラグビーチームでジャンケンをしてキャプテンを１人決めることになった。
１５人全員でジャンケンを始めて勝者どおしでジャンケンを続けて勝者が１人になるまで続ける。
アイコも１回と数えるときキャプテンが決まるまでのジャンケンの回数の中央値は１１４回である。
問題 ４０人のクラスでジャンケンをして学級委員を１人決めるときのジャンケンの回数の中央値を算出せよ。
上下前次1-新書関写板覧索設栞歴
あと 833 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.031s
