//+------------------------------------------------------------------+ //| 4TF HAS Bar.mq4 | //| Modified by Matsu, from #MTF Supertrend Bar.mq4 | //| Copyright © 2006, Eli hayun | //| http://www.elihayun.com | //+------------------------------------------------------------------+ #property copyright "Copyright © 2006, Eli hayun" #property link "http://www.elihayun.com" #property indicator_separate_window #property indicator_minimum 0 #property indicator_maximum 5 #property indicator_buffers 8 #property indicator_color1 Red #property indicator_color2 Blue #property indicator_color3 Red #property indicator_color4 Blue #property indicator_color5 Red #property indicator_color6 Blue #property indicator_color7 Red #property indicator_color8 Blue //---- parameters extern int MA_Period=14; extern int MA_AppliedPrice = 0;//0=close, 1=open, 2=high, 3=low, 4=median(high+low)/2, 5=typical(high+low+close)/3, 6=weighted(high+low+close+close)/4 extern int BarWidth = 0; extern color BarColorUp = Blue; extern color BarColorDown = Red; extern color TextColor = White; extern int MaxBars=500; double Gap = 1; // Gap between the lines of bars //---- buffers double buf4_up[]; double buf4_down[]; double buf3_up[]; double buf3_down[]; double buf2_up[]; double buf2_down[]; double buf1_up[]; double buf1_down[]; double MA_Cur, MA_Prev; string shortname = ""; int ArrSize = 110;//159; int UniqueNum = 2282; int Period_1, Period_2, Period_3, Period_4; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { SetIndexStyle(0,DRAW_ARROW,0,BarWidth,BarColorUp); SetIndexArrow(0,ArrSize); SetIndexBuffer(0,buf1_up); SetIndexEmptyValue(0,0.0); SetIndexStyle(1,DRAW_ARROW,0,BarWidth,BarColorDown); SetIndexArrow(1,ArrSize); SetIndexBuffer(1,buf1_down); SetIndexEmptyValue(1,0.0); SetIndexStyle(2,DRAW_ARROW,0,BarWidth,BarColorUp); SetIndexArrow(2,ArrSize); SetIndexBuffer(2,buf2_up); SetIndexEmptyValue(2,0.0); SetIndexStyle(3,DRAW_ARROW,0,BarWidth,BarColorDown); SetIndexArrow(3,ArrSize); SetIndexBuffer(3,buf2_down); SetIndexEmptyValue(3,0.0); SetIndexStyle(4,DRAW_ARROW,0,BarWidth,BarColorUp); SetIndexArrow(4,ArrSize); SetIndexBuffer(4,buf3_up); SetIndexEmptyValue(4,0.0); SetIndexStyle(5,DRAW_ARROW,0,BarWidth,BarColorDown); SetIndexArrow(5,ArrSize); SetIndexBuffer(5,buf3_down); SetIndexEmptyValue(5,0.0); SetIndexStyle(6,DRAW_ARROW,0,BarWidth,BarColorUp); SetIndexArrow(6,ArrSize); SetIndexBuffer(6,buf4_up); SetIndexEmptyValue(6,0.0); SetIndexStyle(7,DRAW_ARROW,0,BarWidth,BarColorDown); SetIndexArrow(7,ArrSize); SetIndexBuffer(7,buf4_down); SetIndexEmptyValue(7,0.0); SetIndexLabel(0,NULL); SetIndexLabel(1,NULL); SetIndexLabel(2,NULL); SetIndexLabel(3,NULL); SetIndexLabel(4,NULL); SetIndexLabel(5,NULL); SetIndexLabel(6,NULL); SetIndexLabel(7,NULL); IndicatorDigits(0); getPeriod(); shortname = "4TF-LSMA ("+Period_1+","+Period_2+","+Period_3+","+Period_4+")"; IndicatorShortName(shortname); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ //+------------------------------------------------------------------+ //| LSMA with PriceMode | //| PrMode 0=close, 1=open, 2=high, 3=low, 4=median(high+low)/2, | //| 5=typical(high+low+close)/3, 6=weighted(high+low+close+close)/4 | //+------------------------------------------------------------------+ double fLSMA(int iTimeFrame,int Rperiod, int prMode, int mshift) { int i; double sum, price; int length; double lengthvar; double tmp; double wt; length = Rperiod; sum = 0; for(i = length; i >= 1 ; i--) { lengthvar = length + 1; lengthvar /= 3; tmp = 0; switch (prMode) { case 0: price = iClose(NULL,iTimeFrame,length-i+mshift);break; case 1: price = iOpen(NULL,iTimeFrame,length-i+mshift);break; case 2: price = iHigh(NULL,iTimeFrame,length-i+mshift);break; case 3: price = iLow(NULL,iTimeFrame,length-i+mshift);break; case 4: price = (iHigh(NULL,iTimeFrame,length-i+mshift) + iLow(NULL,iTimeFrame,length-i+mshift))/2;break; case 5: price = (iHigh(NULL,iTimeFrame,length-i+mshift) + iLow(NULL,iTimeFrame,length-i+mshift) + iClose(NULL,iTimeFrame,length-i+mshift))/3;break; case 6: price = (iHigh(NULL,iTimeFrame,length-i+mshift) + iLow(NULL,iTimeFrame,length-i+mshift) + iClose(NULL,iTimeFrame,length-i+mshift) + iClose(NULL,iTimeFrame,length-i+mshift))/4;break; } tmp = ( i - lengthvar)*price; sum+=tmp; } wt = sum*6/(length*(length+1)); return(wt); } int start() { int counted_bars=IndicatorCounted(); //---- check for possible errors if(counted_bars<0) return(-1); //---- the last counted bar will be recounted if(counted_bars>0) counted_bars--; int limit=Bars-counted_bars; int i,tf; //-------------------------------1---------------------------------------- double dif = Time[0] - Time[1]; for ( i=ObjectsTotal()-1; i>-1; i--) { if (StringFind(ObjectName(i),"LR_"+UniqueNum+"_") >= 0) ObjectDelete(ObjectName(i)); } double shift = 0.2; for ( tf=1; tf<=4; tf++) { string txt = "??"; double gp; switch (tf) { case 1: txt = tf2txt(Period_1); gp = 1 + shift; break; case 2: txt = tf2txt(Period_2); gp = 1 + Gap + shift; break; case 3: txt = tf2txt(Period_3); gp = 1 + Gap*2 + shift; break; case 4: txt = tf2txt(Period_4); gp = 1 + Gap*3 + shift; break; } string name = "LR_"+UniqueNum+"_"+tf+"_"+txt; ObjectCreate(name, OBJ_TEXT, WindowFind(shortname), iTime(NULL,0,0)+dif*3, gp); ObjectSetText(name, txt,8,"Arial", TextColor); } //-------------------------------2---------------------------------------- datetime TimeArray_4[], TimeArray_3[], TimeArray_2[], TimeArray_1[]; ArrayCopySeries(TimeArray_1,MODE_TIME,Symbol(),Period_1); ArrayCopySeries(TimeArray_2,MODE_TIME,Symbol(),Period_2); ArrayCopySeries(TimeArray_3,MODE_TIME,Symbol(),Period_3); ArrayCopySeries(TimeArray_4,MODE_TIME,Symbol(),Period_4); int i1=0, i2=0, i3=0, i4=0, yy; // for(i=0, i1=0, i2=0, i3=0, i4=0;i