Есть функция OHLC для прошлых свечей - помогите разобраться

Поиск
Пользователи
Правила

Закрыть

Войти

Внимание

Для участия в обсуждениях и оформления подписки на новые сообщения форума вам необходимо зарегистрироваться.

RSS

Cообщений на странице:

Есть функция OHLC для прошлых свечей - помогите разобраться, как вытащить из нее OHLC дневных свечей по номеру свечи

Евгений

Пользователь

Сообщений: 9 Регистрация: 03.10.2018

03.10.2018 15:34:52

Все остальное - все таймфреймы работают, значения свечей вытаскиваются так:
close1=get_collection_item(close_col,1)+0
high1=get_collection_item(high_col,1)+0
low1=get_collection_item(low_col,1)+0
open1=get_collection_item(open_col,1)+0

1 - предыдущая от текущей, 2 - пред-предыдущая и т.д.

А ДНЕВНЫЕ НЕ ТАЩИТ - как вытащить их? HELP!!!!!

Вот сама функция:

FUNC get_prices(id,market)
new_global("cur_time_bar_pred",0)
new_global("close_pred",0)
new_global("open_pred",0)
new_global("high_pred",0)
new_global("low_pred",0)
time=get_datetime()
servertime=GET_INFO_PARAM("SERVERTIME")
'hour=get_value(time,"HOUR")
'min=get_value(time,"MIN")
hour=SUBSTR(servertime,0,2)
min=SUBSTR(servertime,3,2)
day=get_value(time,"DAY")
month=get_value(time,"MONTH")
year=get_value(time,"YEAR")
cur_date=year*10000+month*100+day
cur_time=hour*10000+min*100
true_date=0
sdelka=get_info_param("USERID")-48
for i from 0 to 100000
candle=get_candle(id,cur_date,183000,0)
if (get_value(candle,"open")+0)=0
if (day+0)<2
month=month-1
day=32
if month=0
month=12
year=year-1
end if
end if
day=day-1
cur_date=year*10000+month*100+day
else
true_date=cur_date
break
end if
end for
timeframe_collection=create_collection()
hour=18
min=30
time=hour*10000+min*100
pred_time="0"
j=0
timeframe=""
for i from 0 to 1000
candle=get_candle(id,true_date,time,0)
if (get_value(candle,"time")+0)=0
timeframe="day"
break
end if
if get_value(candle,"time")&""=pred_time&""
else
timeframe_collection=insert_collection_item(timeframe_collection,j,get_value(candle,"time"))
pred_time=get_value(candle,"time")
j=j+1
end if
if min=0
hour=hour-1
min=59
else
min=min-1
end if
time=hour*10000+min*100
if (get_collection_count(timeframe_collection)+0)>1
break
end if
end for
dateframe_collection=create_collection()
counter=0
time=get_datetime()
day=get_value(time,"DAY")
month=get_value(time,"MONTH")
year=get_value(time,"YEAR")
cur_date=year*10000+month*100+day
pred_open=0
pred_high=0
pred_close=0
pred_low=0
if (timeframe&"")=="day"
for i from 0 to 1000
candle=get_candle(id,cur_date,150000,0)
if (get_value(candle,"open")+0)!=(pred_open+0) or (get_value(candle,"high")+0)!=(pred_high+0) or (get_value(candle,"close")+0)!=(pred_close+0)
if (get_value(candle,"close")+0)!=0
dateframe_collection=INSERT_COLLECTION_ITEM(dateframe_collection,counter,cur_date)
pred_open=get_value(candle,"open")
pred_high=get_value(candle,"high")
pred_close=get_value(candle,"close")
pred_low=get_value(candle,"low")
counter=counter+1
end if
end if
if (day+0)=1
month=month-1
day=32
if (month+0)=0
month=12
year=year-1
end if
end if
day=day-1
if get_collection_count(dateframe_collection)>20
break
end if
cur_date=year*10000+month*100+day
end for
end if
hour1=SUBSTR (get_collection_item(timeframe_collection,0), 0, 2) +0
min1=SUBSTR (get_collection_item(timeframe_collection,0), 2, 2) +0
hour2=SUBSTR (get_collection_item(timeframe_collection,1), 0, 2)+0
min2=SUBSTR (get_collection_item(timeframe_collection,1), 2, 2) +0
chislo=0
tt53 = timeframe&""
if tt53<>"" or tt53<>"day"
if hour1==hour2
if (min1-min2)=1
timeframe=1
chislo=1
end if
if (min1-min2)=2
timeframe=2
chislo=1
end if
if (min1-min2)=3
timeframe=3
chislo=1
end if
if (min1-min2)=4
timeframe=4
chislo=1
end if
if (min1-min2)=5
timeframe=5
chislo=1
end if
if (min1-min2)=6
timeframe=6
chislo=1
end if
if (min1-min2)=10
timeframe=10
chislo=1
end if
if (min1-min2)=15
timeframe=15
chislo=1
end if
if (min1-min2)=20
timeframe=20
chislo=1
end if
if (min1-min2)=30
timeframe=30
chislo=1
end if
end if
if hour1<>hour2
if (hour1-hour2)=1
timeframe=60
chislo=1
end if
if (hour1-hour2)=2
timeframe=120
chislo=1
end if
if (hour1-hour2)=4
timeframe=240
chislo=1
end if
end if
end if
hour1=SUBSTR (get_collection_item(timeframe_collection,0), 0, 2)
min1=SUBSTR (get_collection_item(timeframe_collection,0), 2, 2)
hour2=SUBSTR (get_collection_item(timeframe_collection,1), 0, 2)
min2=SUBSTR (get_collection_item(timeframe_collection,1), 2, 2)
day_temp=0
time=get_datetime()
servertime=GET_INFO_PARAM("SERVERTIME")
hour=SUBSTR(servertime,0,2)
min=SUBSTR(servertime,3,2)
day=get_value(time,"DAY")
correct_day=day
month=get_value(time,"MONTH")
year=get_value(time,"YEAR")
cur_date=year*10000+month*100+day
cur_time=hour*10000+min*100
LOW_col=CREATE_COLLECTION()
HIGH_col=CREATE_COLLECTION()
open_col=CREATE_COLLECTION()
CLOSE_col=CREATE_COLLECTION()
time_col=CREATE_COLLECTION()
date_col=CREATE_COLLECTION()
cur_time_bar=get_value(get_candle(id,cur_date,cur_time,0),"time")
if (cur_time_bar&"")!=""
cur_time_bar_pred=cur_time_bar
else
cur_time_bar=cur_time_bar_pred
end if
low_col=INSERT_COLLECTION_ITEM(low_col,0,get_value(get_candle(id,cur_date,cur_time_bar,0),"low"))
high_col=INSERT_COLLECTION_ITEM(high_col,0,get_value(get_candle(id,cur_date,cur_time_bar,0),"high"))
open_col=INSERT_COLLECTION_ITEM(open_col,0,get_value(get_candle(id,cur_date,cur_time_bar,0),"open"))
close_col=INSERT_COLLECTION_ITEM(close_col,0,get_value(get_candle(id,cur_date,cur_time_bar,0),"close"))
time_col=INSERT_COLLECTION_ITEM(time_col,0,cur_time_bar)
date_col=INSERT_COLLECTION_ITEM(date_col,0,cur_date)
f=1
find_date=cur_date
point=0
if (chislo+0)==1
for i from 1 to 2000
temp3=ceil(cur_time_bar/10000)
temp4=cur_time_bar/10000
if temp3=temp4
if floor(cur_time_bar/10000)=cur_time_bar/10000
if timeframe=1
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+5900
end if
if timeframe=2
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+5800
end if
if timeframe=3
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+5700
end if
if timeframe=4
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+5600
end if
if timeframe=5
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+5500
end if
if timeframe=6
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+4800
end if
if timeframe=10
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+5000
end if
if timeframe=15
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+4500
end if
if timeframe=20
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+4000
end if
if timeframe=30
cur_time_bar=ceil(cur_time_bar/10000-1)*10000+3000
end if
if timeframe=60
cur_time_bar=ceil(cur_time_bar/10000-1)*10000
end if
if timeframe=120
cur_time_bar=ceil(cur_time_bar/10000-2)*10000
end if
if timeframe=240
cur_time_bar=ceil(cur_time_bar/10000-4)*10000
end if
end if
else
cur_time_bar=cur_time_bar-timeframe*100
end if
if timeframe<60
if cur_time_bar<100000
if (market&"")="micex"
if timeframe=1
cur_time_bar=184400
end if
if timeframe=2
cur_time_bar=184400
end if
if timeframe=3
cur_time_bar=184200
end if
if timeframe=4
cur_time_bar=184400
end if
if timeframe=5
cur_time_bar=184000
end if
if timeframe=6
cur_time_bar=184200
end if
if timeframe=10
cur_time_bar=184000
end if
if timeframe=15
cur_time_bar=183000
end if
if timeframe=20
cur_time_bar=184000
end if
if timeframe=30
cur_time_bar=183000
end if
end if
if (market&"")="forts"
if timeframe=1
cur_time_bar=234900
end if
if timeframe=2
cur_time_bar=234800
end if
if timeframe=3
cur_time_bar=234800
end if
if timeframe=4
cur_time_bar=234800
end if
if timeframe=5
cur_time_bar=234500
end if
if timeframe=6
cur_time_bar=234800
end if
if timeframe=10
cur_time_bar=234000
end if
if timeframe=15
cur_time_bar=234500
end if
if timeframe=20
cur_time_bar=234000
end if
if timeframe=30
cur_time_bar=233000
end if
end if
if timeframe>50
if cur_time_bar=100000
break
end if
if cur_time_bar<100000
if timeframe=60
cur_time_bar=230000
end if
if timeframe=120
cur_time_bar=220000
end if
if timeframe=240
cur_time_bar=200000
end if
end if
end if
usl=0
for j from 1 to 15
if (day+0)<2
month=month-1
day=32
if month=0
month=12
year=year-1
end if
end if
day=day-1
cur_date=year*10000+month*100+day
slice_day = Get_Candle_Ex(id, cur_date, 103000)
LineCount_day=Get_Value(slice_day,"COUNT") +0
if (usl+0)=0
if LineCount_day>0
find_date=cur_date
usl=1
break
end if
end if
end for
end if
end if
if timeframe>59
if cur_time_bar<80000
if timeframe=60
cur_time_bar=230000
end if
if timeframe=120
cur_time_bar=220000
end if
if timeframe=240
cur_time_bar=200000
end if
usl=0
for j from 1 to 15
if (day+0)<2
month=month-1
day=32
if month=0
month=12
year=year-1
end if
end if
day=day-1
curdate=year*10000+month*100+day
slice_day = Get_Candle_Ex(id, cur_date, 103000)
LineCount_day=Get_Value(slice_day,"COUNT") +0
if (usl+0)=0
if LineCOUNT_day>0
find_date=curdate
usl=1
break
end if
end if
end for
end if
end if
slice = Get_Candle_Ex(id, find_date,cur_time_bar)
LineCount=Get_Value(slice,"COUNT") +0
time=Get_Value(slice,"TIME")
lines=Get_Value(slice,"LINES")
if f<=20
if LineCount>0
LineCount=Get_Value(slice,"COUNT")
time=Get_Value(slice,"TIME")
lines=Get_Value(slice,"LINES")
line=Get_Collection_Item(lines, 0)
low=Get_Value(line,"LOW")
high=Get_Value(line,"HIGH")
open=Get_Value(line,"OPEN")
close=Get_Value(line,"CLOSE")
line_name =Get_Value(line,"NAME")
volume=Get_Value(line,"VOLUME")
low_col=INSERT_COLLECTION_ITEM(low_col,f,low)
high_col=INSERT_COLLECTION_ITEM(high_col,f,high)
open_col=INSERT_COLLECTION_ITEM(open_col,f,open)
close_col=INSERT_COLLECTION_ITEM(close_col,f,close)
time_col=INSERT_COLLECTION_ITEM(time_col,f,cur_time_bar)
date_col=INSERT_COLLECTION_ITEM(date_col,f,find_date)
f=f+1
end if
else
break
end if
end for
end if
prices=create_map()
prices=SET_VALUE(prices,"days",dateframe_collection)
prices=SET_VALUE(prices,"timeframe",timeframe)
prices=SET_VALUE(prices,"high",high_col)
prices=SET_VALUE(prices,"low",low_col)
prices=SET_VALUE(prices,"close",close_col)
prices=SET_VALUE(prices,"open",open_col)
prices=SET_VALUE(prices,"time",time_col)
prices=SET_VALUE(prices,"date",date_col)
result=prices
end func

