VB vs C vs Delphi

[tyomitch]

vladgri времени даром не теряет! Еще бы на сях кто-нибудь сделал.

Ну, меряйте.
Сразу дизклеймер: я на сях не мастак, так что просто топорно перевёл бейсиковский код. Может, кто сможет потвикать.

[Mikle]

tyomitch
А EXEшник?

[DirectXManiac]

Mikle, Спасибо!

[tyomitch]

EXE тут.
Почему-то к посту не аттачится.

[Mikle]

В последнем Дельфи варианте обычные числовые константы были заменены на именные, и это таинственным образом ускорило работу. Но все три варианта (Дельфи, ВБ и СИ) пока делают не совсем одно и то же, по крайней мере PrintScreen и сравнение в Фотошопе показывают, что результаты разные. Но, впрочем, очень близки. Сейчас впереди Дельфи, а позади СИ
Асм не рассматривался, так как результат работы сильно отличается от остальных.
Это была игра "на поле" Дельфи - алгоритм, активно использующий рекурсию, если у кого-то есть желание продолжить сравнение, я подумаю над следующим тестом, постараюсь сделать его проще.

[tyomitch]

Для интереса переписал свой сишный код в нерекурсивный цикл.
Вышло ещё медленнее.
Сишник из меня никакой...

[AjaxVS]

Сравните плз скорость хэширования по алгоритму MD5: VB,C,Delphi,PHP.
К сожелению, сам помочь в этом не смогу, но на результаты посмотрю с удовольстввием.

[Mikle]

tyomitch
Две ошибки:

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

limit = (int)vP2.y;
for (y = (int)vP1.y; y < limit; y++)


Для соответствия с VB вместо INT нужно ставить CINT (или как там это в СИ называется), но, впрочем, это не изменит среднее кол-во проходов цикла, только картинку.
Но вместо

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

y < limit

должно быть

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

y <= limit.

А это еще замедлит СИ код.
AjaxVS
А что такое "хэширование"?

[tyomitch]

Но вместо

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

y < limit

должно быть

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

y <= limit.

А это еще замедлит СИ код.

Не соглашусь. В исходном коде:

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

While y < vP2.y

А что такое "хэширование"?

Посмотри, например, http://bbs.vbstreets.ru/viewtopic.php?t=23676

[Mikle]

tyomitch
Я думал ты переводишь первый вариант, с FOR.
Пример качаю.

[GSerg]

Я тоже перевёл в сишный код... таки медленнее VB.

[AjaxVS]

А что такое "хэширование"? :roll:

Посмотри, например, http://bbs.vbstreets.ru/viewtopic.php?t=23676

Вот это я и имел в виду. Слабо перегнать С-аналог? =)

[tyomitch]

Кстати, предлагаю Денису Победре в оправдание своего флуда в этом топике перевести фрактал на Смолток, и сравнить скорость с представленными вариантами.

[Денис Победря]

tyomitch
В чисто математических операциях он конечно проигрывает.

[tyomitch]

Превосходно. В каких операциях он чисто выигрывает? с примером кода, пожалуйста.

[vladgri]

Тест Delphi MD5Hash
http://vlad-gri.pochta.ru/md5test.rar

[Mikle]

Видимо важно не то, на скольких операциях компилятор обгоняет или отстает, а то, как он ведет себя на операциях, наиболее характерных для выбранной задачи. Я, хоть и явно об этом не написал, имел ввиду разработку комп. игр. В них наибольшее время занимают (не считая графики, которую обрабатывают ВНЕШНИЕ API, напр. DirectX) различные рекурсивные обходы, типа ок- и квадтри, поиск пути, генерация шумов и т. п. Кроме того большое время тратится на различные сортировки. А, например, скорость обработки строк не имеет большого значения даже в RPG и квестах с большим количеством диалогов. Если писать парсер или текстовый процессор - тут уже важна скорость обработки строк.
Поэтому я предлагаю следующий тест, сортировка массива. В тесте применены наиболее типичные для геймдева типы - Long и Single. Перед сортировкой массив заполняется не случайными значениями, а синусами, чтобы не зависеть от возможно различной реализации RND в различных языках. Тест гораздо проще предыдущего, даже не создается форма, так что жду варианты для D и C, можно и Асм, вот где он должен вырваться вперед!
Тест для VB6:
http://tuapse-mikle.narod.ru/SortVB6.rar
ЗЫ. Посмотрел тему про хэш, скачал пример, но не понял, для чего это нужно класс представляет из себя набор каких-то обработчиков строк, это что, шифрация? Некоторые моменты действительно на VB делать очень неэффективно, например циклический битовый сдвиг чисел.

