Change Null to 0 (i.e. zero) in the assignment of PivotHigh, PivotLow. Mike
--- In [email protected], "Reinsley" <reins...@...> wrote: > > Hello, > > How can I remove the small red and green down arrows ? > > The issue lies into these two lines : > PlotShapes( shapeCircle*PivotLow, colorGreen, 0, L, -20 ) ; > PlotShapes( shapeCircle*PivotHigh, colorRed, 0, H, 20 ) ; > > I can't get rid of them. I want to keep only the shapecircles. > > Thank you for the help. > > Best Regards > > > > // RSIc > // courtesy by Dimitri Tsokakis > // mod "Circle pivot" > > procedure RSIc( n ) > { > C = RSIa( C, n ); > O = RSIa( O, n ); > H = RSIa( H, n ); > H = IIf( H < Max( C, O ), Max( C, O ), H ); > L = RSIa( L, n ); > L = IIf( L > Min( C, O ), Min( C, O ), L ); > } > > > n = Param( "n", 10, 5, 30, 5 );//RSI sensitivity > RSIc( n ); > Plot( C, "RSIc(" + n + ")", 1, 64 ); > > _SECTION_BEGIN( "ZIG - RSIc" ); > ZigPerc = Param( "ZigZag-HL %", 9.5, 1, 15, 0.1 ); > ShowZig = ParamToggle( "ZigOnRSIc", "No|Yes", 1 ); > > if ( ShowZig ) > { > pk = PeakBars( H, ZigPerc ) == 0; > tr = TroughBars( L, ZigPerc ) == 0; > pkbars = PeakBars( H, ZigPerc ); > _TRACE( "pkbars = " + pkbars ); > trbars = TroughBars( L, ZigPerc ); > zHi = Zig( H, ZigPerc ); > zLo = Zig( L, ZigPerc ); > HLAvg = ( zHi + zLo ) / 2; > zp2 = IIf( pk, zHi, IIf( tr, zLo, IIf( pkbars <= trbars, L, H ) ) ); > za2 = Zig( zp2, ZigPerc ); > Slopeza2 = za2 - Ref( za2, -1 ); > Plot( za2, "Zig RSIc", 11, 5 | styleNoLabel );//Zig H-L > > PivotLow = Ref( IIf( Ref( ROC( za2, 1 ), -1 ) < 0 AND ROC( za2, 1 ) > 0, > 1, Null ), 1 ); > PivotHigh = Ref( IIf( Ref( ROC( za2, 1 ), -1 ) > 0 AND ROC( za2, 1 ) < 0, > 1, Null ), 1 ); > > PlotShapes( shapeCircle*PivotLow, colorGreen, 0, L, -20 ) ; > PlotShapes( shapeCircle*PivotHigh, colorRed, 0, H, 20 ) ; > } > _SECTION_END(); >
