20/02/09 14:05:48.45 +DmUozks.net
>>981
確率 1.00 0.95 0.90 0.85 0.80 0.75 0.70 0.65 0.60 0.55 にしていた。
p=c(1,0.9,0.9,0.85,0.85,0.85,0.85,0.75,0.65,0.55)
にしてやり直すと
> # p=rev(seq(0.55,1,by=0.05)) # 1歩進確率の配列
> p=c(1,0.9,0.9,0.85,0.85,0.85,0.85,0.75,0.65,0.55)
> f=function(x) x+sample(c(1,-1),1,prob=c(p[x],1-p[x])) # p[x]の確率でxから移動
> sim <- function(){
+ i=0 # カウンタ
+ x=1 # 最初の位置
+ while(x<10){ # 10に達するまで
+ x=f(x) # 双六を繰り返す
+ i=i+1 # カウンターを増やす
+ }
+ i # 何回かを返す
+ }
> mean(replicate(1e6,sim()))
[1] 13.46091
というシミュレーション結果が返ってきた。
1024:１３２人目の素数さん
20/02/09 14:15:14.10 IgFLOTZq.net
>>982
ありがとうございますｍ（＿ ＿）ｍ
こんなのもコンピューターで計算できるんですね驚き
はじめアルゴリズムというものを思い出しました
おもしろい漫画だったのになぁ
1025:１３２人目の素数さん
20/02/09 14:27:40 yv6ma+Im.net
なんで粘着を相手にするんだろ
1026:１３２人目の素数さん
20/02/09 14:28:09 mKA9xImx.net
私攻撃的ですか？
何故こういう定義なのか、という質問に「どうぞご自由に」という回答は意味不明ではないですか？
1027:１３２人目の素数さん
20/02/09 18:05:54 Hw2VpHwo.net
高2（数学?全範囲履修ずみ）です。
この数列の一般項と極限を教えて下さい。よろしくお願いします。
a[1]=1/2
a[n+1]=a[n]/(1+a[n])^2
lim[n→∞] n*a[n]
1028:１３２人目の素数さん
20/02/09 18:27:22.10 U6/+Ttp9.net
>>924 訂正
a[n]=2((n-1)!)^2/Π[k=1,n-1](c[k]+k)
1029:１３２人目の素数さん
20/02/09 18:57:42 +ZlkSbTz.net
>>986
∞
1030:１３２人目の素数さん
20/02/09 18:58:50 X0Zijw5r.net
>>986
一般項は求まらないから不等式で評価するしかない
1031:１３２人目の素数さん
20/02/09 19:03:51 U6VYtWc8.net
わからないです
1032:１３２人目の素数さん
20/02/09 19:04:17 U6VYtWc8.net
URLﾘﾝｸ(i.imgur.com)
1033:１３２人目の素数さん
20/02/09 19:20:06 X0Zijw5r.net
>>986
極限値は1/2になった
1034:１３２人目の素数さん
20/02/09 19:21:31 BHX2wTJj.net
a[1]=1/2≧1/(2√1)
a[n]≧1/(2√n)のとき
a[n+1]
+a[n]/(1+a[n]^2)
≧1/(2√n+1/(2√n))
≧1/(2√(n+1))
(∵ 4n+2+1/(4n)<4n+4)
1035:１３２人目の素数さん
20/02/09 19:22:59 X0Zijw5r.net
>>986
とおもったら普通にb[n]=1/a[n]とおいたら一般項求まるね
1036:１３２人目の素数さん
20/02/09 19:28:46 X0Zijw5r.net
いや求まらないわ無視して
1037:１３２人目の素数さん
20/02/09 19:34:42 31X3KU8h.net
>>986
a[n+1]=a[n]/(1+a[n])^2
が
a[n+1]=a[n]/(1+a[n]^2)
の間違いと言うことはない？
1038:１３２人目の素数さん
20/02/09 19:47:10 BHX2wTJj.net
読み間違えた。
帰納的に
2n≦1/a[n]≦2n+log(n)
1039:１３２人目の素数さん
20/02/10 00:06:43 cjQTE70f.net
分からない問題はここに書いてね458
1040:１３２人目の素数さん
20/02/10 00:07:03 cjQTE70f.net
分からない問題はここに書いてね458
ｽﾚﾘﾝｸ(math板)
1041:１３２人目の素数さん
20/02/10 00:22:59 HzoWD34j.net
>>999
乙
1042:1001
Over 1000 Thread .net
このスレッドは１０００を超えました。
新しいスレッドを立ててください。 おみくじ集計（特殊）
【男の娘】 1
【腐女子】 0
【髪】 0
【神】 0
【姫君】 0
【女神】 0
【尊師】 0
life time: 44日 0時間 50分 24秒
1043:過去ログ ★
[過去ログ]
■ このスレッドは過去ログ倉庫に格納されています