[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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)に相当
401: 2024/04/22(月)07:38 ID:5qZe7l8z(2/2) AAS
>>385
これもstackoverflowのQ&Aをみつけて自己解決
a=5
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}
y=Subsets[ts,{a}];
re=Table[Mean[y[[i]]],{i,1,Length@y}];
Mean[re]
Quantile[re,{.025,.5,.975}]
402: 2024/04/22(月)08:43 ID:aSsf4f76(1/3) AAS
>>365
Wolfram言語の練習に
ブートストラップ法で区間推定
ts={14 ,19 ,17 ,13, 20 ,19}
k=1*^5
re=Table[Mean[RandomChoice[ts,Length@ts]],k]
Mean[re]
Quantile[re,{0.025,0.5,0.975}]
403(1): 2024/04/22(月)09:20 ID:VHMw4BHx(1/2) AAS
ゴミは肝心要の統計がわからんから違う言語を使っても違う言語で同じアホレス繰り返すwwwwwwwwwwa
404: 2024/04/22(月)11:51 ID:aSsf4f76(2/3) AAS
RandomSampleをRandomChoiceに替えたらbootstrapができた。
indexでRandomIntegerしなくてすんだ。
Rのcombnの相当関数はSelectsだった。
combinationとかenumerationとかで検察したのでみつけられなかった。stackoverflowで検索するのが早道だな。
405: 2024/04/22(月)11:54 ID:aSsf4f76(3/3) AAS
>386は図星のようだ。
またまた、
罵倒 ＞ 助言 の Phimose草の不等式が実証されてますなぁ
解説
It is as if Mr. Phimose loves to use the expression of 'kusa' that fondles his foreskin too much which has made his hands stink.
406: 2024/04/22(月)12:32 ID:6ORmhlLT(1/3) AAS
>>383
s(j) = 1/j^2.0001
Σ[k=1,n] S(k,n) = Σ[j=1,n] j・s(j)
= Σ[j=1, n] 1/j^1.0001
< 1 + Σ[j=2, n] ∫[j-1/2,j+1/2] 1/x^1.0001 dx
= 1 + ∫[3/2, n+1/2] 1/x^1.0001 dx
= 1 + [−10000/x^0.0001 ](x：3/2→n+1/2)
= 1 + 10000{(2/3)＾0.0001 − 1/(n+1/2)^0.0001}
< 1 + 10000・(2/3)^0.0001
= 10000.59454311188
省2
上下前次1-新書関写板覧索設栞歴
あと 596 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.029s