Sign in to follow this  
Followers 0
/\/\1|<3

Mike´s Maths

1 post in this topic

general maths:

Func GetRoot($num, $root)
    If IsNumber($num) = 0 Or IsNumber($root) = 0 Or $num < 0 Then
        SetError(1)
    Else
        Return ($num ^ (1 / $root))
    EndIf
EndFunc


Func CalculateCrossSum($Num) 
    If IsNumber($Num) = 0 Or $Num < 0 Then
        SetError(1)
    Else
        
        Local $StartNum = 0
        Local $NumString = String($Num)
        Local $Split = StringSplit($NumString, "")
        
        For $i = 1 To $Split[0]
            $StartNum = $StartNum + Number($Split[$i])
        Next
        
        Return $StartNum
    EndIf
EndFunc

i dont know if CrossSum is the right word :lmao: but i think you should know what it should mean o:)

and my Prime Number functions:

Func CountPrimeFactors($num)
    If IsNumber($num) = 0 Or IsInt($num) = 0 Then
        SetError(1)
    ElseIf $num < 0 Then
        $num = $num * -1
    Else
        
        Local $i = 2
        Local $count = 1
        
        While $i <= $num / 2
            If IsInt($num / $i) Then
                $num = $num / $i
                $count = $count + 1
                $i = 2
            Else
                $i = $i + 1
            EndIf
        WEnd
        
        Return $count
    EndIf
EndFunc

Func IsPrimeNumber($num)
    If IsNumber($num) = 0 Or ($num < 2 And $num > 0) Or IsInt($num) = 0 Then
        SetError(1)
    ElseIf $num < 0 Then
        $num = $num * -1
    Else
        
        Local $i = 2
        Local $bool = 1
        
        If $num <> 2 Then
            While $i <= $num / 2 And $bool = 1
                If IsInt($num / $i) Then
                    $bool = 0
                Else
                    $i = $i + 1
                EndIf
            WEnd
        EndIf
        
        Return $bool
    EndIf
EndFunc

Func GetPrimeFactors($num)
    If IsNumber($num) = 0 Or $num <= 0 Or IsInt($num) = 0 Then
        SetError(1)
    ElseIf $num < 0 Then
        $num = $num * -1
    Else
        
        Local $PrimeFactors[CountPrimeFactors($num) + 1]
        Local $i = 1
        Local $j = 2
        
        $PrimeFactors[0] = UBound($PrimeFactors) - 1
        
        While $i <= $PrimeFactors[0]
            If IsInt($num / $j) Then
                $PrimeFactors[$i] = $j
                $num = $num / $j
                $j = 2
                $i = $i + 1
            Else
                $j = $j + 1
            EndIf
        WEnd
        
        Return $PrimeFactors
    EndIf
EndFunc

the last one is the most interesting so heres an example:

$num = 123
$factors = GetPrimeFactors($num)
MsgBox(0, "Prime Factors of " & $num, $factors[0])
For $i = 1 To $factors[0]
    MsgBox(0, $i & ". Prime Factor of " & $num, $factors[$i])
Next

GetPrimeFactors returns an array. array[0] contains the number of Prime Factors found. the others the factors. so the first msgbox tells you how many factors where found and the others the value.

hope you like it.

Mike

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0