Forum de Statistiques
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Les posteurs les plus actifs de la semaine
Aucun utilisateur

-34%
Le deal à ne pas rater :
-34% LG OLED55B3 – TV OLED 4K 55″ 2023 – 100Hz HDR 10+, ...
919 € 1399 €
Voir le deal

Simulation 2

3 participants

Aller en bas

Simulation 2 Empty Simulation 2

Message par joecastro 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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

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

Bonjour,

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

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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par joecastro 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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

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

Plutot la demande d achats

joecastro

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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par droopy 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
droopy
droopy

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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par joecastro 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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par joecastro 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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par joecastro 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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par droopy 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
droopy
droopy

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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par joecastro 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

Revenir en haut Aller en bas

Simulation 2 Empty Re: Simulation 2

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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