Sergey Gorokhov

QUIK clients support

Сообщений: 3879 Регистрация: 23.01.2015

04.10.2018 05:47:54

Здравствуйте,
Не понятно как оно вообще у Вас работает. Стандартная функция GET_CANDLE имеет гораздо больше параметров. Видимо у Вас не родная функция, а самописная.
Рекомендуем посмотреть наш пример, возможно в нем найдете ответ.

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

Код

PORTFOLIO_EX GetDayCandles;
DESCRIPTION Сохранение свечей графиков ряда параметров набора инструментов за текущую торговую сессию (в таблицу и в файл);
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST ALL_FIRMS;
USE_CASE_SENSITIVE_CONSTANTS

PROGRAM

ClassCodeList = "SPBFUT"         ' коды классов бумаг, по которым будет осуществляться вывод
SecCodeList = "RIZ2"            ' коды бумаг, по которым будет осуществляться вывод
Params = ""            ' параметры, по которым будут строиться свечи 
GraphType = "PRICE"             ' тип графика
Intervals = "1,2,3,4,5,6,10,15,20,30,60"             ' интервал графика: 1 - минутный, 5 - 5-минутный и пр.
Separator = "."                  ' разделитель дробной части
OutPath = "c:\"                  ' путь к директории с файлом свечей
razn=3                        ' разница с Москвой в часах
start_time="10:00:00"            ' 10 часов 00 минут утра по Москве - время начала текущей торговой сессии "HHMMSS"


