# Datenpunkte werden eingelesen

Xquadrat = c(0.536 , 0.536, 1.491, 1.491) ;
Yquadrat = c(22,51.7,14.3,28.4)           ;

Xkreis = c(0.536,0.544,0.95,1.004,1.083,1.099,1.099,1.122,1.155,1.491,1.491,1.504);
Ykreis = c(20.95,15,26,46.7,56.7,35.5,39,41.7,52,50.75,56.3,77)                       ;

Xdreieckleer = c(1.004);
Ydreieckleer = c(26)   ;

Xdreieck = c(1.004)    ;
Ydreieck = c(60)       ;

#Plot wird erstellt

plot(Xquadrat,Yquadrat,xaxs="i",yaxs="i",yaxp=c(0, 80, 8),pch = 22, cex = 2,font.lab=2,ylim=c(0,80),xlim=c(0.4,1.6),xlab="Ratio of expected Payoffs TTB vs. FR", ylab="Percentage of TTB users") ;
points(Xkreis,Ykreis,cex = 2,pch=20)   ;
points (Xdreieckleer,Ydreieckleer,cex = 1.7,pch=2);
points (Xdreieck,Ydreieck,cex = 1.7,pch=17)         ;
abline(h=10)          ;
abline(h=20)           ;
abline(h=30)            ;
abline(h=40)             ;
abline(h=50)              ;
abline(h=60)               ;
abline(h=70)                ;
abline(h=80)                 ;
abline(h=90)                  ;