Snippets ( Math & Numbers )
Jump to navigation
Jump to search
Please always credit an author in your script if you use their code. It is only polite.
_Boolean
Author: guinness
ConsoleWrite(_Boolean(True) & @CRLF) ; Returns True.
ConsoleWrite(_Boolean("This is a string with something True.") & @CRLF) ; Returns False if a string of text (excluding True/False or a number.)
ConsoleWrite(_Boolean("1") & @CRLF) ; Returns True as it is a string but a number.
ConsoleWrite(_Boolean("False") & @CRLF) ; Returns False.
ConsoleWrite(_Boolean("False") & @CRLF) ; Returns False.
ConsoleWrite(_Boolean(1) & @CRLF) ; Returns True.
; Convert a value to Boolean (True or False).
; If a number is passed then anything that is NOT 0 is True and if a string is the explicit word True, False or a number than it's equivilant boolean value is returned.
; Anthing else e.g. This is a string is False.
Func _Boolean($fValue)
If IsBool($fValue) Then
Return $fValue
EndIf
Return Number($fValue) >= 1
EndFunc ;==>_Boolean
BinToInt
Author: Malkey
ConsoleWrite(BinToInt(111000) & @CRLF)
Func BinToInt($bin) ;coded by Malkey
Local $aArr = StringSplit($bin, "", 2)
Local $dec = 0
For $i = UBound($aArr) - 1 To 0 Step -1
If $aArr[$i] = "1" Then
$dec = BitXOR($dec, BitShift(1, -(UBound($aArr) - 1 - $i)))
EndIf
Next
Return $dec
EndFunc ;==>BinToInt
IntToBin
Author: Malkey
ConsoleWrite(IntToBin(2048) & @CRLF)
Func IntToBin($iInt) ; coded by Malkey
Local $b = ""
For $i = 1 To 32
$b = BitAND($iInt, 1) & $b
$iInt = BitShift($iInt, 1)
Next
Return $b
EndFunc ;==>IntToBin
_BinToInt
Author: Spiff59
ConsoleWrite(_BinToInt(111000) & @CRLF)
Func _BinToInt($sValue)
Local $iOut = 0, $aValue = StringSplit($sValue, "")
For $i = 1 To $aValue[0]
$aValue[0] -= 1
If $aValue[$i] = "1" Then $iOut += 2 ^ ($aValue[0])
Next
Return Int($iOut)
EndFunc
_BytesToBits
Author: ProgAndy
ConsoleWrite(_BytesToBits(1024) & @CRLF)
Func _BytesToBits($bBinary) ;coded by ProgAndy
Local $byte, $bits="", $i, $j, $s
#forceref $j
For $i = 1 To BinaryLen($bBinary)
$byte = BinaryMid($bBinary, $i, 1)
For $j = 1 To 8
$bits &= BitAND($byte, 1)
$byte = BitShift($byte, 1)
Next
Next
$s = StringSplit($bits, "")
$bits = ""
For $i = $s[0] To 1 Step -1
$bits &= $s[$i]
Next
Return $bits
EndFunc
_BitsToBytes
Author: ProgAndy
ConsoleWrite(_BitsToBytes(1000) & @CRLF)
Func _BitsToBytes($sBits) ; coded by ProgAndy
Local $bBytes = Binary(''), $iLen = StringLen($sBits)
Local $iCnt = 0, $iVal = 0
For $i = 1 To $iLen
$iCnt += 1
$iVal = BitShift($iVal, -1)
If "1" = StringMid($sBits, $i, 1) Then
$iVal = BitOR($iVal, 1)
EndIf
If $iCnt = 8 Then
$iCnt = 0
$bBytes &= BinaryMid($iVal, 1, 1)
$iVal = 0
EndIf
Next
If $iCnt Then $bBytes &= BinaryMid(Binary(BitShift($iVal, -8+$iCnt)), 1, 1)
Return $bBytes
EndFunc
_ChkParamValue
Author: UEZ
$v = 79 ; Bitmask -> 1 + 2 + 4 + 8 + 64 = 79 = 0100 1111
ConsoleWrite(_ChkParamValue(7, $v) & @LF)
ConsoleWrite(_ChkParamValue(32, $v) & @LF)
ConsoleWrite(_ChkParamValue(77, $v) & @LF)
ConsoleWrite(_ChkParamValue(16, $v) & @LF)
;======================================================================================
; Function Name: _ChkParamValue
; Description: Check whether any combination of n parameter values is valid
; Parameters: $iParam: an integer value to check
; $iBitmask: an integer value with the possible parameter values
; Return Value(s): True -> $iParam is a valid parameter
; False -> $iParam is NOT a valid parameter
;
; Error codes: 1: $iParam not an integer
; 2: $iBitmask not an integer
; Author(s): UEZ
; Version: v0.99 Build 2012-05-10 Beta
; Example:
; $iBitmask = 79 ; Bitmask -> 1 + 2 + 4 + 8 + 64 = 79 = 0100 1111
; ConsoleWrite(_ChkParamValue(7, $iBitmask) & @LF)
; ConsoleWrite(_ChkParamValue(32, $iBitmask) & @LF)
; ConsoleWrite(_ChkParamValue(77, $iBitmask) & @LF)
; ConsoleWrite(_ChkParamValue(16, $iBitmask) & @LF)
;=======================================================================================
Func _ChkParamValue($iParam, $iBitmask)
If Not IsInt($iParam) Then Return SetError(1, 0 , 0)
If Not IsInt($iBitmask) Then Return SetError(2, 0 , 0)
If Not $iParam Or $iParam > $iBitmask Then Return 0
Local $c = BitXOR(BitAND($iBitmask, $iParam), $iParam)
If Not $c Then Return True
Return False
EndFunc ;===>_ChkParamValue
_Distance
Author: SolidSnake26
Calculate the Distance between two points
; Calculate the Distance between two points
; Author - SolidSnake
ConsoleWrite(_Distance(210, 345, 273, 465) & @CRLF)
Func _Distance($iX1, $iY1, $iX2, $iY2)
Return Sqrt(($iX1 - $iX2) ^ 2 + ($iY1 - $iY2) ^ 2)
EndFunc ;==>_Distance
_Generate
Author: monoceres
Pick a random set of numbers.
Local $aNumbers = _Generate(7, 1, 36)
Local $sString = ''
For $i = 0 To UBound($aNumbers) - 1
$sString &= "Element " & $i & ": " & $aNumbers[$i] & @CRLF
Next
MsgBox(4096, '', $sString)
; Pick a random set of numbers.
Func _Generate($iSize = 7, $iMin = 1, $iMax = 36)
Local $aArray[$iSize], $sReturn = ''
$aArray[0] = Random($iMin, $iMax, 1)
For $i = 0 To $iSize - 1
While 1
$sReturn = Random($iMin, $iMax, 1)
For $j = 0 To $i - 1
If $aArray[$j] = $sReturn Then
ContinueLoop 2
EndIf
Next
ExitLoop
WEnd
$aArray[$i] = $sReturn
Next
Return $aArray
EndFunc ;==>_Generate
Integer2Binary
Author: UEZ
#include <String.au3>
ConsoleWrite(Integer2Binary(2048) & @CRLF)
Func Integer2Binary($in) ;coded by UEZ
If $in = 0 Then Return 0
Local $bin
While $in > 0
$bin &= Mod($in, 2)
$in = Floor($in / 2)
WEnd
Return(_StringReverse($bin))
EndFunc
Binary2Integer
Author: UEZ
ConsoleWrite(Binary2Integer(111000) & @CRLF)
Func Binary2Integer($in) ;coded by UEZ
Local $int, $x, $i = 1, $aTmp = StringSplit(_StringReverse($in), "")
For $x = 1 To UBound($aTmp) - 1
$int += $aTmp[$x] * $i
$i *= 2
Next
$aTmp = 0
Return StringFormat('%.0f', $int)
EndFunc
Iterative Fibonacci
Author: Rutger83
; Iterative Fibonacci Sequence
Global $n, $n1, $n0
#AutoIt Version: 3.2.10.0
$n0 = 0
$n1 = 1
$n = 10
MsgBox (0,"Iterative Fibonacci ", it_febo($n0,$n1,$n))
Func it_febo($n_0,$n_1,$N)
Local $first = $n_0
Local $second = $n_1
Local $next = $first + $second
Local $febo = 0
For $i = 1 To $N-3
$first = $second
$second = $next
$next = $first + $second
Next
if $n==0 Then
$febo = 0
ElseIf $n==1 Then
$febo = $n_0
ElseIf $n==2 Then
$febo = $n_1
Else
$febo = $next
EndIf
Return $febo
EndFunc
_MilesToKilometres
Author: guinness
Usage _MilesToKilometres( Number Of Miles To Calculate By )
; Usage _MilesToKilometres( Number Of Miles To Calculate By ) &
ConsoleWrite(_MilesToKilometres(1) & @CRLF) ; Change the (1) to the distance required
Func _MilesToKilometres($iLength)
Return $iLength * 1.609
EndFunc ;==>_MilesToKilometres
_KilometresToMiles
Author: guinness
_KilometresToMiles( Number Of Kilometers To Calculate By )
; _KilometresToMiles( Number Of Kilometers To Calculate By )
ConsoleWrite(_KilometresToMiles(1) & @CRLF) ; Change the (1) to the distance required
Func _KilometresToMiles($iLength)
Return $iLength * 0.6214
EndFunc ;==>_KilometresToMiles
_Random
Author: guinness
_Random(Minimum, Maximum, [Integer]) ~ ( Generates a random number within a given range )
; Usage = _Random(Minimum, Maximum, [Integer]) ~ ( Generates a random number within a given range )
ConsoleWrite(_Random(0, 1) & @CRLF) ; Will return a float number between 0 & 1.
ConsoleWrite(_Random(42, 42) & @CRLF) ; Will return 42, as both values are the same.
ConsoleWrite(_Random(1, 99, 1) & @CRLF) ; Will return an integer number between 1 & 99.
Func _Random($iMin, $iMax, $iInteger = 0)
Local $iRandom = Random($iMin, $iMax, $iInteger)
If @error Then
Return $iMin
EndIf
Return $iRandom
EndFunc ;==>_Random
_RandomCharGen
Author: Marlo
MsgBox(0, "", _RandomCharGen(50))
Func _RandomCharGen($iLength)
Local $sReturn
Local $aChars[62] = [ _
'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z', _
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', _
0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
For $i = 0 To $iLength
$sReturn &= $aChars[Random(0, 61)]
Next
Return $sReturn
EndFunc ;==>_RandomCharGen
_RandomNumber
Author: guinness
ConsoleWrite(_RandomNumber() & @CRLF) ; Generates a random number
Func _RandomNumber($iStart = 0, $iEnd = 10000000000)
Return Random($iStart, $iEnd, 1)
EndFunc ;==>_RandomNumber
Recursive Fibonacci
Author: Rutger83
; Recursive Fibonacci Sequence
Global $n, $n1, $n0
#AutoIt Version: 3.2.10.0
$n0 = 0
$n1 = 1
$n = 10
MsgBox (0,"Recursive Fibonacci ", rec_febo($n0,$n1,$n))
Func rec_febo($r_0,$r_1,$R)
if $R<3 Then
if $R==2 Then
Return $r_1
ElseIf $R==1 Then
Return $r_0
ElseIf $R==0 Then
Return 0
EndIf
Return $R
Else
Return rec_febo($r_0,$r_1,$R-1) + rec_febo($r_0,$r_1,$R-2)
EndIf
EndFunc
_Ternary
Author: guinness
ConsoleWrite(_Ternary(10, 'Is True.', 'Is False.') & @CRLF)
ConsoleWrite(_Ternary(0, 'Is True.', 'Is False.') & @CRLF)
; Version: 1.00. AutoIt: V3.3.8.1
Func _Ternary($iValue, $vTrue, $vFalse) ; Like _Iif but uses 0 or non-zero e.g. 1 or above instead of a boolean result.
Local $aArray[2] = [$vFalse, $vTrue]
Return $aArray[Number(Number($iValue) > 0)]
EndFunc ;==>_Ternary