Sorry your browser is not supported!

FUNCTION LOGN(a AS FLOAT,b AS FLOAT)
    n AS FLOAT
    i AS FLOAT
    g AS FLOAT
    g=a
    n=0
    i=1
    while (EXP(b,i) <> 1)
        while g >= EXP(b,i)
            g=g/EXP(b,i)
            n=n+i
        endwhile
        i=i/b
    endwhile
ENDFUNCTION n

FUNCTION EXP(num AS FLOAT,exponent AS FLOAT)
    m AS FLOAT
    m=1
    for ee=1 to exponent
        m=m*num
    next ee
ENDFUNCTION m

rem
rem AGK Application
rem

rem A Wizard Did It!

num as float
num = Log(10,5,30) // produces 0.698970
do
 Print(num)
 Sync()
loop

Function Log( Base#, Value#, Accuracy)
    // locals
    intPower as integer = 0

    Count as integer = 0

    FracPower# as float = 0.0

    recip as integer = 0

    If Value# < 1.0
        Value# = 1.0 / Value#
        recip = 1
    Endif

    intPower = intLog(Base#, Value#)

    If Base#^IntPower = Value#
        Power# = IntPower
    Else


        HighValue# as float = 1.0
        LowValue# as float = 0.0

        FracValue# as float
        FracValue# = (Value# / (Base#^(intPower)))

        While Count < Accuracy
            FracPower# = ((HighValue# + LowValue#) / 2.0)
            // If the value is lower
            If (Base#^(FracPower#)) > FracValue#
                HighValue# = FracPower#
            Endif

            // If the value is higher
            If (Base#^(FracPower#)) < FracValue#
                LowValue# = FracPower#
            Endif

            // If it's equal
            If Base#^(FracPower#) = FracValue# then Count = Accuracy
            // end the loop

            Count = Count + 1
        Endwhile

        Power# = IntPower + FracPower#

        If recip = 1 then Power# = 0 - Power#
    Endif

Endfunction Power#

Function intLog( base as integer, Value as integer)
    // locals
    intPower = 0
    TempValue = Value

    While TempValue >= Base
        TempValue = TempValue / Base
        intPower = intPower + 1
    Endwhile

Endfunction intPower