[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
381: 2024/04/21(日)12:29 ID:34PQz0TW(2/4) AAS
|y| ≦ 1/|x| (x≠0)
任意の ε>0 に対し
|x| > 1/ε ⇒ |y| < ε,
382: 2024/04/21(日)14:30 ID:KWsC+eu/(1/4) AAS
>>380
そいつ日本語通じないから突っ込むだけ無駄だよ
383(1): 2024/04/21(日)17:01 ID:34PQz0TW(3/4) AAS
類似問題
S(k,n) = Σ[j=k,n] 1/j^2.0001 とする。
以下の極限の収束・発散を判定せよ。
lim[n→∞] Σ[k=1,n] S(k,n)
384: 2024/04/21(日)17:28 ID:KWsC+eu/(2/4) AAS
>>365
尿瓶ジジイ自演がバレて逃走w
385(1): 2024/04/21(日)18:25 ID:KNrj0Rg+(4/10) AAS
>>376
これをWolframで計算させようと思ったのだが、組み合わせを列挙する関数、Rのcombnに相当する方法がみつからなかった。
RLink`を使ってRのcombnを呼び出して使用。
n=30
m=10
a=5
d={-2,1,0,4,1,-3,4,-1,2,4,0,-3,-4,-5,-5,0,5,-4,2,4,-4,3,5,2,-4,2,-1,-3,-5};
da=Accumulate[d];
t1=m - Total[da]/n;
ts=Prepend[da+t1,t1]
省14
386(3): 2024/04/21(日)18:33 ID:KNrj0Rg+(5/10) AAS
Wolfram言語の使える方のレスがついたら、Phimoseくんは悔しいらしくて自演認定。
そうでもしなければ精神が崩壊するのかねぇ？
医師板まで出かけていって罵倒投稿しているPhimoseくんが東大合格者だと思う人はその旨とその根拠を投稿してください。
さて、Wolframでの結果をシミュレーションで検証したいのだが
30個から重複なしで無作為に選ぶ方法がみあたらない。
Table[RangeInteger[30],5]だと乱数発生に重複を許すことになる。
Rだとsample(30,5,replace=FALSE)でいいんだが。
sample = REvaluate["sample"]だとRでやっているみたいなものだし。
Wolframの使える方の御助言を期待します。
387(1): 2024/04/21(日)18:38 ID:KNrj0Rg+(6/10) AAS
>>380
漸近線は該当の曲線と交わってもいいというのはコンセンサスが得られているのだろうか？
近づくけど交点をもたないのが漸近線だと思っていた。
388(2): 2024/04/21(日)19:40 ID:34PQz0TW(4/4) AAS
温度データは
{9,7,8,8,12,13,10,14,13,15,19,19,16,12,7,2,2,7,3,5,9,5,8,13,15,11,13,12,9,4}
かな？ ソートすると
度数分布
------
1, 0,
2, 2,
3, 1,
4, 1,
5, 2,
省14
389: 2024/04/21(日)19:56 ID:KNrj0Rg+(7/10) AAS
>>386
自己解決
発生させた乱数に重複があれば重複がなくなるまで繰り返すという仕様でsample関数を作成してWolframで100万回シミュレーション
sample[n_:30,a_:5] := (b=Table[RandomInteger[{1,n}],a];While[Length[Union[b]]<a,b=Table[RandomInteger[{1,n}],a]];b)ts={9,7,8,8,12,13,10,14,13,15,19,19,16,12,7,2,2,7,3,5,9,5,8,13,15,11,13,12,9,4}
sim[] := (i=sample[30,5] ; Mean[ts[[i]]])
re=Table[sim[],1*^6];
Mean[re]
Quantile[re,{0.025,0.5,0.975}]
結果
In[22]:= Mean[re]
省8
390: 2024/04/21(日)20:00 ID:KNrj0Rg+(8/10) AAS
>>388
その通りです。
> sort(ts)
[1] 2 2 3 4 5 5 7 7 7 8 8 8 9 9 9 10 11 12 12 12 13 13 13 13 14 15 15 16 19 19
> table(ts)
ts
2 3 4 5 7 8 9 10 11 12 13 14 15 16 19
2 1 1 2 3 3 3 1 1 3 4 1 2 1 2
おまけ（Rのコード）
n=30
省6
391(1): 2024/04/21(日)20:04 ID:Ke1gC4/x(1) AAS
△ABCにおいて、ABの中点をMとする。
BC上を点Pが、CA上を点Qが動くとき、△MPQの周の長さをLとする。
Lの最小値と(AB+BC+CA)/2の大小を比較せよ。
392: 2024/04/21(日)21:15 ID:KNrj0Rg+(9/10) AAS
>>391
R言語で三角形の形状を乱数発生させて作図
N=(AB+BC+CA)/2
Lmin:Lの最小値
画像ﾘﾝｸ[png]:i.imgur.com
10万回の測定では Lmin ＜ (AB+BC+CA)/2
> y=t(replicate(1e5,calc()))
> all(apply(y,1,diff)>0)
[1] TRUE
実験による推定なので
省1
393(1): 2024/04/21(日)21:15 ID:MUhMynOs(1) AAS
>>387
漸近線は限りなく近づく直線だと思う事にする
lim[x→∞] (1/x) sin(1/x)＝0
において関数値は限りなく0に近づいているがこの関数値は∞回0という値を取ってる
これと同じ感覚で良いんでないの？
394(1): 2024/04/21(日)21:20 ID:KNrj0Rg+(10/10) AAS
>>386補足
Table[RangeInteger[30],5]だと０から３０まで３１個から５個になるので
RangeInteger[{1,30},5]とすべき。重複を回避するオプションはないみたい。
395: 2024/04/21(日)21:33 ID:OUMWDvM6(1) AAS
>>393
お近づきになってもいいけど一線を越えるのはいかがなものかと。
>351の教訓ｗ
396: 2024/04/21(日)21:47 ID:KWsC+eu/(3/4) AAS
尿瓶ジジイ、下手な自演がバレて発狂w
397: 2024/04/21(日)21:48 ID:KWsC+eu/(4/4) AAS
尿瓶ジジイが自演していないと思う人レスしてください
398(1): 2024/04/21(日)22:03 ID:eMVPO2+7(1) AAS
今日の積分
∫[0,1] log(x^2+1) dx
399: 2024/04/21(日)23:52 ID:85p+UetF(2/2) AAS
>>398
与式 = ∫[0,1] x' log(x^2+1) dx
= log(2) - ∫[0,1] 2x^2/(x^2+1) dx
= log(2) - ∫[0,1]{2-2/(x^2+1)}dx
= log(2) - 2 + π/2
400: 2024/04/22(月)04:59 ID:5qZe7l8z(1/2) AAS
>>394
自己解決
RandomSample[Range[30],5]がsample(30,5)に相当
上下前次1-新書関写板覧索設栞歴
あと 602 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s