periods1 = Param("Periods1", 5, 1, 200, 1 );
periods2 = Param("Periods2", 5, 1, 200, 1 );
periods3 = Param("Periods3", 5, 1, 200, 1 );
dSy = ROC( Close, periods1);
_SECTION_BEGIN("Extra Ticker");
_N( Symbol2= ParamStr("Symbol2", "NIFTY") );
SetForeign( Symbol2 );
C2 = C;
RestorePriceArrays();
dInd = ROC( C2, periods1);
_SECTION_END();
Cond1 = dSy > dInd ;
Cond2 = dSy < dInd ;
ST = dSy - dInd ;
//
dSy2 = ROC( Close, periods2);
_SECTION_BEGIN("Extra Ticker");
_N( Symbol2= ParamStr("Symbol2", "NIFTY") );
SetForeign( Symbol2 );
C2 = C;
RestorePriceArrays();
dInd2 = ROC( C2, periods2);
_SECTION_END();
Cond3 = dSy2 > dInd2 ;
Cond4 = dSy2 < dInd2 ;
ST2 = dSy2 - dInd2 ;
//
dSy3 = ROC( Close, periods3);
_SECTION_BEGIN("Extra Ticker");
_N( Symbol2= ParamStr("Symbol2", "NIFTY") );
SetForeign( Symbol2 );
C2 = C;
RestorePriceArrays();
dInd3 = ROC( C2, periods3);
Cond3 = dSy3 > dInd3 ;
Cond4 = dSy3 < dInd3 ;
ST3 = dSy3 - dInd3 ;
_SECTION_END();
_SECTION_BEGIN("Range Vol Ratio 1");
pds = Param("Periods", 21, 2, 300, 1, 10 );;
V0=TimeFrameGetPrice( "Volume", inDaily, 0 ) ;
V1=TimeFrameGetPrice( "Volume", inDaily, -1 ) ;
Vox = 100*V0/V1;
Vol1 = 100*V/MA(V,pds);
_SECTION_END();
///Exploration
Filter = -1;
FGCol =
IIf(Vox , colorBlack ,
IIf(Vol1 , colorblack ,
IIf(ST , colorBlack ,
IIf(ST2 , colorBlack ,
IIf(ST3 , colorblack , colorDefault)))));
BGCol =
IIf(ST > 0, colorLime ,
IIf(ST < 0, colorLightOrange , colorDefault));
BGCol1 =
IIf(ST2 > 0, colorLime ,
IIf(ST2 < 0, colorLightOrange , colorDefault));
BGCol2 =
IIf(ST3 > 0, colorLime ,
IIf(ST3 < 0, colorLightOrange , colorDefault));
BGColV =
IIf(Vol1 > 100, colorLightOrange , colorDefault);
BGColV1 =
IIf(Vol1 > 100, colorLightOrange , colorDefault);
AddColumn(ST , "Period 1" , 1.3 , FGCol , BGCol);
AddColumn(ST2 , "Period 2 " , 1.3 , FGCol , BGCol1);
AddColumn(ST3 , "Period 3" , 1.3 , FGCol , BGCol2);
AddColumn(Vox , "% PreviousDay" , 1.3 , FGCol , BGColV);
AddColumn(Vol1 , "% Monthly " , 1.3 , FGCol , BGColV1);