//+----------------------------------------------------------------------------+ //| i-Sadukey_v1.mq4 | //+----------------------------------------------------------------------------+ #property copyright "*" #property link "*" #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 clrDeepSkyBlue #property indicator_color2 clrCoral #property indicator_width1 3 #property indicator_width2 3 extern ENUM_MA_METHOD MaMethod = MODE_EMA; extern ENUM_APPLIED_PRICE MaMode = PRICE_MEDIAN; extern int MaPeriod = 1; extern int NormalizedDigits = 1; //5 double Buffer1[]; double Buffer2[]; double trend[]; double ma[]; double mac[]; double mao[]; int init() { IndicatorBuffers(5); SetIndexBuffer(0,Buffer1); SetIndexStyle(0,DRAW_HISTOGRAM); SetIndexBuffer(1,Buffer2); SetIndexStyle(1,DRAW_HISTOGRAM); SetIndexBuffer(2,ma); SetIndexBuffer(3,mac); SetIndexBuffer(4,mao); IndicatorShortName(" i_Sadukey "); return(0); } int start() { int counted_bars=IndicatorCounted(); if(counted_bars<0) return(-1); if(counted_bars>0) counted_bars--; int limit=MathMin(Bars-counted_bars,Bars-1); for(int i=limit; i>=0; i--) { ma[i] = (iMA(NULL,0,MaPeriod,0,MaMethod,MaMode,i)); //WEIGHTED mac[i] = iMA(NULL,0,MaPeriod,0,MaMethod,PRICE_CLOSE,i); mao[i] = iMA(NULL,0,MaPeriod,0,MaMethod,PRICE_OPEN,i); double value1 = 0.11859648*(ma[i] +mac[i]) * 0.5 +0.11781324*(ma[i+1] +mac[i+1]) * 0.5 +0.11548308*(ma[i+2] +mac[i+2]) * 0.5 +0.11166411*(ma[i+3] +mac[i+3]) * 0.5 +0.10645106*(ma[i+4] +mac[i+4]) * 0.5 +0.09997253*(ma[i+5] +mac[i+5]) * 0.5 +0.09238688*(ma[i+6] +mac[i+6]) * 0.5 +0.08387751*(ma[i+7] +mac[i+7]) * 0.5 +0.07464713*(ma[i+8] +mac[i+8]) * 0.5 +0.06491178*(ma[i+9] +mac[i+9]) * 0.5 +0.05489443*(ma[i+10]+mac[i+10])* 0.5 +0.04481833*(ma[i+11]+mac[i+11])* 0.5 +0.03490071*(ma[i+12]+mac[i+12])* 0.5 +0.02534672*(ma[i+13]+mac[i+13])* 0.5 +0.01634375*(ma[i+14]+mac[i+14])* 0.5 +0.00805678*(ma[i+15]+mac[i+15])* 0.5 +0.00062421*(ma[i+16]+mac[i+16])* 0.5 -0.00584512*(ma[i+17]+mac[i+17])* 0.5 -0.01127391*(ma[i+18]+mac[i+18])* 0.5 -0.01561738*(ma[i+19]+mac[i+19])* 0.5 -0.01886307*(ma[i+20]+mac[i+20])* 0.5 -0.02102974*(ma[i+21]+mac[i+21])* 0.5 -0.02216516*(ma[i+22]+mac[i+22])* 0.5 -0.02234315*(ma[i+23]+mac[i+23])* 0.5 -0.02165992*(ma[i+24]+mac[i+24])* 0.5 -0.02022973*(ma[i+25]+mac[i+25])* 0.5 -0.01818026*(ma[i+26]+mac[i+26])* 0.5 -0.01564777*(ma[i+27]+mac[i+27])* 0.5 -0.01277219*(ma[i+28]+mac[i+28])* 0.5 -0.00969230*(ma[i+29]+mac[i+29])* 0.5 -0.00654127*(ma[i+30]+mac[i+30])* 0.5 -0.00344276*(ma[i+31]+mac[i+31])* 0.5 -0.00050728*(ma[i+32]+mac[i+32])* 0.5 +0.00217042*(ma[i+33]+mac[i+33])* 0.5 +0.00451354*(ma[i+34]+mac[i+34])* 0.5 +0.00646441*(ma[i+35]+mac[i+35])* 0.5 +0.00798513*(ma[i+36]+mac[i+36])* 0.5 +0.00905725*(ma[i+37]+mac[i+37])* 0.5 +0.00968091*(ma[i+38]+mac[i+38])* 0.5 +0.00987326*(ma[i+39]+mac[i+39])* 0.5 +0.00966639*(ma[i+40]+mac[i+40])* 0.5 +0.00910488*(ma[i+41]+mac[i+41])* 0.5 +0.00824306*(ma[i+42]+mac[i+42])* 0.5 +0.00714199*(ma[i+43]+mac[i+43])* 0.5 +0.00586655*(ma[i+44]+mac[i+44])* 0.5 +0.00448255*(ma[i+45]+mac[i+45])* 0.5 +0.00305396*(ma[i+46]+mac[i+46])* 0.5 +0.00164061*(ma[i+47]+mac[i+47])* 0.5 +0.00029596*(ma[i+48]+mac[i+48])* 0.5 -0.00093445*(ma[i+49]+mac[i+49])* 0.5 -0.00201426*(ma[i+50]+mac[i+50])* 0.5 -0.00291701*(ma[i+51]+mac[i+51])* 0.5 -0.00362661*(ma[i+52]+mac[i+52])* 0.5 -0.00413703*(ma[i+53]+mac[i+53])* 0.5 -0.00445206*(ma[i+54]+mac[i+54])* 0.5 -0.00458437*(ma[i+55]+mac[i+55])* 0.5 -0.00455457*(ma[i+56]+mac[i+56])* 0.5 -0.00439006*(ma[i+57]+mac[i+57])* 0.5 -0.00412379*(ma[i+58]+mac[i+58])* 0.5 -0.00379323*(ma[i+59]+mac[i+59])* 0.5 -0.00343966*(ma[i+60]+mac[i+60])* 0.5 -0.00310850*(ma[i+61]+mac[i+61])* 0.5 -0.00285188*(ma[i+62]+mac[i+62])* 0.5 -0.00273508*(ma[i+63]+mac[i+63])* 0.5 -0.00274361*(ma[i+64]+mac[i+64])* 0.5 +0.01018757*(ma[i+65]+mac[i+65])* 0.5; double value2= 0.11859648*(ma[i] +mao[i]) * 0.5 +0.11781324*(ma[i+1] +mao[i+1]) * 0.5 +0.11548308*(ma[i+2] +mao[i+2]) * 0.5 +0.11166411*(ma[i+3] +mao[i+3]) * 0.5 +0.10645106*(ma[i+4] +mao[i+4]) * 0.5 +0.09997253*(ma[i+5] +mao[i+5]) * 0.5 +0.09238688*(ma[i+6] +mao[i+6]) * 0.5 +0.08387751*(ma[i+7] +mao[i+7]) * 0.5 +0.07464713*(ma[i+8] +mao[i+8]) * 0.5 +0.06491178*(ma[i+9] +mao[i+9]) * 0.5 +0.05489443*(ma[i+10]+mao[i+10])* 0.5 +0.04481833*(ma[i+11]+mao[i+11])* 0.5 +0.03490071*(ma[i+12]+mao[i+12])* 0.5 +0.02534672*(ma[i+13]+mao[i+13])* 0.5 +0.01634375*(ma[i+14]+mao[i+14])* 0.5 +0.00805678*(ma[i+15]+mao[i+15])* 0.5 +0.00062421*(ma[i+16]+mao[i+16])* 0.5 -0.00584512*(ma[i+17]+mao[i+17])* 0.5 -0.01127391*(ma[i+18]+mao[i+18])* 0.5 -0.01561738*(ma[i+19]+mao[i+19])* 0.5 -0.01886307*(ma[i+20]+mao[i+20])* 0.5 -0.02102974*(ma[i+21]+mao[i+21])* 0.5 -0.02216516*(ma[i+22]+mao[i+22])* 0.5 -0.02234315*(ma[i+23]+mao[i+23])* 0.5 -0.02165992*(ma[i+24]+mao[i+24])* 0.5 -0.02022973*(ma[i+25]+mao[i+25])* 0.5 -0.01818026*(ma[i+26]+mao[i+26])* 0.5 -0.01564777*(ma[i+27]+mao[i+27])* 0.5 -0.01277219*(ma[i+28]+mao[i+28])* 0.5 -0.00969230*(ma[i+29]+mao[i+29])* 0.5 -0.00654127*(ma[i+30]+mac[i+30])* 0.5 -0.00344276*(ma[i+31]+mao[i+31])* 0.5 -0.00050728*(ma[i+32]+mao[i+32])* 0.5 +0.00217042*(ma[i+33]+mao[i+33])* 0.5 +0.00451354*(ma[i+34]+mao[i+34])* 0.5 +0.00646441*(ma[i+35]+mao[i+35])* 0.5 +0.00798513*(ma[i+36]+mao[i+36])* 0.5 +0.00905725*(ma[i+37]+mao[i+37])* 0.5 +0.00968091*(ma[i+38]+mao[i+38])* 0.5 +0.00987326*(ma[i+39]+mao[i+39])* 0.5 +0.00966639*(ma[i+40]+mao[i+40])* 0.5 +0.00910488*(ma[i+41]+mao[i+41])* 0.5 +0.00824306*(ma[i+42]+mao[i+42])* 0.5 +0.00714199*(ma[i+43]+mao[i+43])* 0.5 +0.00586655*(ma[i+44]+mao[i+44])* 0.5 +0.00448255*(ma[i+45]+mao[i+45])* 0.5 +0.00305396*(ma[i+46]+mao[i+46])* 0.5 +0.00164061*(ma[i+47]+mao[i+47])* 0.5 +0.00029596*(ma[i+48]+mao[i+48])* 0.5 -0.00093445*(ma[i+49]+mao[i+49])* 0.5 -0.00201426*(ma[i+50]+mao[i+50])* 0.5 -0.00291701*(ma[i+51]+mao[i+51])* 0.5 -0.00362661*(ma[i+52]+mao[i+52])* 0.5 -0.00413703*(ma[i+53]+mao[i+53])* 0.5 -0.00445206*(ma[i+54]+mao[i+54])* 0.5 -0.00458437*(ma[i+55]+mao[i+55])* 0.5 -0.00455457*(ma[i+56]+mao[i+56])* 0.5 -0.00439006*(ma[i+57]+mao[i+57])* 0.5 -0.00412379*(ma[i+58]+mao[i+58])* 0.5 -0.00379323*(ma[i+59]+mao[i+59])* 0.5 -0.00343966*(ma[i+60]+mao[i+60])* 0.5 -0.00310850*(ma[i+61]+mao[i+61])* 0.5 -0.00285188*(ma[i+62]+mao[i+62])* 0.5 -0.00273508*(ma[i+63]+mao[i+63])* 0.5 -0.00274361*(ma[i+64]+mao[i+64])* 0.5 +0.01018757*(ma[i+65]+mao[i+65])* 0.5; Buffer1[i]= NormalizeDouble(value1,NormalizedDigits); Buffer2[i]= NormalizeDouble(value2,NormalizedDigits); } return(0); }