高校数学の質問スレ（医者・東大卒専用） Part438

**１３２人目の素数さん** · 2024/08/09(金) 06:22:27.38

【質問者必読！！】
まず>>1-5をよく読んでね

このスレは医者・東大卒の人物専用スレです。
その他の人が書き込むことは許されません。

数学@5ch掲示板用掲示板での数学記号の書き方例と一般的な記号の使用例
http://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/

**１３２人目の素数さん** · 2024/08/09(金) 06:29:30.49

[2] 主な公式と記載例

(a±b)^2 = a^2 ±2ab +b^2
(a±b)^3 = a^3 ±3a^2b +3ab^2 ±b^3
a^3±b^3 = (a±b)(a^2干ab+b^2)

√a*√b = √(ab),　√a/√b = √(a/b),　√(a^2b) = a√b　[a>0, b>0]
√((a+b)±2√(ab)) = √a±√b　　[a>b>0]

ax^2+bx+c = a(x-α)(x-β) = 0 [a≠0, α+β=-b/a, αβ=c/a]
(α,β) = (-b±√(b^2-4ac))/2a　　[2次方程式の解の公式]

a/sin(A) = b/sin(B) = c/sin(C) = 2R　[正弦定理]
a = b cos(C) + c cos(B)　　　　　　[第一余弦定理]
a^2 = b^2 + c^2 -2bc cos(A)　　　　[第二余弦定理]

sin(a±b) = sin(a)cos(b) ± cos(a)sin(b)　[加法公式]
cos(a±b) = cos(a)cos(b) 干 sin(a)sin(b)

log_{a}(xy) = log_{a}(x) + log_{a}(y)
log_{a}(x/y) = log_{a}(x) - log_{a}(y)
log_{a}(x^n) = n(log_{a}(x))
log_{a}(x) = (log_{b}(x))/(log_{b}(a))　[底の変換公式]

f '(x) = lim_[h→0] (f(x+h)-f(x))/h　　[微分の定義]
(f±g) ' = f ' ± g '、(fg) ' = f 'g + fg ',
(f/g) ' = (f 'g-fg ')/(g^2)　　　　[和差積商の微分]

**１３２人目の素数さん** · 2024/08/09(金) 06:29:48.79

[3] 基本的な記号の使い方は以下を参照してください。
その他については>>1のサイトで｡

■ 足し算/引き算/掛け算/割り算（加減乗除)
　a+b　→　a 足す b　(足し算)　　　　　a-b　→　a 引く b　(引き算)
　a*b　→　a 掛ける b　(掛け算) 　　　　a/b　→　a 割る b　(割り算)
■ 累乗　^
　a^b 　　　　a の b乗
　a^(b+1)　　a の b+1乗
　a^b + 1　　(a の b乗) 足す 1
■ 括弧の使用
　a/(b + c)　と　a/b + c
　a/(b*c)　と　a/b*c
はそれぞれ、違う意味です。
　括弧を多用して、キチンと区別をつけてください｡
■ 数列
　a[n] or a_(n) 　　　→ 数列aの第n項目
　a[n+1] = a[n] + 3 　→ 等差数列の一例
　Σ[k=1,n] a_(k)　　 → 数列の和
■ 積分
　 "∫"は「せきぶん」「いんてぐらる」「きごう」「すうがく」などで変換せよ。
　(環境によって異なる。)　∮は高校では使わない。
　∫[0,1] x^2 dx = (x^3)/3|_[x=0,1]
■ 三角関数
　(sin(x))^2 + (cos(x))^2 = 1,　cos(2x) = (cos(x))^2 - (sin(x))^2
■ ヴェクトル
　AB↑　a↑
　ヴェクトル：V = [V[1],V[2],...], |V>, V↑, vector(V)
　(混同しない場合はスカラーと同じ記号でいい。通常は縦ヴェクトルとして扱う。)
■行列
　（全成分表示）：M = [[M[1,1],M[2,1],...],[M[1,2],M[2,2],...],...], I = [[1,0,0,...],[0,1,0,...],...]
　（行 (または列) ごとに表示する．　例）M = [[1,-1],[3,2]])
■順列・組合せ
　　P[n,k] = nＰk, C[n.k] = nＣk, H[n,k] = nＨk,
■共役複素数
　　z = x + iy (x,yは実数) に対し　z~ = x - iy

**１３２人目の素数さん** · 2024/08/09(金) 06:30:09.60

[4] 単純計算は質問の前に　http://www.wolframalpha.com/　などで確認

入力例
・因数分解
　　factor x^2+3x+2
・定積分
　　integral[2/(3-sin(2x)), {x,0,2pi}]
・極限
　　limit(t*ln(1+(1/t^2))+2*arctan(t))) as t->infinity
・無限級数
　　sum (n^2)/(n!), n=1 to infinity
・極方程式
　　PolarPlot[2/sqrt(3-sin(2t)), {t, 0, 2Pi}]

グラフ描画ソフトなど
・FunctionView for Windows
　　http://hp.vector.co.jp/authors/VA017172/
・GRAPES for Windows
　　http://tomodak.com/grapes/
・GRAPES-light for i-Pad
　　http://www.tokyo-shoseki.co.jp/ict/textbook_app/h/003003
・GeoGebra for Windows / Mac OS X
　　http://sites.google.com/site/geogebrajp/

入試問題集
　http://www.densu.jp/index.htm　　(入試数学電子図書館)
　http://www.watana.be/ku/　　　　(京大入試問題数学解答集)
　http://www.toshin.com/nyushi/　　(東進過去問DB)

※前スレ
高校数学の質問スレ Part434
https://rio2016.5ch.net/test/read.cgi/math/1712376048/

**１３２人目の素数さん** · 2024/08/09(金) 06:31:11.64

[5]
～このスレの皆さんへ～
https://egg.5ch.net/test/read.cgi/hosp/1607687111/
現在、無意味なプログラムを書き込む悪質な荒らしが常駐しています
通称｢プログラムキチガイ｣｢害悪プログラムおじさん｣は医療・医者板にいる通称ウリュウという荒らしです

数学Iの三角比の問題や中学数学の平面図形の問題でさえ手計算では解けずに
わざわざプログラムで解くような人物です
二項分布の期待値npすら知らないレベルです
すぐにマウントを取りに来ます
下ネタが大好きです
発達障害があると思われ説得しても無駄だと思われます
会話されることで喜びます
皆さん、一切関わらずに無視を貫きましょう
NGし、一切触れないようにしましょう
またプログラミング言語の一部をNGすることも数単語でほとんど消えるのでおすすめ
触れる人も荒らしです　NGしましょう

**１３２人目の素数さん** · 2024/08/09(金) 06:31:29.09

以上テンプレ

**１３２人目の素数さん** · 2024/08/09(金) 14:27:06.01

兄弟スレ
　１．医東専スレ（毛利隆元スレ）　= このスレ

