Список проголосовавших за комментарий "PORTFOLIO_EX IM 6;<br/> DESCRIPTION IM 6;<br/> CLIENTS_LIST ALL_CLIENTS;<br/> FIRMS_LIST ALL_FIRMS;<br/> <br/> PROGRAM<br/> <br/> ' Настраиваемые параметры<br/> ClassCodeList=«SPBFUT» ' код класса инструмента<br/> Instrument=«RIU4» ' название инструмента<br/> Interval=6 ' интервал (таймфрейм) на графике<br/> DayToFind=35 ' сколько дней назад искать свечи (можно уменьшить, чтобы ускорить работу программы)<br/> CandleToFind=3200' сколько свечей надо найти<br/> <br/> OutFile = «c:\zzzzz.csv» ' файл, куда записывать данные в формате CSV<br/> DELETE_ALL_ITEMS()<br/> CandleCount=0<br/> CurYear=get_value(GET_DATETIME(), «YEAR»)<br/> CurMonth=get_value(GET_DATETIME(), «MONTH»)<br/> CurDay=get_value(GET_DATETIME(), «DAY»)<br/> CurHour = GET_VALUE(GET_DATETIME(), «Hour»)<br/> CurMin = GET_VALUE(GET_DATETIME(), «Min»)<br/> CurMin = Interval*Floor(CurMin/Interval) ' округляем минуты до «интервальных»<br/> <br/> ID=«ID6» 'идентификатор графика<br/> <br/> for i from 1 to (DayToFnd*24)*(Floor60/Interval))<br/> TextDat=fTextData(CurYar,CurMonthCurDay) &""<br/> TextTime=fTextTime(CurHour,CurMin) & ""<br/> if (CandleCountdleToFind) ' если нашли сколько нам надо свяем пустой цикл<br/> Candle=GET_CANDLE(ClassCodeList,Instrument, "", Interval & "", E", TextData, TextTime)<br/> Open=GET_VALUE (Candle, «Open»)+0<br/> if (Open>0)<br/> CandleCount=CandleCount+1<br/> High=GET_VALUE (Candle, «High»)+0<br/> Low=GET_VALUE (Candle, «Low»)+0<br/> Close=GET_VALUE (Candle, «Close»)+0<br/> Volume=GET_VALUE (Candle, «Volume»)+0<br/> <br/> o1=0+GET_VALUE(GET_VALUE(GET_CANDLE_EX(ID,TextData,TextTime),«LINES»),«OPEN»)<br/> h1=0+GEE(GET_VALUE(GET_CANDLE_EX(ID,TextData,TextTime),«LINES»),«HIGH»)<br/> l1=+GET_VALUE(GET_VALUE(GET_CANDLE_EX(ID,TextData,TextTime),«LINES»),«LOW»)<br/> c1=0+GETVALUE(GT_VALUE(GET_CANDLE_EX(ID,TextData,TextTime),«LI),»CLOSE")<br/> v1=0+GET_VALUE(GET_VALUE(GET_CANDLE_EX(ID,TextData,TextTime),«LINES»),«VOLUME»)<br/> <br/> output=CREATE_MAP()<br/> output=SET_VALUE(output,«Date»,TextData)<br/> output=SET_VALUE(output,«Time»,TextTime)<br/> 'output=SET_VALUE(output,«Open»,Open)<br/> 'output=SET_VALUE(output,«High»,High)<br/> 'output=SET_VALUE(output,«Low»,Low)<br/> 'output=SET_VALUE(output,«Close»,Close)<br/> 'output=SET_VALUE(output,«Volume»,Volume)<br/> output=SET_VALUE(output,«Open»,o1)<br/> output=SET_VALUE(output,«High»,h1)<br/> output=SET_VALUE(output,«Low»,l1)<br/> output=SET_VALUE(output,«Close»,c1)<br/> output=SET_VALUE(output,«Volume»,v1)<br/> ADD_ITEM(CandleCount,output)<br/> WRITELN(OutFile, TextData & "," & TextTime & "," & Open & "," & High & "," & Low & "," & Close)<br/> end if<br/> ' откат на «интервал назад<br/> CurMin=CurMn-Interval<br/> if CurMn<0<br/> CurMin=60+CurMin<br/> CuHour=CuHour-1<br/> if CurHour<0<br/> CurHour=23<br/> CurDay=CurDay-1<br/> if curDay<1<br/> CurDay=31<br/> CurMonth=CurMonth-1<br/> if CurMonth<1<br/> CurMonth=12<br/> CurYear=CurYear-1<br/> if CurYear<0<br/> message (»Не найдены котировки до рождества Христова! <img src="http://www.trade-bot.ru/wp-includes/images/smilies/icon_biggrin.gif" alt=":-D"/>",1)<br/> end if<br/> end if<br/> end if<br/> end if<br/> end if<br/> end if<br/> end for<br/> <br/> ' функция перевода даты в текстовый формат<br/> func fTextData(Year,Month,Day)<br/> if (LEN(Month) < 2)<br/> Month = «0» & Month<br/> end if<br/> if (LEN(Day) < 2)<br/> Day = «0» & Day<br/> end if<br/> result = Year & Month & Day<br/> end func<br/> <br/> ' функция перевода времени в текстовый формат<br/> func fTextTime(Hour,Min,Sec)<br/> if (LEN(Hour) < 2)<br/> Hour = «0» & Hour<br/> end if<br/> if (LEN(Min) < 2)<br/> Min = «0» & Min<br/> end if<br/> result = Hour & Min & «00»<br/> end func<br/> <br/> END_PROGRAM<br/> <br/> PARAMETER Time;<br/> PARAMETER_TITLE Время;<br/> PARAMETER_DESCRIPTION Время;<br/> PARAMETER_TYPE STRING(30);<br/> END<br/> PARAMETER High;<br/> PARAMETER_TITLE High;<br/> PARAMETER_DESCRIPTION High;<br/> PARAMETER_TYPE NUMERIC(10,0);<br/> END<br/> PARAMETER Low;<br/> PARAMETER_TITLE Low;<br/> PARAMETER_DESCRIPTION Low;<br/> PARAMETER_TYPE NUMERIC(10,0);<br/> END<br/> PARAMETER Open;<br/> PARAMETER_TITLE Open;<br/> PARAMETER_DESCRIPTION Open;<br/> PARAMETER_TYPE NUMERIC(10,0);<br/> END<br/> PARAMETER Close;<br/> PARAMETER_TITLE Close;<br/> PARAMETER_DESCRIPTION Close;<br/> PARAMETER_TYPE NUMERIC(10,0);<br/> END<br/> PARAMETER Volume;<br/> PARAMETER_TITLE Volume;<br/> PARAMETER_DESCRIPTION Volume;<br/> PARAMETER_TYPE NUMERIC(10,0);<br/> END<br/> <br/> END_PORTFOLIO