'=============================ФУНКЦИИ===============================
'ВЫЧИСЛЯЕТ ЧАСТНОЕ ОТ ДЕЛЕНИЯ
'DOUBLE div(DOUBLE Value, DOUBLE Value)
'Для работы нужны функции: никаких
func div(result,y_)
   result=FLOOR(result/y_)
end func

'ВЫЧИСЛЯЕТ ОСТАТОК ОТ ДЕЛЕНИЯ
'DOUBLE mod(DOUBLE Value, DOUBLE Value)
'Для работы нужны функции: никаких
func mod(result,y_)
   result=result-FLOOR(result/y_)*y_
end func

'ПРОВЕРЯЕМ ВХОЖДЕНИЕ pattern в СТРОКЕ list
'DOUBLE is_in_list(STRING Value, STRING Value)
'Для работы нужны функции: никаких
FUNC is_in_list(list, pattern)
  result = 0
  if  0 + find(list, 0, pattern) = -1 
    result = 0
  else
    result = 1
  end if
END FUNC

'ПЕРЕВОДИМ ВРЕМЯ ИЗ ФОРМАТА HHMMSS в HH:MM:SS
'STRING HHMMSS2Time(STRING Value)
'Для работы нужны функции: никаких
FUNC HHMMSS2Time(result)
 result=""&result
   if LEN(result)=5
    result="0"&result
   end if
 if LEN(result)=6
   result  = substr(result, 0, 2) & ":" & substr(result, 2, 2) & ":" & substr(result, 4, 2) 
 end if
