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

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

Wed, 21 Feb 2018 18:15:58 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
попробую правильно расставить скобки, и все-таки прошу уточнить правильно ли я понимаю, что при коде CHETCHIKCIKLOV = CHETCHIKCIKLOV + 1
CHETCHIKCIKLOV должен в течении работы программы постоянно увеличиваться и после некоторого времени работы скрипта, он должен быть не равен 0, с учетом, того, что CHETCHIKCIKLOV глобальная переменная, и я должен буду увидеть это в отладчике
21.02.2018 18:15:58, Артем.

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

Tue, 20 Feb 2018 05:51:48 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
Артем,

Простите, но в приведенном коде нет тех функций о которых Вы говорили.
Например, где в приведенном коде вот это:

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

=============

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

К слову, возможно что проблема в некорректно расставленных скобках.
Приведите все скобки во всех условиях IF к нормальному виду.
например, вместо

====quote====
IF SDEL= 1 AND USL1=1 AND (FLAGCDELOK +0 ) = 0
=============
правильно писать так:

====quote====
IF (SDEL= 1) AND (USL1=1) AND (FLAGCDELOK +0 = 0)
=============
И аналогично во всех остальных условиях IF
как бы это ни было смешно, но в QPILE, правильное выставление скобок может иметь решающее значение.
20.02.2018 05:51:48, Sergey Gorokhov.

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

Mon, 19 Feb 2018 23:06:51 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
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

19.02.2018 23:06:51, Артем.

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

Thu, 15 Feb 2018 12:59:04 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
Артем,

Под полным кодом понимается весь текст скрипта, а не его часть.
15.02.2018 12:59:04, Sergey Gorokhov.

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

Thu, 15 Feb 2018 12:41:17 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
Добрый день, Sergey. не совсем понял, что вы подразумеваете под полным кодом портфеля. Вы имеете в виду предоставить весь алгоритм скрипта?
15.02.2018 12:41:17, Артем.

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

Wed, 14 Feb 2018 05:07:51 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
Артем,
Здравствуйте,
Для анализа нужен полный код портфеля.
QPILE признан нами устаревшим и мы уже давно его не развиваем. Так что если Вы только начинаете программировать в QUIK лучше сразу начинать с QLUA
Документация лежит в отдельном файле QLUA.chm в папке с терминалом.
14.02.2018 05:07:51, Sergey Gorokhov.

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

Tue, 13 Feb 2018 15:02:10 +0300

Алгоритм скрипта по разному отрабатывает в режиме отладчика и автономно в форуме Программирование на языке QPILE.
Добрый день, прошу помочь разобраться в вопросе работы отладчика. В теме 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
13.02.2018 15:02:10, Артем.