[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)

高校数学の質問スレ Part434 http://rio2016.5ch.net/test/read.cgi/math/1712376048/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

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

---

376: １３２人目の素数さん [sage] 2024/04/21(日) 11:31:43.97 ID:KNrj0Rg+ やはり、具体的な数字があった方がイメージが湧きやすい 30 日間の最低気温の平均値は10℃であった。 30 個のデータのうち5 個の記録が消失した。 前日との温度差のデータは29個は保持されている. 前日との温度差のデータは -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 である どのデータが失われるかはランダムに決定されるとして失われた5個のデータの平均値を区間推定せよ。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/376

385: １３２人目の素数さん [sage] 2024/04/21(日) 18:25:00.29 ID:KNrj0Rg+ >>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] Needs["RLink`"] InstallR[] combn = REvaluate["combn"]; y=combn[n,a]; (* y=REvaluate["combn(30,5)"] ; *) nc=Length[y[[1]]]; (* number of comibination *) re=Mean[Table[ts[[y[[i]][[j]]]],{i,a},{j,nc}]]; Mean[re] Quantile[re,{0.025,0.5,0.975}] 計算結果 In[25]:= Mean[re] Out[25]= 10 In[26]:= Quantile[re,{0.025,0.5,0.975}] 32/5 10 68/5 Wolfram言語の使える方の検証希望。 http://rio2016.5ch.net/test/read.cgi/math/1712376048/385

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.030s