[tyomitch]

А если я вместо твоего пузырька вставлю что-нибудь помоднее, так можно?

[Mikle]

tyomitch
Я выбрал пузырек за простоту. можно сделать и другой тест, главное с общим для всех компилеров алгоритмом. Так что придумаешь свое - давай исходник. Вполне может оказаться, что для разных компилеров оптимальными будут разные алгоритмы - тоже сравним.

[Денис Победря]

tyomitch
Он опережает Си++ в проектах со сложной ООП структурой. Код? Самому писать лень, нагуглил.
http://www.smalltalk.ru/articles/cpp-is-faster.html

[Mikle]

Проведем втрой тест - можно приняться за что-нибудь насквозь объектно ориентированное.
А в первом тесте все же выигрывает VB6, моло того, что Дельфи выиграл после сомнительной замены констант на именные (что, там нет суффиксов для обозначений типов числовых констант?), я перенес код из формы в нативный модуль, ничего не меняя - и бейсик вышел в лидеры, причем ощутимо.

[tyomitch]

Это как раз предсказуемо. В классах (включая формы) вокруг каждого метода ставится SEH-кадр; в модулях -- нет.

[vladgri]

А в первом тесте все же выигрывает VB6, моло того, что Дельфи выиграл после сомнительной замены констант на именные (что, там нет суффиксов для обозначений типов числовых констант?),

Почему сомнительная? В Delphi неименованная константа с плавающей точкой всегда "Extended". Суффиксов нет. Таким образом, чтобы получить "Single" константу, пришлось ее заименовать.

я перенес код из формы в нативный модуль, ничего не меняя - и бейсик вышел в лидеры, причем ощутимо.

Можно тест?.

Это как раз предсказуемо. В классах (включая формы) вокруг каждого метода ставится SEH-кадр; в модулях -- нет.

Только не в приватных методах.

[tyomitch]

А в первом тесте все же выигрывает VB6, моло того, что Дельфи выиграл после сомнительной замены констант на именные (что, там нет суффиксов для обозначений типов числовых констант?),

Почему сомнительная? В Delphi неименованная константа с плавающей точкой всегда "Extended". Суффиксов нет. Таким образом, чтобы получить "Single" константу, пришлось ее заименовать.

А что, если я напишу single(3.14), делфи её будет в рантайме к single приводить?

[vladgri]

А что, если я напишу single(3.14), делфи её будет в рантайме к single приводить?

Нет. Будет ошибка "Invalid typecast"

[tyomitch]

я перенес код из формы в нативный модуль, ничего не меняя - и бейсик вышел в лидеры, причем ощутимо.

Можно тест?.

Я попробовал так же: у меня от переноса скорость не изменилась.

Это как раз предсказуемо. В классах (включая формы) вокруг каждого метода ставится SEH-кадр; в модулях -- нет.

Только не в приватных методах.

Ну, в них всё равно приходится лишним параметров передавать Me, и вызывать на нём AddRef на входе и Release на выходе.

[vladgri]

Это как раз предсказуемо. В классах (включая формы) вокруг каждого метода ставится SEH-кадр; в модулях -- нет.

Только не в приватных методах.

Ну, в них всё равно приходится лишним параметров передавать Me, и вызывать на нём AddRef на входе и Release на выходе.[/quote]
Ничего вышесказанного в в методах DrawFractal и DrawLine нет, может правильней их назвать локальными процедурами.

[Mikle]

http://tuapse-mikle.narod.ru/FrVB6.rar
Это мой тест с кодом в модуле. Результаты:

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

      vb   d   c
Athlon64-3650   0.053   0.057   0.062
Celeron-1330   0.113   0.092   0.144
AMD K6-2 400   0.758   0.772   0.808


На Celeron Дельфи все же впереди остался.
vladgri

чтобы получить "Single" константу, пришлось ее заименовать.

Это недостаток! Холивар у нас, или что?
Но даже и без этого, я попробовал в VB6 вместо Single подставить Double константы - потери производительности практически нет.

[DirectXManiac]

vladgri
Bоrland умирает! Мелкософт рулит!

[tyomitch]

DirectXManiac, к чему этот некрофлуд?