　２．医東禁スレ（吉川元春スレ）　= 弟スレ
　　https://rio2016.5ch.net/test/read.cgi/math/1723152776/

　３．無指定スレ（小早川隆景スレ）= 弟スレ
　　　https://rio2016.5ch.net/test/read.cgi/math/1723169641/

**１３２人目の素数さん** · 2024/08/09(金) 18:18:03.34

兄より優れた弟など存在しないってジャギさんが言ってた

**１３２人目の素数さん** · 2024/08/10(土) 18:09:37.81

熱中症触れ込みの発熱患者で忙しかった。
発熱の救急搬送受けてインセンティブゲット。

**１３２人目の素数さん** · 2024/08/10(土) 18:11:26.85

Highest Densit Intervalで
[0.7,0.8]が95%CIになるベータ分布のパラメータを算出。

rm(list=ls())
par(bty='l')
f2=\(p){
f1=\(x) punif(30,0,x)-p
uniroot(f1, c(30,100))$root
}
f2=Vectorize(f2)
curve(f2,0.6,0.9)

f0=\(a,b) (pbeta(0.7,a,b)-0.025)^2+(pbeta(0.8,a,b)-0.975)^2
opt=optim(runif(2),\(ab) f0(ab[1],ab[2]))
opt=optim(opt$par,\(ab) f0(ab[1],ab[2]))
ab=opt$par
curve(dbeta(x,ab[1],ab[2]))
library(HDInterval)
ci=hdi(qbeta,shape1=ab[1],shape2=ab[2])
f3=\(a,b){
ci95=hdi(qbeta,shape1=a,shape2=b)
(ci95[1]-0.7)^2 + (ci95[2]-0.8)^2
}
opt=optim(ab,\(x)f3(x[1],x[2]))
opt=optim(opt$par,\(x)f3(x[1],x[2]))
alpha=opt$par[1]
beta=opt$par[2]
hdi(qbeta,shape1=alpha,shape2=beta)
curve(dbeta(x,alpha,beta))
c(alpha,beta)

**１３２人目の素数さん** · 2024/08/11(日) 08:40:06.64

(*
三角形ABCがある　底辺BCがBC,∠AがaA,∠CがaCの時,この三角形の面積はいくつ？
*)
AreaABC[BC_:4,aA_:Pi/4,aC_:Pi/8] :=(
f[x_]:=(
pB={0,0};
pC={BC,0};
pA={x,-Tan[aC](x-BC)};
ABC=Triangle[{pA,pB,pC}];
TriangleMeasurement[ABC,{"InteriorAngle",pA}]
);
x0 = ( x /. Solve[f[x]==aA,{x}][[1]][[1]]);
pA={x0,-Tan[aC](x0-BC)};
Area[Triangle[{pA,pB,pC}]] // Simplify
)
AreaABC[]

**１３２人目の素数さん** · 2024/08/11(日) 13:29:14.25

(* 三角形ABCで底辺BC=BC,∠A=aA,∠C=aCの時、この三角形の面積は？*)
calc[BC_:4,aA_:Pi/4,aC_:Pi/8] :=(
fn[x_]:=(
If[x==BC,Return[0]];
pB={0,0};
pC={BC,0};
pA={x,-Tan[aC](x-BC)};
ABC=Triangle[{pA,pB,pC}];
(aA-TriangleMeasurement[ABC,{"InteriorAngle",pA}])^2
);
x0 = x /. NMinimize[fn[x],x][[2]];
pB={0,0};
pC={BC,0};
pA={x0,-Tan[aC](x0-BC)};
Area[Triangle[{pA,pB,pC}]]
)
calc[]

**１３２人目の素数さん** · 2024/08/11(日) 16:40:58.98

ComplexExpand[(1 + I)^(1 - I)]
Log[1+I] // ComplexExpand

**１３２人目の素数さん** · 2024/08/11(日) 16:45:35.56

コロナ患者含めて新入院3人、２栄一ゲット。
基礎疾患のある高齢患者なのでベクルリーを３日開始。
肺炎までこじらせてから５日間使うという悪徳医がいるらしい。

**１３２人目の素数さん** · 2024/08/11(日) 18:05:24.20

(*

e^iπ+1 = 0は美しい等式といわれるのにちなんだ計算問題

a,b,cは異なる数字でe(ネイピア数),i(虚数単位),π(円周率)のいずれかである。
（１）指数法則(a^b)^c = a^(b*c)が成立する組み合わせを列挙せよ。
（２）成立しない組み合わせで左辺と右辺の値を算出せよ。

*)

