Exemples :
- Modèle des séiries de puissances a rythme croissant [ 2.12]
- Modèle des séiries de puissances a rythme décroissant [ 2.13]
1. x<-seq(0,10,1)
2. y<-+2+4*x+0.4*x^2
3. profit<-0.3*y-x
4. df<-data.frame(Effort=x, Ventes=y, Profit=profit)
5. y<-+2+4*x-0.1*x^2
6. profit<-0.3*y-x
7. df$Ventes2=y
8. df$Profit2=profit
9. matplot(x, df[,c(2,4)], pch = 1:2, type = "o", col = 1:2,xlab="Valeurs de x", ylab="Ventes et/ou Profits")
10. legend(min(x), max(df[,c(2,4)]),names(df)[c(2,4)], lwd=2, col=1:2, pch=1:2)
11. matplot(x, df[,c(3,5)], pch = 1:2, type = "o", col = 1:2,xlab="Valeurs de x", ylab="Ventes et/ou Profits")
12. legend(min(x), max(df[,c(3,5)]),names(df)[c(3,5)], lwd=2, col=1:2, pch=1:2)
Effort Ventes Profit Ventes2 Profit2
1 0 2.0 0.60 2.0 0.60
2 1 6.4 0.92 5.9 0.77
3 2 11.6 1.48 9.6 0.88
4 3 17.6 2.28 13.1 0.93
5 4 24.4 3.32 16.4 0.92
6 5 32.0 4.60 19.5 0.85
7 6 40.4 6.12 22.4 0.72
8 7 49.6 7.88 25.1 0.53
9 8 59.6 9.88 27.6 0.28
10 9 70.4 12.12 29.9 -0.03
11 10 82.0 14.60 32.0 -0.40