END FUNC

'ПЕРЕВОДИМ ВРЕМЯ ИЗ ФОРМАТА HH:MM:SS в HHMMSS
'STRING Time2HHMMSS(STRING Value)
'Для работы нужны функции: FTEXT
Func Time2HHMMSS(result)
result=FTEXT(SUBSTR(result,0,FIND(result,0,":")))& _
      FTEXT(SUBSTR(result,FIND(result,0,":")+1,FIND(result,FIND(result,0,":")+1,":")-FIND(result,0,":")-1)) & _
      FTEXT(SUBSTR(result,FIND(result,FIND(result,0,":")+1,":")+1,len(result)-FIND(result,FIND(result,0,":")+1,":")-1))
result=FTEXT(result)
end Func

'ПРОВЕРЯЕМ КОРРЕКТНОСТЬ КОЛИЧЕСТВА СИМОЛОВ ПЕРЕМЕННОЙ
'STRING FTEXT(STRING Value)
'Для работы нужны функции: никаких
func FTEXT(result)
result=""&result
   if (len(result)=1) OR (len(result)=5)
    result="0"&result
   end if
end func

'ЗАМЕНЯЕМ 0 ПУСТОЙ СТРОКОЙ
'STRING REPLACE_0(STRING Value)
'Для работы нужны функции: никаких
func REPLACE_0(result)
   if result+0=0
    result=""
   end if
