//KurlFX 2009.01.30
//+-------------------------------------------------------------------------+
//| MultiTimeFrameSupportResistance-Lines *** MTFSR *** |
//+-------------------------------------------------------------------------+
#property copyright "Copyright (c) 2009,Kurl FX"
#property indicator_chart_window
//sub2
extern int FastEMA = 5;
extern int SlowEMA = 100;
extern int SignalSMA = 3;
//sub3
extern int K_Period = 5;
extern int D_Period = 3;
extern int Slowing = 3;
extern string MyCurrency="USD";
extern string FreeComnt=" ";
extern bool Alerts = false;
extern color ZoneCol = Pink;
color Txcol=Green; //line text color
color STxcol=Olive; //signal line text color ;support
color RTxcol=Crimson; //signal line text color ;resistance
int TF[6]={5,15,30,60,240,1440}; //timeframe M5 - D1
string TMstr[6]={"M5","M15","M30","H1","H4","D1"},Settm[6];
color Rcol[6]={DeepPink,Red,C'235,0,0',C'215,0,0',C'195,0,0',C'175,0,0'}; //"R"color
color Scol[6]={Green,Lime,C'0,230,0',C'0,205,0',C'0,180,0',C'0,155,0'}; //"S"color
double BS[6],GS[6]; //main variables
static double pAlrt1,pAlrt2; //former alert value
string Label,MyC,QtC;
datetime Tmgap,Rftm;
string Tdn="@¥",Tup="@£ ";
int Lotsz;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- Label
Label="MTFSR:MACD("+FastEMA+","+SlowEMA+","+SignalSMA+"),Stochastic("+K_Period+","+D_Period+","+Slowing+"),HeikinAshi";
int obj_total=ObjectsTotal();
string name;
for(int i=0; i<obj_total; i++)
{
name=ObjectName(obj_total-1-i);
if (StringSubstr(name,0,5)=="MTFSR") ObjectDelete(name);
}
//----
Rftm=TimeLocal();
Tmgap=Rftm-TimeCurrent();
QtC=StringSubstr(Symbol(),3,3);
MyC=MyCurrency;
Lotsz= MarketInfo(Symbol(),MODE_LOTSIZE);
//--"Resistance"
ObjectCreate("MTFSR_lb_R", OBJ_LABEL, 0, 0, 0);
ObjectSetText("MTFSR_lb_R","Resistance",14,"Arial",Red);
ObjectSet("MTFSR_lb_R",OBJPROP_CORNER,1);
ObjectSet("MTFSR_lb_R",OBJPROP_YDISTANCE,2);
ObjectSet("MTFSR_lb_R",OBJPROP_XDISTANCE,2);
//--"Support"
ObjectCreate("MTFSR_lb_S", OBJ_LABEL, 0, 0, 0);
ObjectSetText("MTFSR_lb_S","Support",14,"Arial",Green);
ObjectSet("MTFSR_lb_S",OBJPROP_CORNER,1);
ObjectSet("MTFSR_lb_S",OBJPROP_YDISTANCE,16);
ObjectSet("MTFSR_lb_S",OBJPROP_XDISTANCE,2);
for(i=0;i<=5;i++)
{
//--"S"
ObjectCreate("MTFSR_lb_S "+TMstr[i], OBJ_LABEL, 0, 0, 0);
ObjectSetText("MTFSR_lb_S "+TMstr[i],"S",14,"Arial",Scol[i]);
ObjectSet("MTFSR_lb_S "+TMstr[i],OBJPROP_CORNER,1);
ObjectSet("MTFSR_lb_S "+TMstr[i],OBJPROP_YDISTANCE,16*i+35);
ObjectSet("MTFSR_lb_S "+TMstr[i],OBJPROP_XDISTANCE,18);
//--"R"
ObjectCreate("MTFSR_lb_R "+TMstr[i], OBJ_LABEL, 0, 0, 0);
ObjectSetText("MTFSR_lb_R "+TMstr[i],"R",14,"Arial",Rcol[i]);
ObjectSet("MTFSR_lb_R "+TMstr[i],OBJPROP_CORNER,1);
ObjectSet("MTFSR_lb_R "+TMstr[i],OBJPROP_YDISTANCE,16*i+35);
ObjectSet("MTFSR_lb_R "+TMstr[i],OBJPROP_XDISTANCE,2);
//--Pts.
ObjectCreate("MTFSR_lb_Pt"+TMstr[i], OBJ_LABEL, 0, 0, 0);
ObjectSetText("MTFSR_lb_Pt"+TMstr[i]," ",14,"Arial",0);
ObjectSet("MTFSR_lb_Pt"+TMstr[i],OBJPROP_CORNER,1);
ObjectSet("MTFSR_lb_Pt"+TMstr[i],OBJPROP_YDISTANCE,16*i+35);
ObjectSet("MTFSR_lb_Pt"+TMstr[i],OBJPROP_XDISTANCE,34);
//--line text
ObjectCreate("MTFSR_tx_Pt"+TMstr[i], OBJ_TEXT, 0, 0, 0);
ObjectSetText("MTFSR_tx_Pt"+TMstr[i],"init",9,"Arial",0);
}
//--spread zone
ObjectCreate("MTFSR_sp_zone",OBJ_RECTANGLE,0,0,Bid,D'2020.01.01 00:00',Ask);
ObjectSet("MTFSR_sp_zone",OBJPROP_COLOR,ZoneCol);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
int obj_total=ObjectsTotal();
string name;
for(int i=0; i<obj_total; i++)
{
name=ObjectName(obj_total-1-i);
string chk=StringSubstr(name,0,5);
if (chk=="MFTSR") ObjectDelete(name);
}
Comment(" ");
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
ObjectSet("MTFSR_sp_zone",OBJPROP_PRICE1,Bid);
ObjectSet("MTFSR_sp_zone",OBJPROP_PRICE2,Ask);
int symsp= MarketInfo(Symbol(),MODE_SPREAD);
int cntbar=IndicatorCounted();
int bvc=WindowBarsPerChart()/4;
color col[6];
string mgstr,spstr,strt[6],cmnt="",cmntd;
double bb,ep;
if (QtC==MyC) bb=1.0;//
else
{
double qm,mq;
qm=iClose(QtC+MyC,0,0);mq=iClose(MyC+QtC,0,0);
if(qm!=0) bb=qm;
else
{
if(mq!=0) bb=1/mq;
else
{
double bbu,ubb,uq,qu,mu,um;
qu=iClose(QtC+"USD",0,0);uq=iClose("USD"+QtC,0,0);
mu=iClose(MyC+"USD",0,0);um=iClose("USD"+MyC,0,0);
if(qu!=0) bbu=qu;
else if(uq!=0) bbu=1/uq;
if(um!=0) ubb=um;
else if(mu!=0) ubb=1/mu;
bb=bbu*ubb;
}
}
}
bb *= Lotsz/MathPow(10,Digits);
mgstr="1 Pt. = "+DoubleToStr(bb,Digits)+" "+MyC+"/Lot";
spstr= "Spread = "+DoubleToStr(symsp,0)+" Pts. = "+ DoubleToStr(symsp*bb,0)+" "+MyC+"/Lot";
int cntis=0,cntir=0;
double hisup=0,lores=999;
for (int i=5; i>=0; i-- )
{
double pGS=GS[i];
BS[i]=iCustom(NULL,TF[i],"MTFPI-sub1",FastEMA,SlowEMA,SignalSMA,K_Period,D_Period,Slowing,0,0);
GS[i]=iCustom(NULL,TF[i],"MTFPI-sub1",FastEMA,SlowEMA,SignalSMA,K_Period,D_Period,Slowing,1,0);
if(BS[i]==0)//no line,erase
{
if(ObjectFind("MTFSR_"+ TMstr[i]+" Support ") !=-1)ObjectDelete("MTFSR_"+ TMstr[i]+" Support ");
if(ObjectFind("MTFSR_"+ TMstr[i]+" Resistance ") !=-1)ObjectDelete("MTFSR_"+ TMstr[i]+" Resistance ");
ObjectSetText("MTFSR_tx_Pt"+TMstr[i]," ",9,"Arial",0);
ObjectSetText("MTFSR_lb_Pt"+TMstr[i]," ",14,"Arial",0);
strt[i]=TMstr[i];
cmntd="--"+"\n";
}
else//line
{
if(BS[i]==-1)//resistance
{
col[i]=Rcol[i];
strt[i]=TMstr[i]+" Resistance ";
if(ObjectFind("MTFSR_"+ TMstr[i]+" Support ") !=-1)ObjectDelete("MTFSR_"+ TMstr[i]+" Support ");
string typ="Sell ";double bidask=Ask;color slc=RTxcol;ep=Bid;cntir++;
if(GS[i]<lores)lores=GS[i];
}
else//support
{
col[i]=Scol[i];
strt[i]= TMstr[i]+" Support ";
if(ObjectFind("MTFSR_"+ TMstr[i]+" Resistance ") !=-1)ObjectDelete("MTFSR_"+ TMstr[i]+" Resistance ");
typ="Buy ";bidask=Bid;slc=STxcol;ep=Ask;cntis++;
if(GS[i]>hisup)hisup=GS[i];
}
if( ObjectFind("MTFSR_"+strt[i])!=-1)//already exist
{
if (GS[i] != pGS)//move
{
ObjectSet("MTFSR_"+strt[i], OBJPROP_PRICE1, GS[i]);
if (cntbar==0) Settm[i]=" ";
else Settm[i]="#Local time: "+TimeToStr(TimeLocal(),TIME_SECONDS);
}
}
else//create new
{
ObjectCreate("MTFSR_"+strt[i], OBJ_HLINE, 0, 0, GS[i]);
ObjectSet("MTFSR_"+strt[i], OBJPROP_COLOR, col[i]);
ObjectSet("MTFSR_"+strt[i], OBJPROP_WIDTH, 2);
if (cntbar==0) Settm[i]=" ";
else Settm[i]="#Local time: "+TimeToStr(TimeLocal(),TIME_SECONDS);
if (i==0)
{
ObjectSet("MTFSR_"+strt[0], OBJPROP_WIDTH, 3);
if(BS[0]==1){int cnti=cntis;double stp=hisup;double tg=lores;}else{cnti=cntir;stp=lores;tg=hisup;}
double spa=symsp*Point;
if(MathAbs(ep-stp)>spa*2.4 && MathAbs(tg-ep)>spa*3.0)int f=1;else f=0;
if(cntbar!=0 && stp!=pAlrt1 && stp!=pAlrt2 && cnti>=3 && f==1)
{
if(Alerts==true)
{
if(pAlrt1==0)string pal1="";else pal1=DoubleToStr(pAlrt1,Digits)+">>";
if(pAlrt2==0)string pal2="";else pal2=DoubleToStr(pAlrt2,Digits)+">>";
Alert("MTFSR_M5 "+typ+Symbol()+" @"+DoubleToStr(ep,Digits)+" //*"+pal2+pal1+DoubleToStr(stp,Digits));
pAlrt2=pAlrt1;pAlrt1=stp;
}
string tm=TimeToStr(TimeLocal(),TIME_DATE|TIME_MINUTES);
datetime ct=TimeCurrent();//servertime
if(ObjectFind("SGNL"+typ+tm)!=-1)
{
ObjectSet("SGNL"+typ+tm,OBJPROP_PRICE1,ep);
ObjectSet("SGNL"+"stp"+typ+tm,OBJPROP_PRICE1,stp);
ObjectSet("SGNL"+"jnt"+typ+tm,OBJPROP_PRICE1,ep);
ObjectSet("SGNL"+"jnt"+typ+tm,OBJPROP_PRICE2,stp);
}
else
{
//--entry
ObjectCreate("SGNL"+typ+tm,OBJ_ARROW,0,ct,ep);
ObjectSet("SGNL"+typ+tm,OBJPROP_ARROWCODE,SYMBOL_RIGHTPRICE);
ObjectSet("SGNL"+typ+tm,OBJPROP_COLOR,col[0]);
//--stop
ObjectCreate("SGNL"+"stp"+typ+tm,OBJ_ARROW,0,ct,stp);
ObjectSet("SGNL"+"stp"+typ+tm,OBJPROP_ARROWCODE,213);
ObjectSet("SGNL"+"stp"+typ+tm,OBJPROP_COLOR,col[0]);
//--joint
ObjectCreate("SGNL"+"jnt"+typ+tm,OBJ_TREND,0,ct,ep,ct,stp);
ObjectSet("SGNL"+"jnt"+typ+tm,OBJPROP_COLOR,col[0]);
ObjectSet("SGNL"+"jnt"+typ+tm,OBJPROP_RAY,FALSE);
ObjectSet("SGNL"+"jnt"+typ+tm,OBJPROP_STYLE,STYLE_DOT);
}
}
}
}
string mrg,mrgl,mrgc,mrgsig;
double mrgp=(bidask-GS[i])*MathPow(10,Digits);
if (mrgp>=0)mrgsig=Tup; else mrgsig=Tdn;
mrg=DoubleToStr(mrgp,0);
mrgl=DoubleToStr(mrgp*bb,0);
mrgc=mrg+" P( "+mrgl+" "+MyC+"/Lot )";
cmntd=DoubleToStr(GS[i],Digits)+mrgsig+mrg+" P= "+mrgl+" "+MyC+"/Lot "+Settm[i]+"\n";
double pr1=ObjectGet("MTFSR_"+ strt[i],OBJPROP_PRICE1);
ObjectSet("MTFSR_tx_Pt"+TMstr[i],OBJPROP_PRICE1,pr1);
ObjectSet("MTFSR_tx_Pt"+TMstr[i],OBJPROP_TIME1,Time[bvc]);
if(i==0)color c=slc;else c=Txcol;
ObjectSetText("MTFSR_tx_Pt"+TMstr[i],mrgc,9,"Arial",c);
ObjectSetText("MTFSR_lb_Pt"+TMstr[i],mrg+" Pts.",14,"Arial",col[i]);
}
cmnt=cmnt+strt[i]+": "+cmntd;
}
Comment(Label,"\n",mgstr,"\n",spstr,"\n",cmnt,QtC,"/",MyC,":",bb,"\n",TimeToStr(Rftm,TIME_DATE|TIME_SECONDS),"\n",FreeComnt);
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
MTFPI-sub1
Order Management characteristics:
Other Features:
It issuies visual alerts to the screen