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

高校数学の質問スレ（医者・東大卒専用） Part438 (979ﾚｽ)
上下前次1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞
抽出解除ﾚｽ栞

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

3: １３２人目の素数さん [sage] 2024/08/09(金) 06:29:48.79 ID:9Q+t+cCw

[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

http://rio2016.5ch.net/test/read.cgi/math/1723152147/3

327: １３２人目の素数さん [sage] 2024/11/19(火) 03:57:43.79 ID:V8CHGcRI

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.

http://rio2016.5ch.net/test/read.cgi/math/1723152147/327

771: １３２人目の素数さん [sage] 2025/03/31(月) 11:28:24.79 ID:u+Kd/O/2

# 赤玉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])

http://rio2016.5ch.net/test/read.cgi/math/1723152147/771

867: １３２人目の素数さん [sage] 2025/06/06(金) 04:41:04.79 ID:fR053ZqC

# ロジスティック回帰モデル
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")

http://rio2016.5ch.net/test/read.cgi/math/1723152147/867

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

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

ぬこの手ぬこTOP 0.030s