// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{VALUES}}", SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

TF = Interval();
Dayema=Param("dayema",0,0,1);
LT=Param("LT",1,0,1);
BB=Param("BB",0,0,1);

TimeFrameSet (inDaily);
EMA5DH=(EMA(H,5)+(EMA(C,5)*.00375));
EMA5DC=EMA(C,5);
EMA5DL=(EMA(L,5)-(EMA(C,5)*.00375));
TimeFrameRestore();

if (TF==1800) {

	BBML=MA(L,21);
	BBMC=MA(C,21);
	BBMH=MA(H,21);
	UP=EMA(H,69);
	NUTRAL=EMA(C,69);
	DOWN=EMA(L,69);
	Bias=EMA(C,25);
	Plot( BBMC, "BBMC", colorGold );
	Plot (UP, "Up",colorGreen);
	Plot (NUTRAL, "Nutral",colorBlue);
	Plot (DOWN, "Down",colorRed);
//Plot (EMA53C, "ema53C", colorBrightGreen,styleDashed);
	if (dayema == 1) {
		Plot (TimeFrameExpand(EMA5DH,inDaily),"5DH",colorPaleGreen,styleDashed);
		Plot (TimeFrameExpand(EMA5DC,inDaily),"5DH",colorLightBlue,styleDashed);
		Plot (TimeFrameExpand(EMA5DL,inDaily),"5DH",colorOrange,styleDashed);
	}
	if (BB == 1) {
		Plot( BBandTop( C, 21, 2.2 ),"BBTop", colorLightGrey); 
		Plot( BBandBot( C, 21, 2.2 ), "BBBot", colorLightGrey); 
	}
}


else if (TF==900) {

	BBML=MA(L,21);
	BBMC=MA(C,21);
	BBMH=MA(H,21);
	UP=EMA(H,135);
	NUTRAL=EMA(C,135);
	DOWN=EMA(L,135);
	BiasU=EMA(H,44);
	BiasN=EMA(C,44);
	BiasD=EMA(L,44);
	Plot( BBMH, "BBMH", colorCustom15 );
//Plot( BBMC, "BBMC", colorGold );
	Plot( BBML, "BBML", colorCustom16 );
	Plot (UP, "Up",colorGreen);
//Plot (NUTRAL, "Nutral",colorBlue);
	Plot (DOWN, "Down",colorRed);
	Plot (BiasU, "BiasU", colorCustom9,styleDashed);
//Plot (BiasN, "BiasN", colorCustom11,styleDashed);
	Plot (BiasD, "BiasD", colorCustom12,styleDashed);
	if (dayema == 1) {
		Plot (TimeFrameExpand(EMA5DH,inDaily),"5DH",colorPaleGreen,styleDashed);
		Plot (TimeFrameExpand(EMA5DC,inDaily),"5DH",colorLightBlue,styleDashed);
		Plot (TimeFrameExpand(EMA5DL,inDaily),"5DH",colorOrange,styleDashed);
	}
	if (BB==1) {
		Plot( BBandTop( C, 21, 2.2 ),"BBTop", colorLightGrey); 
		Plot( BBandBot( C, 21, 2.2 ), "BBBot", colorLightGrey); 
	}
}


else if (TF==600) {

	BBML=MA(L,22);
	BBMC=MA(C,22);
	BBMH=MA(H,22);
	UP=EMA(H,200);
	NUTRAL=EMA(C,200);
	DOWN=EMA(L,200);
	BiasU=EMA(H,67);
	BiasN=EMA(C,67);
	BiasD=EMA(L,67);
	Plot( BBMH, "BBMH", colorCustom15 );
	//Plot( BBMC, "BBMC", colorGold );
	Plot( BBML, "BBML", colorCustom16 );
	Plot (UP, "Up",colorGreen);
	//Plot (NUTRAL, "Nutral",colorBlue);
	Plot (DOWN, "Down",colorRed);
	Plot (BiasU, "BiasU", colorCustom9,styleDashed);
	//Plot (BiasN, "BiasN", colorCustom11,styleDashed);
	Plot (BiasD, "BiasD", colorCustom12,styleDashed);
	if (dayema == 1) {
		Plot (TimeFrameExpand(EMA5DH,inDaily),"5DH",colorPaleGreen,styleDashed);
		Plot (TimeFrameExpand(EMA5DC,inDaily),"5DH",colorLightBlue,styleDashed);
		Plot (TimeFrameExpand(EMA5DL,inDaily),"5DH",colorOrange,styleDashed);
	}
	if (BB==1) {
		Plot( BBandTop( C, 21, 2.2 ),"BBTop", colorLightGrey); 
		Plot( BBandBot( C, 21, 2.2 ), "BBBot", colorLightGrey);
	}
}

else if (TF==300) {

	BBML=MA(L,44);
	BBMC=MA(C,44);
	BBMH=MA(H,44);
	UP=EMA(H,385);
	NUTRAL=EMA(C,385);
	DOWN=EMA(L,385);
	BiasU=EMA(H,135);
	BiasN=EMA(C,135);
	BiasD=EMA(L,135);
	Plot( BBMH, "BBMH", colorCustom15 );
	//Plot( BBMC, "BBMC", colorGold );
	Plot( BBML, "BBML", colorCustom16 );
	Plot (UP, "Up",colorGreen);
	//Plot (NUTRAL, "Nutral",colorBlue);
	Plot (DOWN, "Down",colorRed);
	Plot (BiasU, "BiasU", colorCustom9,styleDashed);
	//Plot (BiasN, "BiasN", colorCustom11,styleDashed);
	Plot (BiasD, "BiasD", colorCustom12,styleDashed);
	if (dayema == 1) {
		Plot (TimeFrameExpand(EMA5DH,inDaily),"5DH",colorPaleGreen,styleDashed);
		Plot (TimeFrameExpand(EMA5DC,inDaily),"5DH",colorLightBlue,styleDashed);
		Plot (TimeFrameExpand(EMA5DL,inDaily),"5DH",colorOrange,styleDashed);
	}
	if (BB == 1) {
		Plot( BBandTop( C, 44, 2.3 ),"BBTop", colorLightGrey); 
		Plot( BBandBot( C, 44, 2.3 ), "BBBot", colorLightGrey);
	}
} 

else if (TF==3600) {

	if (LT == 1) {

		BBML=EMA(L,44);
		BBMC=EMA(C,44);
		BBMH=EMA(H,44);
		UP=EMA(H,375);
		NUTRAL=EMA(C,375);
		DOWN=EMA(L,375);
		BiasU=EMA(H,155);
		BiasN=EMA(C,155);
		BiasD=EMA(L,155);
		Plot( BBMH, "BBMH", colorCustom15 );
		//Plot( BBMC, "BBMC", colorGold );
		Plot( BBML, "BBML", colorCustom16 );
		//Plot (UP, "Up",colorGreen);
		//Plot (NUTRAL, "Nutral",colorBlue);
		//Plot (DOWN, "Down",colorRed);
		Plot (BiasU, "BiasU", colorCustom9,styleDashed);
		//Plot (BiasN, "BiasN", colorCustom11,styleDashed);
		Plot (BiasD, "BiasD", colorCustom12,styleDashed);
		if (dayema == 1) {
			Plot (TimeFrameExpand(EMA5DH,inDaily),"5DH",colorPaleGreen,styleDashed);
			Plot (TimeFrameExpand(EMA5DC,inDaily),"5DH",colorLightBlue,styleDashed);
			Plot (TimeFrameExpand(EMA5DL,inDaily),"5DH",colorOrange,styleDashed);
		}
		if (BB==1) {
			Plot( BBandTop( C, 44, 2.3 ),"BBTop", colorLightGrey); 
			Plot( BBandBot( C, 44, 2.3 ), "BBBot", colorLightGrey);
		}
	}
	else {
		UP=EMA(H,40);
		NUTRAL=EMA(C,40);
		DOWN=EMA(L,40);
		Bias=EMA(C,11);
		Plot (UP, "Up",colorGreen);
		Plot (NUTRAL, "Nutral",colorBlue);
		Plot (DOWN, "Down",colorRed);
		//Plot (Bias, "Bias", colorBrightGreen,styleDashed);
		if (BB==1) {	
			Plot( BBandTop( C, 20, 2 ),"BBTop", colorLightGrey); 
			Plot( BBandBot( C, 20, 2 ), "BBBot", colorLightGrey);
		}
	}
}