_SECTION_BEGIN("KRA007");
KRA = (EMA(High + Close, 11) - EMA(Open + Low, 25)) / 2;
KRAS = EMA(KRA, 7);
Cross1 = Cross(KRA,KRAS);
Cross2 = Cross(KRAS,KRA);
KRALongMode = Flip(Cross1,Cross2);
KRAColor = IIf(KRALongMode, colorBlue, colorRed);
KRAPeaked = abs(KRA) >= 0.9 * MA(HHV(KRA, 10), 10);
KRATanked = abs(KRA) <= 0.1 * MA(HHV(KRA, 10), 10);
/////////////////////////////////////////
KRA = EMA(KRA, 15);
////////////////////////////////////////
Plot(KRA, "K Line", KRAColor, styleLeftAxisScale
| styleNoLabel | styleLine | styleThick);
_SECTION_END();
_SECTION_BEGIN("Volume");
Plot( Volume, _DEFAULT_NAME(), IIf( C > O, ParamColor("Up Color", colorGreen ), ParamColor("Down Color", colorRed ) ), ParamStyle( "Style", styleHistogram | styleThick, maskHistogram ) );
ribboncol= IIf( BarsSince(Cross1)<BarsSince(Cross2), colorGreen, colorRed );
Plot(6, "", ribboncol, styleArea | styleOwnScale | styleNoLabel, 0, 100 );