Bild:Panjer-Binomial.png

aus Wikipedia, der freien Enzyklopädie

Du hast neue Nachrichten (Unterschied zur vorletzten Version).

Bild
Dateiversionen
Dateiverweise

Panjer-Binomial.png‎ (7 kB, MIME-Typ: image/png)

[Bearbeiten] Beschreibung, Quelle

Beschreibung	Die Wahrscheinlichkeitsverteilung den Panjer-Verteilung im Hinblick auf die Binomialverteilung
Quelle
Urheber	Benutzer:Tomi
Datum
Zitat der Genehmigung des Urhebers für eine freie Lizenz	Gnu FDL
Andere Versionen dieser Datei
Anmerkungen	Bild mi script mit GNU R produziert

[Bearbeiten] Lizenz

Diese Datei wurde unter der GNU-Lizenz für freie Dokumentation veröffentlicht.

Es ist erlaubt, die Datei unter den Bedingungen der GNU-Lizenz für freie Dokumentation, Version 1.2 oder einer späteren Version, veröffentlicht von der Free Software Foundation, zu kopieren, zu verbreiten und/oder zu modifizieren. Es gibt keine unveränderlichen Abschnitte, keinen vorderen Umschlagtext und keinen hinteren Umschlagtext.

[Bearbeiten] Script

#source('c:/Temp/Panjer.R')
Panjer <- function(k=100,a=0,b=1){
    p0 <- 1;
    p <- c(max(0,a+b)*p0);
    k  <- 2;
    while (p[k-1]>10^(-300)) {
         p <- c(p,p[k-1]*max(0,a+b/k));
         k <- k+1;
         
    }
    p <- c(p0,p)
    p <- p/sum(p);
    return (p);
}

n<-6;
p<-0.45;
k <- seq(0,n)
k0 <- seq(0,n-1)
a <- -p/(1-p)
png('c:/Temp/Panjer-Binomial.png');
plot(k,
    Panjer(a=a,b=-(n+1)*a)[(k+1)],
    ylim=c(0,0.33),
    xlab=,ylab=,
    type='b',col='red',lwd=2,
    main='Panjer- u. Binomialverteilung')
lines(k,Panjer(a=a,b=-(n+0.5)*a)[(k+1)],type='b',lwd=2);
lines(k0,Panjer(a=a,b=-(n)*a)[(k0+1)],type='b',col='green',lwd=2);
for (d in c(0.25,.75)) {
   lines(k,Panjer(a=a,b=-(n+d)*a)[(k+1)],type='b')
}
legend(1.8,0.2, 
      c(paste('n =',n),paste('p =',p),'a = -p/(1-p)'),
      bty='n')
legend(1.3,0.12,
      c(paste('b = -(n+',0,')a',sep=),
        paste('b = -(n+',0.25,')a',sep=),
        paste('b = -(n+',0.50,')a',sep=),
        paste('b = -(n+',0.75,')a',sep=),
        paste('b = -(n+',1,')a',sep=),
        ), 
      col = c('green','black','black','black','red'),
      lwd = c(2,1,2,1,2),
      bty='n')
abline(0,0)
dev.off()

Dateiversionen

Legende: (Aktuell) = dies ist das aktuelle Bild, (Löschen) = lösche diese alte Version, (Zurücksetzen) = verwende wieder diese alte Version.

(Löschen) (Aktuell) 12:44, 8. Okt. 2006 . . Tomi (Diskussion | Beiträge) . . 480 x 480 (6.539 Bytes) ({{Information |Beschreibung=Die Wahrscheinlichkeitsverteilung den Panjer-Verteilung im Hinblick auf di Binomialverteilung |Quelle= |Urheber=Benutzer:Tomi |Datum= |Genehmigung=Gnu FDL |Andere Versionen= |Anmerkungen=Bild mi script mit GNU R)