Трудно не заниматься улучшением торгуемого подхода, хотя надо от этого отходить потихоньку:)

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

Отбросив лишнее, остались у меня пять спекулятивных систем: RI-long, RI-short, SR-long, Si-long, Eu-long. Торгуются они примерно с равными весами. Может возможно что-то лучшее, чем паритет по весам (логический паритет по риску в моем понимании)?

Сделал сеточку весов от 0 до 1 с шагом 0.25. Итого получилось 3124 портфеля:

























RET — среднегодовая доходность за >10 лет.
MINDD — наихудшая просадка за >10 лет.
MEANDD — среднедневная просадка за > 10 лет.
DDD — ср.кв.откл. подневных просадок за > 10 лет.

( Читать дальше )

Читаю… читаю любимый смартлаб… и вдруг бац… вторая смена… рекламка внизу:




















Почувствовал себя некомфортно… нажал F5:


( Читать дальше )

В двух словах: робот анализирует спот, выставляет лимитные и стоп-лимитные заявки по фьючерсу. Делает пересчет сигналов по выбранному тайм-фрейму, снятие выставленных заявок, запись в файл текущего состояния, ведение логов, сообщения, запрос текущей позиции и пр. Из робота удалена алгоритмика вычисления сигнала и в текущем виде скрипт будет иметь сигнал на покупку на каждом баре.

Предназначается для новичков в алготрейдинге, что-то типа болванки.

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

require"QL"

log = "sbrf.log"
seccode = "SRM6"
lots_in_trade = 80
accnt = ""
better = -5
chart = "sberbankxxx"
is_run = true
prev_datetime = {}
len = 100
basis = 9
k_bal = {0,1,2,3}
sell = false
buy = false
id = 0
first = true

function trade_signal(shift)
        number_of_candles = getNumCandles(chart)
        bars_temp,res,legend = getCandlesByIndex(chart,0,number_of_candles-2*len-shift,2*len)
        bars={}

        i=len
        j=2*len
        while i>=1 do
                if bars_temp[j-1].datetime.hour>=10 then
                        sk=true
                        if bars_temp[j-1].datetime.hour==18 and bars_temp[j-1].datetime.min==45 then
                                sk=false
                        end
                        if sk then
                                bars[i]=bars_temp[j-1]
                                i=i-1
                        end
                end
                j=j-1
        end

        t = len+1

        do_sell = false
        do_buy = true

        value = 0
        if do_sell then value = 1 end
        if do_buy then value = -1 end
        toLog(log,"value="..value.." on candle: "..bars[len].datetime.year.."-"..bars[len].datetime.month.."-"..bars[len].datetime.day.." "..bars[len].datetime.hour..":"..bars[len].datetime.min.."   O="..bars[len].open.." H="..bars[len].high.." L="..bars[len].low.." C="..bars[len].close.." V="..bars[len].volume)
        return value
end

