// Breadth of Stocks
// Develops composites that can be plotted or manipulated as you wish
// How to Run
// 1) Select Group - Stocks or Market -NYSE,Nasdq, AMEX
// 2) Select an issue with a long history in the current ticker window
// 3) Set APPLY TO to use filter Market - Stocks
// 4) Set RANGE to one bar... 1 n last quotations
// 5) Press SCAN
//adapted from code by Dick Areehoi

//===================52 Weeks New High - Lows  ==================================

Buy = Sell = 0;

AddToComposite(IIf(C > HHV(Ref(C, -1), 250), 1,0), "~StocksNewHi","X"); 

//Find New Highs over the past 52 weeks.

AddToComposite(IIf(C < LLV(Ref(C, -1), 250), 1,0), "~StocksNewLo","X"); 

//Same for lows next.

NewHigh = Foreign("~StocksNewHi","X");
NewLow = Foreign("~StocksNewLo","X");

DIFF_H_L = NewHigh-NewLow;

//Plot(NewHigh,"NewHigh",colorGreen,styleThick|styleHistogram);
//Plot(NewLow*-1,"NewLow",colorRed,styleThick|styleHistogram);
Plot(0,"",1);
Plot(Diff_H_L,"Diff_H_L",colorBlack,styleLine);