高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
高校数学の質問スレ（医者・東大卒専用） Part438 http://rio2016.5ch.net/test/read.cgi/math/1723152147/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
1: １３２人目の素数さん [sage] 2024/08/09(金) 06:22:27.38 ID:9Q+t+cCw 【質問者必読！！】 まず>>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/ http://rio2016.5ch.net/test/read.cgi/math/1723152147/1
79: １３２人目の素数さん [sage] 2024/08/18(日) 06:09:54.38 ID:Qg46pTwQ (* 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]]] http://rio2016.5ch.net/test/read.cgi/math/1723152147/79
143: １３２人目の素数さん [sage] 2024/08/24(土) 14:31:18.38 ID:CzjhaWSa 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}}] http://rio2016.5ch.net/test/read.cgi/math/1723152147/143
167: １３２人目の素数さん [sage] 2024/08/25(日) 14:16:20.38 ID:QiSGCEaw >>162 その簡単なプログラムをWolframで書けないのがいるんだよなぁ。 確率問題は総当たりとシミュレーションで答を検討できるから(・∀・)ｲｲ!! http://rio2016.5ch.net/test/read.cgi/math/1723152147/167
362: １３２人目の素数さん [sage] 2024/12/01(日) 17:01:28.38 ID:rRY5OR0u >>361 どうせ高校生にすらバカにされてるからもう出てこなくていいよ http://rio2016.5ch.net/test/read.cgi/math/1723152147/362
855: １３２人目の素数さん [sage] 2025/05/30(金) 19:44:31.38 ID:zoAuXcvc (* 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] http://rio2016.5ch.net/test/read.cgi/math/1723152147/855
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.031s