gset output "serie_3_plot.ps";
gset term post enhanced;
gset key right bottom;
gset title "Poissonverteilung Asbestfasern";
gset xlabel "S={/Symbol S} _i^n{X_i}";
gset ylabel "Verteilungsfunktion";
k=[0:1:30];
y_15 = poisson_cdf(k,15);
y_poisson = [0,y_15(1:30)];
y_poisson = y_15 .- y_poisson;
plot(k,y_15,['o',';kumulative Verteilung;'],[0,30],[0.05,0.05],[';5%;'],[7,7],[0,1],[';7;'],k,y_poisson,['*',';Verteilung;']);
printf("y_15:\n",k,y_poisson,'x');
y_15(1:15)
y_10 = poisson_cdf(k,10);
printf("y_10:\n");
y_10(1:15)
printf("Letzter Wert =< 0.05: possion(5,10) = %f\n",y_10(5));
printf("Fehler 2. Art: 1-poisson_cdf(5,10) = %f\n",1-poisson_cdf(5,10));
