[過去ﾛｸﾞ]
高校数学の質問スレ Part434 (1002ﾚｽ)
高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
386: １３２人目の素数さん [sage] 2024/04/21(日) 18:33:42.80 ID:KNrj0Rg+ Wolfram言語の使える方のレスがついたら、Phimoseくんは悔しいらしくて自演認定。 そうでもしなければ精神が崩壊するのかねぇ？ 医師板まで出かけていって罵倒投稿しているPhimoseくんが東大合格者だと思う人はその旨とその根拠を投稿してください。 さて、Wolframでの結果をシミュレーションで検証したいのだが 30個から重複なしで無作為に選ぶ方法がみあたらない。 Table[RangeInteger[30],5]だと乱数発生に重複を許すことになる。 Rだとsample(30,5,replace=FALSE)でいいんだが。 sample = REvaluate["sample"]だとRでやっているみたいなものだし。 Wolframの使える方の御助言を期待します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/386
387: １３２人目の素数さん [sage] 2024/04/21(日) 18:38:12.90 ID:KNrj0Rg+ >>380 漸近線は該当の曲線と交わってもいいというのはコンセンサスが得られているのだろうか？ 近づくけど交点をもたないのが漸近線だと思っていた。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/387
388: １３２人目の素数さん [] 2024/04/21(日) 19:40:59.40 ID:34PQz0TW 温度データは {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, 6, 0, 7, 3, 8, 3, 9, 3, 10, 1, 11, 1, 12, 3, 13, 4, 14, 1, 15, 2, 16, 1, 19, 2, 20, 0, ------ http://rio2016.5ch.net/test/read.cgi/math/1712376048/388
389: １３２人目の素数さん [sage] 2024/04/21(日) 19:56:01.81 ID:KNrj0Rg+ >>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] 50002439 Out[22]= -------- 5000000 In[23]:= Quantile[re,{0.025,0.5,0.975}] 32 68 Out[23]= {--, 10, --} 5 5 総当たりでの結果とほぼ合致。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/389
390: １３２人目の素数さん [sage] 2024/04/21(日) 20:00:17.32 ID:KNrj0Rg+ >>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 m=10 a=5 d=c(-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) # nt1+ sum(cumsum(d)) == nm t1 = m - sum(cumsum(d))/n ts=c(t1,t1+cumsum(d)) ; ts http://rio2016.5ch.net/test/read.cgi/math/1712376048/390
391: １３２人目の素数さん [sage] 2024/04/21(日) 20:04:33.58 ID:Ke1gC4/x △ABCにおいて、ABの中点をMとする。 BC上を点Pが、CA上を点Qが動くとき、△MPQの周の長さをLとする。 Lの最小値と(AB+BC+CA)/2の大小を比較せよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/391
392: １３２人目の素数さん [sage] 2024/04/21(日) 21:15:04.45 ID:KNrj0Rg+ >>391 R言語で三角形の形状を乱数発生させて作図 N=(AB+BC+CA)/2 Lmin:Lの最小値 https://i.imgur.com/rf5ggyV.png 10万回の測定では Lmin ＜ (AB+BC+CA)/2 > y=t(replicate(1e5,calc())) > all(apply(y,1,diff)>0) [1] TRUE 実験による推定なので 東大卒業生による検証を希望します。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/392
393: １３２人目の素数さん [sage] 2024/04/21(日) 21:15:19.13 ID:MUhMynOs >>387 漸近線は限りなく近づく直線だと思う事にする lim[x→∞] (1/x) sin(1/x)＝0 において関数値は限りなく0に近づいているがこの関数値は∞回0という値を取ってる これと同じ感覚で良いんでないの？ http://rio2016.5ch.net/test/read.cgi/math/1712376048/393
394: １３２人目の素数さん [sage] 2024/04/21(日) 21:20:36.76 ID:KNrj0Rg+ >>386補足 Table[RangeInteger[30],5]だと０から３０まで３１個から５個になるので RangeInteger[{1,30},5]とすべき。重複を回避するオプションはないみたい。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/394
395: １３２人目の素数さん [sage] 2024/04/21(日) 21:33:29.86 ID:OUMWDvM6 >>393 お近づきになってもいいけど一線を越えるのはいかがなものかと。 >351の教訓ｗ http://rio2016.5ch.net/test/read.cgi/math/1712376048/395
396: １３２人目の素数さん [sage] 2024/04/21(日) 21:47:22.88 ID:KWsC+eu/ 尿瓶ジジイ、下手な自演がバレて発狂w http://rio2016.5ch.net/test/read.cgi/math/1712376048/396
397: １３２人目の素数さん [sage] 2024/04/21(日) 21:48:42.34 ID:KWsC+eu/ 尿瓶ジジイが自演していないと思う人レスしてください http://rio2016.5ch.net/test/read.cgi/math/1712376048/397
398: １３２人目の素数さん [sage] 2024/04/21(日) 22:03:22.04 ID:eMVPO2+7 今日の積分 ∫[0,1] log(x^2+1) dx http://rio2016.5ch.net/test/read.cgi/math/1712376048/398
399: １３２人目の素数さん [sage] 2024/04/21(日) 23:52:54.00 ID:85p+UetF >>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 http://rio2016.5ch.net/test/read.cgi/math/1712376048/399
400: １３２人目の素数さん [sage] 2024/04/22(月) 04:59:21.72 ID:5qZe7l8z >>394 自己解決 RandomSample[Range[30],5]がsample(30,5)に相当 http://rio2016.5ch.net/test/read.cgi/math/1712376048/400
401: １３２人目の素数さん [sage] 2024/04/22(月) 07:38:05.38 ID:5qZe7l8z >>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}] http://rio2016.5ch.net/test/read.cgi/math/1712376048/401
402: １３２人目の素数さん [sage] 2024/04/22(月) 08:43:42.58 ID:aSsf4f76 >>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}] http://rio2016.5ch.net/test/read.cgi/math/1712376048/402
403: １３２人目の素数さん [sage] 2024/04/22(月) 09:20:00.09 ID:VHMw4BHx ゴミは肝心要の統計がわからんから違う言語を使っても違う言語で同じアホレス繰り返すwwwwwwwwwwa http://rio2016.5ch.net/test/read.cgi/math/1712376048/403
404: １３２人目の素数さん [sage] 2024/04/22(月) 11:51:49.20 ID:aSsf4f76 RandomSampleをRandomChoiceに替えたらbootstrapができた。 indexでRandomIntegerしなくてすんだ。 Rのcombnの相当関数はSelectsだった。 combinationとかenumerationとかで検察したのでみつけられなかった。stackoverflowで検索するのが早道だな。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/404
405: １３２人目の素数さん [sage] 2024/04/22(月) 11:54:58.13 ID:aSsf4f76 >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. http://rio2016.5ch.net/test/read.cgi/math/1712376048/405
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 597 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.018s