pdf("diskrvert.pdf",width=7,height=5)
par(mar=c(1,3,1,1))
plot(0,0,xlab="",ylab="",cex.lab=1.3,xlim=c(0,100),ylim=c(-20,100),type="n",xaxt="n",yaxt="n",
frame=FASLE)
#segments(-10,0,90,0,lty=1)
arrows(-10,0,90,0,length=0.15,angle=20)
segments(1,-20,80,80,lty=5)
segments(1,80,80,-10,lty=2)
segments(0,30,80,30,lty=3)
segments(0,35,80,60,lty=4)
arrows(0,-5,0,100,length=0.15,angle=20)
text(70,83,"Logseriell (b=-a)",pos=4)
text(80,-10,"Binomial (b<0)",pos=1)
text(80,30,"Poisson (b=0)",pos=3)
text(70,54,"Negativ Binomial (b>0)",pos=4)
text(91,0,"x",pos=4,cex=1.2)
par(las=1)
mtext("0",side=2,at=0,line=0.8)
mtext("0",side=1,at=0,line=-3)
mtext("U",side=2,at=99,line=1)
mtext("x",side=2,at=98,line=0.6)
mtext("^",side=2,at=101.5,line=1.1)
dev.off()