[UDF] Maths

Partagez des fonctions et des UDF AutoIt.
Règles du forum
.
Répondre
Avatar du membre
Numeric
Niveau 4
Niveau 4
Messages : 85
Enregistré le : mer. 23 mars 2016 08:17
Status : Hors ligne

[UDF] Maths

#1

Message par Numeric » jeu. 15 juin 2017 01:38

Quelques petites fonctions mathématiques pour accélérer nos pas :wink:
#Region Exemple

Local $Liste[8] = [1, 2, 3, 4, 5, 6, 7, 8]
Local $aBool
For $j = 1 To UBound($Liste) - 1
        If NombrePaire($j) Then
                __Show("paire", True)
        Else
                __Show("paire", False)
        EndIf

        If NombrePremier($j) Then
                __Show("Nombre premier", True)
        Else
                __Show("Nombre premier", False)
        EndIf
Next

For $i = 1 To 5
        MsgBox(48, "", "La racine 5eme de " & $i & " est : " & RacineNieme($i, 5))
Next


Func __Show($sMsg, $bV = False)
        Local $sText = '', $iIndex = 0
        If Not $bV Then
                $sText = $j & " n'est pas un nombre " & $sMsg
                $iIndex = 16
        Else
                $sText = $j & " est un nombre " & $sMsg
                $iIndex = 48
        EndIf
        MsgBox($iIndex, 'Math', $sText)
EndFunc   ;==>__Show

#EndRegion Exemple







; #FUNCTION# ====================================================================================================================
; Name ..........: NombrePaire
; Description ...: Determine la parité d'un nombre...
; Syntax ........: NombrePaire([$iNumber = 2])
; Parameters ....: $iNumber             - [optional] an integer value. Default is 2.
; Return values .: True si oui et false si non
; Author ........: Numeric
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: No
; ===============================================================================================================================
Func NombrePaire($iNumber = 2)
        Return Mod($iNumber, 2) = 0
EndFunc   ;==>NombrePaire

; #FUNCTION# ====================================================================================================================
; Name ..........: NombreImpaire
; Description ...: Determine si un nombre est impaire
; Syntax ........: NombreImpaire([$iNumber = 3])
; Parameters ....: $iNumber             - [optional] an integer value. Default is 3.
; Return values .: True si oui(impaire) et false si non(paire)
; Author ........: Numeric
; Modified ......:
; Remarks .......: NombrePaire() peut bien accomplire cette tâche|on pourait montrer qu'un nombre n'est pas paire...
; Related .......: NombrePaire()
; Link ..........:
; Example .......: Oui
; ===============================================================================================================================
Func NombreImpaire($iNumber = 3)
        Return Mod($iNumber, 2) <> 0
EndFunc   ;==>NombreImpaire

; #FUNCTION# ====================================================================================================================
; Name ..........: NombrePremier
; Description ...: Determine si nombre est premier ou pas...
; Syntax ........: NombrePremier($iNumber)
; Parameters ....: $iNumber             - an integer value.
; Return values .: True si le nombre inseré ($iNumber) est un nombre premier
; Author ........: Numeric
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Oui
; ===============================================================================================================================
Func NombrePremier($iNumber)
        Local $iCount = 1, $bVerif = True
        ;O et 1 ne sont pas des nombres premiers
        If $iNumber < 0 Or $iNumber = 0 Or $iNumber = 1 Then Return False
        Do
                For $j = 1 To $iNumber
                        If $j = $iNumber Then
                                $iCount += 1
                        EndIf
                        If $j * $iCount = $iNumber And $j <> 1 Then
                                $bVerif = False
                                ExitLoop 2
                        EndIf
                Next
        Until $iCount = ($iNumber * $iNumber)
        Return $bVerif
EndFunc   ;==>NombrePremier


; #FUNCTION# ====================================================================================================================
; Name ..........: RacineNieme
; Description ...: Determine la racine nieme d'un nombre
; Syntax ........: RacineNieme($iNumber[, $Racine = 2])
; Parameters ....: $iNumber             - an integer value.
;                  $Racine              - [optional] an unknown value. Default is 2.
; Return values .: Racine nieme
; Author ........: Numeric
; Modified ......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Oui
; ===============================================================================================================================
Func RacineNieme($iNumber, $Racine = 2)
        Return Number($iNumber) ^ (1 / $Racine)
EndFunc   ;==>RacineNieme








 
De 0 et 1 vers les étoiles , tout part du Binaire, Numeric

Répondre

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité