// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("BS Weekly");
/* switch to weekly time frame */ 
TimeFrameSet( inWeekly ); 
MP = ( H + L + C) / 3; //CALCULATING MEDIAN PRICE
BS = MA( MP, 5 ); // CALCULATING THE BALANCE STEP
_UP = BS > Ref(BS,-1);
_BScolor = IIf( _UP, ParamColor("Up Color", colorBrightGreen), ParamColor("Down Color", colorRed )); /* choose color */
TimeFrameRestore(); 

/* expand calculated weekly BALANCE STEP to display on DAILY charts */ 

BalanceStep = TimeFrameExpand( BS, inWeekly );
UP = TimeFrameExpand( _UP, inWeekly );
BScolor = TimeFrameExpand( _BScolor, inWeekly );


Plot(BalanceStep,_DEFAULT_NAME(),BScolor,styleLine | styleThick,0,0,1);
_SECTION_END();