वर्वेट द्वारा निम्नलिखित निर्माण का उपयोग करके एक पुल से एक ब्राउनियन भ्रमण का निर्माण किया जा सकता है:
https://projecteuclid.org/download/pdf_1/euclid.aop/1176995155
R में एक त्वरित सन्निकटन, @ व्हिबर बी बी कोड का उपयोग कर रहा है
n <- 1001
times <- seq(0, 1, length.out=n)
set.seed(17)
dW <- rnorm(n)/sqrt(n)
W <- cumsum(dW)
# plot(times,W,type="l") # original BM
B <- W - times * W[n] # The Brownian bridge from (0,0) to (1,target)
# plot(times,B,type="l")
# Vervaat construction
Bmin <- min(B)
tmin <- which(B == Bmin)
newtimes <- (times[tmin] + times) %% 1
J<-floor(newtimes * n)
BE <- B[J] - Bmin
plot(1:length(BE)/n,BE,type="l")
यहाँ एक और प्लॉट है (सेट.सेड (21) से)। एक भ्रमण के साथ एक महत्वपूर्ण अवलोकन यह है कि कंडीशनिंग वास्तव में 0 से "प्रतिकर्षण" के रूप में प्रकट होती है, और आप ( 0 , 1 ) के इंटीरियर पर एक भ्रमण को करीब आने की संभावना नहीं है ।
0( 0 , 1 )
एक तरफ: एक ब्राउनियन पुल का निरपेक्ष मान का वितरण और भ्रमण, ( बी बी टी ) 0 ≤ टी ≤ 1 वातानुकूलित सकारात्मक , ही नहीं हैं। सहज रूप से, भ्रमण को उत्पत्ति से हटा दिया जाता है, क्योंकि ब्राउनियन मार्ग मूल के बहुत करीब आने के बाद जल्द ही नकारात्मक होने की संभावना होती है और इस तरह कंडीशनिंग द्वारा दंडित किया जाता है।( - बी। बीटी| )0 ≤ टी ≤ 1( B B)टी)0 ≤ टी ≤ 1
यह चरणों में एक सरल यादृच्छिक चलना पुल और भ्रमण के साथ भी चित्रित किया जा सकता है , जो कि बीएम का एक प्राकृतिक असतत एनालॉग है (और बीएम बड़े और आप पुनर्विक्रय हो जाते हैं) के रूप में परिवर्तित होते हैं।6
वास्तव में, से शुरू एक सममित SRW लें । सबसे पहले, हम "पुल" कंडीशनिंग पर विचार करें और देखें कि क्या होता है अगर हम सिर्फ पूर्ण मूल्य लेते हैं। सभी सरल रास्तों पर विचार करें रों लंबाई की 6 कि शुरू करने और कम से अंत 0 । ऐसे रास्तों की संख्या है ( 6)0रों60। कर रहे हैंइनमें से जिसके लिए। दूसरे शब्दों में,हमारे SRW "ब्रिज" (पर समाप्त होने की स्थिति)केनिरपेक्ष मानकेलिए चरणपर मान 0 होनेकी।( ६)3) =20| s2| =00212/20=0.62 × ( 4)2) =12| रों2| =00212 / 20 = 0.6
दूसरे, हम "भ्रमण" कंडीशनिंग पर विचार करेंगे। गैर नकारात्मक सरल रास्तों की संख्या लंबाई की कि कम से अंत कैटलन संख्या है । वास्तव में इन रास्तों में से है । इस प्रकार, हमारे SRW "भ्रमण" (कम से मनाने सकारात्मक और अंत करने के लिए वातानुकूलित के लिए संभावना ) कदम पर मान 0 के लिए है ।6 = 2 * 3 0 सी एम = 3 = ( 2 मीटररों6 = 2 * 302रों2=0022/5=0.4<0.6सीम = ३= ( 2 मी।)म) /(एम+1)=५2रों2= 0022 / 5 = 0.4 < 0.6
यदि आप अभी भी संदेह करते हैं तो यह घटना उस सीमा में बनी रहती है जिस पर आप SRW पुलों के लिए प्रायिकता पर विचार कर सकते हैं और चरण पर लंबाई हिटिंग 0 ।2 एन4 एन2 एन
SRW भ्रमण के लिए: हमारे पास विकिपीडिया से aysmptotics का उपयोग करके https://en.wiking.org/wiki / कैटलन_नंबर । यानी यह अंत में जैसा है ।गn - 3 / 2
P ( S)2 एन= 0 | एसजे≥ 0 , जे ≤ 4 एन , एस4 एन= 0 ) = सी2n/ सी2 एन∼ ( 4)2 एन/ πn3) / ( 4 )2 एन/ ( 2 एन )3π------√)
सी एन- 3 / 2
Abs (SRW ब्रिज) के लिए: wikipedia से asymptotics का उपयोग कर https://en.wikipedia.org/wiki/Biomomial_coefficient । यह जैसा है ।गn - 1 / 2
पी ( | एस)2 एन| =0 | एस4 एन= 0 ) = ( 2 एनn)2/ ( 4 एन2 एन) ~(4n/ πn---√)2/ ( ४)2 एन/ 2 एन π---√)
सी एन- 1 / 2
दूसरे शब्दों में, एसआरडब्ल्यू पुल को बीच में पर सकारात्मक रूप से वातानुकूलित देखने की अस्वाभाविक संभावना पुल के निरपेक्ष मूल्य की तुलना में बहुत कम है। 0
यहां ब्राउनियन ब्रिज के बजाय 3 डी बेसेल प्रक्रिया पर आधारित एक वैकल्पिक निर्माण है। मैं https://projecteuclid.org/download/pdf_1/euclid.ejp/1457255524 में बताए गए तथ्यों का उपयोग करता हूं
अवलोकन- 1) एक 3 डी बेसेल प्रक्रिया का अनुकरण करें। यह सकारात्मक होने के लिए वातानुकूलित बीएम की तरह है। 2) बेसेल 3 ब्रिज (पेपर में समीकरण (2)) प्राप्त करने के लिए एक उपयुक्त समय-स्थान को लागू करें। 3) इस तथ्य का उपयोग करें (कागज में सिर्फ प्रमेय 1 के बाद उल्लेख किया गया है) कि एक बेसेल 3 पुल वास्तव में एक ब्राउनियन भ्रमण के समान वितरण है।
एक छोटी सी खामी यह है कि आपको अंत में किक करने के लिए स्थान / समय स्केलिंग के लिए अपेक्षाकृत ठीक ग्रिड पर बेसेल प्रक्रिया को थोड़ी देर (T = 100 नीचे) चलाने की आवश्यकता है।
## Another construction of Brownian excursion via Bessel processes
set.seed(27092017)
## The Bessel process must run for a long time in order to construct a bridge
T <- 100
n <- 100001
d<-3 # dimension for Bessel process
dW <- matrix(ncol = n, nrow = d, data=rnorm(d*n)/sqrt(n/T))
dW[,1] <- 0
W <- apply(dW, 1, cumsum)
BessD <- apply(W,1,function(x) {sqrt(sum(x^2))})
times <- seq(0, T, length.out=n)
# plot(times,BessD, type="l") # Bessel D process
times01 <- times[times < 1]
rescaletimes <- pmin(times01/(1-times01),T)
# plot(times01,rescaletimes,type="l") # compare rescaled times
# create new time index
rescaletimeindex <- sapply(rescaletimes,function(x){max(which(times<=x))} )
BE <- (1 - times01) * BessD[rescaletimeindex]
plot(times01,BE, type="l")
यहाँ उत्पादन है: