Le modèle Classique
- Modèle de demande linéaire par rapport au prix[4.10-11]
1. x<-seq(0,10,1)
2. y<-+30-4*x
3. profit<-y*(x-1.5)
4. df<-data.frame(Effort=x, Ventes=y, Profit=profit)
5. df
6. matplot(x, df[,2:3], pch = 1:2, type = "o", col = rainbow(2),xlab="Valeurs de x", ylab="Ventes et/ou Profits")
- Modèle de demande à élasticité de prix constante[4.13-14]
1. x<-seq(1,10,1)
2. y<-90*(x)^-1.5
3. profit<-y*(x-1.5)
4. df<-data.frame(Effort=x, Ventes=y, Profit=profit)
5. df
6. matplot(x, df, pch = 1:2, type = "o", col = rainbow(2),xlab="Valeurs de x", ylab="Ventes et/ou Profit")
7. legend(1, max(df[,2:3]),names(df)[2:3], lwd=3, col=1:2, pch=1:2)