nikolz (Все сообщения пользователя)

if aaa<bbb then sell end
----------------------------------------
если продать столько же сколько в позиции,
то она закроется,
если продать больше, чем есть (если бумага маржируемая),
то откроется short.
 

проблема скорее будет  не в железе,
а в задержках каналов связи и ОС ( алгоритм сингла).
тестируйте их пингом и потом принимайте решение.

На указанном железе будет плохо.
Если хотите очень хорошо,
то робот надо ставить на удаленном выделенном железном сервере,
в крайнем случае виртуальном, возможно как сейчас у Вас.

сделать противоположную сделку
если купили, то продать
если продали, то купить
если курили, то курить

отправил на почту пример

 покажите свой индикатор( программу).

относительно объявления глобальных переменных в любом месте неверно.
вот пример:
print(x)
x=10
результат nil

Вячеслав,
Все что я написал - есть правда.
Но причину ошибки я указал неверно.
Вы тоже неверно указали причину ошибки.
-------------------
Ошибка в том, что переменная order не содержит элемента order_num
Поэтому вызов функции onOrder с параметрами или без не спасает от этой ошибки.

бесконечный цикл в функции Main

еще надо (я отслеживаю)
заявки, которые выставляет человек, от заявок робота;
заявки, которые являются стопами от заявок которые являются условными для открытия позиции.
это до кучи

еще надо отслеживать стоп-заявки и отличать их лимит заявки от выставляемых лимит заявок.
Это до кучи.

примерно так:

Скрытый текст

--shares  -- список инструментов local oldt_si,oldt_eu,flag=0,0,0; local ds={}; function main() local i = 1 for sec,v in pairs(shares) do    local t=ds[i] if t==false then    t,er= CreateDataSource(v.classcode,sec, INTERVAL_H1)    if er==nil then        t.clas=v.classcode;        t.sec=sec;        t:SetUpdateCallback(function(index) cb(index,ds[i]) end)        toLog(log,"ds added i="..i.." classcode:"..v.classcode.." seccode:"..sec)        ds[i]=t;    else Log(log,"er="..er) end end    i=i+1 end while is_run do sleep(1000) end end function cb(ind,t) local Ti = t:T(ind-1) local h = Ti.hour local curhms = h*10 if flag==2 and (curhms~=oldt_si or curhms~=oldt_si) then flag=0 end if flag==2 then return end if curhms==oldt_si then flag=flag+1; oldt_si=curhms  end if curhms==oldt_eu then flag=flag+1; oldt_eu=curhms  end if flag==2 then -- обработка end end

либо введите флаг . И по нему блокируйте обработку.

поставьте выравнивание после обработки.

по QLUA

возьмите решение из известного Вам проекта и перепишите его на луа.

В луа Ваша задача тоже решается легко.

vic,
самокритика - это похвально.
Но замечу,
не я Вас спрашиваю ,
при этом гордясь  собственным невежеством,
а ВЫ.

см в документации Приложение 2.

 один ... может задать столько вопросов,
на которые 100 умных затрахаются отвечать.
-------------------------
Это сладкое слово - ХАЛЯВА.

Я уже писал как решать данную проблему.
Повторю еще раз.
Надо контролировать изменение лимитов.
И при их изменении шевелиться с заявками.
тогда будет по ... сколько раз у вас сработает OnOrder

нет,
взламывать не надо.
Так как мы имеем встроенную в основной поток VMLUA ,
следовательно все dll,
которые мы подключаем к ней являются родными для процесса info.exe (терминала КВИК)
-------------------------
Проблема лишь в отсутствии документации.
Но хорошей документацией QUIK никогда не славился.
Поэтому простейший реинженеринг софта потребуется
-----------------------------
Раньше, когда требовался взлом (до времен VM Lua) подобную задачу я делал даже без СИ, на скриптовом языке Autoit.
------------------
Но, правда, не вижу практической надобности этого мероприятия.

можно делать так:
--------------------------------
руками в квике
1) нажать в меню "Очистить все и начать новый сеанс"'
-------------------------------
автоматом:
2)  батник прописать сценарий удалить файлы
3)  п 1 сделать автоматом
4)  написать  скрипт в батник для запуска квика и прочего.
Например:
у меня уже лет ...надцать квик по расписанию запускается скриптом и вводит пароли.
запускает все, что еще надо, можно удалять все, что не надо .  

А ошибку Вы получаете потому, что у Вас вызов функции происходит до ее описания
Попробуйте изучить Lua.

Нельзя колбек вставлять в main
попробуйте разобраться с назначением колбеков и main.
Так НЕЛЬЗЯ:
function main()     while is_run do   OnOrder()   sleep(50)           end end

еще можно хуком.
но это для любителей экзотики.

можно сделать очередь
либо использовать кораунды
а еще лучше переделать весь алгоритм

Вы пишите скрипт или индикатор?

примерно так:

Скрытый текст
local lenT_old=0; local flag=false; function OnInit (path) -- инициализация функции main lenT_old=getNumberOf("trades") flag=false; end function OnTrade(trade)    lenT=getNumberOf("trades")    if lenT==lenT_old then flag=true end    lenT=lenT_old;    if flag then        --....  -- обработка колбека    end end

вопрос скорее будет в том, как быстро Вы сможете отреагировать на изменение данных.
Полагаю, что это время составит в среднем не менее 100 мс.
Поэтому разницы нет, если Вам не имеет значения очередь берите из ТТП

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

1) С ошибкой в скрипте.
2) С ошибкой в понимании того, что запрограммировано.

можно использовать:
1) getParamEx  – значения всех параметров биржевой информации из Таблицы текущих значений параметров,
2) getQuoteLevel2  – стакан по указанному классу и бумаге,
3) getItem  – для таблицы all_trades

примерно так:

Скрытый текст
local acc="...." --- это Ваш счет депо --------------------------------- function LB(sec)   local n = getNumberOf("depo_limits")    for y = 0, n-1 do        local trade = getItem("depo_limits", y)        if trade.sec_code==sec and trade.trdaccid==acc  then return trade.currentbal  end    end    return 0 end function OnQuote(CLASS, SEC) --..... local Limit=LB( SEC) -- получим лимит --.... end

а закрытие источников перенести в закрытие скрипта

пардон, опечатка
надо сделать так:

Скрытый текст

sec_code={"AFKS","AFLT","ALRS","CHMF","GAZP","GMKN","FEES","HYDR","LKOH","MAGN","MGNT","MOEX","MTSS","NLMK","NVTK","ROSN","RTKM","SBER","SBERP","SNGS"} function main()   message("_________________________________")  local  class_code0="TQBR"  local hm=#sec_code    if ds~=true then        ds={}; for h=1,hm do ds[n]=nil end    end   for h=1,hm do        if ds[h]~=true then            ds[h],error=CreateDataSource(class_code0,sec_code[h],INTERVAL_M1)            if ds[h] then                text=string.format("%-2d %-5s  created",h,sec_code[h])            else                text=string.format("%-2d %-5s  error: %s",h,sec_code[h],error)            end        message(text)      end   end   message("---------------------------------") end

чтобы не было указанной проблемы надо сделать примерно так:

Скрытый текст

sec_code={"AFKS","AFLT","ALRS","CHMF","GAZP","GMKN","FEES","HYDR","LKOH","MAGN","MGNT","MOEX","MTSS","NLMK","NVTK","ROSN","RTKM","SBER","SBERP","SNGS"} function main()   message("_________________________________")  local  class_code0="TQBR"  local hm=#sec_code    if ds~=true then        ds={}; for h=1,hm do ds[n]=nil end    end   for h=1,hm do        if ds[h]~=true then            ds[h],error=CreateDataSource(class_code0,sec_code[h],INTERVAL_M1)            if ds[h] then                text=string.format("%-2d %-5s  created",h,sec_code[h])            else                text=string.format("%-2d %-5s  error: %s",h,sec_code[h],error)            end        message(text)      end   end   message("---------------------------------")   sleep(1000)   for h=1,hm do      if ds[h] then         text=string.format("%-2d %-5s  size: %d",h,sec_code[h],ds[h]:Size())         if ds[h]:Close() then            text=text.."  closed"         else            text=text.."  error"         end      else         text=string.format("%-2d %-5s  empty",h,sec_code[h])      end      message(text)   end   message("=================================") end

 

можно через DDE

