//+------------------------------------------------------------------+
//| Ind-SKB-1.mq4 |
//| Copyright © 2005, Kara Software Corp. |
//| |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, Kara Software Corp."
#property link ""
//----
#property indicator_chart_window
#property indicator_buffers 6
#property indicator_color1 Red
#property indicator_color2 Green
#property indicator_color3 Blue
#property indicator_color4 Blue
#property indicator_color5 FireBrick
#property indicator_color6 FireBrick
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
double ExtMapBuffer4[];
double ExtMapBuffer5[];
double ExtMapBuffer6[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,ExtMapBuffer1);
SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,ExtMapBuffer3);
SetIndexStyle(3,DRAW_LINE);
SetIndexBuffer(3,ExtMapBuffer4);
SetIndexStyle(4,DRAW_ARROW);
SetIndexArrow(4,217);
SetIndexBuffer(4,ExtMapBuffer5);
SetIndexEmptyValue(4,0.0);
SetIndexStyle(5,DRAW_ARROW);
SetIndexArrow(5,218);
SetIndexBuffer(5,ExtMapBuffer6);
SetIndexEmptyValue(5,0.0);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
double FU,FL;
int CCU1,CCU2,CCL1,CCL2,shift,i,j;
//----
CCU1=0;CCU2=0;CCL1=0;CCL2=0;
for(shift=Bars-100;shift>=0;shift--)
{
FU=0;FL=0;
FU=iFractals(NULL,0,MODE_UPPER,shift+3);
FL=iFractals(NULL,0,MODE_LOWER,shift+3);
if(FU>0)
{
i=shift+3+1;
while(iFractals(NULL,0,MODE_UPPER,i)==0)i++;
for(j=shift+3;j<=i;j++)
{
if(iFractals(NULL,0,MODE_LOWER,j)>0)
{
CCU1=shift+3;
CCU2=i;
if(CCL1==0)CCL1=j;
else
if(Low[j]<Low[CCL1])CCL1=j;
CCL2=0;
}
}
if(j==i && High[i]>High[shift+3])FU=0;
}
if(FL>0)
{
i=shift+3+1;
while(iFractals(NULL,0,MODE_LOWER,i)==0)i++;
for(j=shift+3;j<=i;j++)
{
if(iFractals(NULL,0,MODE_UPPER,j)>0)
{
if(CCU1==0)CCU1=j;
else
if(High[j]>High[CCU1])CCU1=j;
CCU2=0;
CCL1=shift+3;
CCL2=i;
}
}
}
if(CCU1>0 && CCU2>0)
{
if(High[CCU1]>High[CCU2])
{
ExtMapBuffer1[shift]=High[CCU1]+(High[CCU1]-High[CCU2])/(CCU2-CCU1)*(CCU1-shift);
ExtMapBuffer2[shift]=Low[CCL1]+(High[CCU1]-High[CCU2])/(CCU2-CCU1)*(CCL1-shift);
}
if(High[CCU1]<High[CCU2])
{
ExtMapBuffer1[shift]=High[CCU1]-(High[CCU2]-High[CCU1])/(CCU2-CCU1)*(CCU1-shift);
ExtMapBuffer2[shift]=Low[CCL1]-(High[CCU2]-High[CCU1])/(CCU2-CCU1)*(CCL1-shift);
}
}
if(CCL1>0 && CCL2>0)
{
if(Low[CCL1]<Low[CCL2])
{
ExtMapBuffer1[shift]=High[CCU1]-(Low[CCL2]-Low[CCL1])/(CCL2-CCL1)*(CCU1-shift);
ExtMapBuffer2[shift]=Low[CCL1]-(Low[CCL2]-Low[CCL1])/(CCL2-CCL1)*(CCL1-shift);
}
if(Low[CCL1]>Low[CCL2])
{
ExtMapBuffer1[shift]=High[CCU1]+(Low[CCL1]-Low[CCL2])/(CCL2-CCL1)*(CCU1-shift);
ExtMapBuffer2[shift]=Low[CCL1]+(Low[CCL1]-Low[CCL2])/(CCL2-CCL1)*(CCL1-shift);
}
}
}
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the lowest prices of each bar
Series array that contains the highest prices of each bar
Indicator Curves created:
Implements a curve of type DRAW_LINE
Implements a curve of type DRAW_ARROW
Indicators Used:
Fractals
Custom Indicators Used:
Order Management characteristics:
Other Features: