[過去ﾛｸﾞ] 高校数学の質問スレ Part434 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
376(1): 2024/04/21(日)11:31 ID:KNrj0Rg+(1/10) AAS
やはり、具体的な数字があった方がイメージが湧きやすい
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
である
省1
377: 2024/04/21(日)11:44 ID:KNrj0Rg+(2/10) AAS
>>360
Do[a=DeleteCases[a,i*j],{i,2,Floor[Sqrt[n]]},{j,i,Floor[n/i]}] ; a
でなくて
Do[a=DeleteCases[a,i*j],{i,Pi,Sqrt[n]},{j,i,n/i}] ; a
でも動作するのは驚き。
整数必須と思っていた。
何事にも先達はあらまほしきことなり
379(1): 2024/04/21(日)11:52 ID:KNrj0Rg+(3/10) AAS
>>315
応用問題
y = (1/x) sin(1/x) においてx軸は漸近線ですか？
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};
省17
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)でいいんだが。
省2
387(1): 2024/04/21(日)18:38 ID:KNrj0Rg+(6/10) AAS
>>380
漸近線は該当の曲線と交わってもいいというのはコンセンサスが得られているのだろうか？
近づくけど交点をもたないのが漸近線だと思っていた。
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]
省11
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
省9
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()))
省4
394(1): 2024/04/21(日)21:20 ID:KNrj0Rg+(10/10) AAS
>>386補足
Table[RangeInteger[30],5]だと０から３０まで３１個から５個になるので
RangeInteger[{1,30},5]とすべき。重複を回避するオプションはないみたい。
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.042s