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

高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除ﾚｽ栞

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

1(12): １３２人目の素数さん [sage] 2024/08/09(金)06:22:27.38 ID:9Q+t+cCw(1/6)
【質問者必読！！】
まず>>1-5をよく読んでね

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

数学@5ch掲示板用掲示板での数学記号の書き方例と一般的な記号の使用例
http://mathmathmath.dotera.net/

・まずは教科書、参考書、web検索などで調べるようにしましょう。（特に基本的な公式など）
・問題の写し間違いには気をつけましょう。
・長い分母分子を含む分数はきちんと括弧でくくりましょう。
　　（× x+1/x+2　；　 ○((x+1)/(x+2)) ）
・丸文字、顔文字、その他は環境やブラウザによりうまく表示できない場合があります。
　どうしても画像を貼る場合はPCから直接見られるところに見やすい画像を貼ってください。
　ピクトはPCから見られないことがあるので避けてください。
・質問者は名前を騙られたくない場合、トリップを付けましょう。
　（トリップの付け方は　名前(N)に　俺！#oretrip　←適当なトリ)
・質問者は回答者がわかるように問題を書くようにしましょう。
　でないと放置されることがあります。
　（変に省略するより全文書いた方がいい、また説明なく習慣的でない記号を使わないように）
・質問者は何が分からないのか、どこまで考えたのかを明記しましょう。
　それがない場合、放置されることがあります。
　（特に、自分でやってみたのに合わないので教えてほしい、みたいなときは必ず書くように）
・回答者も節度ある回答を心がけてください。
・出題スレではありません。出題は該当スレにお願いします。
・970くらいになったら次スレを立ててください。
※前スレ
高校数学の質問スレ Part437
2chｽﾚ:math

79(1): １３２人目の素数さん [sage] 2024/08/18(日)06:09:54.38 ID:Qg46pTwQ(1/3)
(* 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]]]

143: １３２人目の素数さん [sage] 2024/08/24(土)14:31:18.38 ID:CzjhaWSa(1)
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}}]

167(5): １３２人目の素数さん [sage] 2024/08/25(日)14:16:20.38 ID:QiSGCEaw(3/4)
>>162
その簡単なプログラムをWolframで書けないのがいるんだよなぁ。
確率問題は総当たりとシミュレーションで答を検討できるから(・∀・)ｲｲ!!

362: １３２人目の素数さん [sage] 2024/12/01(日)17:01:28.38 ID:rRY5OR0u(2/2)
>>361
どうせ高校生にすらバカにされてるからもう出てこなくていいよ

855: １３２人目の素数さん [sage] 05/30(金)19:44:31.38 ID:zoAuXcvc(2/3)
(* pbetat関数の定義 *)
pbetat[p0_, prob_, ab_, data_] := Module[{a, b, s, f, lbf, bf, post},
a = ab[[1]];
b = ab[[2]];
s = data[[1]];
f = data[[2]];
lbf = s * Log[p0] + f * Log[1 - p0] + Log@Beta[a, b] - Log@Beta[a + s, b + f];
bf = Exp[lbf];
post = prob * bf / (prob * bf + 1 - prob);
<|"bf" -> bf, "post" -> post|>
]

(* 関数fの定義 *)
f[alpha_] := pbetat[1/6, 0.5, {alpha, 5*alpha - 4}, {4, 50 - 4}]["post"]

(* 最小化 *)
result = NMinimize[{f[alpha], 0 <= alpha <= 20}, alpha]

上下前次1-新書関写板覧索設栞歴

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.025s