function mysplit(inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={} ; i=1
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                t[i] = str
                i = i + 1
        end
        return t
end

function OnInit(path)
        log=getScriptPath()..'\\'..log
        toLog(log,"==========OnInit: START")
        toLog(log,"==========OnInit: FINISH")
end

function OnStop()
        is_run = false
        toLog(log,"==========OnStop: script finished manually")
end

function CheckBit(flags, bit)
   -- Проверяет, что переданные аргументы являются числами
   if type(flags) ~= "number" then error("Ошибка!!! Checkbit: 1-й аргумент не число!"); end;
   if type(bit) ~= "number" then error("Ошибка!!! Checkbit: 2-й аргумент не число!"); end;
   local RevBitsStr  = ""; -- Перевернутое (задом наперед) строковое представление двоичного представления переданного десятичного числа (flags)
   local Fmod = 0; -- Остаток от деления
   local Go = true; -- Флаг работы цикла
   while Go do
      Fmod = math.fmod(flags, 2); -- Остаток от деления
      flags = math.floor(flags/2); -- Оставляет для следующей итерации цикла только целую часть от деления
      RevBitsStr = RevBitsStr ..tostring(Fmod); -- Добавляет справа остаток от деления
      if flags == 0 then Go = false; end; -- Если был последний бит, завершает цикл
   end;
   -- Возвращает значение бита
   local Result = RevBitsStr :sub(bit+1,bit+1);
   if Result == "0" then return 0;
   elseif Result == "1" then return 1;
   else return nil;
   end;
end;

function killorders(ccode,scode)
    for i=0,getNumberOf("orders")-1,1 do
        local t=getItem("orders", i)
        if t ~= nil and type(t) == "table" then
            if( t.seccode == scode and CheckBit(t.flags, 0) == 1) then
                local transaction={
                    ["TRANS_ID"]=tostring(math.random(2000000000)),
                    ["ACTION"]="KILL_ORDER",
                    ["CLASSCODE"]=ccode,
                    ["SECCODE"]=scode,
                                        ["ACCOUNT"] = accnt,
                    ["ORDER_KEY"]=tostring(t.ordernum),
                }
                                res=sendTransaction(transaction)
            end
        end
    end
end

function killstoporders(ccode,scode)
    for i=0,getNumberOf("stop_orders")-1,1 do
        local t=getItem("stop_orders", i)
        if t ~= nil and type(t) == "table" then
            if( t.seccode == scode and CheckBit(t.flags, 0) == 1) then
                local transaction={
                    ["TRANS_ID"]=tostring(math.random(2000000000)),
                    ["ACTION"]="KILL_STOP_ORDER",
                    ["CLASSCODE"]=ccode,
                    ["SECCODE"]=scode,
                                        ["ACCOUNT"] = accnt,
                    ["STOP_ORDER_KEY"]=tostring(t.ordernum),
                }
                                res=sendTransaction(transaction)
            end
        end
    end
end


function main()
        toLog(log,"==========main: START")
        while is_run do
                if isConnected() == 1 then
                        ss = getInfoParam("SERVERTIME")
                        if string.len(ss) >= 5 then
                                hh = mysplit(ss,":")
                                str=hh[1]..hh[2]
                                h = tonumber(str)
                                if (h>=1000 and h<1400) or (h>=1405 and h<1845) or (h>=1905 and h<2350) then
                                        if first then
                                                for ti = 50,2,-1 do     trade_signal(ti) end
                                                if buy and not sell then message(seccode.." Current state: green and buy",1) end
                                                if sell and not buy then message(seccode.." Current state: red and sell",1) end
                                                if buy and sell then message(seccode.." ERROR: green and red",1) end
                                                if not buy and not sell then message(seccode.." WARNING: nothing",1) end
                                                first = false
                                        end
                                        prev_candle = getPrevCandle(chart,0)
                                        if not isEqual(prev_candle.datetime,prev_datetime) then
                                                current_value = trade_signal(1)

                                                if current_value ~= 0 then
                                                        optn = "B"
                                                        if current_value==1 then optn = "S" end
                                                        curvol=0
                                                        no=getNumberOf("FUTURES_CLIENT_HOLDING")
                                                        if no>0 then
                                                                for i=0,no-1,1 do
                                                                        im=getItem("FUTURES_CLIENT_HOLDING", i)
                                                                        if im.sec_code==seccode then
                                                                        curvol=im.totalnet
                                                                        end
                                                                end
                                                        end
                                                        trvol = -current_value*lots_in_trade-curvol
                                                        if trvol ~= 0 then
                                                                killorders("SPBFUT",seccode)
                                                                killstoporders("SPBFUT",seccode)
                                                                f = io.open(getScriptPath().."\\sbrf2_pos.txt","r")
                                                                sbrf2_pos=f:read("*n")
                                                                f:close()
                                                                f = io.open(getScriptPath().."\\sbrf3_pos.txt","r")
                                                                sbrf3_pos=f:read("*n")
                                                                f:close()
                                                                pr,n,l = getCandlesByIndex ("futsber", 0, getNumCandles("futsber")-1, 1)
                                                                local trans =
                                                                {
                                                                        ["ACTION"] = "NEW_ORDER",
                                                                        ["CLASSCODE"] = "SPBFUT",
                                                                        ["SECCODE"] = seccode,
                                                                        ["ACCOUNT"] = accnt,
                                                                        ["OPERATION"] = optn,
                                                                        ["PRICE"] = toPrice(seccode,pr[0].close+current_value*better),
                                                                        ["QUANTITY"] = tostring(math.abs(curvol-sbrf2_pos-sbrf3_pos)),
                                                                        ["TRANS_ID"] = tostring(getTradeDate().month*100+getTradeDate().day+id)
                                                                }
                                                                id = id+1
                                                                --res = sendTransaction(trans)
                                                                message(seccode.." Send : " .. res, 2)
                                                                toLog(log,"Send: ".. res)
                                                                for btr=0,200,5 do
                                                                        local trans =
                                                                        {
                                                                                ["ACTION"] = "NEW_STOP_ORDER",
                                                                                ["CLASSCODE"] = "SPBFUT",
                                                                                ["SECCODE"] = seccode,
                                                                                ["ACCOUNT"] = accnt,
                                                                                ["OPERATION"] = optn,
                                                                                ["PRICE"] = toPrice(seccode,pr[0].close-current_value*btr),
                                                                                ["STOPPRICE"] = toPrice(seccode,pr[0].close-current_value*(btr+better)),
                                                                                ["QUANTITY"] = tostring(6),
                                                                                ["TRANS_ID"] = tostring(getTradeDate().month*100+getTradeDate().day+id),
                                                                                ["EXPIRY_DATE"] = "GTC"
                                                                        }
                                                                        id = id+1
                                                                        --res = sendTransaction(trans)
                                                                        message(seccode.." Send : " .. res, 2)
                                                                        toLog(log,"Send: ".. res)
                                                                end
                                                                if current_value == 1 then
                                                                        message(seccode..' RED: buy->sell',1)
                                                                        toLog(log,"RED signal")
                                                                else
                                                                        message(seccode..' GREEN: sell->buy',1)
                                                                        toLog(log,"GREEN signal")
                                                                end
                                                        else
                                                                if current_value == 1 then
                                                                        message(seccode..' RED: buy->sell',1)
                                                                        toLog(log,"RED signal, but nothing to do")
                                                                else
                                                                        message(seccode..' GREEN: sell->buy',1)
                                                                        toLog(log,"GREEN signal, but nothing to do")
                                                                end
                                                        end
                                                else
                                                        if buy and not sell then toLog(log,"Nothing to do. Current state: green and buy",1) end
                                                        if sell and not buy then toLog(log,"Nothing to do. Current state: red and sell",1) end
                                                        if buy and sell then toLog(log,"Nothing to do. ERROR: green and red",1) end
                                                        if not buy and not sell then toLog(log,"Nothing to do. WARNING: nothing",1) end
                                                end
                                                prev_datetime = prev_candle.datetime
                                        end
                                end
                        end
                end
                sleep(5*1000)
        end
        toLog(log,"==========main: FINISH")
end

По деньгам на каких-то счетах небольшой плюс, где-то около нуля.

По всяким технологичным штукам. Вёл эксперимент по сравнению, кто лучше торгует. Через второй тслаб у меня три брокера: экзанте, финам, айтиинвест. Торгуется одно и то же. В 90% случаев первым заявки ставит экзанте (фикс). В 10% случаев его опережает финам (высокоскоростной транзак). Заявки через айтиинвест (смартком) ну просто всегда ставятся последними и получают самую худшую цену сделки (я бью по стакану лимиткой со смещением в два-три шага цены).

Из любопытного обнаружил в экзанте возможность торговать биткойном через их фонд, но там только для долгосрочных лонгов, ибо условия конские. Также кому любопытно, вот тут можно взять разные исторические (тиковые) данные по криптовалютам.

С одной стороны, жаль, что нет движений а-ля 2014 или 2015, тогда было так легко делать по 10-20% за несколько дней при втором-третьем плече. С другой стороны, полезно, что подряд пошел второй год тухлого рынка. Я разбавил наконец свой трендовый подход контртрендом.

( Читать дальше )

На текущий момент наблюдаю два устойчивых сценария падения второго тслаба:
1. Переименование скрипта, на основе которого создан, но остановлен агент.
2. Нажатие кнопки «старт» в оптимизации.
Второй сценарий актуализировался после последнего обновления.
Первый сценарий наблюдается очень давно.

Коллеги!
Подскажите, какие торговые терминалы (платформы) брокеров, дающих доступ на moex, позволяют осуществлять ввод заявок из текстовых файлов?
Из того, чем пользуюсь я: квик, смартикс.
Хочется расширить кругозор и, возможно, подключиться к новым брокерам.

1. Доделал лонговый алгопортфель на наших акциях. Запустил в стабильную торговлю на всех счетах. По расчетам получилось неплохо. Посмотрим, как это будет в реальности. Основная проблема это проскальзывание. Бумаг мало. Максимум можно наковырять 20 бумаг, чтобы их ликвидности хватало на торговлю с частотой удержания лонговой позиции 1-2 дня. От варианта с удержанием в 2-3 недели и дольше отказался. Для подобных расчетов рекомендую закладывать издержки в 0,15% на сделку (почти соответствует реальности в среднем по всему пулу бумаг).

2. Немного погрузился в криптовалюты (любопытство взяло верх) с точки зрения алгоспекуляций. Работают самые простые пробойные схемы и скольязищие средние. Разумно закладывать 1% издержек на сделку, чтобы получать хоть сколько-то представительные результаты.

3. Во фьючерсах отказался от SR (может не навсегда, но надолго). Слишком уж много суеты в этом фьюче, чтобы туда засунуть большой объем. В срочном рынке ограничился только двумя фьючерсами: RI, Si.

( Читать дальше )

Для интересующихся, как могла бы выглядеть торговля по самой простой системе биткойном с 2012 года по настоящее время:
















































Верхний график в долларах на один биткойн, нижний — в процентах.
Учтены издержки в 1% на каждую сделку. Сделки только лонг.

Там, конечно, в теле письма всё прилично, про медицину и т.д.

Но всё же это забавно прочитать в появившемся уведомлении:
«Инвестируйте в сферу выращивания марихуаны с EXANTE».

1. Экзанте. Непонятная штуковина. Через тслаб по-прежнему торгует быстрее, чем финам через тслаб, хотя как прога при экзантовском коннекторе ворочается медленнее. Непонятность этой штуковины в том, что данные иногда какие-то странноватые… то бывает в свече какая-нибудь цена выбивается из шага цены… то еще какая-нибудь причуда… Продолжаю наблюдать, но смотрю на них со всё большей опаской.

2. Второй тслаб. Попробовал его потыкать снова в реальных торгах через смартком. О, чудо! Спустя полгода второй тслаб не падает каждые полчаса. О, чудо! Он ни разу не упал, пока я его тыкаю в реальность вот уже вторую неделю. Зато стал падать первый тслаб под HFTransaq))))

3. От тслаба прям сильно хотел до лета отказаться, но пока еще не откажусь, попокупаю у них еще набор разных ключей.

4. Еще одно чудо! Стокшарповцы написали документацию к дизайнеру, который бета и который бесплатный. У платного тслаба нет такой документации. Ребята из тслаба, ну хотя бы такого уровня сделайте документацию… Иначе через какое-то время они вас «сделают».

( Читать дальше )