I have an idea to calculate composite of each sector as below.The afl is as below
//Choose market NSE for Automatic Analysis, it will return nothing but update sector's composite indexes in sector 23.
if(SectorID() == 0)
{
sym="~" + "Automotive";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 1)
{
sym = "~" + "Banking & Financial Services";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 2)
{
sym = "~" + "Consumer Durables";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 3)
{
sym = "~" + "Cement and Construction";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 4)
{
sym = "~" + "Consumer Non-durables";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 5)
{
sym = "~" + "Chemicals";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 6)
{
sym = "~" + "Conglomer";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 7)
{
sym = "~" + "Engineering & Capital Goods";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 8)
{
sym = "~" + "Food & Beverages";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 9)
{
sym = "~" + "Information Technology";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 10)
{
sym = "~" + "Manufacturing";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 11)
{
sym = "~" + "Media and Entertainment";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 12)
{
sym = "~" + "Metals & Mining";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 13)
{
sym = "~" + "Oil & Gas";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 14)
{
sym = "~" + "Pharmaceu";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 15)
{
sym = "~" + "Real Estate";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 16)
{
sym = "~" + "Services";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 17)
{
sym = "~" + "Telecommunication";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 18)
{
sym = "~" + "Tobacco";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 19)
{
sym = "~" + "Utilities";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
if(SectorID() == 20)
{
sym = "~" + "Miscellaneous";
AddToComposite( L, sym,"L");
AddToComposite( O, sym,"O");
AddToComposite( H, sym,"H");
AddToComposite( C, sym,"C");
AddToComposite( V, sym, "V");
}
Buy=Sell=Short=Cover=0;
Filter=1;
This the rough idea please modify it.