Support Board
Date/Time: Sat, 23 Nov 2024 04:34:31 +0000
Post From: simpler fractal indicator requested if possible...
| [2013-06-06 00:50:40] |
| User53765 - Posts: 66 |
|
Im posting a code from another platform. Hopefully this helps. If not I don`t think there is anything more I can do. Kind Regards,AD. #property link "http://www.metaquotes.net" #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 Red #property indicator_color2 Blue //---- input parameters //---- buffers double ExtUpFractalsBuffer[]; double ExtDownFractalsBuffer[]; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicator buffers mapping SetIndexBuffer(0,ExtUpFractalsBuffer); SetIndexBuffer(1,ExtDownFractalsBuffer); //---- drawing settings SetIndexStyle(0,DRAW_ARROW); SetIndexArrow(0,119); SetIndexStyle(1,DRAW_ARROW); SetIndexArrow(1,119); //---- SetIndexEmptyValue(0,0.0); SetIndexEmptyValue(1,0.0); //---- name for DataWindow SetIndexLabel(0,"Fractal Up"); SetIndexLabel(1,"Fractal Down"); //---- initialization done return(0); } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- TODO: add your code here //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int i,nCountedBars; bool bFound; double dCurrent; nCountedBars=IndicatorCounted(); //---- last counted bar will be recounted if(nCountedBars<=2) i=Bars-nCountedBars-3; if(nCountedBars>2) { nCountedBars--; i=Bars-nCountedBars-1; } //----Up and Down Fractals while(i>=2) { //----Fractals up bFound=false; dCurrent=High; if(dCurrent>High[i+1] && dCurrent>High[i+2] && dCurrent>High[i-1] && dCurrent>High[i-2]) { bFound=true; ExtUpFractalsBuffer=dCurrent; } //----6 bars Fractal if(!bFound && (Bars-i-1)>=3) { if(dCurrent==High[i+1] && dCurrent>High[i+2] && dCurrent>High[i+3] && dCurrent>High[i-1] && dCurrent>High[i-2]) { bFound=true; ExtUpFractalsBuffer=dCurrent; } } //----7 bars Fractal if(!bFound && (Bars-i-1)>=4) { if(dCurrent>=High[i+1] && dCurrent==High[i+2] && dCurrent>High[i+3] && dCurrent>High[i+4] && dCurrent>High[i-1] && dCurrent>High[i-2]) { bFound=true; ExtUpFractalsBuffer=dCurrent; } } //----8 bars Fractal if(!bFound && (Bars-i-1)>=5) { if(dCurrent>=High[i+1] && dCurrent==High[i+2] && dCurrent==High[i+3] && dCurrent>High[i+4] && dCurrent>High[i+5] && dCurrent>High[i-1] && dCurrent>High[i-2]) { bFound=true; ExtUpFractalsBuffer=dCurrent; } } //----9 bars Fractal if(!bFound && (Bars-i-1)>=6) { if(dCurrent>=High[i+1] && dCurrent==High[i+2] && dCurrent>=High[i+3] && dCurrent==High[i+4] && dCurrent>High[i+5] && dCurrent>High[i+6] && dCurrent>High[i-1] && dCurrent>High[i-2]) { bFound=true; ExtUpFractalsBuffer=dCurrent; } } //----Fractals down bFound=false; dCurrent=Low; if(dCurrent<Low[i+1] && dCurrent<Low[i+2] && dCurrent<Low[i-1] && dCurrent<Low[i-2]) { bFound=true; ExtDownFractalsBuffer=dCurrent; } //----6 bars Fractal if(!bFound && (Bars-i-1)>=3) { if(dCurrent==Low[i+1] && dCurrent<Low[i+2] && dCurrent<Low[i+3] && dCurrent<Low[i-1] && dCurrent<Low[i-2]) { bFound=true; ExtDownFractalsBuffer=dCurrent; } } //----7 bars Fractal if(!bFound && (Bars-i-1)>=4) { if(dCurrent<=Low[i+1] && dCurrent==Low[i+2] && dCurrent<Low[i+3] && dCurrent<Low[i+4] && dCurrent<Low[i-1] && dCurrent<Low[i-2]) { bFound=true; ExtDownFractalsBuffer=dCurrent; } } //----8 bars Fractal if(!bFound && (Bars-i-1)>=5) { if(dCurrent<=Low[i+1] && dCurrent==Low[i+2] && dCurrent==Low[i+3] && dCurrent<Low[i+4] && dCurrent<Low[i+5] && dCurrent<Low[i-1] && dCurrent<Low[i-2]) { bFound=true; ExtDownFractalsBuffer=dCurrent; } } //----9 bars Fractal if(!bFound && (Bars-i-1)>=6) { if(dCurrent<=Low[i+1] && dCurrent==Low[i+2] && dCurrent<=Low[i+3] && dCurrent==Low[i+4] && dCurrent<Low[i+5] && dCurrent<Low[i+6] && dCurrent<Low[i-1] && dCurrent<Low[i-2]) { bFound=true; ExtDownFractalsBuffer=dCurrent; } } i--; } //---- return(0); } //+------------------------------------------------------------------+ |