Можно как-нибудь оптимизировать?

[_NeoN_]

Вот написал модуль для работы с битами, вроде все работает, но это все должно работать предельно быстро, посмотрите как можно по скорости оптимизировать или это уже все...?

[skiperski]

Код: Выделить всё

Public Function BitGet(ByVal Variable As Long, ByVal BitNum As Byte) As Byte
    BitGet = Abs(CBool(Variable And 2 ^ BitNum))
End Function

Public Function BitSet(ByVal Variable As Long, ByVal BitNum As Byte) As Long
    BitSet = Variable Or 2 ^ BitNum
End Function

Public Function BitClear(ByVal Variable As Long, ByVal BitNum As Byte) As Long
    BitClear = Variable And Not (2 ^ BitNum)
End Function

Ха! Что любопытно, код BitClear() у меня компактнее, но твой работает быстрее (~ на 0.2 сек быстрее на милл. вызовов). Другие мои всё же быстрее.

[amer]

в одной книжке, про оптимизацию, прочитал, что возведение в степень работает медленно, посему, где можно нужно заменять на умножение...

[skiperski]

Тут не в этом собака порылась. Возведение в степень, по крайней мере двойки, работает уже 100% быстрее чем цикл начиная с 4, а у нас диапазон 0-30, т.ч. возведение, в данном случае, статистически более выгодно.

Я думаю, это Not тормозит (проверка показала, что так оно и есть).

[_NeoN_]

Спасибо... чего-то я не подумал про возведение в степень..

[skiperski]

Кстати, можно существенно ускорить BitGet(), если возвращать не 0/1, а 0 и не 0

Код: Выделить всё

Public Function BitGet(ByVal Variable As Long, ByVal BitNum As Byte) As Byte
    BitGet = Variable And 2 ^ BitNum
End Function

[_NeoN_]

А как ты время замеряешь?? GetTickCount до и после вызываешь?? или по другому как?

[skiperski]

Не мудрствуя лукаво.

Код: Выделить всё

Option Explicit

Public Function test()
   
    Dim i&, n&, t!
   
    n = 1000000
   
    t = Timer()
    For i = 1 To n
        Call routine_for_test_1(Parameters)
    Next
    Debug.Print Timer() - t
   
    t = Timer()
    For i = 1 To n
        Call routine_for_test_2(Parameters)
    Next
    Debug.Print Timer() - t
   
End Function

Делать надо просто на сколько это возможно, но не проще.
Сказал, кажется, А. Энштейн.

[Mikle]

Второй вариант быстрее не на каждом процессоре, по крайней мере на K6-2 - медленнее. А вот так быстрее однозначно:

Код: Выделить всё

Dim SH(31) As Long

Public Sub Ini()
Dim n As Integer
  For n = 0 To 30
    SH(n) = 2 ^ n
  Next n
  SH(31) = &H80000000
End Sub

Public Function BG(ByVal Variable As Long, ByVal BitNum As Byte) As Byte
    BG = -CBool(Variable And SH(BitNum))
End Function

Public Function BS(ByVal Variable As Long, ByVal BitNum As Byte) As Long
    BS = Variable Or SH(BitNum)
End Function

Public Function BC(ByVal Variable As Long, ByVal BitNum As Byte) As Long
    BC = Variable And Not SH(BitNum)
End Function


но требует предварительной инициализации. Зато бит 31 тоже работает. Можно еще чуть-чуть ускорить BitClear, если задать для него свой массив (чтобы исключить NOT).

[_NeoN_]

Код: Выделить всё

Dim SH(31) As Long
...


Я полез в биты чтобы сэкономить память(сказали чтобы прога кушала как можно меньшк памяти), это получается 31 boolean переменная в 4 байтах(и умножить на 1000 потому что именно чтолько и будет это получается всего 4000 байт), а ты предлагаешь создать еще массив размером 32*4*1000=128000 байт ну а вообще я ничего насчет памяти не говорил...


Ладно всем спасибо.