Извините, ничего не найдено.

MiXaeL · 01.10.2006, 19:44

Итак, что же такое оптимизация? А это просто изменение исходного кода программы / добавление новых модулей с целью повышения её быстродействия. Рассмотрим конкретный пример:

 
...
If MouseHit(1) PickUnit()
...
Function PickUnit()
  Pick=CameraPick(camera,MouseX(),MouseY())
  For u.unit = each unit
    If Pick=u\model SelectUnit(u)
  Next
End Function

С функцианальной точки зрения код совершенно правильный, и всегда будет получаться ожидаемый результат, но посмотрим что можно же здесь улучшить:

1) "Отброс невозможных вариантов"
Нетрудно заметить, что при нажатии кнопки мыши мы можем выделить только одного юнита, значим мы можем изменить код функции так:

 
Function PickUnit()
  Pick=CameraPick(camera,MouseX(),MouseY())
  For u.unit = each unit
    If Pick=u\model 
        SelectUnit(u)
        Return
    EndIf
  Next
End Function

Итак, мы в среднем увеличили скорость выполнения цикла в два раза!

2)"Задание условий выполнения"
Так же можно заметить, что при нажатии кнорки мыши мы не всегда попадаем в юнита, а значит поставить проверку попали ли мы вообще в юнита? Изменим код так:

 
Function PickUnit()
  Pick=CameraPick(camera,MouseX(),MouseY())
  If Pick=0 Return
  For u.unit = each unit
    If Pick=u\model SelectUnit(u)
    Return
  Next
End Function

Здесь важно заметить, что подразумевается, что кроме юнитов никакие другие объекты не выделяются. Если это не так, то можно попробовать сделать следующее:

Function CreateUnit()
  u.unit= New unit
  ...
  NameEntity(u\model,"Unit")
  ...
End Function
 
Function PickUnit()
  Pick=CameraPick(camera,MouseX(),MouseY())
  If Pick=0 Return
  If EntityName$(u\model)<> "Unit" Return
  For u.unit = each unit
    If Pick=u\model 
        SelectUnit(u)
        Return
    EndIf
  Next
End Function

P.S. Если вы имеете дело не с функцией, или кроме цикла (не обязательно цикла) имеется что-то ещё, то для первого случая нужно использовать Exit, а для второго If...End If.

01.10.2006, 19:57

ето очень и очень конкретный пример оптимизации

MiXaeL · 01.10.2006, 20:08

Конечно, рассмотренные выше методы не являются исчерпывающими. Рассмотрим ещё несколько видов оптимизации:

1) "Замена условий формулой"
Это просто замена нескольких IF одной формулой. Вот основные виды:

а)"Переключатель двух состояний"
То есть просто переменная, которая может принимать значения 1 или 0 :

If KeyHit(57) N=1-N

или

If KeyHit(57) N=Not(N)

Всё просто.

б)"Преключатель N состояний"
Это переменная, которая может принимать значения 0,1...N :

If KeyHit(57) K=(K+1) Mod N

в)"Минимумы и максимумы"
Часто используется для переменных, которые возратают (или уменьшаются) только до какого-то определенного значения (например для скорости):

Speed=Speed + (1 And Speed < 2)*.5

г)"Модули"
Используется реже, например здесь:
вместо

If EntityPitch(cam)<75 And EntityPitch(cam)>-75 Then

можно использовать

If Abs(EntityPitch(cam))<75 Then

2)"Исключение медленных операций"
Например, если вам надо определить расстояние между точками в 2D ( в 3D всегда исрользуйте EntityDistance - эта команда значительно быстрее любых подсчетов через координаты!), вы наверняка используете что-то вроде этого:

 
d=Sqr((x1-x2)^2+(y1-y2)^2)
 
If d<10 Then
  ...
End If

Но вы должно быть знаете, что Sqr - ОЧЕНЬ МЕДЛЕННАЯ команда, поэтому лучше написать так (как бы возвести все в квадрат):

 
d=(x1-x2)^2+(y1-y2)^2
 
If d<100 Then
  ...
End If

Результат от этого не изменится, а скорость выполнения увеличится!

P.S. Ну вот вроде все

! Если знаете что-то еще, добавляйте.

01.10.2006, 20:21

про If KeyHit(57) K=(K+1) Mod N незнал

пасибки

tormoz · 01.10.2006, 22:08

а мгновенный доступ к елементу типа без перебора ?