swerg,
так как текст программы не приведен, то Ваше замечание тоже не верно.
Например, если обработка данных от колбека делается в main.
Тогда очередной вызов колбека может изменить данные в таблице,
через которую они передаются  в функцию в майн.
Т е теоретически указанная выше ситуация возможна.
Но, повторюсь, из приведенного рассказа автора это явно не следует.

Из рассказа не очень понятна проблема.
из понятого, попробуйте использовать Coroutines

рекомендую всем сделать также, чтобы не трахаться с  версией 7

откатился на 6.17.3.6
подожду когда все приколы уберут из  версии 7.0.4...

Я отослал Вам дампы как Вы и просили.
Могу еще прислать.
скажите, что Вы в них нашли.
В чем причина крушения КВИКА?

Michael Bulychev,
1) А Вы полагаете, что аварийный вылет КВИКА на скрптах VMLua - это нормальная обработка ошибок ?
2) Как убрать линии на первом графике?
 

дело в том, что раньше в версии 6 я вообще последние полгода не получал аварийных сообщений
поставил 7.0.4.10 и за 2 дня 30 штук дампов.
просто уже задолбало.
--------------------------------
Уж лучше бы оставили как было. Нет функции скрипт молча ничего не сообщает и не вылетает.
Долго приходтся соображать почему ничего не рисует. Но найти ошибку все же проще, не надо каждый раз снова грузить КВИК.
-----------------------------------
При этом размещаю индикатор на графике.
все нормально. снимаю индикатор. ставлю его же снова - получаю дамп. снова загружаюсь. Ставлю тот же индикатор - все нормально.
Потом может и не вылететь при повторной установке а может и слететь.
все дампы отослал Вам как и просили в сообщении на почту support.

еще приколы.
"чтобы жизнь не была скучной"
данную версию поставил недавно.
но сразу обнаружилось ее неустойчивая работа.
теперь очень часто выскакивает аварийное завершение без внятной диагностики ошибки а лишь с предложением отправить дамп.
например,
1) можно один и тот же скрипт индикатора загрузить и снять 3 раза а на четвертый квик аварийно вылетает.
2) можно закрыть квик в конце дня. И после закрытия пытаться его загрузить снова.
Но он будет аварийно вылетать.
Лишь удаление файла info.log позволяет его загрузить повторно.
3) Ранее уже указывал, повотрю здесь "до кучи"
Теперь обращение в скрипте к несуществующей функции вызывает аварийное завершения КВИКА.

Обнаружил очередной прикол.
На картинке есть линии тренда - горизонтальные белые линии внизу. А в меню нет пункта "удалить все тренды в текущем окне"
Вопрос к знатокам:  Как удалить данные тренды?

В версии 7.0.4.10 есть такой прикол.
-------------------------------------
Если происходит обращение к функции, которой нет, т е по адресу nil,
то вместо сообщения типа "отсутствует функция XXX" ,
происходит аварийное завершение квика с предложением послать дамп разработчикам.
--------------------------------
В версиях 6 такая ситуация обходилась молчанием и без аварии.
Тоже было прикольно.
------------------------------
Предложение:
Реализовать нормальное обработки такой ошибки,
с сообщением об отсутствии функции
и без аварийного завершения КВИКА.
Спасибо

проще делать робота в индикаторе
ОnCalculate(NUMBER index)  - реагирует на каждый чих.

Поясняю.
В ТВС данные заезжают не срезами, а пакетами.
Разница между этими понятиями следующая.
срез делается по времени например через каждые 100 мс передаем некоторый набор параметров. Для сжатия трафика передаем лишь изменения.
При этом если какой-то параметр меняется раз в 10 мс, то в срезе будет каждое 10-е изменение параметра
--------------------------
При передаче пакетами, передаются все изменения параметров, но момент отправки этих значений определяется не временем, а количеством (размером пакета)
Например, размер пакета 10 значений (число взято произвольно) У нас совершается 1 сделка в 100 мс.
Пакет сформируется и будет отправлен через 1 секунду от первой сделки.
Еще пример, сделки совершаются через 1 мс, пакет будет сформирован и отправлен через 10 мс.
Последний пример не совсем верен для биржи. Есть информация, которую биржа рассылает всем по времени, но пакетами. Т е набирается пакет 500 мс и отсылается всем.  Т е получаем пакеты , т е без пропусков, но не ранее чем через установленный на бирже интервал.
------------------------
Примерно так.