Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Add()
#17
Code:
Public Sub TestOne(ByVal Index As Long)
Dim a As Single
    
    a = Sqr(LookupTable(Index))
    
End Sub

Code:
Public Sub TestTwo(ByVal Index As Long)
Dim a As Single
    
    a = LookupTable(Index) ^ 0.5
    
End Sub

Code:
%Faster   -98.4|   -98.4|   -98.4|   -98.4|   -98.4|   -98.4|   -98.5|   -98.4|   -98.4|   -98.4
Test1       162|     160|     169|     161|     160|     161|     159|     161|     160|     161
Test2     10272|   10262|   10263|   10283|   10281|   10274|   10278|   10267|   10258|   10265

Nope. Not by a long shot. :wink:
Reply


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)