[UDF] Maths

[Numeric]

Quelques petites fonctions mathématiques pour accélérer nos pas

Code: [Tout sélectionner] [Déplier/Replier]

#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








 

GeSHi © Extension Codebox Plus