end func

'ПЕРЕВОДИМ НОРМАЛЬНОЕ ВРЕМЯ HHMMSS В СЕКУНДЫ
'DOUBLE Time2Sec(STRING Value)
'Для работы нужны функции: Time2HHMMSS, FTEXT
func Time2Sec(result)
result=Time2HHMMSS(result)
   result=SUBSTR(result,0,2)*3600+SUBSTR(result,2,2)*60+SUBSTR(result,4,2)
end func

'ПАУЗА В СЕКУНДАХ
'DOUBLE Sleep(DOUBLE Value)
'Для работы нужны функции: никаких
func Sleep(result)
   time_begin = get_value(GET_DATETIME(), "HOUR")*3600+get_value(GET_DATETIME(), "HOUR")*60+get_value(GET_DATETIME(), "SEC")
   for i_ from 0 to 2
      if (get_value(GET_DATETIME(), "HOUR")*3600+get_value(GET_DATETIME(), "HOUR")*60+get_value(GET_DATETIME(), "SEC") - time_begin) >= result
         BREAK
      end if
      i_=i_-1
   end for
end func

'ПЕРЕВОДИМ СЕКУНДЫ В НОРМАЛЬНОЕ ВРЕМЯ HH:MM:SS
'STRING Sec2Time(DOUBLE Value)
'Для работы нужны функции: FTEXT, HHMMSS2Time
func Sec2Time(result)
result=FTEXT(floor(result/3600))& _
      FTEXT(floor((result-(floor(result/3600))*3600)/60))& _
      FTEXT((result-(floor(result/3600))*3600)-(floor((result-(floor(result/3600))*3600)/60)) * 60)
result=HHMMSS2Time(result)
end func 

'ПЕРЕВОДИТ ДАТУ В ФОРМАТЕ YYYYMMDD или DD.MM.YYYY В КОЛИЧЕСТВО ДНЕЙ НАЧИНАЯ С 1970.01.01
'DOUBLE date2day(STRING Value)
'Для работы нужны функции: никаких
func date2day(YYYYMMDD_)
   if (SUBSTR (YYYYMMDD_, 2, 1)=",") or (SUBSTR (YYYYMMDD_, 2, 1)=".")
      YYYYMMDD_=SUBSTR(YYYYMMDD_,6,4)&SUBSTR(YYYYMMDD_,3,2)&SUBSTR(YYYYMMDD_,0,2)
   end if
   result=SUBSTR(YYYYMMDD_,0,4)*365+floor((SUBSTR(YYYYMMDD_,0,4)-1)/4)-719542
   result=result+substr("031059090120151181212243273304334365",SUBSTR(YYYYMMDD_,4,2)*3-6,3)
   if (SUBSTR(YYYYMMDD_,0,4)-floor(SUBSTR(YYYYMMDD_,0,4)/4)*4=0) AND (SUBSTR(YYYYMMDD_,4,2)+0>2)
      result=result+1
   end if
result=(result+SUBSTR(YYYYMMDD_,6,2)-1)
end func

'ПЕРЕВОДИМ МАССИВ get_datetime() В НОРМАЛЬНОЕ ВРЕМЯ HHMMSS
'STRING Map2HHMMSS(MAP  Name)
'Для работы нужны функции: FTEXT 
FUNC Map2HHMMSS(result)
result=FTEXT(get_value(result, "HOUR"))& _
   FTEXT(get_value(result, "MIN"))& _
   FTEXT(get_value(result, "SEC"))
END FUNC

'ВЫВОДИТ ИЗ МАССИВА get_datetime() ИЛИ get_trade_date() ДАТУ В ФОРМАТЕ YYYYMMDD
'STRING Map2YYYYMMDD(MAP  Name)
'Для работы нужны функции: FTEXT 
FUNC Map2YYYYMMDD(result)
result=FTEXT(get_value(result, "YEAR"))& _
   FTEXT(get_value(result, "MONTH"))& _
   FTEXT(get_value(result, "DAY"))
END FUNC

'ПЕРЕВОДИТ ДАТУ В ФОРМАТЕ YYYYMMDD В ФОРМАТ DD.MM.YYYY
'STRING Map2YYYYMMDD(STRING Value)
'Для работы нужны функции: FTEXT 
FUNC YYYYMMDD2Date(result)
   result=SUBSTR(result,6,2)&"."&SUBSTR(result,4,2)&"."&SUBSTR(result,0,4)
END FUNC

'УСТРАНЯЕТ В get_datetime() РАЗНИЦУ ВО ВРЕМЕНИ
'MAP Fix_get_datetime(MAP  Name, DOUBLE Value)
'Для работы нужны функции: FTEXT
FUNC Fix_get_datetime(result, time_zone)
if get_value(result, "HOUR")+0>=time_zone+0
   result=SET_VALUE(result, "HOUR",(get_value(result, "HOUR")-time_zone))
   result=SET_VALUE(result, "DATETIME",SUBSTR(get_value(result, "DATETIME"),0,11)& _
         FTEXT(SUBSTR(get_value(result, "DATETIME"),11,2)-time_zone)& _
         SUBSTR(get_value(result, "DATETIME"),13,10))   
end if
END FUNC

'ЗАМЕНА РАЗДЕЛИТЕЛЯ ДРОБНОЙ ЧАСТИ
'STRING replace_decimal_symbol(STRING Value, STRING Value)
'Для работы нужны функции: никаких
func replace_decimal_symbol(string, dchar)
   result=""
   string=""&string
      for rdc_x from 0 to len(string)-1
            if (substr(string, rdc_x, 1) = ".") OR (substr(string, rdc_x, 1)=",")
               result=result & dchar
            else
               result=result & substr(string, rdc_x, 1)
            end if
      end for
end func

'ЗАМЕНА В СТРОКЕ string ОДНОГО СИМВОЛА dchar_in ДРУГИМ dchar_out
'STRING replace_symbol(STRING Value, STRING Value, STRING Value)
'Для работы нужны функции: никаких 
func replace_symbol(string, dchar_in, dchar_out)
   result=""
   string=""&string
      for rdc_x from 0 to len(string)-1
            if substr(string, rdc_x, 1) = dchar_in
               result=result & dchar_out
            else
               result=result & substr(string, rdc_x, 1)
            end if
      end for
end func

'=============================ФУНКЦИИ===============================

NEW_GLOBAL("Counter", 1)         ' счетчик записей в массив выходных данных (таблицы)
NEW_GLOBAL("Date", "0")            ' дата текущей торговой сессии QUIK
NEW_GLOBAL("CommonTime", time2sec(start_time))    
NEW_GLOBAL("OutFile", "")

if Date = "0"
   Date = Map2YYYYMMDD(GET_TRADE_DATE())   ' Преобразовали текущую дату в принятый для вызова GET_CANDLE формат
    OutFile = OutPath & YYYYMMDD2Date(Date) & ".txt" ' Сформировали имя файла данных со свечами
    CLEAR_FILE(OutFile) 'Очистили файл 
   WRITELN(OutFile, "<TICKER>,<PER>,<DATE>,<TIME>,<OPEN>,<HIGH>,<LOW>,<CLOSE>,<VOL>") ' Вывели заголовок
   DELETE_ALL_ITEMS()
   CurIntervals = CREATE_MAP() ' Создаем массив счетчиков интервалов
   CurIntervals = SET_VALUE(CurIntervals, "1", 1)
   CurIntervals = SET_VALUE(CurIntervals, "2", 0)
   CurIntervals = SET_VALUE(CurIntervals, "3", 0)
   CurIntervals = SET_VALUE(CurIntervals, "4", 0)
   CurIntervals = SET_VALUE(CurIntervals, "5", 0)
   CurIntervals = SET_VALUE(CurIntervals, "6", 0)
   CurIntervals = SET_VALUE(CurIntervals, "10", 0)
   CurIntervals = SET_VALUE(CurIntervals, "15", 0)
   CurIntervals = SET_VALUE(CurIntervals, "20", 0)
   CurIntervals = SET_VALUE(CurIntervals, "30", 0)
   CurIntervals = SET_VALUE(CurIntervals, "60", 0)
end if

CurTime = Fix_get_datetime(GET_DATETIME(),razn)
CurTimeInSec = time2sec(Map2HHMMSS(CurTime)) ' Преобразовали текущее время в количество секунд
'CurTimeInSec = time2sec(GET_INFO_PARAM("SERVERTIME"))

if (CurTimeInSec - CommonTime) >= 60 ' Текущее время более 10.00 (время московское) и с момента последнего опроса данных прошло не менее минуты
   for i from 0 to floor((CurTimeInSec - CommonTime)/ 60)
      for Interval in Intervals
         CurInterval = GET_VALUE(CurIntervals, Interval)
         if (0 + CurInterval) = (0 + Interval)
            if (0 + Interval) <> 1
               CurTime = sec2time(CommonTime - CurInterval * 60)
            else
               CurTime = sec2time(CommonTime)
            end if
            for ClassCode in ClassCodeList
               for SecCode in SecCodeList
                  if LEN(Params)=0
                     Params=" "
                  END IF
                   for Param in Params
                     Candle = GET_CANDLE(ClassCode, SecCode, Param, Interval, GraphType, Date, Time2HHMMSS(CurTime))
                     Open = replace_decimal_symbol(GET_VALUE(Candle, "OPEN"),Separator)
                     if Open+0 <> 0 ' Если цена открытия интервала равна нулю, свечу не выводим
                        Close = replace_decimal_symbol(GET_VALUE(Candle, "Close"),Separator)
                        High = replace_decimal_symbol(GET_VALUE(Candle, "High"),Separator)
                        Low = replace_decimal_symbol(GET_VALUE(Candle, "Low"),Separator)
                        Volume = replace_decimal_symbol(GET_VALUE(Candle, "Volume"),Separator)
                        Candle = SET_VALUE(Candle, "Security", SecCode)
                        Candle = SET_VALUE(Candle, "ClassCode", ClassCode)
                        Candle = SET_VALUE(Candle, "Param", Param)
                        Candle = SET_VALUE(Candle, "Date", YYYYMMDD2Date(Date))
                        Candle = SET_VALUE(Candle, "Time", CurTime)
                        Candle = SET_VALUE(Candle, "Interval", Interval)
                         ADD_ITEM(Counter, Candle)
                           WRITELN(OutFile, SecCode  & " [" & ClassCode & "]," & Interval & "," & Date  & "," & Time2HHMMSS(CurTime) & "," & Open & "," & High & "," & Low & "," & Close & "," & Volume)         
                        'Counter = Counter + 1
                     end if
                  end for
                  
               end for
            end for
            CurIntervals = SET_VALUE(CurIntervals, Interval, 1) ' скинули интервальный счетчик
         else
            CurIntervals = SET_VALUE(CurIntervals, Interval, (CurInterval + 1)) ' накинули интервальный счетчик
         end if
      end for
      CommonTime = CommonTime + 60 ' накинули время
   end for
end if

END_PROGRAM

PARAMETER Security;
PARAMETER_TITLE Код инструмента;
PARAMETER_DESCRIPTION Код инструмента;
PARAMETER_TYPE String(12);
END

PARAMETER ClassCode;
PARAMETER_TITLE Код класса;
PARAMETER_DESCRIPTION Код класса;
PARAMETER_TYPE String(12);
END

PARAMETER Param;
PARAMETER_TITLE Параметр;
PARAMETER_DESCRIPTION Параметр;
PARAMETER_TYPE String(12);
END

PARAMETER Date;
PARAMETER_TITLE Дата;
PARAMETER_DESCRIPTION Дата интервала;
PARAMETER_TYPE String(10);
END

PARAMETER Time;
PARAMETER_TITLE Время;
PARAMETER_DESCRIPTION Время интервала;
PARAMETER_TYPE String(10);
END

PARAMETER Interval;
PARAMETER_TITLE Интервал;
PARAMETER_DESCRIPTION Интервал;
PARAMETER_TYPE String(2);
END

PARAMETER Open;
PARAMETER_TITLE Открытие;
PARAMETER_DESCRIPTION Цена открытия интервала;
PARAMETER_TYPE Numeric(20,4);
END

PARAMETER Close;
PARAMETER_TITLE Закрытие;
PARAMETER_DESCRIPTION Цена закрытия интервала;
PARAMETER_TYPE Numeric(20,4);
END

PARAMETER High;
PARAMETER_TITLE Максимум;
PARAMETER_DESCRIPTION Максимальная цена интервала;
PARAMETER_TYPE Numeric(20,4);
END

PARAMETER Low;
PARAMETER_TITLE Минимум;
PARAMETER_DESCRIPTION Минимальная цена интервала;
PARAMETER_TYPE Numeric(20,4);
END

PARAMETER Volume;
PARAMETER_TITLE Объем;
PARAMETER_DESCRIPTION Суммарный объем сделок в интервале;
PARAMETER_TYPE Numeric(20,4);
END

END_PORTFOLIO_EX

Евгений

Пользователь

Сообщений: 9 Регистрация: 03.10.2018

04.10.2018 13:04:04

Само собой самописная. Работает великолепно, на всех таймфреймах кроме ДНЕВКИ.

То что вы выложили, работатет только до 60 минут. А нужен день. У вас есть функция для
вывода open, high, low, close для заданного количества свечей в прошлое по номерам 1,2,3, 4....???
Ваш пример мне бесполезен.

Или помогите вытащить дневки из моего кода. Они там есть, но у меня знаний программирования
не хватает чтобы понять как их достать. Остальное достал - там пару ошибок было поправил, и теперь
тащит всё - от минуты до 4 часов включитльно.
А ДЕНЬ НЕ ХОЧЕТ. НУЖЕН ДЕНЬ !!!!!!!!!!!!!!

Sergey Gorokhov QUIK clients support Сообщений: 3879 Регистрация: 23.01.2015	#4 04.10.2018 14:21:02 Евгений, Проблема в том что для дневных свечек нужно в качестве времени передавать "000000", иначе не работает.

Евгений Пользователь Сообщений: 9 Регистрация: 03.10.2018	#5 04.10.2018 15:29:38 Вот это спасибо!!!

Читают тему