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

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

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

3(3): 2024/08/09(金)06:29:48.79 ID:9Q+t+cCw(3/6) AA×
>>1

16: 2024/08/11(日)18:14:03.79 ID:y6yg1Hhb(6/6) AAS
(*
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

55(2): 2024/08/15(木)20:59:51.79 ID:k34L4Drp(3/3) AAS
>>53
結局無理数の証明はダンマリ？

80(2): 2024/08/18(日)06:11:04.79 ID:Qg46pTwQ(2/3) AAS
>>78
では、質問
王様（王位にある人）　と　王様でない人とはどちらが多いでしょうか?

83: 2024/08/18(日)13:29:06.79 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]

120: 2024/08/21(水)20:27:00.79 ID:rsVL5MYO(1) AAS
アイスタマジヤバいの来そうやないか？
パーマかけたんだね

230: 2024/10/06(日)10:12:15.79 ID:9nVPq2f1(1) AAS
>>227
もう息絶えたのか？

292: 2024/11/01(金)08:30:33.79 ID:gUGEa7u0(1) AAS
キングびんぼー
碌でもないな。

322: 2024/11/18(月)13:29:29.79 ID:qEGNxEm5(1/2) AAS
>>319
いくら能書き垂れようがここで無能扱いされてることに違いはないw

327: 2024/11/19(火)03:57:43.79 ID:V8CHGcRI(1/2) AAS
To evaluate the limit
lim⁡n→∞(1−1n)n,\lim_{n \to \infty} \left(1 - \frac{1}{n}\right)^n,limn→∞(1−n1)n,
we can recognize that this expression is related to the definition of the number eee. Specifically, we can rewrite the expression in a more convenient form.
First, we can use the fact that
(1−1n)n=((1−1n)−n)−1.\left(1 - \frac{1}{n}\right)^n = \left(\left(1 - \frac{1}{n}\right)^{-n}\right)^{-1}.(1−n1)n=((1−n1)−n)−1.
Now, we can take the natural logarithm of the expression to simplify the limit:
ln⁡((1−1n)n)=nln⁡(1−1n).\ln\left(\left(1 - \frac{1}{n}\right)^n\right) = n \ln\left(1 - \frac{1}{n}\right).ln((1−n1)n)=nln(1−n1).
Next, we can use the Taylor expansion of ln⁡(1−x)\ln(1 - x)ln(1−x) around x=0x = 0x=0:
ln⁡(1−x)≈−x−x22−x33−…\ln(1 - x) \approx -x - \frac{x^2}{2} - \frac{x^3}{3} - \ldotsln(1−x)≈−x−2x2−3x3−…
For small xxx, we can approximate ln⁡(1−1n)\ln\left(1 - \frac{1}{n}\right)ln(1−n1):
ln⁡(1−1n)≈−1nas n→∞.\ln\left(1 - \frac{1}{n}\right) \approx -\frac{1}{n} \quad \text{as } n \to \infty.ln(1−n1)≈−n1as n→∞.
Thus,
nln⁡(1−1n)≈n(−1n)=−1.n \ln\left(1 - \frac{1}{n}\right) \approx n \left(-\frac{1}{n}\right) = -1.nln(1−n1)≈n(−n1)=−1.
Now, we can take the limit:
lim⁡n→∞nln⁡(1−1n)=−1.\lim_{n \to \infty} n \ln\left(1 - \frac{1}{n}\right) = -1.limn→∞nln(1−n1)=−1.
Exponentiating both sides gives us:
lim⁡n→∞(1−1n)n=e−1=1e.\lim_{n \to \infty} \left(1 - \frac{1}{n}\right)^n = e^{-1} = \frac{1}{e}.limn→∞(1−n1)n=e−1=e1.
Therefore, the final result is:
lim⁡n→∞(1−1n)n=1e.\lim_{n \to \infty} \left(1 - \frac{1}{n}\right)^n = \frac{1}{e}.limn→∞(1−n1)n=e1.

441: 2024/12/21(土)04:00:54.79 ID:Sai3FSuE(1) AAS
>>438
社会はもちろん5chでも相手にされないレス乞食のゴミって生きてて何が楽しいの？

487: 2024/12/30(月)03:17:30.79 ID:DAgtZ3Zg(2/5) AAS
(* 遷移行列の定義 *)
P = {
{0, 0.5, 0.5, 0, 0}, (* S0: 初戦 A vs B *)
{0, 0, 0, 0.5, 0.5}, (* S1: A vs C *)
{0, 0, 0, 0.5, 0.5}, (* S2: B vs C *)
{0.5, 0, 0, 0, 0.5}, (* S3: 再試合 A vs B *)
{0.5, 0, 0, 0.5, 0} (* S4: 再試合 B vs A *)
};

(* 遷移行列の転置 *)
PT = Transpose[P];