Object -есть такая фишка.

Function CreateUnit()
u.unit= New unit
...
name$=Handle (u)
NameEntity u\model, name$
...
End Function

Function PickUnit()
Pick=CameraPick(camera,MouseX(),MouseY())
If Pick
u.unit=Object.unit(EntityName(Pick))
If u<>Null
SelectUnit(u)
EndIf
EndIf
End Function

Platon · 02.10.2006, 08:25

Сообщение от jimon

про If KeyHit(57) K=(K+1) Mod N незнал

Лучше такую конструкцию не юзать, ибо она наоборот медленнее чем

K = K + 1
If K > N Then K = 0

Раз в 10 быстрее чем mod.

а)"Переключатель двух состояний"
То есть просто переменная, которая может принимать значения 1 или 0 :

If KeyHit(57) N=1-N

или

If KeyHit(57) N=Not(N)

Всё просто.

Тут как раз первый вариант предпочтительнее, ибо быстрее в 2-3 раза чем NOT.

в)"Минимумы и максимумы"
Часто используется для переменных, которые возратают (или уменьшаются) только до какого-то определенного значения (например для скорости):

Speed=Speed + (1 And Speed < 2)*.5

Здесь тоже лучше такую конструкцию не использовать, ибо медленне чем

If x < 10 Then x = x * 0.5

раза в 2-3

И насчет знака возведения в степень "^", если известна степень, то лучше заменить на умножение N раз, будет быстрее намного.

02.10.2006, 08:48

Тут как раз первый вариант предпочтительнее, ибо быстрее в 2-3 раза
чем NOT.

not выполняется ALU в один такт
что является самой быстрой операцией за все время существования процесоров

И насчет знака возведения в степень "^", если известна степень, то лучше заменить на умножение N раз, будет быстрее намного.

необязательно, хотя возможно

Здесь тоже лучше такую конструкцию не использовать, ибо медленне чем
If x < 10 Then x = x * 0.5

раза в 2-3

тоже самое, притом компилятор всеравно обе конструкции разворачивает

и надо писать все в одном сообщении !

Platon · 02.10.2006, 08:53

jimon
Этот топик по Блицу или по ассемблеру а?
Может написав на ассемблере такую конструкцию с Not, она будет быстрее выполняться, чем эта же конструкция с Sub, а блиц интерпретирует хз. как. Если неверишь, то проверь практически что будет быстрее работать.

02.10.2006, 18:08

втом то и дело что блиц конвертит код в asm

pax · 02.10.2006, 20:31

Сообщение от Michael

1) "Отброс невозможных вариантов"
Нетрудно заметить, что при нажатии кнопки мыши мы можем выделить только одного юнита, значим мы можем изменить код функции так:

 
Function PickUnit()
  Pick=CameraPick(camera,MouseX(),MouseY())
  For u.unit = each unit
    If Pick=u\model SelectUnit(u)
    Return
  Next
End Function

Итак, мы в среднем увеличили скорость выполнения цикла в два раза!

Ну в "среднем" из цикла производится выход сразу же после проверки первого элемента... работать правильно будет вот так:
[highlight=blitzbasic]
Function PickUnit()
Pick=CameraPick(camera,MouseX(),MouseY())
For u.unit = each unit
If Pick=u\model
SelectUnit(u)
Return
EndIf
Next
End Function
[/highlight]

impersonalis · 02.10.2006, 22:02

Сообщение от jimon

про If KeyHit(57) K=(K+1) Mod N незнал

пасибки

Эта формула была в топике про форумлы в разделе по алгоритмике

pax · 02.10.2006, 22:13

А вообще правильнее выход из цикла выполнять так:

[highlight=blitzbasic]
Function PickUnit()
Pick=CameraPick(camera,MouseX(),MouseY())
For u.unit = each unit
If Pick=u\model
SelectUnit(u)
Exit
EndIf
Next
End Function [/highlight]
Return производит выход из функции или подпрограммы, а не из цикла. Выход из цикла выполнятся оператором Exit.

MiXaeL · 02.10.2006, 22:14

2 PAX:
А я это писал (насчет Exit).

pax · 02.10.2006, 22:58

Сообщение от Michael

2 PAX:
А я это писал (насчет Exit).

Перечитал первый пост еще раз... извините что повторился

tormoz · 03.10.2006, 01:00

Спор бессмысленен, есть способ найти элемент без перебора. Я его привел.