#property indicator_chart_window
#property indicator_buffers 6
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 Blue
#property indicator_color4 Red
#property indicator_color5 Red
#property indicator_color6 Blue
#property indicator_width3 2
#property indicator_width4 2
#property indicator_width5 1
#property indicator_width6 1
extern int TM_Period = 7;
extern int TM_Shift = 2;
extern int MinADX = 22;
extern int MinRisingADX = 15;
extern int MoveArrowFromCandleInPoints = 10;
extern double NTMinGap = 5;
extern bool risingADXoverrides = true;
double SpanA_Buffer[];
double SpanB_Buffer[];
double BufferBuySignals[];
double BufferSellSignals[];
double BufferExitBuySignals[];
double BufferExitSellSignals[];
int a_begin;
int init()
{
a_begin=TM_Shift;
SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID);
SetIndexBuffer(0,SpanB_Buffer);
SetIndexDrawBegin(0,TM_Period+a_begin-1);
SetIndexLabel(0,"TM_Period+");
SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID);
SetIndexBuffer(1,SpanA_Buffer);
SetIndexDrawBegin(1,TM_Period+a_begin-1);
SetIndexLabel(1,"TM_Period");
SetIndexStyle(2,DRAW_ARROW);
SetIndexBuffer(2,BufferBuySignals);
SetIndexArrow(2,233);
SetIndexLabel(2,"BUY");
SetIndexStyle(3,DRAW_ARROW);
SetIndexBuffer(3,BufferSellSignals);
SetIndexArrow(3,234);
SetIndexLabel(3,"SELL");
SetIndexStyle(4,DRAW_ARROW);
SetIndexBuffer(4,BufferExitBuySignals);
SetIndexArrow(4,217);
SetIndexLabel(4,"CLOSE");
SetIndexStyle(5,DRAW_ARROW);
SetIndexBuffer(5,BufferExitSellSignals);
SetIndexArrow(5,218);
SetIndexLabel(5,"CLOSE");
IndicatorShortName("TRENDMGRNT");
string SymbolText = Symbol();
if (StringLen(SymbolText) == 7){
SymbolText = StringSubstr(SymbolText, 0,6);
}
return(0);
}
int start()
{
int i,k;
int counted_bars=IndicatorCounted();
double high,low,price;
if(Bars<=TM_Period) return(0);
if(counted_bars<1)
{
for(i=1;i<=TM_Period;i++)
{
SpanA_Buffer[Bars-i]=0;
SpanB_Buffer[Bars-i]=0;
BufferBuySignals[Bars-i]=0;
BufferSellSignals[Bars-i]=0;
BufferExitBuySignals[Bars-i]=0;
BufferExitSellSignals[Bars-i]=0;
}
}
i=Bars-TM_Period;
if(counted_bars>TM_Period) i=Bars-counted_bars-1;
while(i>=0)
{
high=High[i]; low=Low[i]; k=i-1+TM_Period;
while(k>=i)
{
price=High[k];
if(high<price) high=price;
price=Low[k];
if(low>price) low=price;
k--;
}
SpanA_Buffer[i] = (high+low)/2.0;
SpanB_Buffer[i] = SpanA_Buffer[i+TM_Shift];
BufferBuySignals[i]=0;
BufferSellSignals[i]=0;
BufferExitBuySignals[i]=0;
BufferExitSellSignals[i]=0;
if (CheckClose(i, OP_BUY)==true) {
BufferExitBuySignals[i]=Low[i]-Point*MoveArrowFromCandleInPoints;
}
if (CheckClose(i, OP_SELL)==true) {
BufferExitSellSignals[i]=High[i]+Point*MoveArrowFromCandleInPoints;
}
if (SpanA_Buffer[i] != SpanB_Buffer[i]) {
if ((SpanA_Buffer[i] > SpanB_Buffer[i]) && (SpanA_Buffer[i+1] <= SpanB_Buffer[i+1])) {
if (CheckAdx(i, OP_BUY)==true) {
BufferBuySignals[i]=Low[i]-Point*MoveArrowFromCandleInPoints;
if (i == 1) {
Alert("Buy on TM");
}
}
else
{
BufferBuySignals[i]=0;
}
}
else if ((SpanA_Buffer[i] < SpanB_Buffer[i]) && (SpanA_Buffer[i+1] >= SpanB_Buffer[i+1])) {
if (CheckAdx(i, OP_SELL)==true) {
BufferSellSignals[i]=High[i]+Point*MoveArrowFromCandleInPoints;
if (i == 1) {
Alert("Sell on TM");
}
}
else{
BufferSellSignals[i]=0;
}
}
}
i--;
}
return(0);
}
bool CheckClose(int i, int OrderTyp) {
bool retval = false;
// get the WindowFind
//double NewTrend = iCustom(Symbol(),Period(), 9,9,PRICE_CLOSE,i);
double NewTrendSilver = iCustom(Symbol(),Period(), "NewTrend",14,9,0, i);
double NewTrendOrange = iCustom(Symbol(),Period(), "NewTrend",14,9,1, i);
double OldNewTrendSilver = iCustom(Symbol(),Period(), "NewTrend",14,9,0, i+1);
double OldNewTrendOrange = iCustom(Symbol(),Period(), "NewTrend",14,9,1, i+1);
double Perc = MathAbs(1-(NewTrendSilver/NewTrendOrange))*100;
if (Perc > NTMinGap) {
if (OrderTyp == OP_BUY) {
if ((OldNewTrendSilver < OldNewTrendOrange) && (NewTrendSilver > NewTrendOrange) )
{retval = true;}
}
if (OrderTyp == OP_SELL) {
if ((OldNewTrendSilver > OldNewTrendOrange) && (NewTrendSilver < NewTrendOrange) )
{retval = true;}
}
}
return(retval);
}
// check all filters here, not just adx
bool CheckAdx(int i, int OrderTyp) {
bool retval = false;
// get the WindowFind
//double NewTrend = iCustom(Symbol(),Period(), 9,9,PRICE_CLOSE,i);
double NewTrendSilver = iCustom(Symbol(),Period(), "NewTrend",14,9,0, i);
double NewTrendOrange = iCustom(Symbol(),Period(), "NewTrend",14,9,1, i);
// silver coming back over zero line might be good exits?
double Perc = MathAbs(1-(NewTrendSilver/NewTrendOrange))*100;
// silver > orange is buy
//double Juice = iCustom(Symbol(),Period(), "Juice",0, i);
//double redflattrend = iCustom(Symbol(),Period(), "flat trend",Period(),0, i);
//double greenflattrend = iCustom(Symbol(),Period(), "flat trend",Period(),1, i);
//double yellowflattrend = iCustom(Symbol(),Period(), "flat trend",2, i);
double adx = iADX(Symbol(),Period(), 14, PRICE_CLOSE, MODE_MAIN,i);
double adxold = iADX(Symbol(),Period(), 14, PRICE_CLOSE, MODE_MAIN,i+1);
bool adxvalid = false;
if (risingADXoverrides ==true)
{
if (adxold < adx) // rising
{
if (adx > MinRisingADX)
{ adxvalid = true;}
}
else //falling
{
if (adx > MinADX)
{ adxvalid = true;}
}
}
else
{
if (adx >= MinADX) {
adxvalid = true;
}
}
if (OrderTyp == OP_BUY)
{
if ((NewTrendSilver > NewTrendOrange) && (adxvalid == true) && (Perc > NTMinGap) )
//if ((Juice >= minJuice) && (adx >= MinADX) )(SolarWind >= minSolarWind) && (Juice >= minJuice) &&&& (greenflattrend>0)
{
retval = true;
}
else
{
retval = false;
}
}
else if (OrderTyp == OP_SELL)
{
if ((NewTrendSilver < (NewTrendOrange - NTMinGap)) && (adxvalid == true)&& (Perc > NTMinGap) )
//if ((Osma <= -minOsma) && (SolarWind <= minSolarWind) && (Juice >= minJuice) && (adxvalid == true) && (redflattrend>0) )
// if ((Juice >= minJuice) && (adx >= MinADX) )
{
retval = true;
}
else
{
retval = false;
}
}
return(retval);
}
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Implements a curve of type DRAW_ARROW
Indicators Used:
Movement directional index
Custom Indicators Used:
NewTrend
Order Management characteristics:
Other Features:
It issuies visual alerts to the screen