Привет всем. Подскажите как в портфеле указать что мне нужна статическая(не изменяющаяся в течении временного интервала,в моем случае минута)цена clouse,Сейчас использую опен так как он не прыгает но мне нужен индикатор АО а у него нет настройки опен клосе и строится он по медиану.Сейчас я синтезировал АО по двум МА с open но АО получается корявый и я его наглядно не вижу.Вот мой портфель.Пожалуйста подскажите срочно а то рынок вырастет и я не успею а-а-а-а!!!
PORTFOLIO_EX GAZP;
DESCRIPTION GAZP;
CLIENTS_LIST ALL_CLIENTS;
FIRMS_LIST FIRMID;
PROGRAM
'_______________________________________________________________________________________________________________________________
'Установите Таймфрейм(интервал в лиагнрамме):
Taim=1'(часовик - 60, пятнадцатиминутка - 15,соответственно 30 - 30минутка, 5 - 5минутка, 10 - 10минутка, 20-20минутка, 1 - 1минутка).
'Впишите в ковычки("") код класса и код бумаги по которой построен график:
Classcode="EQNE"
Seccode="GAZPR"
'_______________________________________________________________________________________________________________________________
Vrema = GET_INFO_PARAM ("SERVERTIME")'определяем время для того что бы из него вытянуть часы
Year="" & (0 + get_value(GET_DATETIME(), "YEAR"))
Month="" & (0 + get_value(GET_DATETIME(), "MONTH"))
if len(Month) == 1
Month= "0" & Month
end if
Day="" & (0 + get_value(GET_DATETIME(), "DAY"))
if len(Day) == 1
Day= "0" & Day
end if
Date=Year & Month & Day'переводим в нужный формат
Hour="" & (0 + substr(Vrema,0,2))
Min= floor ((substr(Vrema,3,2))/taim )*taim
if min=-1
min=59
hour=hour-1
end if
if min=-30
min=30
hour=hour-1
end if
if min=-5
min=55
hour=hour-1
end if
if min=-15
min=45
hour=hour-1
end if
if min=-20
min=40
hour=hour-1
end if
if min=-10
min=50
hour=hour-1
end if
if taim=60
hour=hour-1
min="00"
end if
if len(Min) == 1
Min= "0" & Min
end if
if len(Hour) == 1
Hour= "0" & Hour
end if
Time=Hour & Min & "00"
'Message(Time,1)
GOV1=0
MA1=0
slice = Get_Candle_Ex ("GOV1", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA1 = Get_Value (line,"CLOSE")
END FOR
GOV2=0
MA2=0
slice = Get_Candle_Ex ("GOV2", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA2 = Get_Value (line,"CLOSE")
END FOR
GOV3=0
MA3=0
slice = Get_Candle_Ex ("GOV3", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA3 = Get_Value (line,"CLOSE")
END FOR
GOV4=0
MA4=0
slice = Get_Candle_Ex ("GOV4", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA4 = Get_Value (line,"CLOSE")
END FOR
GOV5=0
MA5=0
slice = Get_Candle_Ex ("GOV5", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA5 = Get_Value (line,"CLOSE")
END FOR
GOV6=0
MA6=0
slice = Get_Candle_Ex ("GOV6", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA6 = Get_Value (line,"CLOSE")
END FOR
GOV7=0
MA7=0
slice = Get_Candle_Ex ("GOV7", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA7 = Get_Value (line,"CLOSE")
END FOR
GOV8=0
MA8=0
slice = Get_Candle_Ex ("GOV8", Date, Time)'мувинг текущей свечи
LineCount = Get_Value (slice,"COUNT")
lines = Get_Value (slice,"LINES")
FOR lineID FROM 0 TO LineCount-1
line = Get_Collection_Item (lines, lineID)
MA8 = Get_Value (line,"CLOSE")
END FOR
DELETE_ALL_ITEMS()
output=CREATE_MAP()
output=SET_VALUE(output,"MA1",MA1)
output=SET_VALUE(output,"MA2",MA2)
output=SET_VALUE(output,"MA3",MA3)
output=SET_VALUE(output,"MA4",MA4)
output=SET_VALUE(output,"MA5",MA5)
output=SET_VALUE(output,"MA6",MA6)
output=SET_VALUE(output,"MA7",MA7)
output=SET_VALUE(output,"MA8",MA8)
output=SET_VALUE(output,"Vrema",Vrema)
output=SET_VALUE(output,"Classcode",Classcode)
output=SET_VALUE(output,"Seccode",Seccode)
ADD_ITEM(3,Output)
END_PROGRAM
PARAMETER Vrema;
PARAMETER_TITLE Время;
PARAMETER_DESCRIPTION Время;
PARAMETER_TYPE STRING(32);
END
PARAMETER Classcode;
PARAMETER_TITLE Код класса;
PARAMETER_DESCRIPTION Код класса;
PARAMETER_TYPE STRING(32);
END
PARAMETER Seccode;
PARAMETER_TITLE Код бумаги;
PARAMETER_DESCRIPTION Код бумаги;
PARAMETER_TYPE STRING(32);
END
PARAMETER MA1;
PARAMETER_TITLE GOV1-бысрая;
PARAMETER_DESCRIPTION Mув1-быср;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA2;
PARAMETER_TITLE GOV2-медленная;
PARAMETER_DESCRIPTION Mув2-медл;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA3;
PARAMETER_TITLE GOV3-бысрая;
PARAMETER_DESCRIPTION Mув3-быср;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA4;
PARAMETER_TITLE GOV4-медленная;
PARAMETER_DESCRIPTION Mув4-медл;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA5;
PARAMETER_TITLE GOV5-бысрая;
PARAMETER_DESCRIPTION Mув5-быср;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA6;
PARAMETER_TITLE GOV6-медленная;
PARAMETER_DESCRIPTION Mув6-медл;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA7;
PARAMETER_TITLE GOV7-бысрая;
PARAMETER_DESCRIPTION Mув7-быср;
PARAMETER_TYPE NUMERIC(6,4);
END
PARAMETER MA8;
PARAMETER_TITLE GOV8-медленная;
PARAMETER_DESCRIPTION Mув8-медл;
PARAMETER_TYPE NUMERIC(6,4);
END
END_PORTFOLIO_EX
