Кто на каком языке пишет роботов

SECRET А в чём сила delphi?
Быстрый? А с памятью как?

Приведеный кусок кода читать невозможно.
Символ не тот напишешь и не заметишь
...

Morgan_500, кто на чём умеет, тот на том и пишет.
Delphi быстрый, но не быстрее С. С память по разному, дельфийский менеджер памяти мне в последнее время совсем не нравится.
Символ «не тот» в Delphi написать сложно, если только сам усилий не приложишь к этому.
Приведённый кусок кода читать не надо. За него руки отрывать надо. Говнокодинг это называется.

SECRET А в чём сила delphi?
Быстрый? А с памятью как?

Приведеный кусок кода читать невозможно.
Символ не тот напишешь и не заметишь


А также, почему многие используют Lua?

И напоследок.
Почему про Java упомянул только один, а тот же C# 3-4 человека.
Языки ведь подобные. Чем Java уступает? или так просто исторически сложилось?

Ищу специалиста на lua. Алгозаявки, простейшие роботы, оперирующие на o h l c % На возмездной основе, пишите в личку.

Игорь (ФСБ рулит), о ничего себе! Зачем тебе?

Тимофей Мартынов,
Чтоб руками позу не набирать в нелеквиде и для приятеля — роботов хочет)

Ищу специалиста на lua. Алгозаявки, простейшие роботы, оперирующие на o h l c % На возмездной основе, пишите в личку.

Игорь (ФСБ рулит), о ничего себе! Зачем тебе?

Qlua, afl

Ищу специалиста на lua. Алгозаявки, простейшие роботы, оперирующие на o h l c % На возмездной основе, пишите в личку.

готов поспорить у секрета кастомный сокет апи, в противном случае такой мощный инструмент как Delphi использовать не имеет никакого смысла)

А QLua из QUIK что никто не использует ?
На нём, что, невозможно написать даже простого робота для управления портфелем облигаций?

решил все таки писать на 1С, а не на Java — слишком долго получиться, на 1С проще и в сотни раз быстрее.

Кто на Питоне, к квику как прицепиться? Есть какие-то модули похожие на IbPy?

Eduard, нет конечно. Их приходится самостоятельно писать.

Кто на Питоне, к квику как прицепиться? Есть какие-то модули похожие на IbPy?

Python

Все от ресурсов/рынка зависит — C/C++/C#/Python

delphi

возможно и еще побыстрее сделать если заменить bcd_len-… на константы

Изя 3%,

возможно и еще побыстрее сделать если заменить bcd_len-… на константы

язык — какой лучше всего знаешь.
vba

Delphi

SECRET, зачем ты брешешь?))

Тимофей Мартынов, мне что код показать? :)

SECRET, покажи конечно

Тимофей Мартынов,
Выше выдрал прям самый крутой кусок из кода!

Delphi

SECRET, зачем ты брешешь?))

Тимофей Мартынов, мне что код показать? :)

SECRET, покажи конечно

Delphi

SECRET, зачем ты брешешь?))

Тимофей Мартынов, мне что код показать? :)

SECRET, покажи

Константин, Вот к примеру быстрая конвертация BCD в double. Работает в 4-5 раз быстрее чем функция, которая в CGate.
...

SECRET, мда уж, так с… ть ))) можно было и файлом выложить

Delphi

SECRET, зачем ты брешешь?))

Тимофей Мартынов, мне что код показать? :)

SECRET, покажи

Константин, Вот к примеру быстрая конвертация BCD в double. Работает в 4-5 раз быстрее чем функция, которая в CGate.

scale_arr:array [0..10] of double=
(1,0.01,0.01,0.0001,0.0001,0.000001,0.000001,0.00000001,0.00000001,0.0000000001,0.0000000001);

function BCDToDouble(bcd_data:pointer):double;
var bcd_len:integer;
begin
bcd_len:=((((pByte(bcd_data)+1)^) shr 1)+((((pByte(bcd_data)+1)^) or byte(bcd_data^)) and 1))-1;

case (bcd_len) of

2:
if (((pByte(bcd_data)+2)^ and 128)=128) then
result:=-(((pByte(bcd_data)+2)^ and 127) * bcd_coef[bcd_len] +
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2])*scale_arr[byte(bcd_data^)]
else
result:=((pByte(bcd_data)+2)^ * bcd_coef[bcd_len]+
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2])*scale_arr[byte(bcd_data^)];

3:
if (((pByte(bcd_data)+2)^ and 128)=128) then
result:=-(((pByte(bcd_data)+2)^ and 127) * bcd_coef[bcd_len] +
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3])*scale_arr[byte(bcd_data^)]
else
result:=((pByte(bcd_data)+2)^ * bcd_coef[bcd_len]+
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3])*scale_arr[byte(bcd_data^)];

