Price Data Components
0
Views
0
Downloads
0
Favorites
ColorBearsCandle_v2_HTF
ÿþ//+------------------------------------------------------------------+
//| ColorBearsCandle_v2_HTF.mq5 |
//| Copyright © 2018, Nikolay Kositsin |
//| Khabarovsk, farria@mail.redcom.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2018, Nikolay Kositsin"
#property link "farria@mail.redcom.ru"
//---- =><5@ 25@A88 8=48:0B>@0
#property version "1.60"
//---- >B@8A>2:0 8=48:0B>@0 2 >B45;L=>< >:=5
#property indicator_separate_window
//---- 4;O @0AG5B0 8 >B@8A>2:8 8=48:0B>@0 8A?>;L7>20=> ?OBL 1CD5@>2
#property indicator_buffers 5
//---- 8A?>;L7>20=> 2A53> >4=> 3@0D8G5A:>5 ?>AB@>5=85
#property indicator_plots 1
//+----------------------------------------------+
//| >1JO2;5=85 :>=AB0=B |
//+----------------------------------------------+
#define RESET 0 // >=AB0=B0 4;O 2>72@0B0 B5@<8=0;C :><0=4K =0 ?5@5AGQB 8=48:0B>@0
#define INDICATOR_NAME "ColorBearsCandle_v2" // >=AB0=B0 4;O 8<5=8 8=48:0B>@0
//+----------------------------------------------+
//| 0@0<5B@K >B@8A>2:8 8=48:0B>@0 |
//+----------------------------------------------+
//---- 2 :0G5AB25 8=48:0B>@0 8A?>;L7>20=K F25B=K5 A25G8
#property indicator_type1 DRAW_COLOR_CANDLES
#property indicator_color1 clrDodgerBlue,clrGray,clrMagenta
//---- >B>1@065=85 <5B:8 8=48:0B>@0
#property indicator_label1 "ColorBearsCandle_v2_Open;ColorBearsCandle_v2_High;ColorBearsCandle_v2_Low;ColorBearsCandle_v2_Close"
//+----------------------------------------------+
//| 0@0<5B@K >B>1@065=8O 3>@87>=B0;L=KE C@>2=59 |
//+----------------------------------------------+
#property indicator_level1 0.0
#property indicator_levelcolor clrMagenta
#property indicator_levelstyle STYLE_DASHDOTDOT
//+----------------------------------------------+
//| >1JO2;5=85 ?5@5G8A;5=89 |
//+----------------------------------------------+
enum Smooth_Method
{
MODE_SMA_, // SMA
MODE_EMA_, // EMA
MODE_SMMA_, // SMMA
MODE_LWMA_, // LWMA
MODE_JJMA, // JJMA
MODE_JurX, // JurX
MODE_ParMA, // ParMA
MODE_T3, // T3
MODE_VIDYA, // VIDYA
MODE_AMA // AMA
};
//+----------------------------------------------+
//| >1JO2;5=85 ?5@5G8A;5=89 |
//+----------------------------------------------+
enum ColorMode
{
MODE_Candeles, // :@0A:0 A25G ?> Open 8 Close
MODE_ColorBearsOpen, // :@0A:0 A25G ?> 3@0D8:C 8=48:0B>@0 ColorBears[Open]
MODE_ColorBearsHigh, // :@0A:0 A25G ?> 3@0D8:C 8=48:0B>@0 ColorBears[High]
MODE_ColorBearsLow, // :@0A:0 A25G ?> 3@0D8:C 8=48:0B>@0 ColorBears[Low]
MODE_ColorBearsClose // :@0A:0 A25G ?> 3@0D8:C 8=48:0B>@0 ColorBears[Close]
};
//+----------------------------------------------+
//| % + " + " |
//+----------------------------------------------+
input ENUM_TIMEFRAMES TimeFrame=PERIOD_H4; // 5@8>4 3@0D8:0
//+----------------------------------------------+
//| % + " + " |
//+----------------------------------------------+
input ColorMode CandelesColorMode=MODE_ColorBearsClose; //;3>@8B< >:@0A:8 A25G
input Smooth_Method MA_Method1=MODE_SMA_; // 5B>4 CA@54=5=8O 8=48:0B>@0
input uint Length1=12; //;C18=0 CA@54=5=8O 8=48:0B>@0
input int Phase1=15; // 0@0<5B@ CA@54=5=8O 8=48:0B>@0,
//---- 4;O JJMA 87<5=ONI89AO 2 ?@545;0E -100 ... +100, 2;8O5B =0 :0G5AB2> ?5@5E>4=>3> ?@>F5AA0;
//---- ;O VIDIA MB> ?5@8>4 CMO, 4;O AMA MB> ?5@8>4 <54;5==>9 A:>;L7OI59
input Smooth_Method MA_Method2=MODE_JJMA; // 5B>4 A3;06820=8O 8B>3>2>3> 8=48:0B>@0
input uint Length2=5; //;C18=0 A3;06820=8O 8B>3>2>3> 8=48:0B>@0
input int Phase2=15; // 0@0<5B@ A3;06820=8O 8B>3>2>3> 8=48:0B>@0,
//---- 4;O JJMA 87<5=ONI89AO 2 ?@545;0E -100 ... +100, 2;8O5B =0 :0G5AB2> ?5@5E>4=>3> ?@>F5AA0;
//---- ;O VIDIA MB> ?5@8>4 CMO, 4;O AMA MB> ?5@8>4 <54;5==>9 A:>;L7OI59
input int Shift=0; //A4283 8=48:0B>@0 ?> 3>@87>=B0;8 2 10@0E
input uint Gap=50; //@07<5@ =5CG8BK205<>3> 3M?0 2 ?C=:B0E
//+----------------------------------------------+
//---- >1JO2;5=85 48=0<8G5A:8E <0AA82>2, :>B>@K5 1C4CB 2 40;L=59H5< 8A?>;L7>20=K 2 :0G5AB25 8=48:0B>@=KE 1CD5@>2
double ExtOpenBuffer[];
double ExtHighBuffer[];
double ExtLowBuffer[];
double ExtCloseBuffer[];
double ExtColorBuffer[];
//---- 1JO2;5=85 F5;KE ?5@5<5==KE =0G0;0 >BAGQB0 40==KE
int min_rates_total;
//---- 1JO2;5=85 F5;KE ?5@5<5==KE 4;O E5=4;>2 8=48:0B>@>2
int Ind_Handle;
//+------------------------------------------------------------------+
//| >;CG5=85 B09<D@59<0 2 2845 AB@>:8 |
//+------------------------------------------------------------------+
string GetStringTimeframe(ENUM_TIMEFRAMES timeframe)
{return(StringSubstr(EnumToString(timeframe),7,-1));}
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---- =8F80;870F8O ?5@5<5==KE
min_rates_total=2;
string short_name=INDICATOR_NAME+" "+Symbol()+"("+GetStringTimeframe(TimeFrame)+")";
//---- ?>;CG5=85 E5=4;0 8=48:0B>@0 ColorBearsCandle_v2
Ind_Handle=iCustom(Symbol(),TimeFrame,"ColorBearsCandle_v2",CandelesColorMode,MA_Method1,Length1,Phase1,MA_Method2,Length2,Phase2,0,Gap);
if(Ind_Handle==INVALID_HANDLE)
{
Print(" 5 C40;>AL ?>;CG8BL E5=4; 8=48:0B>@0 ColorBearsCandle_v2");
return(INIT_FAILED);
}
//---- ?@52@0I5=85 48=0<8G5A:8E <0AA82>2 2 8=48:0B>@=K5 1CD5@K
SetIndexBuffer(0,ExtOpenBuffer,INDICATOR_DATA);
SetIndexBuffer(1,ExtHighBuffer,INDICATOR_DATA);
SetIndexBuffer(2,ExtLowBuffer,INDICATOR_DATA);
SetIndexBuffer(3,ExtCloseBuffer,INDICATOR_DATA);
//---- ?@52@0I5=85 48=0<8G5A:>3> <0AA820 2 F25B>2>9, 8=45:A=K9 1CD5@
SetIndexBuffer(4,ExtColorBuffer,INDICATOR_COLOR_INDEX);
//---- 8=45:A0F8O M;5<5=B>2 2 1CD5@0E :0: 2 B09<A5@8OE
ArraySetAsSeries(ExtOpenBuffer,true);
ArraySetAsSeries(ExtHighBuffer,true);
ArraySetAsSeries(ExtLowBuffer,true);
ArraySetAsSeries(ExtCloseBuffer,true);
ArraySetAsSeries(ExtColorBuffer,true);
//---- >ACI5AB2;5=85 A42830 =0G0;0 >BAG5B0 >B@8A>2:8 8=48:0B>@0 1
PlotIndexSetInteger(0,PLOT_DRAW_BEGIN,min_rates_total);
//---- 70?@5B =0 >B>1@065=85 7=0G5=89 8=48:0B>@0 2 ;52>< 25@E=5< C3;C >:=0 8=48:0B>@0
PlotIndexSetInteger(0,PLOT_SHOW_DATA,false);
//--- A>740=85 8<5=8 4;O >B>1@065=8O 2 >B45;L=>< ?>4>:=5 8 2> 2A?;K20NI59 ?>4A:07:5
IndicatorSetString(INDICATOR_SHORTNAME,short_name);
//--- >?@545;5=85 B>G=>AB8 >B>1@065=8O 7=0G5=89 8=48:0B>@0
IndicatorSetInteger(INDICATOR_DIGITS,_Digits);
//---- 7025@H5=85 8=8F80;870F88
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//----
Comment("");
//----
ChartRedraw(0);
}
//+------------------------------------------------------------------+
//| Custom iteration function |
//+------------------------------------------------------------------+
int OnCalculate(
const int rates_total, // :>;8G5AB2> 8AB>@88 2 10@0E =0 B5:CI5< B8:5
const int prev_calculated,// :>;8G5AB2> 8AB>@88 2 10@0E =0 ?@54K4CI5< B8:5
const datetime &time[],
const double &open[],
const double &high[],
const double &low[],
const double &close[],
const long &tick_volume[],
const long &volume[],
const int &spread[]
)
{
//--- ?@>25@:0 ?5@8>4>2 3@0D8:>2 =0 :>@@5:B=>ABL
if(!TimeFramesCheck(INDICATOR_NAME,TimeFrame)) return(RESET);
//--- ?@>25@:0 :>;8G5AB20 10@>2 =0 4>AB0B>G=>ABL 4;O @0AG5B0
if(rates_total<min_rates_total) return(RESET);
if(BarsCalculated(Ind_Handle)<Bars(Symbol(),TimeFrame)) return(prev_calculated);
//--- 8=45:A0F8O M;5<5=B>2 2 <0AA820E :0: 2 B09<A5@8OE
ArraySetAsSeries(time,true);
//--- >A=>2=>9 F8:; @0AG5B0 8=48:0B>@0
if(!CountIndicatorBar(NULL,TimeFrame,Ind_Handle,time,rates_total,prev_calculated,min_rates_total)) return(RESET);
//---
return(rates_total);
}
//+------------------------------------------------------------------+
//| CountIndicatorBar |
//+------------------------------------------------------------------+
bool CountIndicatorBar(string Symb, // !8<2>; 3@0D8:0
ENUM_TIMEFRAMES TFrame, // 5@8>4 3@0D8:0
int IndHandle, // %5=4; >1@010BK205<>3> 8=48:0B>@0
const datetime &Time[], // "09<A5@8O 2@5<5=8
const int Rates_Total, // :>;8G5AB2> 8AB>@88 2 10@0E =0 B5:CI5< B8:5
const int Prev_Calculated,// :>;8G5AB2> 8AB>@88 2 10@0E =0 ?@54K4CI5< B8:5
const int Min_Rates_Total)// <8=8<0;L=>5 :>;8G5AB2> 8AB>@88 2 10@0E 4;O @0AG5B0
{
//---
static int LastCountBar;
datetime IndTime[1];
int limit;
//--- @0AG5BK =5>1E>48<>3> :>;8G5AB20 :>?8@C5<KE 40==KE
//--- 8 AB0@B>2>3> =><5@0 limit 4;O F8:;0 ?5@5AG5B0 10@>2
if(Prev_Calculated>Rates_Total || Prev_Calculated<=0)// ?@>25@:0 =0 ?5@2K9 AB0@B @0AG5B0 8=48:0B>@0
{
limit=Rates_Total-Min_Rates_Total-1; // AB0@B>2K9 =><5@ 4;O @0AG5B0 2A5E 10@>2
LastCountBar=limit;
}
else limit=LastCountBar+Rates_Total-Prev_Calculated; // AB0@B>2K9 =><5@ 4;O @0AG5B0 =>2KE 10@>2
//--- >A=>2=>9 F8:; @0AG5B0 8=48:0B>@0
for(int bar=limit; bar>=0 && !IsStopped(); bar--)
{
//--- :>?8@C5< 2=>2L ?>O282H85AO 40==K5 2 <0AA82 IndTime
if(CopyTime(Symbol(),TimeFrame,Time[bar],1,IndTime)<=0) return(false);
//---
if(Time[bar]>=IndTime[0] && Time[bar+1]<IndTime[0])
{
LastCountBar=bar;
double Col[1],O[1],H[1],L[1],C[1];
//--- :>?8@C5< 2=>2L ?>O282H85AO 40==K5 2 <0AA82K
if(CopyBuffer(IndHandle,4,Time[bar],1,Col)<=0) return(false);
if(CopyBuffer(IndHandle,0,Time[bar],1,O)<=0) return(false);
if(CopyBuffer(IndHandle,1,Time[bar],1,H)<=0) return(false);
if(CopyBuffer(IndHandle,2,Time[bar],1,L)<=0) return(false);
if(CopyBuffer(IndHandle,3,Time[bar],1,C)<=0) return(false);
ExtColorBuffer[bar]=Col[0];
ExtOpenBuffer[bar]=O[0];
ExtLowBuffer[bar]=L[0];
ExtHighBuffer[bar]=H[0];
ExtCloseBuffer[bar]=C[0];
}
else
{
ExtColorBuffer[bar]=ExtColorBuffer[bar+1];
ExtOpenBuffer[bar]=ExtOpenBuffer[bar+1];
ExtLowBuffer[bar]=ExtLowBuffer[bar+1];
ExtHighBuffer[bar]=ExtHighBuffer[bar+1];
ExtCloseBuffer[bar]=ExtCloseBuffer[bar+1];
}
}
//---
return(true);
}
//+------------------------------------------------------------------+
//| TimeFramesCheck() |
//+------------------------------------------------------------------+
bool TimeFramesCheck(string IndName,
ENUM_TIMEFRAMES TFrame) // 5@8>4 3@0D8:0 8=48:0B>@0
{
//--- ?@>25@:0 ?5@8>4>2 3@0D8:>2 =0 :>@@5:B=>ABL
if(TFrame<Period() && TFrame!=PERIOD_CURRENT)
{
Comment(" 5@8>4 3@0D8:0 4;O 8=48:0B>@0 "+IndName+" =5 <>65B 1KBL <5=LH5 ?5@8>40 B5:CI53> 3@0D8:0! \n !;54C5B 87<5=8BL 2E>4=K5 ?0@0<5B@K 8=48:0B>@0!");
return(false);
}
//---
return(true);
}
//+------------------------------------------------------------------+
Comments