Simulation d'un système de production sous macro excel [Résolu]

Messages postés
18
Date d'inscription
mardi 31 décembre 2013
Dernière intervention
25 mars 2014
- - Dernière réponse : Nisrine1
Messages postés
18
Date d'inscription
mardi 31 décembre 2013
Dernière intervention
25 mars 2014
- 31 déc. 2013 à 13:30
Bonjour tout le monde!
je suis nouvelle en programmation et j'y connais absolument pas grand chose. Ce pendant je suis face a une programmation d'un système complexe(file d'attente/client serveur) que je vous poste:

Il s'agit de simuler le comportement d'un système d'attente correspondant à une chaîne d'assemblage ayant les caractéristiques suivantes :
* le poste serveur 1 est une machine d'assemblage qui a besoin de deux composants
* le composant 1 arrive sur le serveur 1 suivant une loi exponentielle de durée moyenne 1'30
* le composant 2 arrive sur le serveur 1 suivant une loi exponentielle de durée moyenne 1'10
* la pièce ainsi assemblée doit se rendre sur le serveur 2 où un troisième composant est installé
* le composant 3 arrive sur le serveur 2 suivant une loi exponentielle de durée moyenne 2'
* la durée d'assemblage sur poste serveur 1 suit une loi exponentielle de durée moyenne 1'
* la durée d'assemblage sur poste serveur 2 suit une loi exponentielle de durée moyenne 1'30

On demande:
* de simuler sur un nombre suffisant d'itérations sur macro excel

Aidez moi s'il vous plait!!!
Afficher la suite 

Votre réponse

1 réponse

Messages postés
23658
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
19 décembre 2018
0
Merci
Bonjour,

Nous serions heureux de t'aider... toutefois, sur ce site, nous ne faisons pas le travail à votre place....
Il est demandé que vous fassiez un minimum d'effort avant que quelqu'un ne prenne le temps de vous aider...
Pour cela, merci de nous montrer que le code que vous avez commencé à mettre en place et indiquez nous sur quoi vous bloquez éxactement...

Merci, avant de répondre, de lire les liens suivants:

http://codes-sources.commentcamarche.net/forum/affich-1557761-bar-sujet-de-pfe-tp-et-autres-devoirs-scolaires#top

http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

http://codes-sources.commentcamarche.net/contents/11-charte-de-commentcamarche-net-conseils-d-ecriture

Avant de poser une question, merci de lire la du charte site.
Cordialement, Jordane
jordane45
Messages postés
23658
Date d'inscription
mercredi 22 octobre 2003
Statut
Contributeur
Dernière intervention
19 décembre 2018
-
Pour t'aider un peu.. déjà, interesse toi à laFonction LOI.EXPONENTIELLE d'Excel:
http://office.microsoft.com/fr-fr/excel-help/fonction-loi-exponentielle-HP010062497.aspx
pour l'utiliser en Macrro (VBA) tu peux le faire ainsi :

Dim Test As Double
Test = Application.WorksheetFunction.ExponDist(1, 2, True)
Nisrine1
Messages postés
18
Date d'inscription
mardi 31 décembre 2013
Dernière intervention
25 mars 2014
-
Bonjour Jordan
Merci bcp pour ton attention. Mon probleme c'est comment programmer le language de macro VB!
j'ai generer 3 variables aléatoires suivant une loi uniforme avec 100 ecantillons
ensuite j'ai simuler les loi exponetielles des trois arrivées sur excel et quand je retourne sur macro voilà ce que ça me donne:
Sub Macro2()
'
' Macro2 Macro
'

'
Application.Run "ATPVBAEN.XLAM!Random", ActiveSheet.Range("$A$1"), 3, 100 _
, 1, , 0, 1
'simulation de la loi exponentielle arrivé composant1
Range("D1").Select
ActiveCell.FormulaR1C1 = "=(-1/90)*LN(1-RC[-3])"
Range("D100").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=(-1/90)*LN(1-RC[-3])"
Range("D1").Select
Selection.AutoFill Destination:=Range("D1:D100"), Type:=xlFillDefault
Range("D1:D100").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = "=(-1/90)*LN(1-RC[-3])"
'simulation de la loi exponentielle arrivé composant2
Range("E1").Select
ActiveCell.FormulaR1C1 = "=(-1/70)*LN(1-RC[-3]:RC[-2])"
Range("E1").Select
ActiveCell.FormulaR1C1 = "=(-1/70)*LN(1-RC[-3])"
Range("E1").Select
Selection.AutoFill Destination:=Range("E1:E100"), Type:=xlFillDefault
Range("E1:E100").Select
'simulation de la loi exponentielle arrivé composant3
Range("F1").Select
ActiveCell.FormulaR1C1 = "=(-1/120)*LN(1-RC[-3])"
Range("F1").Select
Selection.AutoFill Destination:=Range("F1:F100"), Type:=xlFillDefault
Range("F1:F100").Select
Range("G100").Select

End Sub

La suite il faut j'arrive a gerer les etats des serveurs(serveur1 pour arrivée composant 1 & 2) et serveur 2 (arrivée de l'assembler 1&2 et 3)

Merci de votre guide!
Nisrine1
Messages postés
18
Date d'inscription
mardi 31 décembre 2013
Dernière intervention
25 mars 2014
-
C'est à dire je dois comparer le prochain évenement à un instant donné à savoir le temps d'arrivé au niveau des serveurs et la sortie qui se produit aussi.
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.