4:
if (((pByte(bcd_data)+2)^ and 128)=128) then
result:=-(((pByte(bcd_data)+2)^ and 127) * bcd_coef[bcd_len] +
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4])*scale_arr[byte(bcd_data^)]
else
result:=((pByte(bcd_data)+2)^ * bcd_coef[bcd_len]+
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4])*scale_arr[byte(bcd_data^)];

7:
if (((pByte(bcd_data)+2)^ and 128)=128) then
result:=-(((pByte(bcd_data)+2)^ and 127) * bcd_coef[bcd_len] +
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4]+
(pByte(bcd_data)+7)^ * bcd_coef[bcd_len-5]+
(pByte(bcd_data)+8)^ * bcd_coef[bcd_len-6]+
(pByte(bcd_data)+9)^ * bcd_coef[bcd_len-7])*scale_arr[byte(bcd_data^)]
else
result:=((pByte(bcd_data)+2)^ * bcd_coef[bcd_len]+
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4]+
(pByte(bcd_data)+7)^ * bcd_coef[bcd_len-5]+
(pByte(bcd_data)+8)^ * bcd_coef[bcd_len-6]+
(pByte(bcd_data)+9)^ * bcd_coef[bcd_len-7])*scale_arr[byte(bcd_data^)];


8:
if (((pByte(bcd_data)+2)^ and 128)=128) then
result:=-(((pByte(bcd_data)+2)^ and 127) * bcd_coef[bcd_len] +
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4]+
(pByte(bcd_data)+7)^ * bcd_coef[bcd_len-5]+
(pByte(bcd_data)+8)^ * bcd_coef[bcd_len-6]+
(pByte(bcd_data)+9)^ * bcd_coef[bcd_len-7]+
(pByte(bcd_data)+10)^ * bcd_coef[bcd_len-8])*scale_arr[byte(bcd_data^)]
else
result:=((pByte(bcd_data)+2)^ * bcd_coef[bcd_len]+
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-1]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-2]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4]+
(pByte(bcd_data)+7)^ * bcd_coef[bcd_len-5]+
(pByte(bcd_data)+8)^ * bcd_coef[bcd_len-6]+
(pByte(bcd_data)+9)^ * bcd_coef[bcd_len-7]+
(pByte(bcd_data)+10)^ * bcd_coef[bcd_len-8])*scale_arr[byte(bcd_data^)];

12:
if (((pByte(bcd_data)+2)^ and 128)=128) then
result:=-(((pByte(bcd_data)+2)^ and 127) * bcd_coef[bcd_len-3]*bcd_coef[3] +
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-3]*bcd_coef[2]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-3]*bcd_coef[1]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4]+
(pByte(bcd_data)+7)^ * bcd_coef[bcd_len-5]+
(pByte(bcd_data)+8)^ * bcd_coef[bcd_len-6]+
(pByte(bcd_data)+9)^ * bcd_coef[bcd_len-7]+
(pByte(bcd_data)+10)^ * bcd_coef[bcd_len-8]+
(pByte(bcd_data)+11)^ * bcd_coef[bcd_len-9]+
(pByte(bcd_data)+12)^ * bcd_coef[bcd_len-10]+
(pByte(bcd_data)+13)^ * bcd_coef[bcd_len-11]+
(pByte(bcd_data)+14)^ * bcd_coef[bcd_len-12])*scale_arr[byte(bcd_data^)]
else
result:=((pByte(bcd_data)+2)^ * bcd_coef[bcd_len-3]*bcd_coef[3]+
(pByte(bcd_data)+3)^ * bcd_coef[bcd_len-3]*bcd_coef[2]+
(pByte(bcd_data)+4)^ * bcd_coef[bcd_len-3]*bcd_coef[1]+
(pByte(bcd_data)+5)^ * bcd_coef[bcd_len-3]+
(pByte(bcd_data)+6)^ * bcd_coef[bcd_len-4]+
(pByte(bcd_data)+7)^ * bcd_coef[bcd_len-5]+
(pByte(bcd_data)+8)^ * bcd_coef[bcd_len-6]+
(pByte(bcd_data)+9)^ * bcd_coef[bcd_len-7]+
(pByte(bcd_data)+10)^ * bcd_coef[bcd_len-8]+
(pByte(bcd_data)+11)^ * bcd_coef[bcd_len-9]+
(pByte(bcd_data)+12)^ * bcd_coef[bcd_len-10]+
(pByte(bcd_data)+13)^ * bcd_coef[bcd_len-11]+
(pByte(bcd_data)+14)^ * bcd_coef[bcd_len-12])*scale_arr[byte(bcd_data^)];

else result:=0;
end;
end;

Delphi

SECRET, зачем ты брешешь?))

Тимофей Мартынов, мне что код показать? :)

SECRET, покажи

Delphi

SECRET, зачем ты брешешь?))

Тимофей Мартынов, мне что код показать? :)

Delphi

SECRET, зачем ты брешешь?))

Delphi