仮定


10

タイトルのとおり。仮定のPDFに連続しiid確率変数であり、F。そのイベントを考えるX 1X 2 ... X N - 1 > X NN 2従って、Nはシーケンスが最初に低下した場合です。次に、E [ N ]の値は何ですか?X1,X2,,XnfX1X2XN1>XNN2NE[N]

最初にを評価しようとしました。私は P [ N = 2 ]P[N=i] 同様に、P[N=4]=1を得た

P[N=2]=f(x)F(x)dx=F(x)22|=12P[N=3]=f(x)xf(y)F(y)dydx=f(x)1F(x)22dx=F(x)F(x)3/32|=13
私は大きくなり、計算が複雑になりますし、私はパターンを見つけることができません。誰かが私がどのように進むべきかを提案できますか?P[N=4]=18i

これはコースや教科書の質問ですか?その場合は、[self-study]タグを追加してWikiをお読みください。
Silverfish、2015

1
n!1,2,,nXin2n1n11/21/31/8

(そして、シリーズの結果を推測できない場合は、平均を見つけるために合計します。おそらく、そのシミュレーションを実行する必要があります。小数点以下の最初の2、3桁がわかります。)
Silverfish

今日受験した問題です。ヒントをありがとう、私はそれを解決する方法を見つけました。
Hao The Cabbage

2
Xi

回答:


9

{Xi}i1

N=min{n:Xn1>Xn},
NnX1X2Xn1
Pr(Nn)=Pr(X1X2Xn1)=1(n1)!,()
E[N]=n=1Pr(Nn)=e2.71828

()π:{1,,n1}{1,,n1}

Pr(X1X2Xn1)=Pr(Xπ(1)Xπ(2)Xπ(n1)).
(n1)!
# Monte Carlo
N <- 10^6
dec <- numeric(N)
for (i in 1:N) {
    j <- 1
    x <- rnorm(1, 0, 1) # plug your favorite distribution here!
    repeat {
        j <- j + 1
        y <- rnorm(1, 0, 1)
        if (y < x) {
            dec[i] <- j
            break
        }
        x <- y
    }
}
cat(mean(dec), "\n")
# A good example of how to program C in R!

2
Pr(Y=y)Pr(Yy)

Xi

1
Xi

1
実際には、独立は必要ありません。交換性は十分です。結果はより強力です。これを私の答えに追加します。
Zen

3
連続変数に対して普遍的であることは直感です。これを明確にする1つの方法は、確率積分変換を適用してもイベントが変わらないことを認識することです。これにより、変数が共通の一様分布を持つ場合に減少します。
whuber

8

P[N=i]=P[X1X2Xi1>Xi]=P[X1X2Xi1]P[X1X2Xi1Xi]=1(i1)!1i!
P[Ni]=1P[N<i]=1(112!+12!13!++1(i2)!1(i1)!)=1(i1)!

E[N]=i=1P[Ni]=i=11(i1)!=e


7

Xin!X1,,Xnn1n1Xin1n1 順序付けられたシーケンスの項を最後の位置に移動すると、確率は次のようになります。

Pr(N=n)=n1n!

Pr(N=2)=212!=12Pr(N=3)=313!=13Pr(N=4)=414!=18

N

E(N)=n=2nPr(N=n)=n=2n(n1)n!=n=21(n2)!=k=01k!=e

k=n2 ex=k=0xkk!x=1

シミュレーションで結果を確認できます。Rのコードを次に示します。

firstDecrease <- function(x) {
    counter <- 2
    a <- runif(1)
    b <- runif(1)
    while(a < b){
        counter <- counter + 1
        a <- b
        b <- runif(1)
    }
    return(counter)
}

mean(mapply(firstDecrease, 1:1e7))

これは2.7183472.71828私を満足させるのに十分近いほど戻ってきました。


-1

編集:私の答えは間違っています。このような一見単​​純な質問が誤解されやすい例として残しておきます。

P[N=4]

n=50000
flag <- rep(NA, n)
order <- 3
for (i in 1:n) {
  x<-rnorm(100)
  flag[i] <- all(x[order] < x[1:(order-1)])==T
}
sum(flag)/n

私たちに与える:

> sum(flag)/n
[1] 0.33326

order用語を4に変更すると、次のようになります。

> sum(flag)/n
[1] 0.25208

そして5:

> sum(flag)/n
[1] 0.2023

P[N=X]=1x


1
Xnn1Xin1

それは、ちょっとした誤解ではありません。あなたは正しい、私は間違っている。
ダルトンハンス2015
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.