Simulation 2

Bonsoir

Mon prof me tue!
je vois meme pas par ou commençais!!
Voilá l exercice:
Une usine a la capacité de produire tous les jours 1,2,3 ou 4 unités d'un article avec des probabilités associées respectivement de 0.20, 0.25, 0.15 et 0.40.
D'autre part, la recherche quotidienne et les probabilités associées sont les suivantes:
Recherche quotidienne:  0        1         2         3       4        5         6         7         8  
__________Probabilité: 0.05    0.1      0.3      0.3     0.1     0.05     0.05     0.04     0.01

Si une unité est vendue le jour de la production, permet d' obtenir d'un bénéfice de 100 Euro. Mais, a chaque jour que une unité reste en stock le bénéfice est réduit de 10 Euro. Simuler les opérations pendant 100 jours consécutifs de production et estimer le bénéfice quotidien prévu.

Quelqu un voit claire ?
Merci d avance

Bonjour,

A quoi correspond ta variable "recherche quotidienne" ?

Bonjour.
Je pense que c est la demande de vente par jour!
Merci de avance
Joe

Plutot la demande d achats

Bonjour,

quelque chose comme ça ?

Code:

production <- sample(1:4, 100, rep = T, prob = c(.2, .25, .15, .4))
recherche <- sample(0:8, 100, rep = T, prob = c(0.05,0.1,0.3,0.3,0.1,0.05,0.05,0.04,0.01))

# le gain par jour :
gain <- 0^pmax(production-recherche,0)*100*production+pmax(production-recherche,0)*-10

# le benefice quotidien moyen
mean(gain)


Cdlt

Bonsoir

Tout d abord. GRAND MERCI . ça m aide !! tu peux pas savoir
Voilá..j ai fais une petite simulation avec 5 numeros....juste pour voir
> production
[1] 1 4 4 3 4
> recherche
[1] 1 2 2 3 2
> gain
[1] 100 -20 -20 300 -20

Dans le premier cas l usine a produit une unité...et la demande a été aussi de une unité..donc 100€ de gains. ok .
Aprés...dans le deuxieme cas, l usine a produit 4 unités et la demande a été de 2. Donc elle a vendue 2 unités ( gains de 200€) et reste avec 2 unités em stock..qui fais une perte de 20€. Dont le gain du jour deverais etre de 180€ (200-20€) . Je pense que ça dois etre ça.
Je vais essayé de changé le code....mais comme je debute!! j ai meme pas encore compris le code du GAIN !!

Encore un grande MERCI
Joe

droopy a écrit:Bonjour,

quelque chose comme ça ?

Code:

production <- sample(1:4, 100, rep = T, prob = c(.2, .25, .15, .4))
recherche <- sample(0:8, 100, rep = T, prob = c(0.05,0.1,0.3,0.3,0.1,0.05,0.05,0.04,0.01))

# le gain par jour :
gain <- 0^pmax(production-recherche,0)*100*production+pmax(production-recherche,0)*-10

# le benefice quotidien moyen
mean(gain)


Cdlt

Bonsoir

Je crois avoir reussi. Je savais vraiment pas comment demarré !! J ai fais simples...puisque je debute !!

gains<-numeric(100)
production <- sample(1:4, 100, rep = T, prob = c(.2, .25, .15, .4)) 
recherche <- sample(0:8, 100, rep = T, prob = c(0.05,0.1,0.3,0.3,0.1,0.05,0.05,0.04,0.01))  

for (i in 1:100) {

+ if(production[i]==recherche[i]) gains[i]<-production[i]*100
+ else if(production[i]>recherche[i]) gains[i]<-procura[i]*100-10*(production[i]-recherche[i])
+ else if(production[i]+ }

Encore merci pour les idées !!

Je comprends pas ...le forum n accepte pas ma derniere ligne !!

else if (production[i]