Advance/decline or New high/New Lows

Is it possible write bullscript to plot this indicator over a chart?

 

 

(2) There is another similar indicator of new high and new lows. Link attached for further information.

 

 

Just got the below response from Bullcharts

 

Hi Wael,

 

Unfortunately, BullCharts doesn’t have a chart for Advanced/Declines for the stock market.

 

I shall check with developers to see if there is any way to have it or not

 

Sorry for the inconvenience,

Decha Puapankasemsuk 

WebLink Systems Pty Ltd

t: +61 2 9495 8400 f: +61 2 9495 8401

Suite 5 Level 2 North Tower

1 Railway St Chatswood NSW 2067 Australia

 

I'm surprised I haven't  seen or answered this before.  It involves a lot of work.   To construct an indicator of 200 stocks requires considerable time and that's something I don't have a lot of atm.   Anyhow here's an oscillator of the 4 banks, which you can play with.  I've included the latest listing of the ASX50 stocklist.   The black line is the average of all 4.

You can add the other 196 stocks in the index if you wish.

 

 

n := input("Period",10,1);

{ Index Composition for ASX20 }

S001:="AMP"; S002:="ANZ"; S003:="BHP"; S004:="BXB"; S005:="CBA";

S006:="CSL"; S007:="FGL"; S008:="MQG"; S009:="NAB"; S010:="NCM";

S011:="ORG"; S012:="QBE"; S013:="RIO"; S014:="SUN"; S015:="TLS";

S016:="WBC"; S017:="WDC"; S018:="WES"; S019:="WOW"; S020:="WPL";

{ Index Composition for remaining ASX50 }

S021:="AGK"; S022:="AIO"; S023:="AMC"; S024:="ASX"; S025:="BSL";

S026:="CCL"; S027:="CFX"; S028:="CPU"; S029:="FMG"; S030:="GPT";

S031:="IAG"; S032:="IPL"; S033:="LEI"; S034:="LLC"; S035:="MGR";

S036:="MAP"; S037:="MIG"; S038:="NWS"; S039:="ORI"; S040:="OSH";

S041:="OST"; S042:="QAN"; S043:="SGP"; S044:="SHL"; S045:="STO";

S046:="TAH"; S047:="TCL"; S048:="CWN"; S049:="TOL"; S050:="WOR";

[color=blue]

a001:=((ma(LoadSymbol(S005,H),n)-ma(LoadSymbol(S005,L),n*2)) / LoadSymbol(S005,C))*100;

a001;

[color=lime green]

a002:=((ma(LoadSymbol(S016,H),n)-ma(LoadSymbol(S016,L),n*2)) / LoadSymbol(S016,C))*100;

a002;

[color=coral]

a003:=((ma(LoadSymbol(S003,H),n)-ma(LoadSymbol(S003,L),n*2)) / LoadSymbol(S003,C))*100;

a003;

[color=crimson]

a004:=((ma(LoadSymbol(S009,H),n)-ma(LoadSymbol(S009,L),n*2)) / LoadSymbol(S009,C))*100;

a004;

[color=black; width=2]