// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("supermeisels");
/* SuperMeisels by Hans 20 Nov 2004 */

Lim=Param("Limite",5.5,4,9,0.1);

change = IIf( Close > Ref( Close, - 1 ), 1,
IIf( Close < Ref( Close, -1 ), -1, 0 ) ) ;
changeL = IIf( Low > Ref( Low, - 1 ), 1,
IIf( Low < Ref( Low, -1 ), -1, 0 ) ) ;
changeH = IIf( High > Ref( High, - 1 ), 1,
IIf( High < Ref( High, -1 ), -1, 0 ) ) ;

meisels = Sum( change,10 );
meiselslow = Sum( changel,10 );
meiselshigh = Sum( changeh,10 );


Plot(Lim,"",colorBlack,1);
Plot(-Lim,"",colorBlack,1);
Plot(meisels,"meisels",colorBlue,1);
Plot(meiselslow,"meiselslow", colorGreen,1);
Plot(meiselshigh,"meiselshigh", colorRed,1);

meiBuy=Cross(meiselslow,-Lim) OR Cross(meisels,-Lim) OR Cross(meiselshigh,-Lim);
meisell=Cross(Lim,meiselslow) OR Cross(Lim,meisels) OR Cross(Lim,meiselshigh);

PlotShapes(shapeUpArrow*(meibuy), colorGreen,0,Graph1,-10); 
PlotShapes(shapeDownArrow*(meisell), colorRed,0,Graph0,-10); 
GraphXSpace=3;
_SECTION_END();