de: Pfade von zwei kompensierten zusammengesetzten Poisson-Prozessen. Wie in de:Poissonprozess.png ist die Intensität (Sprunghäufigkeit) des blauen Prozesses mit 2,4 genau viermal so hoch wie die des roten Prozesses. Im gezeichneten Intervall [0,35] springt der blaue Prozess 66-mal, der rote 16-mal, also etwa viermal so oft. Bei beiden Prozessen sind die Sprünge normalverteilt mit Mittel 0,25. Diese Sprünge nach oben werden durch den negativen Drift genau so ausgeglichen (kompensiert), dass beide Prozesse Martingale sind. Da der blaue Prozess öfter nach oben springt, ist sein negativer "Drift" stärker.

已授权您依据自由软件基金会发行的无固定段落及封面封底文字（Invariant Sections, Front-Cover Texts, and Back-Cover Texts）的GNU自由文件许可协议1.2版或任意后续版本的条款，复制、传播和／或修改本文件。该协议的副本请见“GNU Free Documentation License”。http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

	本文件采用知识共享署名-相同方式共享 3.0 未本地化版本许可协议授权。
	您可以自由地： 共享 – 复制、发行并传播本作品 修改 – 改编作品 惟须遵守下列条件： 署名 – 您必须对作品进行署名，提供授权条款的链接，并说明是否对原始内容进行了更改。您可以用任何合理的方式来署名，但不得以任何方式表明许可人认可您或您的使用。 相同方式共享 – 如果您再混合、转换或者基于本作品进行创作，您必须以与原先许可协议相同或相兼容的许可协议分发您贡献的作品。
	本许可协议标签作为GFDL许可协议更新的组成部分被添加至本文件。http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue

R source code:

set.seed(29011980)

##plots a compound (normal), compensated poisson process.
poisson.process<-function(lambda, T, mu, sigma, drift=-lambda*mu) {
  N=rpois(n=1, lambda=lambda*T)                                   #number of jumps
  t=sort(array(data=runif(n=N, min=0,max=T),dim=N))               #jump times
  y=array(data=rnorm(n=N,mean=mu,sd=sigma), dim=N)                #jump sizes
  t=t-t[1]
  s=array(NA, dim=2*N)
  s[2*(1:N)-1]=diff(c(t,T))*drift
  s[2*(1:N)]  =y
  s=c(0,cumsum(s))
  ti=seq(from=1, to=N)
  return(list(s=s,t=t,ti=ti))
}

pp1=poisson.process(lambda=2.4,T=35,mu=0.25,sigma=1)
pp2=poisson.process(lambda=0.6,T=35,mu=0.25,sigma=1)

png(filename="Comp-Comp-Poisson-Pro.png", width=1600, height=1200, pointsize=12)
par(bg="whitesmoke")
plot(c(0,pp1$t),c(0,pp1$t),type="n",xlab="t",ylab="",ylim=range(pp1$s,pp2$s))
segments(pp1$t[pp1$ti], pp1$s[2*pp1$ti-1], pp1$t[pp1$ti+1], pp1$s[2*pp1$ti], col="blue", lwd=2)
segments(pp2$t[pp2$ti], pp2$s[2*pp2$ti-1], pp2$t[pp2$ti+1], pp2$s[2*pp2$ti], col="red", lwd=2)

title(main="Pfade von kompensierten zusammengesetzten Poisson-Prozessen",cex.main=1.7)
legend(x="bottomleft", inset=0.01, cex=1.4, title="Intensität", legend=c(expression(lambda[1]==2.4,lambda[2]==0.6)), col=c("blue","red"), lwd=3) 
text(x=par("usr")[1]*0.9, y=par("usr")[4]*0.95, labels="Sprunghöhe ~ N(0.25,1)", adj=c(0,1))
dev.off()

 

本PNG 位图使用R创作.