"UeMatFahrzeuge" <-
function (p=0.4,k=6) 
{
# Berechnet Uebergangsmatrix mit den Uebergangswahrscheinlichkeiten
# für das Fahrzeuge Beispiel
uemat<-dbinom(0:k,size=k,prob=p)
uemat<-c(uemat,uemat)
for(j in 2:k){
   uemat<-c(uemat, rep(0,j-1), dbinom(0:(6-j+1),size=6-j+1,prob=p))
   }
uemat<-matrix(uemat,ncol=(k+1), byrow=F)
uemat
}