loi hypergeometrique

Question

Bonjour je dois simuler une loi hypergeometrique de 3 facons differentes
voila la base de mon code quelqu un pourrait il m 'aider
Option Explicit
Option Base 1

'gn: nombre de boules blanches dans l'urne (N)
'gm: nombre de boules dans l'urne (M)

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Par la méthode itérative
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function simulHyper1(n As Byte, ByVal gn As Byte, ByVal gm As Byte) As Byte
    If n * gn * gm = 0 Or n > gm Or gn > gm Then Exit Function

    ''''
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Par la méthode récursive
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function simulHyper2(n As Byte, gn As Byte, gm As Byte) As Byte
    If n * gn * gm = 0 Or n > gm Or gn > gm Then Exit Function

    ''''
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Par la méthode du tri
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Function simulHyper3(n As Byte, gn As Byte, gm As Byte) As Byte
    If n * gn * gm = 0 Or n > gm Or gn > gm Then Exit Function
    
    Dim arr() As Double: ReDim arr(1 To gm, 1 To 2) As Double

    ''''
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   Le tri par sélection
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Private Function indMin(ByRef arr() As Double, debut As Integer) As Integer
    Dim indTemp As Integer: indTemp = debut
    Dim temp As Double: temp = arr(debut, 2)
    Dim i As Integer
    
    For i = debut + 1 To UBound(arr, 1)
        If arr(i, 2) < temp Then
            temp = arr(i, 2)
            indTemp = i
        End If
    Next
    
    indMin = indTemp
End Function

Private Sub swap(ByRef arr() As Double, a As Integer, b As Integer)
    ''''
End Sub

Private Sub triSelect(ByRef arr() As Double)
    Dim i As Integer
    
    For i = 1 To UBound(arr, 1) - 1
        swap arr, i, indMin(arr, i)
    Next
End Sub

ucfoutu · Answer

Bonjour,
Bonjour je dois simuler une loi hypergeometrique de 3 facons differentes 

le "je dois" et la nécessité de résoudre de 3 manières (pourquoi donc ?) indiquent très nettement qu'il s'agit d'un exercice imposé !
Désolé, mais un tel exercice est destiné à apprécier les connaissances et aptitudes de celui à qui il est imposé, par celles de tiers ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

azazel321 · Answer

le dois n'est pas un peu fort il est justifié donc quelqu'un pourrait m'aider?

NHenry · Answer

Bonjour, 

Nous ne sommes pas sur ce forum pour faire vos devoirs ou autres PFE/excercices, pour plus d'explication, lisez ce sujet et celui-ci aussi.

De plus, es-tu sûr de dévelloper en .NET ?
Accueil > Forum > VB.NET et VB 2005

Le Option Base me met le doute.

v----Signature--------v----------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

ucfoutu · Answer

le dois n'est pas un peu fort il est justifié
justifié par quoi d'autre (très précisément) que par un exercice imposé ?
Je t'écoute ...

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Loi hypergeometrique

4 réponses

Votre réponse

Discussions similaires