Exemples
- Modèle Adbudg initial pour 2Mil. pub 45 Mil. Ventes [ 2.1]
- Modèle Adbudg avec inflexion pour 2Mil. pub 55 Mil. Ventes [ 2.2]
- Modèle Adbudg accéléré pour 1 Mil. pub 45 Mil. Ventes [2.3]
1.
a=60
2.
b=30
3.
c=1
4.
d=2
5.
x<-seq(0,5,1)
6.
y<-b+(a-b)*((x)^c/(d^c+(x)^c))
7.
profit<-0.3*y-x
8.
df<-data.frame(Effort=x, Ventes=y, Profit=profit)
9.
c=2
10.
d=3.32
11.
y<-b+(a-b)*((x)^c/(d^c+(x)^c))
12.
profit<-0.3*y-x
13.
df$Ventes2=y
14.
df$Profit2=profit
15.
c=1
16.
d=1
17.
y<-b+(a-b)*((x)^c/(d^c+(x)^c))
18.
profit<-0.3*y-x
19.
df$Ventes3=y
20.
df$Profit3=profit
21.
# show Ventes
22.
matplot(x, df[,seq(2,7,2)], pch = 1:3, type = "o", col =
1:3,xlab="Effort", ylab="Reponse"
23.
legend(min(x), max(y),names(df)[seq(2,7,2)], lwd=3, col=1:3,
pch=1:3)
24.
# show Profits
25.
matplot(x, df[,seq(3,7,2)], pch = 1:3, type = "o", col = 1:3,xlab="Effort",
ylab="Reponse")
26.
legend(min(x), max(profit),names(df)[seq(3,7,2)], lwd=3, col=1:3,
pch=1:3)
Effort Ventes Profit Ventes2 Profit2 Ventes3 Profit3
1 0 30.00000 9.00000 30.00000 9.000000 30.0 9.00
2 1 40.00000 11.00000 36.94444 10.083333 45.0 12.50
3 2 45.00000 11.50000 41.27820 10.383459 50.0 13.00
4 3 48.00000 11.40000 44.24051 10.272152 52.5 12.75
5 4 50.00000 11.00000 46.39344 9.918033 54.0 12.20
6 5 51.42857 10.42857 48.02885 9.408654 55.0 11.50