#property indicator_separate_window
#property indicator_buffers 5
#property indicator_color1 Yellow
#property indicator_color2 DeepSkyBlue
#property indicator_color3 Green
#property indicator_color4 Red
#property indicator_color5 Blue
#property indicator_minimum 0
#property indicator_maximum 1
//---- input parameters
extern int PeriodWATR=10;
extern double Kwatr=1.0000;
extern int HighLow=0;
extern int cbars = 0;
extern int from = 0;
extern int maP = 50;
//---- indicator buffers
double LineMinBuffer[];
double LineMidBuffer[];
double LineBuyBuffer[];
double LineSellBuffer[];
double LineExitBuffer[];
double Ma50[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
string short_name;
IndicatorBuffers(6);
//---- indicator line
SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1);
SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,1);
SetIndexStyle(2,DRAW_ARROW,STYLE_SOLID,1);
SetIndexStyle(3,DRAW_ARROW,STYLE_SOLID,1);
SetIndexStyle(4,DRAW_ARROW);
SetIndexStyle(5,DRAW_NONE);
SetIndexEmptyValue(5,0);
SetIndexEmptyValue(2,0);
SetIndexArrow(2,233);
SetIndexEmptyValue(3,0);
SetIndexArrow(3,234);
SetIndexEmptyValue(4,0);
SetIndexArrow(4,174);
SetIndexBuffer(0,LineMinBuffer);
SetIndexBuffer(1,LineMidBuffer);
SetIndexBuffer(2,LineBuyBuffer);
SetIndexBuffer(3,LineSellBuffer);
SetIndexBuffer(4,LineExitBuffer);
SetIndexBuffer(5,Ma50);
IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS));
//---- name for DataWindow and indicator subwindow label
short_name="Nina("+PeriodWATR+","+Kwatr+","+HighLow+")";
IndicatorShortName(short_name);
//----
SetIndexDrawBegin(0,PeriodWATR);
SetIndexDrawBegin(1,PeriodWATR);
//----
return(0);
}
int last_update = 0;
int last = 0;
int start(){
if(last==Bars) return (0);
last = Bars;
int limit = cbars;
if(limit==0 || limit>Bars) limit = Bars;
//last_update = Bars;
int i,shift,TrendMin,TrendMax,TrendMid;
double SminMin0,SmaxMin0,SminMin1,SmaxMin1,SumRange,dK,WATR0,WATRmax,WATRmin,WATRmid;
double SminMax0,SmaxMax0,SminMax1,SmaxMax1,SminMid0,SmaxMid0,SminMid1,SmaxMid1;
double linemin,linemax,linemid,Stoch1,Stoch2,bsmin,bsmax;
int StepSizeMin,StepSizeMax,StepSizeMid;
double min,max,mid,h,l,c;
int b = 0;
int last = 0,ma = 0,last_ma = 0;
//ArrayInitialize(Ma50,0);
//ArrayInitialize(LineBuyBuffer,0);
//ArrayInitialize(LineSellBuffer,0);
Print(limit);
for(shift=limit-1;shift>=from;shift--){
SumRange=0;
for (i=PeriodWATR-1;i>=from;i--){
dK = 1+1.0*(PeriodWATR-i)/PeriodWATR;
SumRange+= dK*MathAbs(High[i+shift]-Low[i+shift]);
}
WATR0 = SumRange/PeriodWATR;
WATRmax=MathMax(WATR0,WATRmax);
if (shift==limit-1-PeriodWATR) WATRmin=WATR0;
WATRmin=MathMin(WATR0,WATRmin);
StepSizeMin=MathRound(Kwatr*WATRmin/Point);
StepSizeMax=MathRound(Kwatr*WATRmax/Point);
StepSizeMid=MathRound(Kwatr*0.5*(WATRmax+WATRmin)/Point);
min = Kwatr*WATRmin;
max = Kwatr*WATRmax;
mid = Kwatr*0.5*(WATRmax+WATRmin);
//b = iBarShift(Symbol(),tPeriod,Time[shift]);
c = Close[shift];//iClose(Symbol(),tPeriod,b);
h = High[shift];//iHigh(Symbol(),tPeriod,b)
l = Low[shift];//iLow(Symbol(),tPeriod,b)
if (HighLow>0){
SmaxMin0=l+2*min;
SminMin0=h-2*min;
SmaxMax0=l+2*max;
SminMax0=h-2*max;
SmaxMid0=l+2*mid;
SminMid0=h-2*mid;
if(c>SmaxMin1) TrendMin=1;
if(c<SminMin1) TrendMin=-1;
if(c>SmaxMax1) TrendMax=1;
if(c<SminMax1) TrendMax=-1;
if(c>SmaxMid1) TrendMid=1;
if(c<SminMid1) TrendMid=-1;
}
if (HighLow == 0){
SmaxMin0=c+2*min;
SminMin0=c-2*min;
SmaxMax0=c+2*max;
SminMax0=c-2*max;
SmaxMid0=c+2*mid;
SminMid0=c-2*mid;
if(c>SmaxMin1) TrendMin=1;
if(c<SminMin1) TrendMin=-1;
if(c>SmaxMax1) TrendMax=1;
if(c<SminMax1) TrendMax=-1;
if(c>SmaxMid1) TrendMid=1;
if(c<SminMid1) TrendMid=-1;
}
if(TrendMin>0 && SminMin0<SminMin1) SminMin0=SminMin1;
if(TrendMin<0 && SmaxMin0>SmaxMin1) SmaxMin0=SmaxMin1;
if(TrendMax>0 && SminMax0<SminMax1) SminMax0=SminMax1;
if(TrendMax<0 && SmaxMax0>SmaxMax1) SmaxMax0=SmaxMax1;
if(TrendMid>0 && SminMid0<SminMid1) SminMid0=SminMid1;
if(TrendMid<0 && SmaxMid0>SmaxMid1) SmaxMid0=SmaxMid1;
if (TrendMin>0) linemin=SminMin0+min;
if (TrendMin<0) linemin=SmaxMin0-min;
if (TrendMax>0) linemax=SminMax0+max;
if (TrendMax<0) linemax=SmaxMax0-max;
if (TrendMid>0) linemid=SminMid0+mid;
if (TrendMid<0) linemid=SmaxMid0-mid;
bsmin=linemax-max;
bsmax=linemax+max;
Stoch1=(linemin-bsmin)/(bsmax-bsmin);
Stoch2=(linemid-bsmin)/(bsmax-bsmin);
LineMinBuffer[shift]=Stoch1;
LineMidBuffer[shift]=Stoch2;
SminMin1=SminMin0;
SmaxMin1=SmaxMin0;
SminMax1=SminMax0;
SmaxMax1=SmaxMax0;
SminMid1=SminMid0;
SmaxMid1=SmaxMid0;
Ma50[shift] = iMA(NULL,0,50,0,MODE_EMA,PRICE_CLOSE,shift);
if(is_inside(shift)) last_ma = shift;
if(
is_cross(shift)
){
last = 0;
LineExitBuffer[shift] = LineMidBuffer[shift];
// BUY or SELL
if(LineMinBuffer[shift]-LineMidBuffer[shift]>0){
if(/*last_ma == shift || */(last_ma!=0 && Ma50[last_ma]-Open[shift]<0)){
// VERY GOOD SIGNAL - BEST TRADE
LineBuyBuffer[shift] = LineMidBuffer[shift];
if(last_ma == shift && MathAbs(Ma50[last_ma]-Open[shift])/Point < 20) LineExitBuffer[shift] = LineMidBuffer[shift];
}
else if(last_ma!=0){
last = shift;
}
}
else if(LineMinBuffer[shift]-LineMidBuffer[shift]<0){
if(/*last_ma == shift || */(last_ma!=0 && Ma50[last_ma]-Open[shift]>0)){
// VERY GOOD SIGNAL - BEST TRADE
LineSellBuffer[shift] = LineMinBuffer[shift];
if(last_ma == shift && MathAbs(Ma50[last_ma]-Open[shift])/Point < 20) LineExitBuffer[shift] = LineMinBuffer[shift];
}
else if(last_ma!=0){
last = -shift;
}
}
}
else{
if(last>0 && Open[shift]-Ma50[shift]>0/* && last_ma==shift+1*/){
LineBuyBuffer[shift] = LineMidBuffer[shift];
last = 0;
}
else if(last<0 && Open[shift]-Ma50[shift]<0/* && last_ma==shift+1*/){
LineSellBuffer[shift] = LineMinBuffer[shift];
last = 0;
}
}
}
return(0);
}
bool is_inside(int shift){
return (
(Close[shift] - Ma50[shift])*(Open[shift] - Ma50[shift])<0
//Ma50[shift]>MathMin(Close[shift],Open[shift]) && Ma50[shift]<MathMax(Close[shift],Open[shift])
);
}
bool is_cross(int shift){
return
(
(LineMinBuffer[shift]-LineMidBuffer[shift])*(LineMinBuffer[shift+1]-LineMidBuffer[shift+1])<0
//|| (LineMinBuffer[shift+1]-LineMidBuffer[shift+1]==0 && LineMinBuffer[shift]-LineMidBuffer[shift]!=0)
//(LineMinBuffer[shift+1]<=0.0 && LineMinBuffer[shift]==0.0 && LineMidBuffer[shift+1]==0.0 && LineMidBuffer[shift]>=0.0) ||
//(LineMinBuffer[shift+1]==0.0 && LineMinBuffer[shift]<=0.0 && LineMidBuffer[shift+1]>=0.0 && LineMidBuffer[shift]==0.0)
);
}
Forex Strategy Builder Pro
prostokot