Se puede construir una excursión browniana desde un puente utilizando la siguiente construcción de Vervaat:
https://projecteuclid.org/download/pdf_1/euclid.aop/1176995155
Una aproximación rápida en R, usando el código BB de @ whuber, es
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")
0(0,1)
(|BBt|)0≤t≤1(BBt)0≤t≤1
6
0s60(63)=202×(42)=12|s2|=00212/20=0.6
En segundo lugar, consideraremos el condicionamiento de la "excursión". El número de caminos simples no negativos de longitud que terminan en es el número catalán . Exactamente de estos caminos tienen . Por lo tanto, la probabilidad de que nuestra "excursión" SRW (condicionada a permanecer positiva y terminar en ) tenga el valor 0 en el paso es .s6=2∗30Cm=3=(2mm)/(m+1)=52s2=0022/5=0.4<0.6
En caso de que aún dude de que este fenómeno persista en el límite, podría considerar la probabilidad de puentes SRW y excursiones de longitud lleguen a 0 en el paso .4n2n
Para la excursión SRW: tenemos usando los asintóticos de wikipedia https://en.wikipedia.org/wiki / Número_ catalán . Es decir, es como eventualmente.
P(S2n=0|Sj≥0,j≤4n,S4n=0)=C2n/C2n∼(42n/πn3)/(42n/(2n)3π−−−−−−√)
cn−3/2
Para abs (puente SRW): usando las asíntotas de wikipedia https://en.wikipedia.org/wiki/Binomial_coefficient . Esto es como .
P(|S2n|=0|S4n=0)=(2nn)2/(4n2n)∼(4n/πn−−−√)2/(42n/2nπ−−−√)
cn−1/2
En otras palabras, la probabilidad asintótica de ver el puente SRW condicionado para ser positivo en cerca del medio es mucho menor que la del valor absoluto del puente. 0
Aquí hay una construcción alternativa basada en un proceso Bessel 3D en lugar de un puente browniano. Uso los hechos explicados en https://projecteuclid.org/download/pdf_1/euclid.ejp/1457125524
Descripción general- 1) Simule un proceso 3D Bessel. Esto es como un BM condicionado para ser positivo. 2) Aplique un cambio de escala apropiado de espacio-tiempo para obtener un puente Bessel 3 (Ecuación (2) en el documento). 3) Use el hecho (anotado justo después del Teorema 1 en el documento) de que un puente Bessel 3 tiene la misma distribución que una excursión browniana.
Un pequeño inconveniente es que debe ejecutar el proceso de Bessel durante bastante tiempo (T = 100 a continuación) en una cuadrícula relativamente fina para que la escala de espacio / tiempo se active al final.
## 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")
Aquí está la salida: