Les posteurs les plus actifs de la semaine
cmoi
 
Eric Wajnberg
 
poypoy
 
lilbiostat
 
Jok3iSbett3r
 
gg
 
Scaldo
 


Simulation 2

Voir le sujet précédent Voir le sujet suivant Aller en bas

Simulation 2

Message par joecastro le Dim 11 Déc 2016 - 23:29

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

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par zezima le Lun 12 Déc 2016 - 8:37

Bonjour,

A quoi correspond ta variable "recherche quotidienne" ?
avatar
zezima

Nombre de messages : 752
Date d'inscription : 26/02/2013

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par joecastro le Lun 12 Déc 2016 - 9:07

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

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par joecastro le Lun 12 Déc 2016 - 9:34

Plutot la demande d achats

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par droopy le Lun 12 Déc 2016 - 23:04

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
avatar
droopy

Nombre de messages : 1080
Date d'inscription : 04/09/2009

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par joecastro le Lun 12 Déc 2016 - 23:22

Bonsoir

Tout d abord. GRAND MERCI . ça m aide !! tu peux pas savoir Smile
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

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par joecastro le Mar 13 Déc 2016 - 0:37

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 !!

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par joecastro le Mar 13 Déc 2016 - 0:38

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

else if (production[i]

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par droopy le Mar 13 Déc 2016 - 9:50

Ok. Alors je ferais juste 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))

vente <- pmin(production, recherche)
invendu <- production - vente

gain <- vente *100 - invendu*10
Code équivalent à la boucle suivante :
Code:
gains <- numeric(length(production))

for (i in 1:length(gains)) {
  if(recherche[i] >= production[i])
    gains[i] <- production[i]*100
  else
    gains[i] <- recherche[i]*100 - (production[i]-recherche[i])*10
 }
Au passage sur cet exemple le code vectorisé est 27.5x plus efficace que la boucle. La vectorisation est quasiment tout le temps à privilégier.

cdlt


Dernière édition par droopy le Mar 13 Déc 2016 - 10:02, édité 2 fois
avatar
droopy

Nombre de messages : 1080
Date d'inscription : 04/09/2009

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par joecastro le Mar 13 Déc 2016 - 9:55

Bonjour.

Alors lá....c est bien plus simples. Chapeau!!!
Encore merci pour toute les idées
Joe

joecastro

Nombre de messages : 15
Date d'inscription : 10/12/2016

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Simulation 2

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum