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

Страницы: 1
RSS
Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно
 
Добрый день, прошу помочь разобраться в вопросе работы отладчика. В теме https://forum.quik.ru/forum9/topic3269/ был поднят вопрос о том, как заставить алгоритм совершать только одну сделку на свечке и новую сделку совершать только при появлении новой свечи. Не уверен, что правильно понял вариант который был предложен в теме, но у меня получился примерно такой алгоритм

NEW_GLOBAL ("CHETCHIKCIKLOV",0)
NEW_GLOBAL ("FLAGCDELOK",0)
NEW_GLOBAL ("CHETCHIKCIKLOVMAP",0)
NEW_GLOBAL ("CHETCHIKCIKLOVMAP1",0)
NEW_GLOBAL ("CHETCHIKCIKLOVMAP2",0)


IF (USL1=1 AND (FLAGCDELOK +0 )= 0 AND CHETCHIKCIKLOV > 2)' USL1 принимает значение 1 когда имеются 2 подряд бычьи свечи
алгоритм входа в позицию
FLAGCDELOK = 1
END IF


IF CHETCHIKCIKLOV=0'    цикл нужен для того, чтобы данные в CHETCHIKCIKLOVMAP не обнулялись при каждом проходе программы

CHETCHIKCIKLOVMAP=CREATE_COLLECTION()
END IF
           
CHETCHIKCIKLOVMAP=INSERT_COLLECTION_ITEM(CHETCHIKCIKLOVMAP,0 , OPENMAP1)'     здесь  OPENMAP1 это цена открытия предпоследней (последней завершенной) свечи    


CHETCHIKCIKLOVMAPTAB = GET_COLLECTION_COUNT (CHETCHIKCIKLOVMAP)
CHETCHIKCIKLOVMAP1 = GET_COLLECTION_ITEM(CHETCHIKCIKLOVMAP,0) +0
CHETCHIKCIKLOVMAP2 = GET_COLLECTION_ITEM(CHETCHIKCIKLOVMAP,(0 +1))+0' здесь создается коллекция, куда по мере работы всего алгоритма записываются цены открытия последней завершенной свечи на момент времени исполнения данных команд, как правило алгоритм отрабатывается гораздо быстрее, чем время жизни одной 15-минутной свечки, и поэтому чаще всего будет, что CHETCHIKCIKLOVMAP1 =CHETCHIKCIKLOVMAP2. Но в момент появления новой свечи появляется новое значение OPENMAP1 и следовательно алгоритм может их сравнить и понять, что появилась новая свеча

IF CHETCHIKCIKLOVMAP1 != CHETCHIKCIKLOVMAP2
FLAGCDELOK = 0
END IF' собственно, здесь это проверятся, FLAGCDELOK = 0 давая возможность циклу IF совершать новую сделку

CHETCHIKCIKLOV = CHETCHIKCIKLOV + 1' увеличивается счетчик количества проходов всей программы в течении дня, условие CHETCHIKCIKLOV > 2 необходимо для того, чтобы в CHETCHIKCIKLOVMAP гарантировано попали минимум 2 значения для их сравнения

И вот в CHETCHIKCIKLOV проблема. Дело в том, что при ручном отрабатывание всей программы в режиме отладчика все идет хорошо, CHETCHIKCIKLOV, как ему и положено увеличивается с каждым проходом на 1, достигая 3 исполняется условие входа. Но работая в автономном режиме ничего не происходит, CHETCHIKCIKLOV = 0 даже после 20 минут работы программы, хотя должен быть равен, например 50, включая снова режим отладчика все глобальные переменные равны 0, при этом если убрать условие CHETCHIKCIKLOV > 2 все работает. Избавиться совсем от  CHETCHIKCIKLOV не получиться, поскольку, если создавать CHETCHIKCIKLOVMAP=CREATE_COLLECTION() вне цикла IF CHETCHIKCIKLOV=0, при каждом проходе программы CHETCHIKCIKLOVMAP будет создаваться снова, удаляя свой пред. вариант, вместе с всего одним значением CHETCHIKCIKLOVMAP1, а CHETCHIKCIKLOVMAP2 вообще никогда не успеет заполняться, и, следовательно, IF CHETCHIKCIKLOVMAP1 != CHETCHIKCIKLOVMAP2 будет выполняться ВСЕГДА, в независимости от кол-во сделок на свече. Прошу помочь мне разобраться, почему так происходит, возможно я не правильно понимаю сам процессы отработки скрипта в qpile
 
Артем,
Здравствуйте,
Для анализа нужен полный код портфеля.
QPILE признан нами устаревшим и мы уже давно его не развиваем. Так что если Вы только начинаете программировать в QUIK лучше сразу начинать с QLUA
Документация лежит в отдельном файле QLUA.chm в папке с терминалом.
 
Добрый день, Sergey. не совсем понял, что вы подразумеваете под полным кодом портфеля. Вы имеете в виду предоставить весь алгоритм скрипта?
 
Артем,

Под полным кодом понимается весь текст скрипта, а не его часть.
 
PORTFOLIO_EX client_value;
DESCRIPTION клиентский объём;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;
USE_CASE_SENSITIVE_CONSTANTS
PROGRAM
 

' =========ПОЛЬЗОВАТЕЛЬСКИЕ НАСТРОЙКИ=============
   INSTRUMENT="BRH8" ' код инструмента
   CLASSCODE="SPBFUT" ' код группы
   NUMBER=2 ' количество забираемых баров с графика
   INTERVAL=15 ' таймфрейм на открытом графике в минутах (0 < INTERVAL < 60)
   LOT=1 ' лот в сделке
   SEC=10 ' бумаг в лоте
   ACCOUNT="SPBFUT00494" ' здесь вводится номер Вашего счёта на ММВБ
   CLIENTCODE="" ' здесь вводится Ваш код клиента

  ' "SPBFUT007EQ"10222
' ====================ПЕРЕМЕННЫЕ==================
   ACTION="" ' стираем тип транзакции
   HH = 0 ' обнуляем максимум за
   LL = 10000000 '  обнуляем минимум за
   
   ' ===============ГЛОБАЛЬНЫЕ ПЕРЕМЕННЫЕ===============
NEW_GLOBAL("LPRICEB",0)    
NEW_GLOBAL("LPRICEL",0)

NEW_GLOBAL("LPRICE",0) ' последняя (текущая) цена
   NEW_GLOBAL("BARCOUNT",0) ' счётчик баров
   NEW_GLOBAL("ORDERCOUNT",0) ' счётчик используется для формирования ID заявок
   NEW_GLOBAL ("L_POSA",0) ' флаг наличия длинной позиции
   NEW_GLOBAL ("S_POSA",0) ' флаг наличия короткой позиции
   NEW_GLOBAL ("L_POSASTOP",0) ' флаг наличия длинной STOPпозиции
   NEW_GLOBAL ("S_POSASTOP",0) ' флаг наличия короткой STOPпозиции
   NEW_GLOBAL ("PRICESTOPORDER",0) 'Цена последней заявки –базовая цена для расчета стоп-ордера
   NEW_GLOBAL ("POSITION",0)' счетчик позиций
   NEW_GLOBAL ("FLAGSTOPORDER",0) ' Флаг стоп-ордера    
   NEW_GLOBAL ("TRANS_ID",0) 'Идентификатор транзакции
   NEW_GLOBAL ("NEW_ORDER",0) 'СЧЕТЧИК ОРДЕРОВ
NEW_GLOBAL ("NEW_ORDER",0) 'СЧЕТЧИК ОРДЕРОВ
NEW_GLOBAL ("QUANTITY",0)
NEW_GLOBAL ("STOPNUMBER",0)
NEW_GLOBAL ("CHIST",0)
NEW_GLOBAL ("KOLSTOP",0)
NEW_GLOBAL ("STATUS",0)
NEW_GLOBAL ("SECCODE",0)

NEW_GLOBAL ("FLAGSDELMAP1",0)
NEW_GLOBAL ("FLAGSDELMAP2",0)
NEW_GLOBAL ("PREDFLAGSDELMAP1",0)
NEW_GLOBAL ("PREDFLAGSDELMAP2",0)


NEW_GLOBAL ("PREDFLAGSDEL",0)
NEW_GLOBAL ("FLAGSDEL",0)
NEW_GLOBAL ("FLAGSDELOBCH",0)
' NEW_GLOBAL ("TRID",0)

NEW_GLOBAL ("CHETCHIKCIKLOV",0)

NEW_GLOBAL ("CHETCHIKCIKLOVMAP",0)
NEW_GLOBAL ("FLAGCDELOK",0)
NEW_GLOBAL ("CHETCHIKCIKLOVMAP1",0)
NEW_GLOBAL ("CHETCHIKCIKLOVMAP2",0)

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


' ===============ФУНКЦИИ ТРАНЗАКЦИЙ===============
FOR NRRC FROM 0 TO GET_NUMBER_OF("ORDERS")
           
TABC = GET_ITEM ("TRADES", NRRC)
OPERDEL = GET_VALUE(GET_ITEM ("TRADES", NRRC), "OPERATION")
PRICEDEL = GET_VALUE(GET_ITEM ("TRADES", NRRC), "PRICE") + 0
IF OPERDEL = "SELL"
LPRICEL = PRICEDEL + 0.10
END IF
IF OPERDEL = "BUY"
LPRICEB = PRICEDEL - 0.10
END IF
END FOR

' ФУНКЦИЯ ОТПРАВКИ ТРАНЗАКЦИЙ
FUNC ORDER(PRICE,LOT,DIRECTION,TYPE,TRANS_ID)
       NEW_GLOBAL("TRANS_PARAMS", "")
       NEW_GLOBAL("TRANS_RESULT", "")
       TRANS_ID = TRANS_ID + 1
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACCOUNT", ACCOUNT) ' наш счёт на ММВБ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLIENT_CODE", CLIENTCODE) ' клиентский код
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLASSCODE", "SPBFUT") ' код класса
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "SECCODE", INSTRUMENT) ' инструмент
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACTION", ACTION) ' вид заявки (обычная, стоп, условная)
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "PRICE", LPRICE) ' цена
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "QUANTITY", LOT) ' лот
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "OPERATION", DIRECTION) ' направление        
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TYPE", "M") ' тип заявки (лимитированная или "по рынку")
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TRANS_ID", TRID) ' ID транзакции
       TRANS_RESULT = SEND_TRANSACTION (3000, TRANS_PARAMS) ' отправляем заявку в систему
       ORDERCOUNT=ORDERCOUNT+1 ' увеличили счётчик заявок на единицу
   END FUNC






' ФУНКЦИЯ ОТПРАВКИ СТОП ТРАНЗАКЦИЙ
FUNC STOPORDERS(PRICE,STOPPRICE, LOT,DIRECTION,TYPE,TRANS_ID)
       NEW_GLOBAL("TRANS_PARAMS", "")
       NEW_GLOBAL("TRANS_RESULT", "")
       TRANS_ID = TRANS_ID + 1
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACCOUNT", ACCOUNT) ' наш счёт на ММВБ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLIENT_CODE", CLIENTCODE) ' клиентский код
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLASSCODE", "SPBFUT") ' код класса
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "SECCODE", INSTRUMENT) ' инструмент
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACTION", ACTION) ' вид заявки (обычная, стоп, условная)
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "STOPORDER_KIND",  "SIMPLE_STOPORDER")
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "EXPIRY_DATE",  "GTC")        
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "STOPPRICE",  LPRICEB) 'ЦЕНА УСЛОВИЯ ЗАЯВКИ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "PRICE",LPRICEB  ) ' цена ИСПОЛНЕНИЯ ЗАЯВКИ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "QUANTITY", LOT) ' лот
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "OPERATION", DIRECTION) ' направление        
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TYPE", "L") ' тип заявки (лимитированная или "по рынку")
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TRANS_ID", TRID) ' ID транзакции
       TRANS_RESULT = SEND_TRANSACTION (30, TRANS_PARAMS) ' отправляем заявку в систему
       ORDERCOUNT=ORDERCOUNT+1 ' увеличили счётчик заявок на единицу
END FUNC




FUNC STOPORDERL(PRICE,STOPPRICE, LOT,DIRECTION,TYPE,TRANS_ID)
       NEW_GLOBAL("TRANS_PARAMS", "")
       NEW_GLOBAL("TRANS_RESULT", "")
       TRANS_ID = TRANS_ID + 1
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACCOUNT", ACCOUNT) ' наш счёт на ММВБ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLIENT_CODE", CLIENTCODE) ' клиентский код
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLASSCODE", "SPBFUT") ' код класса
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "SECCODE", INSTRUMENT) ' инструмент
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACTION", ACTION) ' вид заявки (обычная, стоп, условная)
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "STOPORDER_KIND",  "SIMPLE_STOPORDER")
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "EXPIRY_DATE",  "GTC")        
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "STOPPRICE",  LPRICEL) 'ЦЕНА УСЛОВИЯ ЗАЯВКИ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "PRICE", LPRICEL ) ' цена ИСПОЛНЕНИЯ ЗАЯВКИ
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "QUANTITY", LOT) ' лот
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "OPERATION", DIRECTION) ' направление        
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TYPE", "L") ' тип заявки (лимитированная или "по рынку")
       TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TRANS_ID", TRID) ' ID транзакции
       TRANS_RESULT = SEND_TRANSACTION (30, TRANS_PARAMS) ' отправляем заявку в систему
       ORDERCOUNT=ORDERCOUNT+1 ' увеличили счётчик заявок на единицу
END FUNC







' ФУНКЦИЯ СНЯТИЯ СТОП ТРАНЗАКЦИЙ
FUNC KILL_STOPORDER(STOP_ORDER_KEY, CLASSCODE, SECCODE)
TRANS_PARAMS = CREATE_MAP()
   TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "TRANS_ID", TRID)
   TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "CLASSCODE", "SPBFUT")
   TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "SECCODE", INSTRUMENT)
   TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACTION", "KILL_STOP_ORDER")
   TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "ACCOUNT", ACCOUNT)
   TRANS_PARAMS = SET_VALUE (TRANS_PARAMS, "STOP_ORDER_KEY", STOPNUMBER)
   TRANS_RESULT = SEND_TRANSACTION (30, TRANS_PARAMS)
END FUNC


LOSs =CREATE_COLLECTION()
' ФУНКЦИЯ СТОП
FUNC STOP_LOS("SPBFUT", INSTRUMENT)

FOR P FROM 1 TO GET_NUMBER_OF("STOP_ORDERS")
KOLSTOP = GET_VALUE (GET_ITEM ("STOP_ORDERS",P), QUANTITY) +0

IF KOLSTOP = 0
'STOPNUMBER = GET_VALUE (GET_ITEM ("STOP_ORDERS",P), NUMBER) +0
 'STATUS=GET_VALUE(GET_ITEM("STOP_ORDERS",P), STATUS)
MASSTATUS=GET_ITEM("STOP_ORDERS",P)
STATUSS=GET_VALUE(MASSTATUS, "STATUS")
STOPNUMBER=GET_VALUE(MASSTATUS, "NUMBER") +0
       IF  KOLSTOP = 0  AND STATUSS = "ACTIVE"
       
SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT


KILL_STOPORDER(STOPNUMBER, CLASSCODE, SECCODE)
       

END IF

         

END IF




END FOR
END FUNC






' ===============СЕРВЕРНЫЕ ДАТА И ВРЕМЯ===============
  SERVERDATE=GET_INFO_PARAM("TRADEDATE")  ' датасерверавформатеDD.MM.YYYY
  SERVERTIME=GET_INFO_PARAM("SERVERTIME") ' времясерверавформатеHH:MM:SS
 
DATETIME (SERVERDATE,SERVERTIME) ' вызовфункциидаты-времени
 
  CURTIME=0+CURTIME ' перевод времени в число
 
  'IF (CURTIME > 100001 AND CURTIME < 190000) OR (CURTIME > 191501 AND CURTIME < 235959)  ' времявнутриТС
           OHLC(NUMBER) ' получаем коллекцию BARLIST с барами
           BARCOUNT=GET_COLLECTION_COUNT(BARLIST) 'считаемколичествобароввколлекцииBARLIST  

           ' ===============ДАННЫЕВТАБЛИЦУ===============
                    DELETE_ALL_ITEMS()
                    OUTPUT=CREATE_MAP()
                            OUTPUT=SET_VALUE(OUTPUT,"SERVERDATE" , SERVERDATE)
                            OUTPUT=SET_VALUE(OUTPUT,"SERVERTIME" , SERVERTIME)
                            OUTPUT=SET_VALUE(OUTPUT,"INSTRUMENT" , INSTRUMENT)
                            OUTPUT=SET_VALUE(OUTPUT,"BARCOUNT" , BARCOUNT)
OUTPUT=SET_VALUE(OUTPUT,"BARLIST" , BARLIST)
                    ADD_ITEM(1,OUTPUT)
 
 ' END IF

  ' ===============ФУНКЦИИ===============
  ' ФУНКЦИЯ СЕРВЕРНЫХ ДАТЫ И ВРЕМЕНИ
  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

  ' ФУНКЦИЯ ПЕРЕВОДА ДАТЫ В ТЕКСТОВОЙ ФОРМАТ
  FUNC CURDATE (FCURYEAR,FCURMONTH,FCURDAY)
           IF (LEN(FCURMONTH) < 2)
                    CURMONTH = "0" & FCURMONTH
           END IF
           IF (LEN(FCURDAY) < 2)
                   CURDAY = "0" & FCURDAY
           END IF
           CURDATE = CURYEAR & CURMONTH & CURDAY
  END FUNC

  ' ФУНКЦИЯ ПЕРЕВОДА ВРЕМЕНИ В ТЕКСТОВОЙ ФОРМАТ
  FUNC CURTIME(FCURHOUR,FCURMIN,FCURSEC)
           IF (LEN(FCURHOUR) < 2)
                    CURHOUR = "0" & FCURHOUR
           END IF
           IF (LEN(FCURMIN) < 2)
                    CURMIN = "0" & FCURMIN
           END IF
           CURTIME = CURHOUR & CURMIN & "00"
  END FUNC
 
           ' ФУНКЦИЯ OHLC (забора N последних баров)
  FUNC OHLC(NUMBER)
           IF INTERVAL<0 or INTERVAL>60
                    MESSAGE("INTERVAL вне допустимого диапазона",1)
                    RETURN
           END IF
           SERVERDATE=GET_INFO_PARAM("TRADEDATE")  ' датасерверавформатеDD.MM.YYYY
           SERVERTIME=GET_INFO_PARAM("SERVERTIME") ' времясерверавформатеHH:MM:SS
           DATETIME (SERVERDATE, SERVERTIME) ' вызовфункциидаты-времени

           CURMIN = INTERVAL*FLOOR(CURMIN/INTERVAL) ' округляемостатокдоINTERVAL`а


PREDFLAGSDELMAP=CREATE_COLLECTION()
FLAGSDELMAP=CREATE_COLLECTION()
OPENMAP=CREATE_COLLECTION()

CLOSEMAP=CREATE_COLLECTION()
   
BARLIST=CREATE_COLLECTION() ' создаёмсписокбаровввидеMAP-массива
           FOR I FROM 0 TO NUMBER - 1
                    CURMIN=CURMIN-INTERVAL ' откатнаинтервалназад
                    IF CURMIN<0
                            CURMIN=60+CURMIN
                            CURHOUR=CURHOUR-1
                            IF CURHOUR<0
                                     CURHOUR=23
                                     CURDAY=CURDAY-1
                                     IF CURDAY<1
                                              CURMONTH=CURMONTH-1
                                              IF CURMONTH=1 OR 3 OR 5 OR 7 OR 8 OR 10 OR
                                                       CURDAY=31
                                              END IF
                                              IF CURMONTH=4 OR 6 OR 9 OR 11
                                                       CURDAY=30
                                              END IF
                                              IF CURMONTH=2 ' еслимесяц- февраль
                                                       MOD(CURYEAR,4) ' вызов функции остатка от деления
                                                       IF RESULT = 0
                                                               CURDAY=29 ' еслигодвисокосный
                                                       ELSE
                                                               CURDAY=28 ' если год не високосный
                                                       END IF
                                              END IF                                            
                                              IF CURMONTH<1
                                                       CURDAY=31
                                                       CURMONTH=12
                                                       CURYEAR=CURYEAR-1
                                                       IF CURYEAR<0
                                                               MESSAGE ("NO DATA",1)
                                                               BREAK
                                                       END IF
                                              END IF
                                     END IF
                            END IF
                   
    END IF
                    CURDATE(CURYEAR,CURMONTH,CURDAY) ' переводдатывтекстовойформат
                    CURTIME(CURHOUR,CURMIN,0) ' перевод времени в текстовой формат

                    CANDLE=GET_CANDLE(CLASSCODE,INSTRUMENT, "", INTERVAL & "", "PRICE", CURDATE, CURTIME) ' получаемOHLC поCURDATE, CURTIME
                    ' округление OPEN до второго знака после запятой и добавление в MAP-массив CANDLE
                    OPEN=0+GET_VALUE (CANDLE, "OPEN")
                    'ROUND(OPEN,2)
                    'OPEN=0+RESULT
                    CANDLE=SET_VALUE(CANDLE,"OPEN",OPEN)
OPEN=0+OPEN
OPENMAP=INSERT_COLLECTION_ITEM(OPENMAP,I , OPEN)


                    IF 0+OPEN>0' свеча существует
                            ' округление остальных цен до второго знака после запятой и добавление в MAP-массив CANDLE
                            HIGH=0+GET_VALUE (CANDLE, "HIGH")
                            'ROUND(HIGH,2)
                            'HIGH=0+RESULT ' округлили HIGH до второго знака после запятой
                            CANDLE=SET_VALUE(CANDLE,"HIGH",HIGH) ' добавилиHIGH вMAP-массив
                           
                            LOW=0+GET_VALUE (CANDLE, "LOW")
                            'ROUND(LOW,2)
                            'LOW=0+RESULT ' округлили LOW до второго знака после запятой
                            CANDLE=SET_VALUE(CANDLE,"LOW",LOW) ' добавилиLOW вMAP-массив                    
                           
                            CLOSE=0+GET_VALUE (CANDLE, "CLOSE")
                            'ROUND(CLOSE,2)
                            'CLOSE=0+RESULT ' округлили CLOSE до второго знака после запятой
                            CLOSE=0+CLOSE
                            CANDLE=SET_VALUE(CANDLE,"CLOSE",CLOSE) ' добавилиCLOSE вMAP-массив
                            CLOSEMAP=INSERT_COLLECTION_ITEM(CLOSEMAP,I , CLOSE)

 CANDLE=SET_VALUE(CANDLE,"FLAGSDEL",FLAGSDEL)
CANDLE=SET_VALUE(CANDLE,"PREDFLAGSDEL",PREDFLAGSDEL)
     BARLIST=INSERT_COLLECTION_ITEM(BARLIST,0,CANDLE)' Поместилитекущийбарвколлекцию
                 

ELSE
                            BREAK
                            RETURN
                   END IF







END FOR

PREDFLAGSDELTAB = GET_COLLECTION_COUNT (PREDFLAGSDELMAP)
PREDFLAGSDELMAP1 = GET_COLLECTION_ITEM(PREDFLAGSDELMAP,0) +0
PREDFLAGSDELMAP2 = GET_COLLECTION_ITEM(PREDFLAGSDELMAP,1)+0

FLAGSDELTAB = GET_COLLECTION_COUNT (FLAGSDELMAP)
FLAGSDELMAP1 = GET_COLLECTION_ITEM(FLAGSDELMAP,0) +0
FLAGSDELMAP2 = GET_COLLECTION_ITEM(FLAGSDELMAP,1)+0

CLOSEMAPTAB = GET_COLLECTION_COUNT (CLOSEMAP)
CLOSEMAP1 = GET_COLLECTION_ITEM(CLOSEMAP,0) +0
CLOSEMAP2 = GET_COLLECTION_ITEM(CLOSEMAP,1)+0


OPENMAPTAB = GET_COLLECTION_COUNT (OPENMAP)
OPENMAP1 = GET_COLLECTION_ITEM(OPENMAP,0) + 0
OPENMAP2 = GET_COLLECTION_ITEM(OPENMAP,1) + 0


GREENNOW = 0+0
IF CLOSEMAP1 > OPENMAP1
GREENNOW = 1+0
END IF

GREENPRED = 0+0
IF CLOSEMAP2 > OPENMAP2
GREENPRED = 1+0
END IF


REDNOW = 0+0
IF CLOSEMAP1 < OPENMAP1
REDNOW = 1+0
END IF

REDPRED = 0+0
IF CLOSEMAP2 < OPENMAP2
REDPRED = 1+0
END IF

USL1=0
IF GREENNOW = 1 AND GREENPRED = 1
USL1=1
END IF


IF REDNOW = 1 AND REDPRED = 1
USL1=2
END IF

IF REDNOW = 1 AND GREENPRED = 1
USL1=3
END IF

IF GREENNOW = 1 AND REDPRED = 1
USL1=4
END IF
'PRICEB = 0
'PRICEL = 0
'LPRICEB = OPENMAP1 +0
'LPRICEL = OPENMAP1 +0
' =============БЛОК УСЛОВИЯ ВЫСТАВЛЕНИЯ ЗАЯВОК==========
FOR NR FROM 0 TO GET_NUMBER_OF("FUTURES_CLIENT_HOLDINGS")                    
TAB = GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR)
CHIST = GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0
INST = GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "SECCODE")
SDEL= 0
IF ((CHIST = 0) AND ((INST = INSTRUMENT) OR (INST+0 = INSTRUMENT +0)))
SDEL= 1
END IF

END FOR

LPRICE = GET_PARAM ("SPBFUT", INSTRUMENT, "LAST")+0

IF SDEL= 1 AND USL1=1 AND (FLAGCDELOK +0 ) = 0 ' если нет открытой длинной позиции
           
                   ' выставление длинной заявки
                   SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT
                   ACTION="NEW_ORDER"
                   ORDER(0, LOT, "B", "M", TRID)

FLAGCDELOK = 1
PREDFLAGSDELMAP1 = PREDFLAGSDELMAP1 +1
                                     
                   
                   ORDERCOUNT=ORDERCOUNT+1
                 
               
           


END IF
FOR NR FROM 0 TO GET_NUMBER_OF("FUTURES_CLIENT_HOLDINGS")                    
TAB = GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR)
CHIST = GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0
 
IF CHIST > 0
                     

SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT
  FOR NRR FROM 0 TO GET_NUMBER_OF("STOP_ORDERS")        

  STATA = GET_VALUE(GET_ITEM ("STOP_ORDERS", NRR), "STATUS")                    
  END FOR
 IF STATA != "ACTIVE"
   
  ACTION="NEW_STOP_ORDER"                    
    STOPORDERS(LPRICE, LPRICEB, LOT, "S", "L", TRID)

ELSE  BREAK        


 END IF



END IF      
END FOR  
' =============БЛОК УСЛОВИЯ ВЫСТАВЛЕНИЯ ЗАЯВОК==========
IF SDEL= 1  AND USL1=2 AND (FLAGCDELOK +0) = 0' если нет открытой короткой позиции
               
                   ' выставление короткой заявки
                   SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT
                 
ACTION="NEW_ORDER"
                   

ORDER(0, LOT, "S", "M", TRID)
FLAGCDELOK = 1
PREDFLAGSDELMAP1 = PREDFLAGSDELMAP1 +1          
                 
  ORDERCOUNT=ORDERCOUNT+1
                         
                     
           






END IF
FOR NR FROM 0 TO GET_NUMBER_OF("FUTURES_CLIENT_HOLDINGS")                    
TAB = GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR)
CHIST = GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0
 
IF CHIST < 0
                     
SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT

  FOR NRR FROM 0 TO GET_NUMBER_OF("STOP_ORDERS")        

  STATA = GET_VALUE(GET_ITEM ("STOP_ORDERS", NRR), "STATUS")                    
  END FOR
 IF STATA != "ACTIVE"
    ACTION="NEW_STOP_ORDER"                    
    STOPORDERL(LPRICE, LPRICEL, LOT, "B", "L", TRID)  
    ELSE  BREAK        
 END IF



END IF      
END FOR  

 END FUNC

         

   CURTIME=CURTIME+0
         

FOR NR FROM 0 TO GET_NUMBER_OF("FUTURES_CLIENT_HOLDINGS")
           
TAB = GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR)
CHIST = GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0
IF GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0 != 0
               
                   
             
               
                     
                   IF (GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0) > 0 AND USL1 = 3
                   LOT = GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0
                   SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT
                   ACTION="NEW_ORDER"
                   ORDER(LPRICE, LOT, "S", "M", TRID)
ACTION="KILL_STOP_ORDER"                    
STOP_LOS("SPBFUT", INSTRUMENT)


             
ORDERCOUNT=ORDERCOUNT+1
                   LOT=1
                   
                   END IF
                                   



                   
                   IF (GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0) < 0 AND USL1 = 4
                   LOT = ABS (GET_VALUE(GET_ITEM ("FUTURES_CLIENT_HOLDINGS", NR), "TOTAL_NET") + 0) + 0
                   SERVERDATE=GET_INFO_PARAM("TRADEDATE")
                   SERVERTIME=GET_INFO_PARAM("SERVERTIME")
                   DATETIME (SERVERDATE,SERVERTIME)
                   TRID = CURTIME & ORDERCOUNT
                   ACTION="NEW_ORDER"
                   ORDER(LPRICE, LOT, "B", "M", TRID)
ACTION="KILL_STOP_ORDER"                    
STOP_LOS("SPBFUT", INSTRUMENT)                    
ORDERCOUNT=ORDERCOUNT+1
                   LOT=1
                                 
                   END IF                
                                   

BREAK ' прерываем цикл, т.к. все позиции уже закрыты
           END IF
       END FOR





  FUNC MOD (NUM,DEN)
           IF (0 + DEN = 0)
                    RESULT = 0
           ELSE
                    CEL= FLOOR((NUM/DEN)) ' вычисляем частное без учёта остатка
                    RESULT = NUM — (DEN*CEL)' вычисляем остаток
           END IF
  END FUNC

  FUNC ROUND (V,SCALE)
           RESULT=APPLY_SCALE(V,SCALE)' передаём в функцию число для округления и разрядность округления
 END FUNC

CHETCHIKCIKLOV= CHETCHIKCIKLOV+0

IF CHETCHIKCIKLOV=0

CHETCHIKCIKLOVMAP=CREATE_COLLECTION()
END IF
           
CHETCHIKCIKLOVMAP=INSERT_COLLECTION_ITEM(CHETCHIKCIKLOVMAP,0 , OPENMAP1)          


CHETCHIKCIKLOVMAPTAB = GET_COLLECTION_COUNT (CHETCHIKCIKLOVMAP)
CHETCHIKCIKLOVMAP1 = GET_COLLECTION_ITEM(CHETCHIKCIKLOVMAP,0) +0
CHETCHIKCIKLOVMAP2 = GET_COLLECTION_ITEM(CHETCHIKCIKLOVMAP,(0 +1))+0

IF CHETCHIKCIKLOVMAP1 != CHETCHIKCIKLOVMAP2
FLAGCDELOK = 0
END IF

CHETCHIKCIKLOV = CHETCHIKCIKLOV + 1




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 INSTRUMENT;
PARAMETER_TITLE Инструмент;
PARAMETER_DESCRIPTION Торгуемый инструмент;
PARAMETER_TYPE STRING(4);
END
 
 
Артем,

Простите, но в приведенном коде нет тех функций о которых Вы говорили.
Например, где в приведенном коде вот это:
Цитата
Артем написал:
IF (USL1=1 AND (FLAGCDELOK +0 )= 0 AND CHETCHIKCIKLOV > 2)' USL1 принимает значение 1 когда имеются 2 подряд бычьи свечи
алгоритм входа в позицию
FLAGCDELOK = 1
END IF

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


К слову, возможно что проблема в некорректно расставленных скобках.
Приведите все скобки во всех условиях IF к нормальному виду.
например, вместо
Цитата
IF SDEL= 1 AND USL1=1 AND (FLAGCDELOK +0 ) = 0
правильно писать так:
Цитата
IF (SDEL= 1) AND (USL1=1) AND (FLAGCDELOK +0 = 0)
И аналогично во всех остальных условиях IF
как бы это ни было смешно, но в QPILE, правильное выставление скобок может иметь решающее значение.
 
попробую правильно расставить скобки, и все-таки прошу уточнить правильно ли я понимаю, что при коде                                 CHETCHIKCIKLOV = CHETCHIKCIKLOV + 1
CHETCHIKCIKLOV должен в течении работы программы постоянно увеличиваться и после некоторого времени работы скрипта, он должен быть не равен 0, с учетом, того, что CHETCHIKCIKLOV глобальная переменная, и я должен буду увидеть это в отладчике  
Страницы: 1
Читают тему
Наверх