[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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
407: 2024/04/22(月)12:51 ID:CjcsDYOy(1) AAS
今日の積分
∫[0,1] {√(1+t^2)}/t dt
（東大理系2013）
408(2): 2024/04/22(月)14:17 ID:5FMlnt/L(1/2) AAS
>>388
温度の期待値の区間をBootstrap法で推定。
Wolfram言語の練習
In[11]:= 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};
In[12]:= k=1*^5;
In[13]:= re=Table[Mean[RandomChoice[ts,Length@ts]],k];
In[14]:= Mean[re] // N
省3
409(1): 2024/04/22(月)14:50 ID:5FMlnt/L(2/2) AAS
>>408
正規分布を使うとIn[1]:= 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};
In[2]:= Quantile[NormalDistribution[Mean[ts], StandardDeviation[ts]], {0.025,0.975}]
Out[2]= {0.952193, 19.0478}
区間の幅が広すぎ
410(1): 2024/04/22(月)15:36 ID:7c4sPJ42(1/3) AAS
「ブートストストラップなら普通の区間検定より区間狭くなって優秀なんですよ」
wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww
411(1): 2024/04/22(月)15:43 ID:qHll8Bu7(1) AAS
動画ﾘﾝｸ[YouTube]
上下前次1-新書関写板覧索設栞歴
あと 591 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s