//+------------------------------------------------------------------+
//| IFish.mq4 |
//| Infodragon |
//| infodragon@rdrtech.com |
//+------------------------------------------------------------------+
#property copyright "Infodragon"
#property link "infodragon@rdrtech.com"
#property indicator_buffers 2
#property indicator_color1 LightSlateGray
#property indicator_color2 DarkSlateGray
#property indicator_separate_window
#property indicator_level1 0.8
#property indicator_level2 -0.8
#property indicator_level3 0
double value1[];
double value2[];
double ifish[];
double ifishB[];
double ifishS[];
double Bulls[];
double Bears[];
double CMO[];
extern int CMOBars = 15;
extern int WmaBars = 3;
extern double trigger = 0.5;
extern int offset = 1;
extern int AppliedPrice = 5;
extern bool ZeroCross = false;
int status = 0; // 0 nothing yet, 1 buy, -1 sell
/*
PRICE_CLOSE 0 Close price.
PRICE_OPEN 1 Open price.
PRICE_HIGH 2 High price.
PRICE_LOW 3 Low price.
PRICE_MEDIAN 4 Median price, (high+low)/2.
PRICE_TYPICAL 5 Typical price, (high+low+close)/3.
PRICE_WEIGHTED 6 Weighted close price, (high+low+close+close)/4.
*/
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(8);
SetIndexBuffer(0,ifishB);
SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,4);
SetIndexBuffer(1,ifishS);
SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,4);
SetIndexBuffer(2,ifish);
SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,4);
SetIndexBuffer(3,value1);
SetIndexBuffer(4,value2);
SetIndexBuffer(5,Bulls);
SetIndexBuffer(6,Bears);
SetIndexBuffer(7,CMO);
SetLevelValue(0,trigger);
SetLevelValue(1,-trigger);
return(0);
}
int deinit()
{
return(0);
}
int start()
{
int limit;
int counted_bars=IndicatorCounted();
if(counted_bars<0) counted_bars=0;
if(counted_bars>0) counted_bars--;
limit=Bars-counted_bars;
double Price1, Price2;
for(int i = 0 ;i < limit ;i++)
{
Price1 = iMA(NULL,0,1,0,0,AppliedPrice,i+offset);
Price2 = iMA(NULL,0,1,0,0,AppliedPrice,i+1+offset);
Bulls[i] = 0.5*(MathAbs(Price1-Price2)+(Price1-Price2));
Bears[i] = 0.5*(MathAbs(Price1-Price2)-(Price1-Price2));
}
for (i=0;i<=limit;i++)
{
double SumBulls = 0, SumBears=0;
for (int j=0;j<CMOBars;j++)
{
SumBulls += Bulls[i+j];
SumBears += Bears[i+j];
}
if (SumBulls+SumBears == 0)
CMO[i] = 0;
else
CMO[i] = (SumBulls-SumBears)/(SumBulls+SumBears)*100;
}
for(i=0;i<=limit;i++) value1[i] = 0.05*CMO[i];
for(j = 0 ;j <= limit ;j++) value2[j] = iMAOnArray(value1,0,WmaBars,0,MODE_LWMA,j);
for(int f = 0 ;f <= limit ;f++) ifish[f] = (MathExp(2*value2[f])-1)/(MathExp(2*value2[f])+1);
if (ZeroCross == true)
{
for(f = 0 ;f <= limit ;f++)
{
ifishB[f] = 0;
ifishS[f] = 0;
if (ifish[f] > 0)
ifishB[f] = ifish[f];
else
ifishS[f] = ifish[f];
}
}
else
{
for(f=limit-1;f>=0;f--)
{
ifishB[f] = 0;
ifishS[f] = 0;
if ( (ifish[f] > trigger) || (ifish[f] > -trigger && ifish[f+1] <= -trigger) )
{
status = 1;
}
else if ( (ifish[f] < -trigger) || (ifish[f] < trigger && ifish[f+1] >= trigger) )
{
status = -1;
}
if (status == 1)
{
ifishB[f] = ifish[f];
}
else if (status == -1)
ifishS[f] = ifish[f];
}
}
return(0);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: