_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
_SECTION_BEGIN("315 System");
e3 = EMA(C,3);
e15 = EMA(C,15);
Plot(e3, "e3", colorRed, styleThick);
Plot(e15, "e15", colorBlue, styleThick);
Buy = Cross(e3, e15);
Sell = Cross(e15, e3);
Buy = ExRem(Buy,Sell);
Sell = ExRem(Sell,Buy);
PlotShapes(Buy * shapeUpArrow, colorBlue, 0, L,-30);
PlotShapes(Sell * shapeDownArrow, colorRed, 0, H,-30);
_SECTION_END();
_SECTION_BEGIN("Trend Ribbon");
color = IIf(BarsSince(Buy) < BarsSince(Sell),colorBlue,colorRed);
Plot(10, "", color, styleArea | styleNoLabel | styleOwnScale,0,300);
SL = IIf(BarsSince(Buy) < BarsSince(Sell),LLV(L,3),HHV(H,3)); //Disaster Stop
Plot(SL, "SL", colorBlueGrey, styleStaircase,0,0,1);
_SECTION_END();
_SECTION_BEGIN("Strength of Bar");
ShowBarStrength = ParamToggle("Show Bar Strength", "No|Yes");
if (ShowBarStrength == 1)
{
ShapeUP = IIf(C > Ref(HHV(H,10),-1),shapeDigit9,IIf(C > Ref(HHV(H,5),-1),shapeDigit5,
IIf(C > Ref(HHV(H,3),-1), shapeDigit3,IIf(C > Ref(HHV(H,1),-1),shapeDigit1,shapeNone)) ));
ShapeDN = IIf(C < Ref(LLV(L,10),-1),shapeDigit9,IIf(C < Ref(LLV(L,5),-1),shapeDigit5,
IIf(C < Ref(LLV(L,3),-1), shapeDigit3,IIf(C < Ref(LLV(L,1),-1),shapeDigit1,shapeNone)) ));
PlotShapes(shapeUP, colorBlueGrey, 0, L, -20);// 2 Weeks = 9, 1 Week = 5
PlotShapes(shapeDN, colorLime, 0, H, 20); // High/Low: 3 Days = 3, Previous Day = 1
}
_SECTION_END();