Избранное трейдера KSN

по

Код робота на LUA для QUIK

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

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

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

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
  • обсудить на форуме:
  • Quik Lua

Краткий обзор Газпрома

Газпром МЕДИУМ:

1. на 15 мин — максимальная глубина АО
2. На 30 мин от Макс глубины, начинает зреть Сигнал.
3. На 60 мин — ждем подтверждения.

Сигнал ИНТРА +15, категория СИЛЬНЫЙ.
Краткий обзор Газпрома



ТС "Расширялка VM": торговая система для любого трейдера

    • 30 апреля 2017, 09:24
    • |
    • VladMih
  • Еще
Решил поделиться частичкой того, чем сам пользуюсь — одним из сигналов моей рабочей торговой системы. Пусть не самым крутым (не сразу ж отдавать ключи от депозита), но рабочим даже в руках новичков — ИМХО это главное.
Вы новичок и ищете что-нибудь простенькое для начала?
Вы давно в трейдинге, но успеха нет?
Вы уже зарабатываете, но хотите диверсифицировать трейдинг?
В конце концов просто понимаете, что лишний сигнал не повредит?
Тогда этот пост для вас.

Идеология ТС в том, чтобы забрать ложный размах на якобы попытке разворота тренда. Одни скажут, что это в таких местах «кукл разводит и снимает стопы у тех, кто стоит в тренде», другие еще что-нибудь придумают, но факт в том, что достаточно часто можно брать деньги с продаж после того, как якобы начинается разворот на север. Важно чтобы при правильной общей направленности и относительно небольшом возрасте тренда пришел хороший сигнал нужного индикатора. Тогда мы будем в профите… вместе с куклом. ))

Уже с месяц прошел как ТС «Расширялка» выложена мною на форуме.
Там все правила + рекомендации + трейдинг реалтайм и статистика по нескольким инструментам + открыта дополнительная ветка «вопрос/ответ». Всё наработанное сюда не перенести, поэтому приглашаю за подробностями тех, кого заинтересует это видео (часть пятничного вебинара):



ТС работает на любом таймфрейме (использую от м5 до н4) и, надеюсь, на любом инструменте. Понятно, что я не все проверял, есть надежда, что с проверкой на мамбе помогут смартлабовцы.

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

Подписывайтесь на мой Ютуб-канал. Киношками не завалю (уже несколько лет не делал видео), но идейку-другую иногда подкину.


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

Газпром - среднесрочная стратегия. Апрель

Продолжаю публиковать информацию о простой среднесрочной стратегии по Газпрому. Она основана на 4-часовых графиках и СС. Пересечение СС вниз — шорт, вверх — лонг. Также используются перезаходы-улучшения позиции на основе свечного дневного графика и пробития уровней поддержки-сопротивления. Вот графики ГП 4ч-1д:
Газпром - среднесрочная стратегия. Апрель
Сделки в этом году:
6.01 — шорт 152,81
6.01 — переворот в лонг 153,99
11.01 — закрытие лонга 156,82
12.01 — переоткрытие лонга на 1 руб. ниже по 155,82
17.01 — переворот в шорт 154,4
24.01 — закрытие шорта 150,01
27.01 — переоткрытие шорта на 1 руб. выше по 151,01
27.01 — переворот в лонг 152,9
30.01 — переворот в шорт 151,7

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

Неделька опционов на RI... почти американские горки.

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

Неделька опционов на RI... почти американские горки.

Что это было? Пример сегодняшней экспирации по RI...
Базовый Актив (БА) припал всего на чуть-чуть (правый график), а исходящий недельный опцион серии RI110000BP7D PUT совсем недавно можно было прикупить по 20 п (хотя усредняясь легче поймать хорошую цену), а зафиксить по 260 пунктов.

RR = 1  к 13… и такие возможности почти каждую неделю.

Однако действовать исключительно быстро, и даже стремительно!
Смельчаки рискнувшие на покупку, скажем, 10 000 руб., имели реальный шанс снять * 13 = 130 000 р., как с куста.

Почему об этом пишу?
Это и есть моя давно задекларированная торговая стратегия. Специально для неделек.

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

QPILE. Брент в рублях

    • 25 апреля 2017, 20:55
    • |
    • gardist
  • Еще
Изучаю QPILE. Первый скрипт- брент в рублях:
PORTFOLIO_EX BRENT_RUB;
DESCRIPTION Нефть в рублях;
CLIENTS_LIST  ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;

 
PROGRAM
         ' =========Пользовательские настройки=============
         INSTRUMENT_BRENT="BRK7" ' код инструмента BRENT
         INSTRUMENT_USDRUB="USD000UTSTOM" ' код инструмента USDRUB_TOM

         CLASSCODE_FUT="SPBFUT" ' код группы
         CLASSCODE_ETC="CETS" ' код группы

         PriceBrent = 0 + GET_PARAM(CLASSCODE_FUT,INSTRUMENT_BRENT, "OFFER")
         PriceUSDRUB = 0 + GET_PARAM(CLASSCODE_ETC,INSTRUMENT_USDRUB, "OFFER")

         BRENT_RUB=PriceBrent*PriceUSDRUB

         ' ===============СЕРВЕРНЫЕ ДАТА И ВРЕМЯ===============
         SERVERDATE=GET_INFO_PARAM("TRADEDATE")  ' дата сервера в формате DD.MM.YYYY
         SERVERTIME=GET_INFO_PARAM("SERVERTIME") ' время сервера в формате HH:MM:SS
         DATETIME(SERVERDATE,SERVERTIME) ' вызов функции даты-времени

         ' ===============ДАННЫЕ В ТАБЛИЦУ===============
         OUTPUT_BRENT=CREATE_MAP()
         OUTPUT_BRENT=SET_VALUE(OUTPUT_BRENT,"BRENT_RUB" , BRENT_RUB)
         OUTPUT_BRENT=SET_VALUE(OUTPUT_BRENT,"SERVERTIME" , SERVERTIME)
         OUTPUT_BRENT=SET_VALUE(OUTPUT_BRENT,"SERVERDATE" , SERVERDATE)
         OUTPUT_BRENT=SET_VALUE(OUTPUT_BRENT,"INSTRUMENT" , INSTRUMENT_BRENT)

         DELETE_ALL_ITEMS()

         ADD_ITEM(1,OUTPUT_BRENT)

         ' ===============ФУНКЦИИ===============
         ' ФУНКЦИЯ СЕРВЕРНЫХ ДАТЫ И ВРЕМЕНИ
         FUNC DATETIME(FSERVERDATE,FSERVERTIME)
                 CURYEAR=SUBSTR(FSERVERDATE,6,4) ' текущий год в текстовом формате
                 CURMONTH=SUBSTR(FSERVERDATE,3,2) ' текущий месяц в текстовом формате
                 CURDAY=SUBSTR(FSERVERDATE,0,2) ' текущий день в текстовом формате
                 CURDATE=CURYEAR & CURMONTH & CURDAY ' дата в текстовом формате
                
                 CURHOUR=SUBSTR(FSERVERTIME,0,2) ' текущие часы в текстовом формате
                 CURMIN=SUBSTR(FSERVERTIME,3,2) ' текущие минуты в текстовом формате
                 CURSEC=SUBSTR(FSERVERTIME,6,2) ' текущие секунды в текстовом формате
                 CURTIME=CURHOUR & CURMIN & CURSEC ' время в текстовом формате
         END FUNC

END_PROGRAM

PARAMETER SERVERDATE;
PARAMETER_TITLE Дата;
PARAMETER_DESCRIPTION Дата;
PARAMETER_TYPE STRING(10);
END
 
PARAMETER SERVERTIME;
PARAMETER_TITLE Время;
PARAMETER_DESCRIPTION Время;
PARAMETER_TYPE STRING(10);
END

PARAMETER BRENT_RUB;
PARAMETER_TITLE Нефть (руб.);
PARAMETER_DESCRIPTION Нефть (руб.);
PARAMETER_TYPE STRING(10);
END

END_PORTFOLIO_EX

ссылка на скрипт

Подборка годноты vol.3

Подборка годноты vol.3

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

1. http://radio.garden/live/  — радио со всего мира в виде интерактивной карты. Можно послушать под что угарают в любом уголке планеты. От себя рекомендую каналы в Амстердаме и Сеуле.

2. https://www.ventusky.com/ — если вы из Москвы, ты вы, наверно, уже абалдели от поехавшей погоды в столице. Для тех кто не может больше верить гисметео, этот сервис в реальном времени покажет движение всех циклонов и надвигающегося шиздеца.

3. https://www.logojoy.com/ — если рынок оставил вас окончательно без штанов, то откупоривайте заначку и открывайте шаурмичную. А через этот сервис-конструктор можете сами себе бесплатно скомстралить хипстерский логотип.

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

Задекларировать доход или зачесть убытки: как правильно “читать” готовую декларацию 3-НДФЛ?

Добрый день, сегодня я решила повесить статью о том, как понять готовую декларацию 3-НДФЛ, если вам ее делали другие специалисты, а не вы сами. Бывает очень сложно разобраться и всем хочется проверить, а правильно ли внесены данные…


Напомню, что для того, чтобы получить зачет убытка или показать доходы за тот или иной год, если они у вас были получены за пределами нашей страны, обязательно нужно заполнить декларацию 3-НДФЛ. Сделать это можно самостоятельно, а можно попросить специалиста. Но и в том, и в другом случае могут возникнуть вопросы, когда человек видит бумажный готовый вариант. Я постаралась выделить самые основные вопросы, моменты, на которые следует обратить внимание.


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



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

Робот ContanGO!

    • 10 марта 2017, 16:35
    • |
    • Albus
  • Еще
Между фьючерсом и базовым активом всегда есть разница. Если фьючерс дороже базового актива — это контанго, если фьючерс дешевле базового актива — это бэквордация. На основе этих расхождений можно строить безрисковые арбитражные стратегии (продать дорогой фьючерс, купить дешёвую акцию).  Чем ближе экспирация, тем меньше разница между фьючерсом и базовым активом. День за днём контанго уменьшается. Не расхваливаю подобные стратегии, просто напоминаю, что они есть.
Я написал простенького робота, который считает контанго и бэквордацию между фьючерсом и акцией.
Робот ContanGO!
Значения полей:
Share — акция, базовый актив
Fut — фьючерс на эту акцию
Expire_Days - сколько дней до экспирации
spread Future-Share — размер контанго или бэквордации, то есть разница между ценой фьючерса и базового актива

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

....все тэги
UPDONW
Новый дизайн