a1:= Security("E:\New MS Data\NSE\ACC",C);
a2:= Security("E:\New MS Data\NSE\ambujacem",C);
a3:= Security("E:\New MS Data\NSE\ultracemco",C);
a4:= Security("E:\New MS Data\NSE\indiacem",C);
a5:= Security("E:\New MS Data\NSE\madrascem",C);
a6:= Security("E:\New MS Data\NSE\shreecem",C);
a7:= Security("E:\New MS Data\NSE\birlajute",C);
a8:= Security("E:\New MS Data\NSE\sanghiind",C);
a9:= Security("E:\New MS Data\NSE\dalmiacem",C);
a10:= Security("E:\New MS Data\NSE\prismcem",C);
a11:= Security("E:\New MS Data\NSE\jkcement",C);
a12:= Security("E:\New MS Data\NSE\ramcoind",C);
x:= DayOfMonth() = 1 AND Month() = 1 AND Year() = 2008;
100*(a1/ValueWhen(1,x,a1) + a2/ValueWhen(1,x,a2) + a3/ValueWhen(1,x,a3) + a4/ValueWhen(1,x,a4) + a5/ValueWhen(1,x,a5) + a6/ValueWhen(1,x,a6) + a7/ValueWhen(1,x,a7) + a8/ValueWhen(1,x,a8) + a9/ValueWhen(1,x,a9) + a10/ValueWhen(1,x,a10) + a11/ValueWhen(1,x,a11) + a12/ValueWhen(1,x,a12))/12