//+------------------------------------------------------------------+ //| Trend Analysis Alternative.mq4 | //| Copyright © 2010, Иван Третьяков | //| tretyak-off@inbox.ru | //+------------------------------------------------------------------+ #property copyright "Copyright © 2010, Иван Третьяков" #property link "tretyak-off@inbox.ru" #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 Blue #property indicator_color2 Red extern int Change=50; extern bool UseM15D1Metod=true;//Else - UseH4D1Metod extern bool SoundON=true; //---- buffers double ExtMapBuffer1[]; double ExtMapBuffer2[]; int flagval1=0; int flagval2=0; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators SetIndexStyle(0,DRAW_ARROW); SetIndexArrow(0,217);//вверх SetIndexBuffer(0,ExtMapBuffer1); SetIndexEmptyValue(0,0.0); SetIndexStyle(1,DRAW_ARROW); SetIndexArrow(1,218);//вниз SetIndexBuffer(1,ExtMapBuffer2); SetIndexEmptyValue(1,0.0); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int limit,i,counter; double tmp=0; double Range,AvgRange; int counted_bars = IndicatorCounted(); if(counted_bars < 0) return(-1); if(counted_bars > 0) counted_bars--; limit = Bars - counted_bars; if(counted_bars==0) limit-=1+9; //---- основной момент for(i=1; i<=limit; i++) { counter=i; Range=0; AvgRange=0; for(counter=i;counter<=i+9;counter++) { AvgRange=AvgRange+MathAbs(High[counter]-Low[counter]); } Range=AvgRange/10; int SumUpsH4D1=0; int SumUpsM15D1=0; //---Может быть изенить тут код??? if((Close[i]-iMA(NULL,PERIOD_M15,20,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_M30,20,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_H1,20,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_H4,20,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;SumUpsH4D1++;} if((Close[i]-iMA(NULL,PERIOD_D1,20,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;SumUpsH4D1++;} if((Close[i]-iMA(NULL,PERIOD_M15,50,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_M30,50,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_H1,50,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_H4,50,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;SumUpsH4D1++;} if((Close[i]-iMA(NULL,PERIOD_D1,50,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;SumUpsH4D1++;} if((Close[i]-iMA(NULL,PERIOD_M15,100,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_M30,100,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_H1,100,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;} if((Close[i]-iMA(NULL,PERIOD_H4,100,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;SumUpsH4D1++;} if((Close[i]-iMA(NULL,PERIOD_D1,100,0,MODE_SMA,PRICE_CLOSE,i)>0)) {SumUpsM15D1++;SumUpsH4D1++;} //---Может быть изенить тут код??? if(iADX(NULL,PERIOD_M15,14,PRICE_CLOSE,MODE_PLUSDI,i)>iADX(NULL,PERIOD_M15,14,PRICE_CLOSE,MODE_MINUSDI,i)) {SumUpsM15D1++;} if(iADX(NULL,PERIOD_M30,14,PRICE_CLOSE,MODE_PLUSDI,i)>iADX(NULL,PERIOD_M30,14,PRICE_CLOSE,MODE_MINUSDI,i)) {SumUpsM15D1++;} if(iADX(NULL,PERIOD_H1,14,PRICE_CLOSE,MODE_PLUSDI,i)>iADX(NULL,PERIOD_H1,14,PRICE_CLOSE,MODE_MINUSDI,i)) {SumUpsM15D1++;} if(iADX(NULL,PERIOD_H4,14,PRICE_CLOSE,MODE_PLUSDI,i)>iADX(NULL,PERIOD_H4,14,PRICE_CLOSE,MODE_MINUSDI,i)) {SumUpsM15D1++;SumUpsH4D1++;} if(iADX(NULL,PERIOD_D1,14,PRICE_CLOSE,MODE_PLUSDI,i)>iADX(NULL,PERIOD_D1,14,PRICE_CLOSE,MODE_MINUSDI,i)) {SumUpsM15D1++;SumUpsH4D1++;} if(iBearsPower(NULL,PERIOD_M15,13,PRICE_CLOSE,i)>iBearsPower(NULL,PERIOD_M15,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iBearsPower(NULL,PERIOD_M30,13,PRICE_CLOSE,i)>iBearsPower(NULL,PERIOD_M30,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iBearsPower(NULL,PERIOD_H1,13,PRICE_CLOSE,i)>iBearsPower(NULL,PERIOD_H1,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iBearsPower(NULL,PERIOD_H4,13,PRICE_CLOSE,i)>iBearsPower(NULL,PERIOD_H4,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iBearsPower(NULL,PERIOD_D1,13,PRICE_CLOSE,i)>iBearsPower(NULL,PERIOD_D1,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iBullsPower(NULL,PERIOD_M15,13,PRICE_CLOSE,i)>iBullsPower(NULL,PERIOD_M15,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iBullsPower(NULL,PERIOD_M30,13,PRICE_CLOSE,i)>iBullsPower(NULL,PERIOD_M30,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iBullsPower(NULL,PERIOD_H1,13,PRICE_CLOSE,i)>iBullsPower(NULL,PERIOD_H1,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iBullsPower(NULL,PERIOD_H4,13,PRICE_CLOSE,i)>iBullsPower(NULL,PERIOD_H4,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iBullsPower(NULL,PERIOD_D1,13,PRICE_CLOSE,i)>iBullsPower(NULL,PERIOD_D1,13,PRICE_CLOSE,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} //---Может быть изенить тут код??? if(iCCI(NULL,PERIOD_M15,14,PRICE_CLOSE,i)>0) {SumUpsM15D1++;} if(iCCI(NULL,PERIOD_M30,14,PRICE_CLOSE,i)>0) {SumUpsM15D1++;} if(iCCI(NULL,PERIOD_H1,14,PRICE_CLOSE,i)>0) {SumUpsM15D1++;} if(iCCI(NULL,PERIOD_H4,14,PRICE_CLOSE,i)>0) {SumUpsM15D1++;SumUpsH4D1++;} if(iCCI(NULL,PERIOD_D1,14,PRICE_CLOSE,i)>0) {SumUpsM15D1++;SumUpsH4D1++;} if(iDeMarker(NULL,PERIOD_M15,13,i)>iDeMarker(NULL,PERIOD_M15,13,i+1)) {SumUpsM15D1++;} if(iDeMarker(NULL,PERIOD_M30,13,i)>iDeMarker(NULL,PERIOD_M30,13,i+1)) {SumUpsM15D1++;} if(iDeMarker(NULL,PERIOD_H1,13,i)>iDeMarker(NULL,PERIOD_H1,13,i+1)) {SumUpsM15D1++;} if(iDeMarker(NULL,PERIOD_H4,13,i)>iDeMarker(NULL,PERIOD_H4,13,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iDeMarker(NULL,PERIOD_D1,13,i)>iDeMarker(NULL,PERIOD_D1,13,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iForce(NULL,PERIOD_M15,13,MODE_SMA,PRICE_CLOSE,i)>iForce(NULL,PERIOD_M15,13,MODE_SMA,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iForce(NULL,PERIOD_M30,13,MODE_SMA,PRICE_CLOSE,i)>iForce(NULL,PERIOD_M30,13,MODE_SMA,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iForce(NULL,PERIOD_H1,13,MODE_SMA,PRICE_CLOSE,i)>iForce(NULL,PERIOD_H1,13,MODE_SMA,PRICE_CLOSE,i+1)) {SumUpsM15D1++;} if(iForce(NULL,PERIOD_H4,13,MODE_SMA,PRICE_CLOSE,i)>iForce(NULL,PERIOD_H4,13,MODE_SMA,PRICE_CLOSE,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iForce(NULL,PERIOD_D1,13,MODE_SMA,PRICE_CLOSE,i)>iForce(NULL,PERIOD_D1,13,MODE_SMA,PRICE_CLOSE,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iMACD(NULL,PERIOD_M15,12,26,9,PRICE_CLOSE,MODE_MAIN,i)>iMACD(NULL,PERIOD_M15,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1)) {SumUpsM15D1++;} if(iMACD(NULL,PERIOD_M30,12,26,9,PRICE_CLOSE,MODE_MAIN,i)>iMACD(NULL,PERIOD_M30,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1)) {SumUpsM15D1++;} if(iMACD(NULL,PERIOD_H1,12,26,9,PRICE_CLOSE,MODE_MAIN,i)>iMACD(NULL,PERIOD_H1,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1)) {SumUpsM15D1++;} if(iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_MAIN,i)>iMACD(NULL,PERIOD_H4,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iMACD(NULL,PERIOD_D1,12,26,9,PRICE_CLOSE,MODE_MAIN,i)>iMACD(NULL,PERIOD_D1,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} //---Может быть изенить тут код??? if(iMomentum(NULL,PERIOD_M15,14,PRICE_CLOSE,i)>100) {SumUpsM15D1++;} if(iMomentum(NULL,PERIOD_M30,14,PRICE_CLOSE,i)>100) {SumUpsM15D1++;} if(iMomentum(NULL,PERIOD_H1,14,PRICE_CLOSE,i)>100) {SumUpsM15D1++;} if(iMomentum(NULL,PERIOD_H4,14,PRICE_CLOSE,i)>100) {SumUpsM15D1++;SumUpsH4D1++;} if(iMomentum(NULL,PERIOD_D1,14,PRICE_CLOSE,i)>100) {SumUpsM15D1++;SumUpsH4D1++;} //---Может быть изенить тут код??? if(iRSI(NULL,PERIOD_M15,14,PRICE_CLOSE,i)>50) {SumUpsM15D1++;} if(iRSI(NULL,PERIOD_M30,14,PRICE_CLOSE,i)>50) {SumUpsM15D1++;} if(iRSI(NULL,PERIOD_H1,14,PRICE_CLOSE,i)>50) {SumUpsM15D1++;} if(iRSI(NULL,PERIOD_H4,14,PRICE_CLOSE,i)>50) {SumUpsM15D1++;SumUpsH4D1++;} if(iRSI(NULL,PERIOD_D1,14,PRICE_CLOSE,i)>50) {SumUpsM15D1++;SumUpsH4D1++;} if(iStochastic(NULL,PERIOD_M15,5,3,3,MODE_SMA,0,MODE_MAIN,i)>iStochastic(NULL,PERIOD_M15,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)) {SumUpsM15D1++;} if(iStochastic(NULL,PERIOD_M30,5,3,3,MODE_SMA,0,MODE_MAIN,i)>iStochastic(NULL,PERIOD_M30,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)) {SumUpsM15D1++;} if(iStochastic(NULL,PERIOD_H1,5,3,3,MODE_SMA,0,MODE_MAIN,i)>iStochastic(NULL,PERIOD_H1,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)) {SumUpsM15D1++;} if(iStochastic(NULL,PERIOD_H4,5,3,3,MODE_SMA,0,MODE_MAIN,i)>iStochastic(NULL,PERIOD_H4,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} if(iStochastic(NULL,PERIOD_D1,5,3,3,MODE_SMA,0,MODE_MAIN,i)>iStochastic(NULL,PERIOD_D1,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)) {SumUpsM15D1++;SumUpsH4D1++;} double UpPerH4D1=NormalizeDouble(SumUpsH4D1*100/26,1); double DownPerH4D1=NormalizeDouble(100-UpPerH4D1,1); double UpPerM15D1=NormalizeDouble(SumUpsM15D1*100/65,1); double DownPerM15D1=NormalizeDouble(100-UpPerM15D1,1); int MainTrendH4D1; if(UpPerH4D1>DownPerH4D1) {MainTrendH4D1=1;}else{MainTrendH4D1=-1;} int MainTrendM15D1; if(UpPerM15D1>DownPerM15D1) {MainTrendM15D1=1;}else{MainTrendM15D1=-1;} int SumMyUps1=0; if((Close[i]-iMA(NULL,0,20,0,MODE_SMA,PRICE_CLOSE,i)>0)){SumMyUps1++;} if((Close[i]-iMA(NULL,0,50,0,MODE_SMA,PRICE_CLOSE,i)>0)){SumMyUps1++;} if((Close[i]-iMA(NULL,0,100,0,MODE_SMA,PRICE_CLOSE,i)>0)){SumMyUps1++;} if(iADX(NULL,0,14,PRICE_CLOSE,MODE_PLUSDI,i)>iADX(NULL,0,14,PRICE_CLOSE,MODE_MINUSDI,i)){SumMyUps1++;} if(iBearsPower(NULL,0, 13,PRICE_CLOSE,i)>iBearsPower(NULL,0, 13,PRICE_CLOSE,i+1)){SumMyUps1++;} if(iBullsPower(NULL,0, 13,PRICE_CLOSE,i)>iBullsPower(NULL,0, 13,PRICE_CLOSE,i+1)){SumMyUps1++;} if(iCCI(NULL,0,14,PRICE_CLOSE,i)>0){SumMyUps1++;} if(iDeMarker(NULL,0,13,i)>iDeMarker(NULL,0,13,i+1)){SumMyUps1++;} if(iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE,i)>iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE,i+1)){SumMyUps1++;} if(iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i)>iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN,i+1)){SumMyUps1++;} if(iMomentum(NULL,0,14,PRICE_CLOSE,i)>100){SumMyUps1++;} if(iRSI(NULL,0,14,PRICE_CLOSE,i)>50){SumMyUps1++;} if(iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_MAIN,i)>iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)){SumMyUps1++;} int SumMyUps2=0; if((Close[i+1]-iMA(NULL,0,20,0,MODE_SMA,PRICE_CLOSE,i+1)>0)){SumMyUps2++;} if((Close[i+1]-iMA(NULL,0,50,0,MODE_SMA,PRICE_CLOSE,i+1)>0)){SumMyUps2++;} if((Close[i+1]-iMA(NULL,0,100,0,MODE_SMA,PRICE_CLOSE,i+1)>0)){SumMyUps2++;} if(iADX(NULL,0,14,PRICE_CLOSE,MODE_PLUSDI,i+1)>iADX(NULL,0,14,PRICE_CLOSE,MODE_MINUSDI,i+1)){SumMyUps2++;} if(iBearsPower(NULL,0, 13,PRICE_CLOSE, i+1)>iBearsPower(NULL,0, 13,PRICE_CLOSE, i+2)){SumMyUps2++;} if(iBullsPower(NULL,0, 13,PRICE_CLOSE, i+1)>iBullsPower(NULL,0, 13,PRICE_CLOSE, i+2)){SumMyUps2++;} if(iCCI(NULL,0,14,PRICE_CLOSE,i+1)>0){SumMyUps2++;} if(iDeMarker(NULL,0, 13, i+1)>iDeMarker(NULL,0, 13, i+2)){SumMyUps2++;} if(iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE, i+1)>iForce(NULL,0,13,MODE_SMA,PRICE_CLOSE, i+2)){SumMyUps2++;} if(iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN, i+1)>iMACD(NULL,0,12,26,9,PRICE_CLOSE,MODE_MAIN, i+2)){SumMyUps2++;} if(iMomentum(NULL,0,14,PRICE_CLOSE,i+1)>100){SumMyUps1++;} if(iRSI(NULL,0,14,PRICE_CLOSE,i+1)>50){SumMyUps2++;} if(iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_MAIN,i+1)>iStochastic(NULL,0,5,3,3,MODE_SMA,0,MODE_MAIN,i+2)){SumMyUps2++;} double UpPerMyUps1=NormalizeDouble(SumMyUps1*100/13,1); double DownPerMyUps1=NormalizeDouble(100-UpPerMyUps1,1); double UpPerMyUps2=NormalizeDouble(SumMyUps2*100/13,1); double DownPerMyUps2=NormalizeDouble(100-UpPerMyUps2,1); ExtMapBuffer1[i]=EMPTY_VALUE; ExtMapBuffer2[i]=EMPTY_VALUE; if(UseM15D1Metod) { if((MainTrendM15D1==1) && ((UpPerMyUps2=Change))) { if(i==1 && flagval1==0) { flagval1=1; flagval2=0; if(SoundON) Alert("BUY signal at Ask=",Ask,"\n Bid=",Bid,"\n Time=",TimeToStr(CurTime(),TIME_DATE)," ",TimeHour(CurTime()),":",TimeMinute(CurTime()),"\n Symbol=",Symbol()," Period=",Period()); } ExtMapBuffer1[i]=Low[i] - Range*0.5; ExtMapBuffer2[i]=EMPTY_VALUE; } if((MainTrendM15D1==-1) && ((DownPerMyUps2=Change))) { if(i==1 && flagval2==0) { flagval2=1; flagval1=0; if(SoundON) Alert("SELL signal at Ask=",Ask,"\n Bid=",Bid,"\n Date=",TimeToStr(CurTime(),TIME_DATE)," ",TimeHour(CurTime()),":",TimeMinute(CurTime()),"\n Symbol=",Symbol()," Period=",Period()); } ExtMapBuffer2[i]=High[i] + Range*0.5; ExtMapBuffer1[i]=EMPTY_VALUE; } } else { if((MainTrendH4D1==1) && ((UpPerMyUps2=Change))) { ExtMapBuffer1[i]=Low[i] - Range*0.5; ExtMapBuffer2[i]=EMPTY_VALUE; } if((MainTrendH4D1==-1) && ((DownPerMyUps2=Change))) { ExtMapBuffer2[i]=High[i] + Range*0.5; ExtMapBuffer1[i]=EMPTY_VALUE; } } } return(0); } //+------------------------------------------------------------------+