Fixation du prix - Etat des connaissances

1.                               # Prix psychologique

2.                               ptropbas<-pnorm(30:130,60,15)

3.                               ptropcher<-pnorm(30:130, 100,15)

4.                               prixopt<-(ptropbas-ptropcher)

5.                               df<-data.frame(TropBas=ptropbas, Optimum=prixopt, TropCher=ptropcher)

6.                               matplot(30:130, df, pch = 1:3, type = "o", col = 1:3,xlab="Valeurs de x", ylab="Ventes et/ou Profits")

7.                               legend(40, max(df),names(df), lwd=3, col=1:2, pch=1:3)