Good work CB,

Here's another idea.  It may save time having to lookup, which stocks have made the new High, by having the stock code appear on the indicator.

[linestyle=Text; textalign=Above,Center]
[color=Forest Green]
If(f1>0 and hist(barssince(f1),1)>1,"BHP", undefined); f1;
[color=Dodger Blue]
If(f2>0 and hist(barssince(f2),1)>1,"CBA", undefined); f1+f2;
[color=Magenta]
If(f3>0 and hist(barssince(f3),1)>1,"WOW", undefined); f1+f2+f3;

Thank you again, Maximo and Robert. I have left the 50 symbols in the index for individual tinkering. They will perhaps need to be changed as time goes by anyway.

I have included a lookback periods option to make it more versatile...and also runs faster on <249 days for testing.

I ran the indicator then grabbed the values “Copy Plot Data”...that’s why I love BC so much, so compatible with Excel...and looked at them in Excel. I examined  the average and the standard deviation of the “count” whenever the new highs were >0, and similarly when the new lows were <0

New highs average >0                       =          3.29

New highs ave+ 1*stdev >0   =          5.75 (quite high)

New highs ave + 2*stdev >0  =          8.21 (very high)

New lows average <0             =          -3.19

New lows ave - 1*stdev >0    =          -7.21 (quite low)

New lows ave - 2*stdev >0    =          -11.22 (very low)

Can someone more skilful than I please put a few more lines of code in so that the line indicator changes colour to dark green whenever it is > 5.75 and red whenever it is <-7.21.

I can already see some divergences, but maybe I’m just seeing things...sizzling hot in Perth today!

Hopefully others will add their two cents worth if they find something useful.

I’m just a novice coder, so as always errors, shortcuts, and neater coding suggestions most welcome.

Thank you for your help.

{Symbols in Index. All from 2013 XJO but were also trading in 2000 ...may need some tinkering but I don't think results will differ widely}

lbk :=input("Lookback Periods",249,5);

s1 := inputsymbol("Symbol #1", "abc");

s2 := inputsymbol("Symbol #2", "aix");

s3 := inputsymbol("Symbol #3", "bhp");

s4 := inputsymbol("Symbol #4", "all");

s5 := inputsymbol("Symbol #5", "alz");

s6 := inputsymbol("Symbol #6", "amc");

s7 := inputsymbol("Symbol #7", "amp");

s8 := inputsymbol("Symbol #8", "anz");

s9 := inputsymbol("Symbol #9", "apa");

s10 := inputsymbol("Symbol #10", "asx");

s11 := inputsymbol("Symbol #11", "ben");

s12 := inputsymbol("Symbol #12", "bld");

s13 := inputsymbol("Symbol #13", "cba");

s14 := inputsymbol("Symbol #14", "ccl");

s15 := inputsymbol("Symbol #15", "coh");

s16 := inputsymbol("Symbol #16", "cpa");

s17 := inputsymbol("Symbol #17", "cpu");

s18 := inputsymbol("Symbol #18", "csl");

s19 := inputsymbol("Symbol #19", "ctx");

s20 := inputsymbol("Symbol #20", "flt");

s21 := inputsymbol("Symbol #21", "gnc");

s22 := inputsymbol("Symbol #22", "gpt");

s23 := inputsymbol("Symbol #23", "hvn");

s24 := inputsymbol("Symbol #24", "ilu");

s25 := inputsymbol("Symbol #25", "lei");

s26 := inputsymbol("Symbol #26", "llc");

s27 := inputsymbol("Symbol #27", "mgr");

s28 := inputsymbol("Symbol #28", "mnd");

s29 := inputsymbol("Symbol #29", "nab");

s30 := inputsymbol("Symbol #30", "ncm");

s31 := inputsymbol("Symbol #31", "org");

s32 := inputsymbol("Symbol #32", "ori");

s33 := inputsymbol("Symbol #33", "osh");

s34 := inputsymbol("Symbol #34", "pna");

s35 := inputsymbol("Symbol #35", "pry");

s36 := inputsymbol("Symbol #36", "qan");

s37 := inputsymbol("Symbol #37", "qbe");

s38 := inputsymbol("Symbol #38", "rhc");

s39 := inputsymbol("Symbol #39", "rio");

s40 := inputsymbol("Symbol #40", "sgp");

s41 := inputsymbol("Symbol #41", "shl");

s42 := inputsymbol("Symbol #42", "sto");

s43 := inputsymbol("Symbol #43", "tah");

s44 := inputsymbol("Symbol #44", "tcl");

s45 := inputsymbol("Symbol #45", "tls");

s46 := inputsymbol("Symbol #46", "tol");

s47 := inputsymbol("Symbol #47", "wbc");

s48 := inputsymbol("Symbol #48", "wes");

s49 := inputsymbol("Symbol #49", "wow");

s50 := inputsymbol("Symbol #50", "wpl");

{New Highs}

p1 := if(s1="",0,loadsymbol(s1,H));

h1 := hist(hhv(p1,lbk),1); u1 := (p1 > h1);

p2 := if(s2="",0,loadsymbol(s2,H));

h2 := hist(hhv(p2,lbk),1); u2 := (p2 > h2);

p3 := if(s3="",0,loadsymbol(s3,H));

h3 := hist(hhv(p3,lbk),1); u3 := (p3 > h3);

p4 := if(s4="",0,loadsymbol(s4,H));

h4 := hist(hhv(p4,lbk),1); u4 := (p4 > h4);

p5 := if(s5="",0,loadsymbol(s5,H));

h5 := hist(hhv(p5,lbk),1); u5 := (p5 > h5);

p6 := if(s6="",0,loadsymbol(s6,H));

h6 := hist(hhv(p6,lbk),1); u6 := (p6 > h6);

p7 := if(s7="",0,loadsymbol(s7,H));

h7 := hist(hhv(p7,lbk),1); u7 := (p7 > h7);

p8 := if(s8="",0,loadsymbol(s8,H));

h8 := hist(hhv(p8,lbk),1); u8 := (p8 > h8);

p9 := if(s9="",0,loadsymbol(s9,H));

h9 := hist(hhv(p9,lbk),1); u9 := (p9 > h9);

p10 := if(s10="",0,loadsymbol(s10,H));

h10 := hist(hhv(p10,lbk),1); u10 := (p10 > h10);

p11 := if(s11="",0,loadsymbol(s11,H));

h11 := hist(hhv(p11,lbk),1); u11 := (p11 > h11);

p12 := if(s12="",0,loadsymbol(s12,H));

h12 := hist(hhv(p12,lbk),1); u12 := (p12 > h12);

p13 := if(s13="",0,loadsymbol(s13,H));

h13 := hist(hhv(p13,lbk),1); u13 := (p13 > h13);

p14 := if(s14="",0,loadsymbol(s14,H));

h14 := hist(hhv(p14,lbk),1); u14 := (p14 > h14);

p15 := if(s15="",0,loadsymbol(s15,H));

h15 := hist(hhv(p15,lbk),1); u15 := (p15 > h15);

p16 := if(s16="",0,loadsymbol(s16,H));

h16 := hist(hhv(p16,lbk),1); u16 := (p16 > h16);

p17 := if(s17="",0,loadsymbol(s17,H));

h17 := hist(hhv(p17,lbk),1); u17 := (p17 > h17);

p18 := if(s18="",0,loadsymbol(s18,H));

h18 := hist(hhv(p18,lbk),1); u18 := (p18 > h18);

p19 := if(s19="",0,loadsymbol(s19,H));

h19 := hist(hhv(p19,lbk),1); u19 := (p19 > h19);

p20 := if(s20="",0,loadsymbol(s20,H));

h20 := hist(hhv(p20,lbk),1); u20 := (p20 > h20);

p21 := if(s21="",0,loadsymbol(s21,H));

h21 := hist(hhv(p21,lbk),1); u21 := (p21 > h21);

p22 := if(s22="",0,loadsymbol(s22,H));

h22 := hist(hhv(p22,lbk),1); u22 := (p22 > h22);

p23 := if(s23="",0,loadsymbol(s23,H));

h23 := hist(hhv(p23,lbk),1); u23 := (p23 > h23);

p24 := if(s24="",0,loadsymbol(s24,H));

h24 := hist(hhv(p24,lbk),1); u24 := (p24 > h24);

p25 := if(s25="",0,loadsymbol(s25,H));

h25 := hist(hhv(p25,lbk),1); u25 := (p25 > h25);

p26 := if(s26="",0,loadsymbol(s26,H));

h26 := hist(hhv(p26,lbk),1); u26 := (p26 > h26);

p27 := if(s27="",0,loadsymbol(s27,H));

h27 := hist(hhv(p27,lbk),1); u27 := (p27 > h27);

p28 := if(s28="",0,loadsymbol(s28,H));

h28 := hist(hhv(p28,lbk),1); u28 := (p28 > h28);

p29 := if(s29="",0,loadsymbol(s29,H));

h29 := hist(hhv(p29,lbk),1); u29 := (p29 > h29);

p30 := if(s30="",0,loadsymbol(s30,H));

h30 := hist(hhv(p30,lbk),1); u30 := (p30 > h30);

p31 := if(s31="",0,loadsymbol(s31,H));

h31 := hist(hhv(p31,lbk),1); u31 := (p31 > h31);

p32 := if(s32="",0,loadsymbol(s32,H));

h32 := hist(hhv(p32,lbk),1); u32 := (p32 > h32);

p33 := if(s33="",0,loadsymbol(s33,H));

h33 := hist(hhv(p33,lbk),1); u33 := (p33 > h33);

p34 := if(s34="",0,loadsymbol(s34,H));

h34 := hist(hhv(p34,lbk),1); u34 := (p34 > h34);

p35 := if(s35="",0,loadsymbol(s35,H));

h35 := hist(hhv(p35,lbk),1); u35 := (p35 > h35);

p36 := if(s36="",0,loadsymbol(s36,H));

h36 := hist(hhv(p36,lbk),1); u36 := (p36 > h36);

p37 := if(s37="",0,loadsymbol(s37,H));

h37 := hist(hhv(p37,lbk),1); u37 := (p37 > h37);

p38 := if(s38="",0,loadsymbol(s38,H));

h38 := hist(hhv(p38,lbk),1); u38 := (p38 > h38);

p39 := if(s39="",0,loadsymbol(s39,H));

h39 := hist(hhv(p39,lbk),1); u39 := (p39 > h39);

p40 := if(s40="",0,loadsymbol(s40,H));

h40 := hist(hhv(p40,lbk),1); u40 := (p40 > h40);

p41 := if(s41="",0,loadsymbol(s41,H));

h41 := hist(hhv(p41,lbk),1); u41 := (p41 > h41);

p42 := if(s42="",0,loadsymbol(s42,H));

h42 := hist(hhv(p42,lbk),1); u42 := (p42 > h42);

p43 := if(s43="",0,loadsymbol(s43,H));

h43 := hist(hhv(p43,lbk),1); u43 := (p43 > h43);

p44 := if(s44="",0,loadsymbol(s44,H));

h44 := hist(hhv(p44,lbk),1); u44 := (p44 > h44);

p45 := if(s45="",0,loadsymbol(s45,H));

h45 := hist(hhv(p45,lbk),1); u45 := (p45 > h45);

p46 := if(s46="",0,loadsymbol(s46,H));

h46 := hist(hhv(p46,lbk),1); u46 := (p46 > h46);

p47 := if(s47="",0,loadsymbol(s47,H));

h47 := hist(hhv(p47,lbk),1); u47 := (p47 > h47);

p48 := if(s48="",0,loadsymbol(s48,H));

h48 := hist(hhv(p48,lbk),1); u48 := (p48 > h48);

p49 := if(s49="",0,loadsymbol(s49,H));

h49 := hist(hhv(p49,lbk),1); u49 := (p49 > h49);

p50 := if(s50="",0,loadsymbol(s50,H));

h50 := hist(hhv(p50,lbk),1); u50 := (p50 > h50);

newhi :=u1+u2+u3+u4+u5+u6+u7+u8+u9+u10+u11+u12+u13+u14+u15+u16+u17+u18+u19+u20+u21+u22+u23+u24+u25+u26+u27+u28+u29+u30+u31+u32+u33+u34+u35+u36+u37+u38+u39+u40+u41+u42+u43+u44+u45+u46+u47+u48+u49+u50;

{New Lows}

q1 := if(s1="",0,loadsymbol(s1,L));

L1 := hist(llv(q1,lbk),1); d1 := (q1 < L1);

q2 := if(s2="",0,loadsymbol(s2,L));

L2 := hist(llv(q2,lbk),1); d2 := (q2 < L2);

q3 := if(s3="",0,loadsymbol(s3,L));

L3 := hist(llv(q3,lbk),1); d3 := (q3 < L3);

q4 := if(s4="",0,loadsymbol(s4,L));

L4 := hist(llv(q4,lbk),1); d4 := (q4 < L4);

q5 := if(s5="",0,loadsymbol(s5,L));

L5 := hist(llv(q5,lbk),1); d5 := (q5 < L5);

q6 := if(s6="",0,loadsymbol(s6,L));

L6 := hist(llv(q6,lbk),1); d6 := (q6 < L6);

q7 := if(s7="",0,loadsymbol(s7,L));

L7 := hist(llv(q7,lbk),1); d7 := (q7 < L7);

q8 := if(s8="",0,loadsymbol(s8,L));

L8 := hist(llv(q8,lbk),1); d8 := (q8 < L8);

q9 := if(s9="",0,loadsymbol(s9,L));

L9 := hist(llv(q9,lbk),1); d9 := (q9 < L9);

q10 := if(s10="",0,loadsymbol(s10,L));

L10 := hist(llv(q10,lbk),1); d10 := (q10 < L10);

q11 := if(s11="",0,loadsymbol(s11,L));

L11 := hist(llv(q11,lbk),1); d11 := (q11 < L11);

q12 := if(s12="",0,loadsymbol(s12,L));

L12 := hist(llv(q12,lbk),1); d12 := (q12 < L12);

q13 := if(s13="",0,loadsymbol(s13,L));

L13 := hist(llv(q13,lbk),1); d13 := (q13 < L13);

q14 := if(s14="",0,loadsymbol(s14,L));

L14 := hist(llv(q14,lbk),1); d14 := (q14 < L14);

q15 := if(s15="",0,loadsymbol(s15,L));

L15 := hist(llv(q15,lbk),1); d15 := (q15 < L15);

q16 := if(s16="",0,loadsymbol(s16,L));

L16 := hist(llv(q16,lbk),1); d16 := (q16 < L16);

q17 := if(s17="",0,loadsymbol(s17,L));

L17 := hist(llv(q17,lbk),1); d17 := (q17 < L17);

q18 := if(s18="",0,loadsymbol(s18,L));

L18 := hist(llv(q18,lbk),1); d18 := (q18 < L18);

q19 := if(s19="",0,loadsymbol(s19,L));

L19 := hist(llv(q19,lbk),1); d19 := (q19 < L19);

q20 := if(s20="",0,loadsymbol(s20,L));

L20 := hist(llv(q20,lbk),1); d20 := (q20 < L20);

q21 := if(s21="",0,loadsymbol(s21,L));

L21 := hist(llv(q21,lbk),1); d21 := (q21 < L21);

q22 := if(s22="",0,loadsymbol(s22,L));

L22 := hist(llv(q22,lbk),1); d22 := (q22 < L22);

q23 := if(s23="",0,loadsymbol(s23,L));

L23 := hist(llv(q23,lbk),1); d23 := (q23 < L23);

q24 := if(s24="",0,loadsymbol(s24,L));

L24 := hist(llv(q24,lbk),1); d24 := (q24 < L24);

q25 := if(s25="",0,loadsymbol(s25,L));

L25 := hist(llv(q25,lbk),1); d25 := (q25 < L25);

q26 := if(s26="",0,loadsymbol(s26,L));

L26 := hist(llv(q26,lbk),1); d26 := (q26 < L26);

q27 := if(s27="",0,loadsymbol(s27,L));

L27 := hist(llv(q27,lbk),1); d27 := (q27 < L27);

q28 := if(s28="",0,loadsymbol(s28,L));

L28 := hist(llv(q28,lbk),1); d28 := (q28 < L28);

q29 := if(s29="",0,loadsymbol(s29,L));

L29 := hist(llv(q29,lbk),1); d29 := (q29 < L29);

q30 := if(s30="",0,loadsymbol(s30,L));

L30 := hist(llv(q30,lbk),1); d30 := (q30 < L30);

q31 := if(s31="",0,loadsymbol(s31,L));

L31 := hist(llv(q31,lbk),1); d31 := (q31 < L31);

q32 := if(s32="",0,loadsymbol(s32,L));

L32 := hist(llv(q32,lbk),1); d32 := (q32 < L32);

q33 := if(s33="",0,loadsymbol(s33,L));

L33 := hist(llv(q33,lbk),1); d33 := (q33 < L33);

q34 := if(s34="",0,loadsymbol(s34,L));

L34 := hist(llv(q34,lbk),1); d34 := (q34 < L34);

q35 := if(s35="",0,loadsymbol(s35,L));

L35 := hist(llv(q35,lbk),1); d35 := (q35 < L35);

q36 := if(s36="",0,loadsymbol(s36,L));

L36 := hist(llv(q36,lbk),1); d36 := (q36 < L36);

q37 := if(s37="",0,loadsymbol(s37,L));

L37 := hist(llv(q37,lbk),1); d37 := (q37 < L37);

q38 := if(s38="",0,loadsymbol(s38,L));

L38 := hist(llv(q38,lbk),1); d38 := (q38 < L38);

q39 := if(s39="",0,loadsymbol(s39,L));

L39 := hist(llv(q39,lbk),1); d39 := (q39 < L39);

q40 := if(s40="",0,loadsymbol(s40,L));

L40 := hist(llv(q40,lbk),1); d40 := (q40 < L40);

q41 := if(s41="",0,loadsymbol(s41,L));

L41 := hist(llv(q41,lbk),1); d41 := (q41 < L41);

q42 := if(s42="",0,loadsymbol(s42,L));

L42 := hist(llv(q42,lbk),1); d42 := (q42 < L42);

q43 := if(s43="",0,loadsymbol(s43,L));

L43 := hist(llv(q43,lbk),1); d43 := (q43 < L43);

q44 := if(s44="",0,loadsymbol(s44,L));

L44 := hist(llv(q44,lbk),1); d44 := (q44 < L44);

q45 := if(s45="",0,loadsymbol(s45,L));

L45 := hist(llv(q45,lbk),1); d45 := (q45 < L45);

q46 := if(s46="",0,loadsymbol(s46,L));

L46 := hist(llv(q46,lbk),1); d46 := (q46 < L46);

q47 := if(s47="",0,loadsymbol(s47,L));

L47 := hist(llv(q47,lbk),1); d47 := (q47 < L47);

q48 := if(s48="",0,loadsymbol(s48,L));

L48 := hist(llv(q48,lbk),1); d48 := (q48 < L48);

q49 := if(s49="",0,loadsymbol(s49,L));

L49 := hist(llv(q49,lbk),1); d49 := (q49 < L49);

q50 := if(s50="",0,loadsymbol(s50,L));

L50 := hist(llv(q50,lbk),1); d50 := (q50 < L50);

newlo:=d1+d2+d3+d4+d5+d6+d7+d8+d9+d10+d11+d12+d13+d14+d15+d16+d17+d18+d19+d20+d21+d22+d23+d24+d25+d26+d27+d28+d29+d30+d31+d32+d33+d34+d35+d36+d37+d38+d39+d40+d41+d42+d43+d44+d45+d46+d47+d48+d49+d50;

[horzline=0;color=black]

[linestyle =solid;color=blue]

newhi-newlo;

Good job CB,

They add and subtract stocks from the indices every 3 months.  If you are wanting reliable testing from an index then it gets more difficult the further back in history you go.    I used to be able to get new index announcements and archives of changes from http://www.standardandpoors.com/home/en/au   The info may still be there.  Some info requires a free registration.

I have completed the new highs indicator for the ASX20 and ASX50 following Maximo’s template.

Then I got to thinking...of course these index compositions change over time. Some codes weren’t even trading 12 years ago.

Should I create an ASX Longevity 50 index?

So what I have done is take the top 50 today from all the codes in today’s XJO that were also trading  on July 1^st 2000. Am I skewing things statistically or am I actually doing something more statistically valid in that I am looking at the exact same companies today as were in the index 12 years ago?

Slow loading, but that doesn’t matter, my computer never complains. Is it worthwhile or possible even to go to an index of 100 or 200? More valid statistically?

Before I do a similar indicator for the new lows and NH-NL , any comments, errors, suggestions eg. MA smoothing   would be most welcome.

Thank you for your reply, Maximo.

>> A value of 250 will show which are making new highs or lows for the year.

In the scan I don’t want to know which code names are making new highs. I simply want to know the raw number of codes making new highs, and have that number appear in a results table, not just in a corner of the toolbar at the bottom.

I tried fiddling with k% but by the time I had finished it did not look much different from my original coding above with a list of stocks that are making new highs. I think I may be missing your point.

Please could you demonstrate the basic scan for the stochastic K% you suggest..none of the fancy bits (if that’s too time consuming for you) just the core.

Thank you for your help

A simple solution is to use the Stochastic indicator %K fast which does not lag or use averaging as opposed to %D.     A value of 250 will show which are making new highs or lows for the year.  The downside may be that this indicator doesn't have  a value greater than 100%.   Perhaps a modified version that goes to 200% would suffice.

I am trying ultimately to code Elder and Lovvorn’s The New High - New Low Index. It creates a line indicator showing the running total of new daily (and weekly) highs minus the new daily (and weekly) lows looking back over various periods of up to one year.

The concept seems quite good...looking for exceptional spikes, and divergences heralding a possible trend change etc Although I’m not sure it would tell you anything fundamentally different from extreme RSI readings for the XAO, or RSI divergence. But it would be fun to find out using Bullcharts (and Tradesim)... I’m like a kid in a lolly shop when I discover new indicators.

I can roughly figure out how to do it in Excel but my coding skills aren’t up to it in Bullcharts yet..or they were once but I’ve forgotten how. I need to lock myself in a room for a week doing nothing but working my way through the BC help file and every BC indicator/scan to get my head around the coding. I wish I lived next door to Robert Brain! (I can highly recommend his very helpful site for BC users   http://www.robertbrain.com)

I can do the code for a scan for new highs for a single day.

Eg for 1^st Feb 2013 data I find by looking at the scan progress toolbar that there are 43 new highs from a total of 484 codes when I use the All Ordinaries as the Securities database

{"New Daily Highs in 250 days" scan}

{Variables}

prevhhi := hist(hhv(H,249),1);

{Condition}

filter := (h > prevhhi);

filter;

{Columns}

[name="High"; dp="3"] High;

[name="Prev highest hi"; dp="3"] prevhhi;

1.     How do I code for this scan (or any other), so that the count of the “pass filter number”   43   is shown in one of the columns? [name=.....]

Eg. This scan run individually on a daily basis for the codes in All Ordinaries this last rolling week produces the figures

25/1/13           47 new highs from 484 codes

29/1/13           72

30/1/13           40

31/1/13           29

1/2/13             43

How can I turn this scan into an indicator that incorporate those figures 47,72,40,29,43 as points on an indicator line chart.

Pointing out errors and suggestions most welcome

Thank you for your help.