ব্রাউনিয়ান ভ্রমণটি ভার্ভাট দ্বারা নিম্নলিখিত নির্মাণ ব্যবহার করে একটি ব্রিজ থেকে তৈরি করা যেতে পারে:
https://projecteuclid.org/download/pdf_1/euclid.aop/1176995155
@ হুইবারের বিবি কোড ব্যবহার করে আর-তে একটি দ্রুত অনুমান
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 ≤ t ≤ 1( | বি বি)টি| )0 ≤ t ≤ 1( খ বিটি)0 ≤ t ≤ 1
এমনকি এটি একটি সাধারণ র্যান্ডম ওয়াক ব্রিজ এবং পদক্ষেপে ভ্রমণ সহ চিত্রিত করা যেতে পারে , এটি বিএমের একটি প্রাকৃতিক পৃথক অ্যানালগ (এবং পদক্ষেপগুলি বড় হয়ে যাওয়ার সাথে সাথে BM এ রূপান্তরিত হয় এবং আপনি পুনরুদ্ধার করেন)।6
প্রকৃতপক্ষে, একটি প্রতিসম SRW থেকে শুরু নেওয়া । প্রথমে আসুন "ব্রিজ" কন্ডিশনারটি বিবেচনা করুন এবং দেখুন যে আমরা কেবল পরম মান নিলে কী ঘটে। সব সহজ পাথ বিবেচনা দৈর্ঘ্যের যে শুরু করা এবং এ শেষ । এই জাতীয় পাথের সংখ্যা । এর মধ্যে যার জন্য । অন্য কথায়, সম্ভাব্যতার পরম মান আমাদের SRW "সেতু" (এ শেষ নিয়ন্ত্রিত এর পদে পদে মান 0 আছে) হয় ।এস 6 0 ( 60গুলি602× ( 4( 6)3) =20| s2| =00212/20=0.62 × ( 42) =12| গুলি2| =00212 / 20 = 0.6
দ্বিতীয়ত, আমরা "ভ্রমণ" কন্ডিশনার বিবেচনা করব। অ নেতিবাচক সহজ পাথ সংখ্যা দৈর্ঘ্যের যে শেষ কাতালান সংখ্যা । ঠিক এই পথে । সুতরাং, আমাদের SRW "ট্যুরের" (এ থাকার ইতিবাচক ও শেষ নিয়ন্ত্রিত সম্ভাব্যতার ) পদে পদে মান 0 আছে হয় ।6 = 2 ∗ 3 0 সেমি এম = 3 = ( 2 মিগুলি6 = 2 ∗ 302গুলি2=0022/5=0.4<0.6সিমি = 3= ( 2 মিমি) /(মি+1)=52গুলি2= 0022 / 5 = 0.4 < 0.6
যদি আপনি এখনও সন্দেহ করেন যে এই ঘটনাটি সেই সীমাতে অব্যাহত থাকে তবে আপনি এসআরডাব্লু ব্রিজ এবং দৈর্ঘ্যের ধাপ তে 0 টি হিট করার জন্য সম্ভাবনা বিবেচনা করতে পারেন ।2 এন4 এন2 এন
এসআরডাব্লু ভ্রমণের জন্য: আমাদের কাছে উইকিপিডিয়া https://en.wikedia.org/wiki থেকে অ্যাস্টিমটিক্স ব্যবহার করে / Catalan_number । অর্থাৎ এটি like 3 অবশেষে।গN - 3 / 2
পি ( এস2 এন= 0 | এসঞ≥ 0 , জে ≤ 4 এন , এস4 এন=0)=C2n/C2n∼(42n/πn3)/(42n/(2n)3π−−−−−−√)
সি এন- 3 / 2
অ্যাবসগুলির জন্য (এসআরডাব্লু ব্রিজ): উইকিপিডিয়া https://en.wikedia.org/wiki/Binomial_coefficient থেকে অ্যাসিপটিক্স ব্যবহার করে । ভালো হয় ।গN - 1 / 2
পি ( | এস।)2 এন| =0 | এস4 এন= 0 ) = ( 2 এন )এন)2/ ( 4 এন)2 এন) ∼(4 )এন/ πএন---√)2/ ( 4)2 এন/ 2 এন π---√)
সি এন- 1 / 2
অন্য কথায়, এসআরডাব্লু ব্রিজটি মাঝখানে কাছাকাছি তে ইতিবাচক হওয়ার শর্ত দেখে অ্যাসিপটোটিক সম্ভাবনা সেতুর নিখুঁত মানটির চেয়ে অনেক ছোট। 0
এখানে ব্রাউনিয়ান ব্রিজের পরিবর্তে 3 ডি বেসেল প্রক্রিয়া ভিত্তিক একটি বিকল্প নির্মাণ রয়েছে। আমি https://projecteuclid.org/download/pdf_1/euclid.ejp/1457125524 এ বর্ণিত তথ্যগুলি ব্যবহার করি
ওভারভিউ- 1) একটি 3 ডি বেসেল প্রক্রিয়া অনুকরণ করুন। এটি ইতিবাচক হওয়ার মতো একটি বিএম শর্তযুক্ত। 2) বেসেল 3 ব্রিজ (কাগজটিতে সমীকরণ (2)) পেতে উপযুক্ত সময়-স্থান পুনরুদ্ধার প্রয়োগ করুন। 3) সত্যটি ব্যবহার করুন (কাগজে থিয়েরেম 1 এর ঠিক পরে উল্লিখিত) যে একটি বেসেল 3 ব্রিজের আসলে ব্রাউনিয়ান ভ্রমণের মতোই বিতরণ রয়েছে।
একটি সামান্য অসুবিধা হ'ল শেষে / স্থান স্কেলিংয়ে লাথি মারার জন্য আপনাকে তুলনামূলকভাবে সূক্ষ্ম গ্রিডে বেশ কিছু সময়ের জন্য (টি = 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")
এখানে ফলাফল: