//+------------------------------------------------------------------+
//| ICWR v0.1BETA indicator |
//| Copyright © 2005, John Lotoski |
//| mailto:john@fayandjohn.com |
//| |
//| update code Alex.Piech.FinGeR 21.01.2006 |
//| regnif@gmx.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2005, john@fayandjohn.com"
#property link "mailto:john@fayandjohn.com"
//----
#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Blue
//---- indicator parameters
extern string Parameters_1= "ZigZag";
extern int ExtDepth=10;
extern int ExtDeviation=5;
extern int ExtBackstep=3;
extern string Parameters_2="ActiveWave";
extern int calc.NumBars=50;
extern int RequiredWaveHeight=40;
//---- indicator buffers
double ExtMapBuffer[];
double ExtMapBuffer2[];
string buff_str;
string buff_str2;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(2);
//---- drawing settings
SetIndexStyle(0,DRAW_SECTION);
//---- indicator buffers mapping
SetIndexBuffer(0,ExtMapBuffer);
SetIndexBuffer(1,ExtMapBuffer2);
SetIndexEmptyValue(0,0.0);
ArraySetAsSeries(ExtMapBuffer,true);
ArraySetAsSeries(ExtMapBuffer2,true);
//---- indicator short name
IndicatorShortName("ICWR("+ExtDepth+","+ExtDeviation+","+ExtBackstep+")");
//---- initialization done
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit() // Removes all lines and text
{ // from the chart upon removal
Comment(" ");
for(int i=0;i<=Bars;i++)
{
buff_str="ActiveWave"+i;
ObjectDelete(buff_str);
}
for(int ii=0;ii<=Bars;ii++)
{
buff_str2="Fibo"+ii;
ObjectDelete(buff_str2);
}
//ObjectDelete(buff_str2);
return(0);
}
//+------------------------------------------------------------------+
//| Main function |
//+------------------------------------------------------------------+
int start()
{
if(Period()==5) {RequiredWaveHeight=40;}
if(Period()==240) {RequiredWaveHeight=150;}
int shift,shift2,back,lasthighpos,lastlowpos,LastActivePos;
double val,res;
double curlow,curhigh,lasthigh,lastlow,LastActive;
//----
int AWStartPos, AWEndPos;
double AWStart, AWEnd;
double FiboL, FiboH, FiboLC, FiboLR, FiboHR, FiboHC;
//----
for(shift=Bars-ExtDepth; shift>=0; shift--)
{
val=Low[Lowest(NULL,0,MODE_LOW,ExtDepth,shift)];
if(val==lastlow) // If this is not a new low
val=0.0; // - Reset the val marker to dbl 0
else // Otherwise, if it is a new low
{
lastlow=val; // - Record this new low in lastlow for future reference
if((Low[shift]-val)>(ExtDeviation*Point))
val=0.0; // If the low of the current bar is 6 or
else // Otherwise, if the current low is within 6 pips
{ // of the lowest low of the last 12 bars
for(back=1; back<=ExtBackstep; back++)
{ // Check back 3 bars, and if each value over those
res=ExtMapBuffer[shift+back];
if((res!=0)&&(res>val))
ExtMapBuffer[shift+back]=0.0;
}
}
}
//----
ExtMapBuffer[shift]=val; // Set our current bar to 0 (continuation of zig) if:
val=High[Highest(NULL,0,MODE_HIGH,ExtDepth,shift)];
//----
if(val==lasthigh)
val=0.0;
else
{
lasthigh=val;
if((val-High[shift])>(ExtDeviation*Point))
val=0.0;
else
{
for(back=1; back<=ExtBackstep; back++)
{
res=ExtMapBuffer2[shift+back];
if((res!=0)&&(res<val))
ExtMapBuffer2[shift+back]=0.0;
}
}
}
ExtMapBuffer2[shift]=val;
}
// final cutting
lasthigh=-1;
lasthighpos=-1;
lastlow=-1;
lastlowpos=-1;
//----
for(shift=Bars-ExtDepth; shift>=0; shift--)
{
curlow=ExtMapBuffer[shift];
curhigh=ExtMapBuffer2[shift];
//----
if((curlow==0)&&(curhigh==0)) // Break into the next cycle of the loop
continue; // to try and find the next zig-zap endpoint
if(curhigh!=0) // If there is a current high, then:
{
if(lasthigh>0) // If there was a previous high already:
{
if(lasthigh<curhigh) // - Set the last high to 0 if it is less than the current high
ExtMapBuffer2[lasthighpos]=0;
else // - Set the current bar to 0 if it is less than the last high
ExtMapBuffer2[shift]=0;
}
if(lasthigh<curhigh || lasthigh<0)
{ // If there was no last high or the last high was less than the current high
lasthigh=curhigh; // - Set the current high to be the last high (keep record of it)
lasthighpos=shift; // - Set the current bar to the lasthighpos (keep record of it)
}
lastlow=-1; // Since we just had a new high, reset the lastlow flag
}
if(curlow!=0) // If there is a low, then do the same as above, except for the case of lows instead of highs
{
if(lastlow>0)
{
if(lastlow>curlow)
ExtMapBuffer[lastlowpos]=0;
else
ExtMapBuffer[shift]=0;
}
if((curlow<lastlow)||(lastlow<0))
{
lastlow=curlow;
lastlowpos=shift;
}
lasthigh=-1;
}
}
for(shift=Bars-1; shift>=0; shift--)
{ // Go through all the bars
if(shift>=Bars-ExtDepth) // If we are not at the beginning comparison bars,
ExtMapBuffer[shift]=0.0; // then set the low buffer to 0
else
{ // Otherwise:
res=ExtMapBuffer2[shift]; // - If the current bar has a high, set the low
if(res!=0.0) // buffer to contain the high
ExtMapBuffer[shift]=res;
} // Looks like this function brings the highs into the lows
}
for(int shifta=0; shifta<=calc.NumBars; shifta++)
{
LastActive=-1;
LastActivePos=-1;
for(shift=shifta; shift<=Bars-ExtDepth; shift++)
{
if(ExtMapBuffer[shift]!=0.0)
{
if(LastActive > 0)
{
if(MathAbs(LastActive - ExtMapBuffer[shift])>=RequiredWaveHeight*Point)
{
AWStartPos=shift;
AWStart=ExtMapBuffer[shift];
AWEndPos=LastActivePos;
AWEnd=LastActive;
buff_str="ActiveWave"+shift;
buff_str2="Fibo"+shift;
//if(ObjectFind("ActiveWave") != 0)
// {
ObjectCreate(buff_str, OBJ_TREND, 0, Time[AWStartPos], AWStart, Time[AWEndPos], AWEnd);
ObjectSet(buff_str, OBJPROP_STYLE, STYLE_SOLID);
ObjectSet(buff_str, OBJPROP_COLOR, Red);
ObjectSet(buff_str, OBJPROP_WIDTH, 2);
ObjectSet(buff_str, OBJPROP_RAY, false);
// }
// else
//{
// ObjectCreate("ActiveWave", OBJ_TREND, 0, Time[AWStartPos], AWStart, Time[AWEndPos], AWEnd);
// ObjectSet("ActiveWave", OBJPROP_STYLE, STYLE_SOLID);
// ObjectSet("ActiveWave", OBJPROP_COLOR, Red);
// ObjectSet("ActiveWave", OBJPROP_WIDTH, 3);
// ObjectSet("ActiveWave", OBJPROP_RAY, false);
// }
if(AWStart < AWEnd)
{
FiboL=AWStart;
FiboH=AWEnd;
}
else
{
FiboL=AWEnd;
FiboH=AWStart;
}
FiboLC=FiboL + (FiboH - FiboL)*0.25;
FiboLR=FiboL + (FiboH - FiboL)*0.382;
FiboHR=FiboL + (FiboH - FiboL)*0.618;
FiboHC=FiboL + (FiboH - FiboL)*0.75;
if(1==1)
{
ObjectCreate(buff_str2, OBJ_FIBO, 0, Time[AWStartPos], AWStart, Time[AWEndPos], AWEnd);
ObjectSet(buff_str2, OBJPROP_STYLE, STYLE_DOT);
ObjectSet(buff_str2, OBJPROP_COLOR, Green);
ObjectSet(buff_str2, OBJPROP_WIDTH, 0.5);
ObjectSet(buff_str2, OBJPROP_FIBOLEVELS, 6);
ObjectSet(buff_str2, OBJPROP_RAY, false);
/* ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+0, FiboL);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+1, FiboLC);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+2, FiboLR);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+3, FiboHR);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+4, FiboHC);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+6, FiboH); */
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+0, 0);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+1, 0.25);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+2, 0.382);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+3, 0.618);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+4, 0.75);
ObjectSet(buff_str2, OBJPROP_FIRSTLEVEL+5, 1);
}
else
{
ObjectMove(buff_str2, 0, Time[AWStartPos], AWStart);
ObjectMove(buff_str2, 1, Time[AWEndPos], AWEnd);
}
break;
}
}
LastActive=ExtMapBuffer[shift];
LastActivePos=shift;
}
}
}
if(MarketInfo(Symbol(),MODE_SWAPLONG)>0) string swap="longs.";
else swap="shorts.";
if(MarketInfo(Symbol(),MODE_SWAPLONG)<0 && MarketInfo(Symbol(),MODE_SWAPSHORT)<0) swap="your broker. :(";
double rsi=iRSI(Symbol(),1440,14,PRICE_CLOSE,0);
Comment("Daily RSI= ",rsi,"\n",
"Swap favors ",swap,"\n",
"Fibo H: ",FiboH,"\n",
"FiboHC: ",FiboHC,"\n",
"FiboHR: ",FiboHR,"\n",
"FiboLR: ",FiboLR,"\n",
"FiboLC: ",FiboLC,"\n",
"Fibo L: ",FiboL);
}
//+------------------------------------------------------------------+
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
Series array that contains open time of each bar
Indicator Curves created:
Implements a curve of type DRAW_SECTION
Indicators Used:
Relative strength index
Custom Indicators Used:
Order Management characteristics:
Other Features: