Prise en compte de la courbe d'expérience

1.                               # Fixation du prix au cours du temps avec baisse du coût lié à la courbe dexpérience

2.                               t<-0:8

3.                               print("Prix décroissant")

4.                               prix<-seq(7,3,-0.5)

5.                               #cat("Prix constant")

6.                               #prix<-rep(5,10)

7.                               #cat("Prix croissant")

8.                               #prix<-seq(3,7,0.5)

9.                               # Ventes en fonction du prix(t)

10.                             ventes<-150*exp(-0.3*prix)

11.                             # Ventes cumulées

12.                             ventescum<-rep(0,9)

13.                             ventescum[1]=ventes[1]

14.                             for(i in 2:9)

15.                             ventescum[i]=ventescum[i-1]+ventes[i]

16.                             cout<-10*ventescum^-0.2

17.                             df<-data.frame(Prix=prix, Ventes=ventes, VentesCum = ventescum, Cout=cout)

18.                             matplot(t, df, pch = 1:4, type = "o", col = 1:4,xlab="Valeurs de x", ylab="Ventes et/ou Profits"

19.                             legend(1, max(df),names(df), lwd=3, col=1:4, pch=1:4)