V-T&B

2020-11-18 · 6143 阅读

[pre]//+------------------------------------------------------------------+
//|                                                       V-T&B.mq4 |
//|                                        Don Lawson (don_forex) |
//+------------------------------------------------------------------+
#property copyright ""
#property link    ""
//----
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Red
#property indicator_width1 2
#property indicator_color2 Green
#property indicator_width2 2
//----
extern double  WickRatio    =0.5;
extern double  WickPercent =50;
extern int    JuicePeriod =7;
extern int JuiceLevelForAlert=5;
//----
extern bool Notify=false;
extern bool UseNew=true;
//----
double VTop[];
double VBottom[];
double DistanceFromCandle;
int Level=5;

datetime t=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                      |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
SetIndexStyle(0, DRAW_ARROW, EMPTY);
SetIndexArrow(0, 234);
SetIndexBuffer(0, VTop);
SetIndexStyle(1, DRAW_ARROW, EMPTY);
SetIndexArrow(1, 233);
SetIndexBuffer(1, VBottom);
//----
return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                      |
//+------------------------------------------------------------------+
int deinit()
  {
//----
//----
return(0);
  }
//+------------------------------------------------------------------+
//|                                                                |
//+------------------------------------------------------------------+
void SetVTop(int index)
  {
double Juice, JuiceLevel;
// Check for Juice
JuiceLevel=Level*Point;
if(Period()==5)
   JuiceLevel=JuiceLevel/2;
//----
Juice=iStdDev(NULL,0,JuicePeriod,MODE_EMA,0,PRICE_CLOSE,index)-JuiceLevel;
if(Juice > JuiceLevelForAlert*Point)
   {
   VTop[index]=High[index]+ DistanceFromCandle;
   if(Notify)
      PlaySound("V-Top.wav");
   }
  }
//+------------------------------------------------------------------+
//|                                                                |
//+------------------------------------------------------------------+
void SetVBottom(int index)
  {
double Juice, JuiceLevel;
// Check for Juice
JuiceLevel=Level*Point;
if(Period()==5)
   JuiceLevel=JuiceLevel/2;
//----
Juice=iStdDev(NULL,0,JuicePeriod,MODE_EMA,0,PRICE_CLOSE,index)-JuiceLevel;
if(Juice > JuiceLevelForAlert*Point)
   {
   VBottom[index]=Low[index]- DistanceFromCandle;
   if(Notify)
      PlaySound("V-Bottom.wav");
   }
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                            |
//+------------------------------------------------------------------+
int start()
  {
int limit, i,State;
double WickPenetration;
double BullWickPenHi,BullWickPenLow;
double BearWickPenHi,BearWickPenLow;
double BullWickHi,BullWickLow,BullBody;
double BearWickHi,BearWickLow,BearBody;
int counted_bars=IndicatorCounted();
//---- check for possible errors
if(counted_bars<0)
   return(-1);
//---- last counted bar will be recounted
if(counted_bars>0)
   counted_bars--;
limit=Bars-counted_bars;
//----
WickPenetration=WickPercent/100.0;
DistanceFromCandle=Point*8;
for(i=1; i<=limit; i++)
   {
   bool  CurrentBull =false,
         CurrentBear =false,
         Bull          =false,
         Bear          =false,
         HiWick       =false,
         LoWick       =false;
   //----
   if(Open[i-1]<Close[i-1])
      CurrentBull=true;
   else
      CurrentBear=true;
   if(Open<Close)
      Bull=true;
   else
      Bear=true;
   //----
   BullWickHi=High - Close;
   BullWickLow=Open - Low;
   BullBody=Close - Open;
   BearWickHi=High - Open;
   BearWickLow=Close - Low;
   BearBody=Open - Close;
   // Check for VTOP
   if(High > High[i+1])
      {
      if(Bull)
         {
         if((BullWickHi > BullBody * WickRatio)) // && (BullWickHi > BullWickLow)
            HiWick=true;
         }
      if(Bear)
         {
         if((BearWickHi > BearBody * WickRatio)) // && (BearWickHi > BearWickLow)
            HiWick=true;
         }
      }
   // Check for VBottom
   if(Low < Low[i+1])
      {
      if(Bull)
         {
         if((BullWickLow > BullBody * WickRatio)) // && (BullWickLow > BullWickHi)
            LoWick=true;
         }
      if(Bear)
         {
         if((BearWickLow > BearBody * WickRatio)) // && (BearWickLow > BearWickHi)
            LoWick=true;
         }
      }
   // Set up State Table
   if(CurrentBear && Bull)
      State=1;
   if(CurrentBear && Bear)
      State=2;
   if(CurrentBull && Bull)
      State=3;
   if(CurrentBull && Bear)
      State=4;
   // Set Arrow
   if(HiWick)
      {
      BullWickPenHi=Close + BullWickHi * WickPenetration;
      BearWickPenHi=Open + BearWickHi * WickPenetration;
      switch(State)
         {
         case 1 : // CurrentBear && Bull
            if(UseNew)
               {
               if(Open[i-1] < BullWickPenHi)
                  SetVTop(i);
               }
            else
               {
               SetVTop(i);
               }

            break;
         case 2 : // CurrentBear && Bear
            if(UseNew)
               {
               if(Open[i-1] < BearWickPenHi)
                  SetVTop(i);
               }
            else
               {
               SetVTop(i);
               }
            break;
         case  3 : // CurrentBull && Bull
            if(UseNew)
               {
               if(Close[i-1] < BullWickPenHi)
                  SetVTop(i);
               }
            else
               {
               SetVTop(i);
               }
            break;
         case 4 : // CurrentBull && Bear
            if(UseNew)
               {
               if(Close[i-1] < BearWickPenHi)
                  SetVTop(i);
               }
            else
               {
               SetVTop(i);
               }
            break;
         }
      }
   if(LoWick)
      {
      BullWickPenLow=Open - BullWickLow * WickPenetration;
      BearWickPenLow=Close - BearWickLow * WickPenetration;
      //----
      switch(State)
         {
         case 1 : // CurrentBear && Bull
            if(UseNew)
               {
               if(Close[i-1] > BullWickPenLow)
                  SetVBottom(i);
               }
            else
               {
               SetVBottom(i);
               }
            break;
         case 2 : // CurrentBear && Bear
            if(UseNew)
               {
               if(Close[i-1] > BearWickPenLow)
                  SetVBottom(i);
               }
            else
               {
               SetVBottom(i);
               }
            break;
         case 3 : // CurrentBull && Bull
            if(UseNew)
               {
               if(Open[i-1] > BullWickPenLow)
                  SetVBottom(i);
               }
            else
               {
               SetVBottom(i);
               }
            break;
         case 4 : //CurrentBull && Bear)
            if(UseNew)
               {
               if(Open[i-1] > BearWickPenLow)
                  SetVBottom(i);
               }
            else
               {
               SetVBottom(i);
               }
            break;
         }
      }
   }

if(t!=Time[0])
   {
   if(VTop[1]<1111)
      {
      Alert(_Symbol+" Sell!!!");
      SendMail("Signal",_Symbol+" Sell!!!");
      }
   if(VBottom[1]<1111)
      {
      Alert(_Symbol+" Buy!!!");
      SendMail("Signal",_Symbol+" Buy!!!");
      }
   t=Time[0];
   }

return(0);
  }
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
[/pre]