Can someone please help with the following code. I am not getting the fractal
shapes to plot.
THanks in advance.
COLOR = IIf(C > O, colorGreen, colorRed);
//SetChartOptions(0,chartShowDates|chartShowArrows|chartLogarithmic|chartWrapTitle);
_N( Title = StrFormat( "{{NAME}} - " + SectorID( 1 ) + " - {{INTERVAL}}
{{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " + WriteVal( V, 1.0 ) +
" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );
Plot( C, "Close", Color, styleBar | styleThick | styleNoTitle );
_SECTION_BEGIN("F");
//SetBarsRequired(200,0);
FD1 = IIf((H > Ref(H,2) AND H > Ref(H,1) AND H > Ref(H,-1) AND H >
Ref(H,-2)),1,0);
FD2 = IIf((H > Ref(H,3) AND H > Ref(H,2) AND H=Ref(H,1) AND H > Ref(H,-1) AND H
> Ref(H,-2)),1,0);
FD3 = IIf((H > Ref(H,4) AND H > Ref(H,3) AND H=Ref(H,2) AND H >= Ref(H,1) AND H
> Ref(H,-1) AND H > Ref(H,-2)),1,0);
FU1 = IIf((L < Ref(L,2) AND L < Ref(L,1) AND L < Ref(L,-1) AND L <
Ref(L,-2)),1,0);
FU2 = IIf((L < Ref(L,3) AND L < Ref(L,2) AND L = Ref(L,1) AND L < Ref(L,-1) AND
L < Ref(L,-2)),1,0);
FU3 = IIf((L < Ref(L,4) AND L < Ref(L,3) AND L = Ref(L,2) AND L <= Ref(L,1) AND
L < Ref(L,-1) AND L < Ref(L,-2)),1,0);
PlotShapes( IIf(FD1 OR FD2 OR FD3, shapeSmallCircle,0) , colorOrange,0,H,10);
PlotShapes( IIf(FU1 OR FU2 OR FU3, shapeSmallCircle,0) , colorLime,0,L,-10);
_SECTION_END();