(* 固有値と固有ベクトルの計算 *)
{eigValues, eigVectors} = Eigensystem[PT];

(* 固有値1に対応する固有ベクトル *)
stationaryVector = Select[eigVectors,
Norm[PT.# - #] & /@ eigValues == 1
][[1]];

(* 正規化（確率の総和を1にする） *)
stationaryVector = stationaryVector/Total[stationaryVector];

(* 各プレイヤーの勝率を計算 *)
AWin = stationaryVector[[2]] + stationaryVector[[4]];
BWin = stationaryVector[[3]] + stationaryVector[[5]];
CWin = stationaryVector[[1]];

(* 結果表示 *)
{stationaryVector, AWin, BWin, CWin}

600: 01/21(火)19:34:13.79 ID:lhhnVzdZ(1) AAS
>>592
あなたはfランすら受からない日本語通じないチンパンです

771: 03/31(月)11:28:24.79 ID:u+Kd/O/2(1/3) AAS
# 赤玉a個、黒玉b個、白玉c個、青玉d個の合計(a+b+c+d)個の玉を空箱なしで3つの箱に分けて入れる。箱を区別しないとき、入れ方は何通りあるか？"

solve=function(a,b,c,d){
divide = function(n) {
indices = expand.grid(i = 0:n, j = 0:n)
indices = indices[indices$j >= indices$i, ]
result = lapply(1:nrow(indices), function(k) {
x = indices[k, ]
matrix(c(x$i, x$j - x$i, n - x$j), nrow = 1)
})
return(result)
}

reds = divide(a)
blacks = divide(b)
whites = divide(c)
blues = divide(d)
box3 = list()

combinations = expand.grid(red = reds, black = blacks, white = whites, blue = blues)

box3 = apply(combinations, 1, function(x) {
red = x[[1]]
black = x[[2]]
white = x[[3]]
blue = x[[4]]

box = do.call(rbind, lapply(1:3, function(i) {
sum_values = red[i] + black[i] + white[i] + blue[i]
if (sum_values > 0) c('red'=red[i], 'black'=black[i], 'white'=white[i], 'blue'=blue[i]) else NULL
}))

if (!is.null(box) & nrow(box) == 3) {
sorted_box = box[order(apply(box, 1, paste, collapse = ",")), ]
return(sorted_box)
}
return(NULL)
})

length(unique(Filter(Negate(is.null), box3)))
}

f=function(a,b,c,d){
ball=c(a,b,c,d)
x=(a+2)*(b+2)*(c+2)*(d+2)
y=(a+1)*(b+1)*(c+1)*(d+1)
z=floor(a/2+1)*floor(b/2+1)*floor(c/2+1)*floor(d/2+1)
u=ifelse(all(ball%%2==0),1,0)
v=ifelse(all(ball%%2==0),1,0)
x*y/96-(3*y-3*z-3*u+4*v)/6-u*v
}

p=sample(10,4)
p
solve(p[1],p[2],p[3],p[4])
f(p[1],p[2],p[3],p[4])

867: 06/06(金)04:41:04.79 ID:fR053ZqC(1/2) AAS
# ロジスティック回帰モデル
ACT = c(16,18,20,22,24,26,28)
n = c(2,7,14,26,13,14,3)
y = c(0,0,6,12,7,9,3)

fit = glm(cbind(y, n - y) ~ ACT, family = binomial())

#predict(fit, newdata = data.frame(ACT = 20)) |> plogis()
predict(fit, newdata = data.frame(ACT = 20)
,type="response")

cat("\n\n===== se.fit=TRUE =====\n\n")

pred1=predict(fit, newdata = data.frame(ACT = 20)
,type="response",se.fit=TRUE)

# 信頼区間（response))結果表示
ci=c(pred1$fit - 1.96*pred1$se.fit,pred1$fit + 1.96*pred1$se.fit)

cat("95% 信頼区間: [", ci[1], ",", ci[2], "]\n")

# 予測（log-odds とその標準誤差）
pred = predict(fit, newdata = data.frame(ACT = 20), se.fit = TRUE)

# 信頼区間（log-odds）
log_odds = pred$fit
se = pred$se.fit
lower_log_odds = log_odds - 1.96 * se
upper_log_odds = log_odds + 1.96 * se

# 確率（ロジスティック関数で変換）
prob = plogis(log_odds)
lower_prob = plogis(lower_log_odds)
upper_prob = plogis(upper_log_odds)

# 結果表示
cat("95% 信頼区間: [", lower_prob, ",", upper_prob, "]\n")

895: 06/20(金)10:20:25.79 ID:H9bDPTb3(1/3) AAS
未だに解答されていません
もしかして未解決問題ですか？
いいえ、傑作質問です

（1）nを正整数とする。
n^3+4n^2+3nを6で割った余りを求めよ。

（2）nを正整数とする。
n^3+7n^2+5nを6で割った余りを求めよ。

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

ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.073s