pm=Permutations[Range[3]];
x={I,E,Pi};
y={x[[#[[1]]]],x[[#[[2]]]],x[[#[[3]]]]}& /@ pm;
(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])& /@ y;
ts=Select[y,(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])&]
fs=Select[y,(#[[1]]^#[[2]])^#[[3]] != #[[1]]^(#[[2]]*#[[3]])&]

{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ ts
% // ComplexExpand
% // N
{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ fs
% // ComplexExpand
% // N

**１３２人目の素数さん** · 2024/08/11(日) 18:14:03.79

(*
a,b,cは異なる数字でe(ネイピア数),i(虚数単位),π(円周率)のいずれかである。
（１）指数法則(a^b)^c = a^(b*c)が成立する組み合わせを列挙せよ。
（２）成立しない組み合わせで左辺と右辺の値を算出せよ。
*)
pm=Permutations[Range[3]];
x={I,E,Pi};
y={x[[#[[1]]]],x[[#[[2]]]],x[[#[[3]]]]}& /@ pm;
(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])& /@ y;
ts=Select[y,(#[[1]]^#[[2]])^#[[3]] == #[[1]]^(#[[2]]*#[[3]])&]
fs=Select[y,(#[[1]]^#[[2]])^#[[3]] != #[[1]]^(#[[2]]*#[[3]])&]

{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ ts // ComplexExpand
{(#[[1]]^#[[2]])^#[[3]], #[[1]]^(#[[2]]*#[[3]])}& /@ fs // ComplexExpand // Simplify
% // N

**１３２人目の素数さん** · 2024/08/11(日) 21:48:55.60

>>14
で、いつになったら無理数の証明ができるんだよチンパン

**１３２人目の素数さん** · 2024/08/12(月) 02:24:24.51

医者でも東大卒でもない尿瓶ジジイがなぜ書き込んでいるのか、一体質問はいつするのかww

**１３２人目の素数さん** · 2024/08/12(月) 04:53:12.49

>>11-12
　aB = π － aA － aC,
∴　cot(aB) = － cot(aA+aC),

底辺BCは既知だから、高さが分かればよい。
頂点Aから対辺BCに垂線AHを下ろす。
　AH {cot(aB)+cot(aC)} = BH + HC = BC,　　(有向距離)
　AH = BC / {cot(aB) + cot(aC)},
　⊿ABC = (1/2)AH・BC
　　= (BC^2) / {2[cot(aB) + cot(aC)]}
　　= (BC^2) / {2[cot(aC)－cot(aA+aC)]},

**１３２人目の素数さん** · 2024/08/12(月) 05:21:42.18

>>13
Log[1+i] = log(2)/2 + i(π/4) = -θ + i(π/4),
[1+i]^[1-i] = (1+i)*(1+i)^{-i}
　　= (1+i)*e^{π/4 +iθ},

e^{π/4} = 2.19328
θ =－log(2)/2 = －0.3465736

**１３２人目の素数さん** · 2024/08/12(月) 08:06:38.70

>>19
レスありがとうございます。
人間Wolframに感銘。

**１３２人目の素数さん** · 2024/08/12(月) 08:09:45.64

さて、そろそろ帰り支度をするかな。
今日は祝日なので内視鏡バイトなし。
まあ、新入院や救急搬送でインセンティブ２栄一ゲットしたので
m3から購入した。

i,e,π計算のメモ
(I^E)^Pi // ComplexExpand // Simplify
% // N
I^(E Pi) // ComplexExpand // Simplify
% // N
(I^Pi)^E // ComplexExpand // Simplify
% // N
I^(Pi E) // ComplexExpand // Simplify
% // N

**１３２人目の素数さん** · 2024/08/12(月) 08:10:14.89

>>21
人間Wolframってバカにしてるのでは

**１３２人目の素数さん** · 2024/08/12(月) 10:39:57.82

>>22
おい尿瓶ジジイいつになったら無理数の証明できるようになるんだよ

**１３２人目の素数さん** · 2024/08/12(月) 13:09:48.25

>>22
おいもう息してないのか

**１３２人目の素数さん** · 2024/08/12(月) 21:05:05.17

>>8
「（某大物棋士の）兄貴たちは頭が悪いから東大へ行った」
という話の出所は芹沢（博文）九段という人もいるが、怪しい…

**１３２人目の素数さん** · 2024/08/14(水) 14:46:24.61

Reverse@Sort@Counts@IntegerDigits[2024!,7]

**１３２人目の素数さん** · 2024/08/14(水) 17:20:49.32

a + b + c = 1,
aa + bb + cc = 3,
a^6 + b^6 + c^6 = 3,

を解け

**１３２人目の素数さん** · 2024/08/14(水) 17:23:05.81

実解は
(a,b,c) = (-1,1,1)　(1,-1,1)　(1,1,-1)　

**１３２人目の素数さん** · 2024/08/14(水) 17:32:46.58

虚数解
　t^3 －t^2 －t +5 = 0,
　t = {－[2(31+3√105)]^{1/3} －[2(31-3√105)]^{1/3} + 1}/3,
　　=－1.594313016355
　[1-t ±ｉ√(t-2-15/t)]/2 = 1.2971565081774 ± 1.205625150603ｉ

**１３２人目の素数さん** · 2024/08/14(水) 18:19:32.60

1+2+…+2024は何桁の整数か

**１３２人目の素数さん** · 2024/08/14(水) 19:19:14.10

(a,b,c) が
　t = －1.594313016355
　[(1-t) ±ｉ√(-t-1)･√(5-3t)]/2 = 1.2971565081774 ± 1.205625150603ｉ
の順列である…

**１３２人目の素数さん** · 2024/08/14(水) 19:40:42.13

>>28
f[l_,m_,n_,a_,b_,c_] := Solve[x^l+y^l+z^l==a && x^m+y^m+z^m==b && x^n+y^n+z^n==c,{x,y,z}]
f[1,2,6,1,3,3]

**１３２人目の素数さん** · 2024/08/14(水) 19:49:00.45

a + b + c = 1,
aa + bb + cc = 3,
a^7 + b^7 + c^7 = 1,
を解け。

実数解は　(-1,1,1)　(1,-1,1)　(1,1,-1)

**１３２人目の素数さん** · 2024/08/14(水) 20:03:11.26

↑
虚数解
　t'^3 － t'^2 － t' + 4 = 0,
　t' = {－[(97+9√113)/2]^{1/3} －[(97-9√113)/2]^{1/3} + 1} /3
　　=－1.485584
　[(1-t’) ±ｉ√(-1-t')･√(5-3t')] /2 = 1.242792 ± 1.07145315ｉ

**１３２人目の素数さん** · 2024/08/14(水) 20:18:28.86

a + b + c = 1,
aa + bb + cc = 3,
a^8 + b^8 + c^8 = 3,
を解け。

実数解は　(-1,1,1)　(1,-1,1)　(1,1,-1)

**１３２人目の素数さん** · 2024/08/14(水) 20:23:49.14

↑
虚数解
　t^3 － t^2 － t + 11/5 = 0,
　t = {－[(121+9√161)/5]^{1/3} －[(121-9√161)/5]^{1/3} + 1}/3,
　　= －1.23930635
　[(1-t) ±ｉ√(-t-1)･√(5-3t)]/2 = 1.119653175 ± 0.7221934276ｉ

**１３２人目の素数さん** · 2024/08/14(水) 20:55:23.81

a + b + c = 1,
aa + bb + cc = 3,
a^3 + b^3 + c^3 = 1 + 3(1 -t -t^2 +t^3),

**１３２人目の素数さん** · 2024/08/14(水) 21:24:22.70

基本対称式：
　a + b + c = 1,
　ab + bc + ca = －1,
　abc = t(tt-t-1),

**１３２人目の素数さん** · 2024/08/15(木) 00:23:28.29

(続き)
　S_0 = 1 + 1 + 1 = 3,
　S_1 = a + b + c = 1,
　S_2 = aa + bb + cc = 3,
　S_3 = 4 + 3t(tt-t-1),
漸化式
　S_n = S_{n-2} + S_{n-2} + (1/3) (S_3 - 4) S_{n-3},

そこで
　S_n = 1　となる奇数n
　S_n = 3　となる偶数n
をさがす。

**１３２人目の素数さん** · 2024/08/15(木) 00:30:52.81

a + b + c = 1,
aa + bb + cc = 3,
a^17 + b^17 + c^17 = 1,
を解け。

実数解は (a,b,c) = (-1,1,1)　(1,-1,1)　(1,1,-1)

**１３２人目の素数さん** · 2024/08/15(木) 00:41:32.86

↑
虚数解
　t^3 － t^2 － t + 3 = 0,
　t = [－(35+3√129)^{1/3} － (35-3√129)^{1/3} + 1]/3
　　= －1.359304086
　[(1-t) ±ｉ√(-t-1)･√(5-3t)]/2 = 1.179652043 ± 0.903013146ｉ
　S_3 = -5,
　abc = -3,

**１３２人目の素数さん** · 2024/08/15(木) 01:32:00.94

>>38-40
　t^3 － t^2 － t + (4 - S_3)/3 = 0,
より
　t = (－[q+√(qq－64)]^{1/3} －[q-√(qq－64)]^{1/3} + 1) /3,
　ここに q = (25－9･S_3)/2,

**１３２人目の素数さん** · 2024/08/15(木) 10:18:26.54

bWin <- function(x){# 1 beats 3, 3 beats 2, 2 beats 1
if(length(unique(x))!=2 ) return(0) # no winner
u=sort(unique(x))
if(all(u==c(1,2))) return(sum(x==2)) # how many winners who won by 2
if(all(u==c(2,3))) return(sum(x==3)) # how many winners who won by 3
if(all(u==c(1,3))) return(sum(x==1)) # how many winners who won by 1
}

janken.till.winner.sim <- function(n){ # janken till someone wins
if(n<2) return(NA)
x=sample(1:3,n,replace = TRUE) # janken by n people
count=1 # counter of janken game
while(bWin(x)==0){ # if draw try again
x=sample(1:3,n,replace = TRUE) # janken again till someone win
count=count+1
}
c(bWin(x),count) # return how many winners and counter
}

janken.till.chamipion.sim <- \(n){
re=janken.till.winner.sim(n)
count=re[2]
winner=re[1]
while(winner>1){
re=janken.till.winner.sim(n)
count=count+re[2]
winner=re[1]
}
count
}
res=replicate(1e5,janken.till.chamipion.sim(9))
summary(res)
hist(res,col=2,breaks='scott',freq=FALSE,xlab='count',main='')
BEST::plotPost(res,showMode = TRUE,breaks='scott')

**１３２人目の素数さん** · 2024/08/15(木) 10:18:53.46

９人で野球チームをつくる。
全員がピッチャーをやりたがったためジャンケンで決めることにする。
全員でのジャンケンから始めてその勝者でジャンケンを続けることを繰り返す。
ピッチャーが決まるまでのジャンケンの回数の期待値と中央値を求めよ。

**１３２人目の素数さん** · 2024/08/15(木) 12:49:28.59

>>45
高校生にまたバカにされたいのか？

**１３２人目の素数さん** · 2024/08/15(木) 17:41:15.12

janken simulator

j[n_] :=(
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, c=Count[a,2]];
If[b=={2,3}, c=Count[a,3]];
If[b=={1,3}, c=Count[a,1]] ;
{c,count}
)
j[4]

**１３２人目の素数さん** · 2024/08/15(木) 17:59:59.43

n=9;
j[n_] :=(
count=0;
Until[Length@Union@a==2,a=RandomChoice[Range[3],n];count++];
b=Sort@Union@a;
If[b=={1,2}, w=Count[a,2]];
If[b=={2,3}, w=Count[a,3]];
If[b=={1,3}, w=Count[a,1]] ;
{w,count}
)

For[{w,count}=j[n],w>1,k=j[w];w=k[[1]];count=count+k[[2]]]
{w,count}

**１３２人目の素数さん** · 2024/08/15(木) 18:27:20.71

小学生向きの問題

王様　と　王様でない人とはどちらが多いでしょうか?

**１３２人目の素数さん** · 2024/08/15(木) 19:21:07.03

>>49
chatGPTに聞かないと答えが分からないアホ発見

**１３２人目の素数さん** · 2024/08/15(木) 19:23:19.21

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}
)

sim[n_] :=((* 勝者が一人になるまでの回数　*)
For[{winner,counts}=j[n],winner>1,k=j[winner];winner=k[[1]];counts=counts+k[[2]]];
counts
)
res9=Table[sim[9],10^5];
Histogram[res9]
Mean[res9]//N
Median[res9]

**１３２人目の素数さん** · 2024/08/15(木) 19:23:48.55

Rに移植

j=\(n){
a=sample(3,n,replace=TRUE)
count=1
while(length(unique(a))!=2){
a=sample(3,n,replace=TRUE)
count=count+1
}
b=sort(unique(a))
if(all(b==c(1,2))) winner=2
if(all(b==c(2,3))) winner=3
if(all(b==c(1,3))) winner=1
winners=sum(a==winner)
c(winners,count)
}

sim=\(n){
c=j(n)
winner=c[1]
count=c[2]
while(winner>1){
k=j(winner)
winner=k[1]
count=count+k[2]
}
count
}
res9=replicate(1e5,sim(9))
BEST::plotPost(res9,breaks='scott')

**１３２人目の素数さん** · 2024/08/15(木) 19:29:14.64

Wolfram
https://i.imgur.com/iiZxHO7.png
R
https://i.imgur.com/T6TIE9M.png

同じアルゴリズムなので同様の結果になった。

**１３２人目の素数さん** · 2024/08/15(木) 19:56:17.63

>>53
なんで日本語不自由なのに数学できると思ってんだチンパンは

**１３２人目の素数さん** · 2024/08/15(木) 20:59:51.79

>>53
結局無理数の証明はダンマリ？

**１３２人目の素数さん** · 2024/08/16(金) 13:42:56.09

>>55
ググれば答がでてくるようなのは放置。
んで、ググってもでてこない、3Dグラフの動画はまだぁ？

**１３２人目の素数さん** · 2024/08/16(金) 13:44:09.89

ハノイの塔のソルバー　Wolfram版

hanoi[n_,from_:"A",via_:"B",to_:"C"] :=(
If[n>=1,hanoi[n-1,from,to,via];Print["move ",n, " from ",from, " to ",to];hanoi[n-1,via,from,to]]
)
hanoi[6]

**１３２人目の素数さん** · 2024/08/16(金) 14:02:36.89

>>56
なんかwolframで答えみたいなの出してたけどw
結局高校数学の基礎すら分からんってことね

**１３２人目の素数さん** · 2024/08/16(金) 14:05:08.96

>>56

24：卵の名無しさん：2024/08/16(金) 08:48:49.90 ID:eXoor/xc
>>20
50歳男性
食事の際に胸がつかえる感じがする
下の内視鏡所見
↓
https://i.imgur.com/qcEfQIC.jpeg

診断と治療は？内視鏡専門にしてるなら答えれるよなwww
無視したり答えられなかったらお前は底辺シリツ医以下の知能しか無いってことでwww

これの答えまだ？

**１３２人目の素数さん** · 2024/08/16(金) 14:25:35.34

スレタイ以外のことでいくら発狂したところで無視されるのは当たり前だろマヌケ
無理数の>>31すら答えられないのかよ？

**１３２人目の素数さん** · 2024/08/16(金) 15:15:01.70

尿瓶ジジイID:BuIOB4cEにはできない問題を質問します

①√2は無理数であることを証明せよ。

②1+2+…+2024は何桁の整数か。

**１３２人目の素数さん** · 2024/08/16(金) 15:31:11.25

（1）リウヴィルの定理
p, q が自然数のとき
　｜√2 － p/q｜ ≧ (6-4√2)/qq,

∴　√2 ≠ p/q　　　　(無理数)

**１３２人目の素数さん** · 2024/08/16(金) 15:49:14.93

当然ながら同じIDじゃないと認めません

**１３２人目の素数さん** · 2024/08/16(金) 16:58:44.40

本スレでは散々発狂してますが>>61に対してこっちでは一切ダンマリを決め込んでる模様

**１３２人目の素数さん** · 2024/08/16(金) 17:29:04.80

問題　油分け算のソルバーを作れ。（言語は問わない）

R言語でのソルバー
https://i.imgur.com/bqkmHbB.png
これをWolframに移植する気にならんなぁ。
Wolframでないと分数での厳密解が出せないというわけでもないから。

黒瀬のスパイスをつかってチキンジャーキーを作る方が楽しい。
焼き肉のタレでつくったら嫁から評判が悪かったので作り直し。

**１３２人目の素数さん** · 2024/08/16(金) 17:46:49.14

>>59
輪状襞と縦走襞から好酸球性食道炎を疑う所見。
まあ、特異的な治療があるわけでもないので、無症状なら検診で遭遇しても生検しないこともあるなぁ。
A型胃炎を疑っても金がかかるだけなので、
無症状で貧血でもなければ、抗胃壁細胞抗体やガストリンも測定せずに
検診を毎年受けてくださいの説明だけにしていることもままある。

内視鏡やっているなら即答できる問題

鮮血を吐血したと紹介された患者に何を内服していないかを問診すべきか？
経管栄養している患者が下血したと病棟から呼ばれた何を内服していないかを問診すべきか？

**１３２人目の素数さん** · 2024/08/16(金) 17:50:49.50

尿瓶ジジイこちらの問題にはダンマリ決め込んでる模様

①√2は無理数であることを証明せよ。

②1+2+…+2024は何桁の整数か。

**１３２人目の素数さん** · 2024/08/16(金) 18:05:04.95

>>66
臨床問題wwwお前本当馬鹿なんだな
じゃあ自称消化器外科のお前に問題出してやるよ
↓下の画像の病名は？
https://i.imgur.com/dCrMTtn.jpeg

で、なんでこれの答えが肝腫瘍なんだよマヌケ

**１３２人目の素数さん** · 2024/08/16(金) 19:06:09.18

医者スレにて尿瓶ジジイ大発狂中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
肝腫瘍

**１３２人目の素数さん** · 2024/08/17(土) 11:44:44.70

>>66
>>69のゴキジェットで無事死んじゃった

**１３２人目の素数さん** · 2024/08/17(土) 13:19:41.98

>>66ここのスレではダンマリ決め込んでるみたい
ようやく自分が医者でも東大卒でもないことがわかったの？

**１３２人目の素数さん** · 2024/08/17(土) 14:29:59.78

(*
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

**１３２人目の素数さん** · 2024/08/17(土) 14:30:43.53

Wolfram言語に少々なれてきた。

**１３２人目の素数さん** · 2024/08/17(土) 14:48:01.69

(*
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}]

**１３２人目の素数さん** · 2024/08/17(土) 14:49:16.87

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

**１３２人目の素数さん** · 2024/08/17(土) 15:09:03.74

>>75
で、尿瓶チンパンジジイはこれはいつになったら解けるの？

①√2は無理数であることを証明せよ。

②1+2+…+2024は何桁の整数か。

**１３２人目の素数さん** · 2024/08/17(土) 15:10:58.66

頭が悪すぎてフルボッコにされていることも理解できないみたいだねw
>>69に5択すら選べないみたいだしそこまでしてバカにされたい？w

**１３２人目の素数さん** · 2024/08/17(土) 18:23:34.97

質問スレなのに質問が無い

**１３２人目の素数さん** · 2024/08/18(日) 06:09:54.38

(* 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]]]

**１３２人目の素数さん** · 2024/08/18(日) 06:11:04.79

>>78
では、質問
王様（王位にある人）　と　王様でない人とはどちらが多いでしょうか?

**１３２人目の素数さん** · 2024/08/18(日) 06:46:57.60

(* 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

**１３２人目の素数さん** · 2024/08/18(日) 11:13:34.46

>>80
スレタイ読めないアホ発見

**１３２人目の素数さん** · 2024/08/18(日) 13:29:06.79

>>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]

**１３２人目の素数さん** · 2024/08/18(日) 14:21:09.42

４０人のクラスで代表１人をジャンケンで選ぶ。
全員でのジャンケンから始めてその勝者でジャンケンを続けることを繰り返す。
代表が決まるまでのジャンケンの回数の期待値を求めよ。
答は分数もしくは小数第１位を四捨五入にした整数でよい。

(* 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]

**１３２人目の素数さん** · 2024/08/18(日) 15:28:11.50

>>84
自称有能ならレス乞食しないで自分で勝手にやってろよ

**１３２人目の素数さん** · 2024/08/18(日) 20:29:25.07

このスレならこの程度の問題にしていただきたいね。

iのi乗根は無理数であることを示せ
1+2+3+...+2024!を7進法で表示すると何桁の数になるか算出せよ。

**１３２人目の素数さん** · 2024/08/18(日) 21:48:59.30

>>86
そんな簡単ならさっさと答えろよレス乞食

**１３２人目の素数さん** · 2024/08/19(月) 05:30:45.90

(* 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

**１３２人目の素数さん** · 2024/08/19(月) 20:37:29.20

だよなあ
今回段取りだけはすごい強いわなんなんだよな

**１３２人目の素数さん** · 2024/08/19(月) 21:07:59.86

実際やってるような気が付いたから大丈夫
トレンド1位スナイプできるレベルで技は３ー４個しか使えずインフレして自分達で爆死させて貰いますた
女は恋愛すんな

**１３２人目の素数さん** · 2024/08/19(月) 21:25:54.52

スノのいいドラマは被らないとこでライブ配信やって下げるのに
ワーキングプアしてるのか
お前らの

**１３２人目の素数さん** · 2024/08/19(月) 21:31:33.15

サガスカおもろかったやん
死んでない
検査装置で、脳梗塞でも書き込めなくなってきた

**１３２人目の素数さん** · 2024/08/19(月) 21:51:34.12

>>14
典型的な買い
https://i.imgur.com/CJx8FpV.png

**１３２人目の素数さん** · 2024/08/19(月) 22:04:47.75

ヨーモニ～💏
あいがみも酔ってる方だと思うわ
投資スタイルなんてだいぶ昔に統一関係議員全員美少女化したのここ？
https://0kvs.if.d42c/5vthR

**１３２人目の素数さん** · 2024/08/19(月) 22:08:34.03

>>79
逆にテレビ千鳥は深夜に戻っとるやん！
なんのため
ガチで

**１３２人目の素数さん** · 2024/08/19(月) 22:37:05.09

試合で一回も成功してたしね
暴露で集めただけに近いし

**１３２人目の素数さん** · 2024/08/19(月) 22:51:33.83

関連はようございます
https://i.imgur.com/qmb6Gyk.jpg
https://i.imgur.com/wbdW1SY.png

**１３２人目の素数さん** · 2024/08/19(月) 23:18:24.90

あのキャラ絶対芸能界向きだと自サーバーにクレカ情報渡したくないわ
28000まで同じような順位なん？
決済
アイスタ素直に逮捕されて使い道ない

**１３２人目の素数さん** · 2024/08/19(月) 23:28:07.46

>>88
ウィスキーとか飲むイメージだな
ソシャゲは最早ガチャでエロ絵集めるだけやで

**１３２人目の素数さん** · 2024/08/19(月) 23:40:01.05

他全滅

**１３２人目の素数さん** · 2024/08/19(月) 23:47:49.30

すかへんくくしあろはせまけひいけきねぬひきさえなとやいろに

**１３２人目の素数さん** · 2024/08/20(火) 05:30:38.98

"
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)
}

**１３２人目の素数さん** · 2024/08/20(火) 08:08:58.34

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

**１３２人目の素数さん** · 2024/08/20(火) 08:10:01.22

自民党総裁選は候補者11人という。
11人でジャンケンをして勝者が複数なら勝者だけでジャンケンを繰り返すという方式で総裁を決めるとき
ジャンケンの回数（アイコも１回と数える）の最頻値と中央値を求めよ。

**１３２人目の素数さん** · 2024/08/20(火) 08:11:47.85

Rの文字列操作関数を駆使してWolframのコードを作成するという戦略を採った。
Wolframだけで完結するコードの投稿を期待します。

**１３２人目の素数さん** · 2024/08/20(火) 08:24:57.34

ここまで教えてもらってまだできんww wwwwww
無能wwwwwwwwwwwwwww

**１３２人目の素数さん** · 2024/08/20(火) 23:02:05.74

冒頭、
>> このスレは医者・東大卒の人物専用スレです。
>> その他の人が書き込むことは許されません。
とあるので、許されないのかもしれませんが、向こうに書き込むよりはましかと思いこちらに投稿します。

>> 答に自信が持てないので質問します。
>>
>> 自民党総裁選は候補者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

**１３２人目の素数さん** · 2024/08/21(水) 08:28:52.22

>>106
で、３Dグラフの動画はまだできんのだが？

**１３２人目の素数さん** · 2024/08/21(水) 09:46:56.78

>>108
なんだ、あんたも無能なんだ

**１３２人目の素数さん** · 2024/08/21(水) 10:42:51.81

>>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

正しいように思いますので自分のコードのデバッグ作業に移ります。

**１３２人目の素数さん** · 2024/08/21(水) 11:14:42.94

デバッグして、数値が合致しました。
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

**１３２人目の素数さん** · 2024/08/21(水) 11:27:27.25

(* 各回ごとの確率 *)
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

**１３２人目の素数さん** · 2024/08/21(水) 11:44:00.03

シミュレーションによる検証

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>1,k=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

**１３２人目の素数さん** · 2024/08/21(水) 16:33:52.27

>>108
日本語不自由な無能発見

**１３２人目の素数さん** · 2024/08/21(水) 16:34:11.10

>>107
あからさまな自演で草

**１３２人目の素数さん** · 2024/08/21(水) 17:53:09.19

>>113
>>69にはいつになったら答えられるんだよゴミ

**１３２人目の素数さん** · 2024/08/21(水) 17:57:45.90

>>115
Flattenの使い方とか熟練者のコード解析は勉強になる。

**１３２人目の素数さん** · 2024/08/21(水) 18:09:28.46

>>117
そもそも脳内医者なのになんでこのスレ書き込めるんだよ？

**１３２人目の素数さん** · 2024/08/21(水) 19:14:25.87

>>117
>>69にはいつまでダンマリ決め込んでんだよ？

**１３２人目の素数さん** · 2024/08/21(水) 20:27:00.79

アイスタマジヤバいの来そうやないか？
パーマかけたんだね

**１３２人目の素数さん** · 2024/08/21(水) 20:34:12.34

逆に言えば、僕らはそれを隠してたんだね

**１３２人目の素数さん** · 2024/08/21(水) 21:13:41.42

土曜の昼間にやることがあるやんけ
今週中に脳梗塞でもないからな

**１３２人目の素数さん** · 2024/08/21(水) 22:21:32.56

>>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

**１３２人目の素数さん** · 2024/08/22(木) 11:17:43.50

体に良い親人と出会っていたんだろうな。
ラメーン食いたいもんかラーメンて

**１３２人目の素数さん** · 2024/08/22(木) 11:20:40.23

付け焼き刃的に持ってないな
それにたいする答えてのは好きじゃないとしたら

**１３２人目の素数さん** · 2024/08/22(木) 11:46:32.27

>>32
俺くらいになるね
でもチケ代高い割には何もやらない方がでかいな
画面越しのヒントになるってだけ

**１３２人目の素数さん** · 2024/08/22(木) 12:19:30.59

なんかぞわぞわするんだよお婆さん
今はSNSでの煽り行為や公共の福祉以外に何を不幸自慢してるんだろうなぁ
枠拡充120万くらいなのに

**１３２人目の素数さん** · 2024/08/22(木) 12:25:13.71

>>105
自分の立場だったら記念切手の感覚でやってるフリしてる奴らて何も分かって怖い
横転した統一系のサークルで勧誘してるねー

**１３２人目の素数さん** · 2024/08/22(木) 13:22:36.77

>>117

142：卵の名無しさん：2024/08/22(木) 09:09:23.36 ID:Hxf3Cpig
>>137
吐血と下血の区別ぐらいつくわwww
喀血もわからないお前じゃないんだから

んで、リファンピシンで治療するような病気を診ている呼吸器内科がいる規模の病院なのに
消火器内科ではなく自称外科医のお前に内視鏡を依頼するのは何故？

→脳内医療だからwww

結核だろうが肺MAC症だろうが外科に内視鏡頼むような病院でそんな病気診る呼吸器内科がいるわけないじゃん
そもそもリファンピシン飲んでるのわかってるのにその呼吸器内科は内視鏡やる医者にその事を伝えないのか？滅茶苦茶だなwww
どう見ても脳内医療

**１３２人目の素数さん** · 2024/08/22(木) 16:23:48.72

>>80
　王位にある人は藤井聡太七冠
　永世王位にある人は大山15世(故人)、中原16世、羽生19世(永世七冠)

(大意)
　王位戦七番勝負は現在 3－1 で、渡辺九段にあと1勝すれば防衛。
　連続5期に到達するので、永世王位に就く。

**１３２人目の素数さん** · 2024/08/22(木) 20:15:09.90

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}]

**１３２人目の素数さん** · 2024/08/23(金) 04:02:36.07

>>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桁

**１３２人目の素数さん** · 2024/08/23(金) 07:15:27.28

>>132
レスありがとうございます。
想定解の数値と合致です。

**１３２人目の素数さん** · 2024/08/23(金) 07:18:46.09

11人でジャンケンしたときの終了回数のシミュレーションは
期待値、中央値はシミュレーション値と理論値がほぼ合致したが、
最頻値はずいぶんと乖離した。

練習問題
1人の勝者が決まるまで11人でジャンケンをしたとき
終了までのジャンケンの回数の最頻値とその確率を求めよ。

勝者が複数なら勝者間でジャンケンを継続し、アイコも１回と数える。

**１３２人目の素数さん** · 2024/08/23(金) 08:31:17.84

>>133
数値一致wwww
等号の意味すら分からないのかよwwww

**１３２人目の素数さん** · 2024/08/23(金) 13:14:58.90

シミュレーションでの分布
https://i.imgur.com/LKj8vo6.png
最頻値は理論値とずれた。

**１３２人目の素数さん** · 2024/08/23(金) 13:40:44.06

尿瓶ジジイ＝>>136は高校数学の基礎の基礎であるこちらの問題にはダンマリ決め込んで懲りずにチンパン統計をぶつぶつほざいている模様

①√2は無理数であることを証明せよ。

②1+2+…+2024は何桁の整数か。

**１３２人目の素数さん** · 2024/08/23(金) 14:00:14.64

当たり前やろ
こんな分布1000000回ごときのシミュで答え出るわけないやろ
この無能頭わいてんのかね？
無能ってかわいそう

**１３２人目の素数さん** · 2024/08/23(金) 18:49:51.27

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択だし流石に答えられるよね？

**１３２人目の素数さん** · 2024/08/23(金) 19:36:15.43

>>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

**１３２人目の素数さん** · 2024/08/23(金) 23:29:49.45

>>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桁

**１３２人目の素数さん** · 2024/08/23(金) 23:37:21.14

>>132
　56155314531336…… (13761桁)

**１３２人目の素数さん** · 2024/08/24(土) 14:31:18.38

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}}]

**あぼーん** · NG

あぼーん

**１３２人目の素数さん** · 2024/08/25(日) 05:42:43.86

>>140
レスありがとうございます。
想定解と合致しました。
https://i.imgur.com/b226zjT.png

**１３２人目の素数さん** · 2024/08/25(日) 05:50:42.70

>>139
問題を読むだけでも面倒だが、(e)だろ。

臨床統計ｗの問題

ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
とする。
各々10000発撃ったとき各ゴルゴの命中数の期待値はいくらか？

**１３２人目の素数さん** · 2024/08/25(日) 08:47:57.41

>>144
やるしか無いわ

**１３２人目の素数さん** · 2024/08/25(日) 09:15:08.50

>>144
やるしかないね

**１３２人目の素数さん** · 2024/08/25(日) 10:53:44.75

数学板でも高校生にボコされた上にスクリプト爆撃を受けてもう元気がなくなった様子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）を不正解．

**１３２人目の素数さん** · 2024/08/25(日) 11:52:28.29

>>146
結局答え教えてもらってから書き込んでんじゃん
ダサッ！

**１３２人目の素数さん** · 2024/08/25(日) 12:09:41.09

>>146
問題文読むだけでも面倒って自己紹介？
自分は散々人にスレチな出題をレス乞食しておいていざ人にご指名で質問されたらご丁寧に答え教えてくた後出しジャンケンとか一体何様なの？w
こんなのが医者や東大卒だと思う人レスして下さい

**１３２人目の素数さん** · 2024/08/25(日) 12:59:59.55

>>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]

**１３２人目の素数さん** · 2024/08/25(日) 13:02:05.24

一次方程式の問題を解けないようなシリツ医を相手にしないのよ。

**１３２人目の素数さん** · 2024/08/25(日) 13:04:45.53

すぐに読める問題

ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
とする。
各々10000発撃ったとき各ゴルゴの命中数の期待値はいくらか？

**１３２人目の素数さん** · 2024/08/25(日) 13:08:11.41

>>138
最初の参加人数が少なければシミュレーションと理論値が合致するぞ。

**１３２人目の素数さん** · 2024/08/25(日) 13:29:00.58

>>144
こういう情報を知りたかった

**１３２人目の素数さん** · 2024/08/25(日) 13:29:42.45

>>153
スレタイも理解できないチンパンが相手にされてないからここで発狂してんだろうがw

**１３２人目の素数さん** · 2024/08/25(日) 13:30:37.46

練習問題

１５人のラグビーチームでジャンケンをしてキャプテンを１人決めることになった。
１５人全員でジャンケンを始めて勝者どおしでジャンケンを続けて勝者が１人になるまで続ける。
アイコも１回と数えるときキャプテンが決まるまでのジャンケンの回数の中央値は１１４回である。

問題４０人のクラスでジャンケンをして学級委員を１人決めるときのジャンケンの回数の中央値を算出せよ。

**１３２人目の素数さん** · 2024/08/25(日) 13:51:00.26

人には散々チンパン数学()を一方的に出題しておいてレス乞食はする癖に(しかしほぼ相手にされない)いざ自分が同じことされると訳の分からない言い訳発狂ダンマリ後出しジャンケンとかダサすぎるw
5択すら答えられないのかよ？どこまで頭悪いんだ？

**１３２人目の素数さん** · 2024/08/25(日) 13:56:49.64

>>159
ChatGPTで正解が返ってくるような問題は面白くないんだなぁ。

**１３２人目の素数さん** · 2024/08/25(日) 14:00:19.08

>>155
合致wwww
主観かよwwwクズwww

**１３２人目の素数さん** · 2024/08/25(日) 14:01:32.22

>>160
簡単なプログラムで数値計算するだけの問題は面白くないぞwww

**１３２人目の素数さん** · 2024/08/25(日) 14:02:46.70

>>159
Wolframを扱える方はちゃんとレスを返してくるんだなぁ。
熟練者のコードを解読するのは勉強になる。
お陰でRのwhich関数に相当する関数がPositionであることを学んだので
早速、それを組み込んで道具箱に保管。

Wolframが使えないPhimoseくんが返してくるのは自演認定と医師板からのコピペくらいだなぁ。

**１３２人目の素数さん** · 2024/08/25(日) 14:05:54.84

>>160
結局お得意のGPTでも答えられなかったから答えが出るまでダンマリ決め込むしかなかったんだろ？
悔しかったら答えが出る前に答えだせよタコw

>>163
アンタと同じ文体でアンタがシカトされてる時にしれっと書き込み
これが自演じゃなくて何なんだよ？

**１３２人目の素数さん** · 2024/08/25(日) 14:11:13.40

>>154
ChatGPTだと期待値はすべて10000発と返ってきた。
95%信頼区間を算出させたら、

どのゴルゴに対しても、命中数が確定的であり、すべての発射が命中するため、95%信頼区間は
[10000,10000] です。

と返ってきた。

ChatGPTが正解を返さないような問題が面白い。

**１３２人目の素数さん** · 2024/08/25(日) 14:13:20.84

>>164
ChatGPTに入力してみたら、正解が返ってくるから。

**１３２人目の素数さん** · 2024/08/25(日) 14:16:20.38

>>162
その簡単なプログラムをWolframで書けないのがいるんだよなぁ。
確率問題は総当たりとシミュレーションで答を検討できるから(・∀・)ｲｲ!!

**１３２人目の素数さん** · 2024/08/25(日) 14:18:57.19

>>162
簡単なプログラムで３D動画作成できない尿瓶チンパフェチがいるんだよ。
未だに動画がアップされない。俺は慣れたRで作図している。

**１３２人目の素数さん** · 2024/08/25(日) 14:38:36.89

>>168
簡単な5択すらどれかを答えることができず選択肢にない答えを出すレベチのアホが何言ってんの？w

**１３２人目の素数さん** · 2024/08/25(日) 15:01:14.93

>>169
問題読むのも面倒だからChatGPTに投げたら正解が返ってきたぞ。
ゴルゴの問題は誤答が返ってきた。
こういうもんだいが面白いね。

**１３２人目の素数さん** · 2024/08/25(日) 15:04:46.24

　経管栄養している患者に投与したら便が赤くなる薬剤は
とChatGPTに投げたけど、正解は返ってこなかったな。
まあ、ChatGPTには臨床経験がないから仕方ないだろうな。

**１３２人目の素数さん** · 2024/08/25(日) 15:14:36.19

>>170
え？完全に後出しジャンケンだったのにまだそんなこと言ってるの？
脳内医者だからchatGPTに頼らないと答えが出ないわけ？

**１３２人目の素数さん** · 2024/08/25(日) 15:17:59.45

chatGPTに投げるならすぐ出てくるだろ
何で答えが出てくるまでダンマリ決め込んでたの？chatGPTにすぐ投げられることもできないくらい無能なの？

**１３２人目の素数さん** · 2024/08/25(日) 15:23:41.99

>>171
ChatGPTに質問したら答えいっぱい出てきましたが
答えが出ないとか意味不明ですよ偽医者さん
文字が読めないとか？

**１３２人目の素数さん** · 2024/08/25(日) 16:18:49.45

日本語不自由だから仕方ないねw

**１３２人目の素数さん** · 2024/08/25(日) 16:33:49.03

>>167
書けないんじゃなくこのスレで回答したらスレ違い
プログラム板の然るべきスレで同じ質問したら答えてやるよ

**１３２人目の素数さん** · 2024/08/25(日) 16:40:08.05

>>176
それが理解できないアホだからここで発狂してんだよ
躾ければ決まったところでトイレができる犬以下

**１３２人目の素数さん** · 2024/08/26(月) 00:45:30.63

結局またダンマリかよ
プログラム板に書き込んだところで結局数学板みたいにバカにされて終わりそうだけどw

**１３２人目の素数さん** · 2024/08/26(月) 08:00:26.74

>>167
そりゃいるよ
高校数学の質問スレで出題だのプログラミング言語だのやり始める奴すらいるんだから

**１３２人目の素数さん** · 2024/08/27(火) 06:18:32.52

尿瓶ジジイまた措置入院かよ？

**あぼーん** · NG

あぼーん

**１３２人目の素数さん** · 2024/08/27(火) 09:47:59.56

↓自演の知らなかった

**１３２人目の素数さん** · 2024/08/27(火) 10:22:06.00

>>181
もう弾は尽きたよ

**１３２人目の素数さん** · 2024/08/28(水) 03:21:35.87

>>181
>>183
嶋田信幸49歳
ポイ活必死ですね馬鹿ですね

**１３２人目の素数さん** · 2024/08/28(水) 08:21:40.99

この数値が算出できないってことは、
尿瓶チンパフェチのPhimoseくんは、Wolfram言語が使えないってことだろうなぁ

**１３２人目の素数さん** · 2024/08/28(水) 08:21:49.72

練習問題

１５人のラグビーチームでジャンケンをしてキャプテンを１人決めることになった。
１５人全員でジャンケンを始めて勝者どおしでジャンケンを続けて勝者が１人になるまで続ける。
アイコも１回と数えるときキャプテンが決まるまでのジャンケンの回数の中央値は１１４回である。

問題４０人のクラスでジャンケンをして学級委員を１人決めるときのジャンケンの回数の中央値を算出せよ。

**１３２人目の素数さん** · 2024/08/28(水) 08:24:28.12

どおしｗ

**１３２人目の素数さん** · 2024/08/28(水) 11:24:34.09

>>167
それが何？
つまらんものはつまらん。

算数で足し算ても検証してろwww

**１３２人目の素数さん** · 2024/08/28(水) 16:20:05.31

>>185
スレタイすら読めないアホが高校生にバカにされてるみたいだね

**１３２人目の素数さん** · 2024/08/28(水) 17:54:35.49

>>167
その方がつまらないと思うがな
公式に沿って電卓叩くだけだろ？
ああ成る程、だから証明や幾何が苦手なのか

**１３２人目の素数さん** · 2024/08/28(水) 18:57:30.82

>>190
>>167

高校数学の基礎の基礎の証明すらできないチンパンが電卓叩いてキーキー喜んでるだけ

**１３２人目の素数さん** · 2024/08/29(木) 17:42:28.62

>>190
算出するための関数を作るのが楽しいんだね。
それをシミュレーションで検証。

**１３２人目の素数さん** · 2024/08/29(木) 17:48:56.83

課題：算出する公式とシミュレーションコードを投稿せよ。

ゴルゴ13は100発100中
ゴルゴ14は10発10中
ゴルゴ15は1発1中
とする。
各々10000発撃ったとき各ゴルゴの命中数の期待値はいくらか？

**１３２人目の素数さん** · 2024/08/29(木) 18:33:31.32

作ってる函数に何の工夫もなく、
公式を特定の言語に変換してるだけじゃん
それも数学に特化した言語とも言えるWolfram
面白いかどうかは主観だから好きにすれば良いけど、
客観的に見たら車輪の再発明を繰り返す非生産的行為だよ

**１３２人目の素数さん** · 2024/08/29(木) 18:52:28.61

>>192
スレタイ読めないアホは予選敗退でーす

**１３２人目の素数さん** · 2024/08/29(木) 20:53:42.92

最近調子良かったから油断してタイムカード打ってるけど月に8/15からは漏れる疾患で急病かもしれんしな

**１３２人目の素数さん** · 2024/08/29(木) 20:57:19.42

>>54

はえー

正直

もともとが

リクライニングがかなりフラットに見ることができないし

**１３２人目の素数さん** · 2024/08/29(木) 21:09:07.43

>>182
便利なカードならわざとサロンのドメインで仮装通貨の買いも異常無しって分かるの？大河より面白かったけど
やっぱ酢の味して不味かったからな
定期的にラッパーの枠にはまりきってないはずの愛想や見た目で言えばかなり理想に近い

**１３２人目の素数さん** · 2024/08/29(木) 21:40:47.30

結局他人がどうこう言うことあるよね

**１３２人目の素数さん** · 2024/08/29(木) 22:26:47.81

>>192
作るwww
今までで一つでも作った気になってんの？
東大合格者にあるまじき感想wwww

作ったうちに入らねぇだろwwww