// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Beta Coefficient");
n = Param("n Days", 5, 1, 100, 1 );

TPC= C-Ref(C,-n);
IPC= Foreign("00DSEGEN", "C,-n")-Ref(Foreign("00DSEGEN", "C,-n"),-n);

Title=
EncodeColor(colorYellow)+  Title = Name () + " | " 
+EncodeColor(colorRed) + Date() + " | " 
+EncodeColor(colorSkyblue) + "{{INTERVAL}}  "+ " | " 

+EncodeColor(colorTeal)+ "Open ="+ EncodeColor(colorLightGrey)+ O + " | "
+EncodeColor(colorTeal)+ "High ="+ EncodeColor(colorLightGrey)+ H + " | "
+EncodeColor(colorTeal)+ "Low = "+ EncodeColor(colorLightGrey)+ L + " | "
+EncodeColor(colorTeal)+ "Close = "+ WriteIf(C> O,EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ C + " | "
+EncodeColor(colorTeal)+ "Change= ("+ WriteIf(C> O,EncodeColor(colorBrightGreen),EncodeColor(colorRed)) + WriteVal(C-Ref(C,-1))+" Tk."
+EncodeColor(colorTeal)+ " /"+ WriteIf(C> O,EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal( ROC( C, 1 ))+""+ " % "
+EncodeColor(colorTeal)+ ") Volume = " + EncodeColor(colorLightGrey)+ WriteVal(V,1)+ " | "
+EncodeColor(colorTeal)+ "Vol.Change= "+ EncodeColor(colorLightGrey)+ Prec(ROC( V, 1 ),2)+""+ " % "

+"\n"+EncodeColor(colorGreen)+"Ticker Price Change (n Days) : " + WriteVal( ROC( C, n))+""+ " % "+ ""
+"\n"+EncodeColor(colorLightBlue)+"Ticker Price Change= : "+ TPC +" Tk."
+"\n"+EncodeColor(colorLightGrey)+"Index Change= : "+IPC+" /  "+(IPC/100) +" %"
+"\n"+EncodeColor(colorTan)+"Beta Coefficient •••••  : "+ (TPC/IPC) +""
;
_SECTION_END();

_SECTION_BEGIN("BETA");
Filter=1;
Beta= TPC/IPC ;
AddColumn(Beta,"BETA");
_SECTION_END();