// Downloaded From https://www.WiseStockTrader.com
/// Percentage Stocks above 200 MA

Above200Day = C >= MA(C,200);

Buy = 0; AddToComposite(Above200Day, "~200DayMA%", "V" );

/* add one to open interest field (we use this field as a counter) */
AddToComposite( 1, "~200DayMA%", "I" );


PercentageRising200 = Foreign("~200DayMA%", "V") / Foreign("~200DayMA%", "I") *100;

Plot(PercentageRising200,"Pct. of stocks above 200 Day MA", IIf( PercentageRising200 > (MA(PercentageRising200,10)), colorBrightGreen, colorRed),styleThick);

Plot(80,"", colorRed,styleThick);
Plot(30,"", colorBrightGreen,styleThick);
Plot(10,"", colorBrightGreen,styleThick);