Moving Average with Colors?

[UnknownZ]

Does anyone have this kind of AFL? or maybe someone can convert it?
Moving Average with Slope Based Color : http://www.thinkscripter.com/indicator/moving-average-with-slope-based-color/

Thanks in advance.

 

[hitesh]

Does anyone have this kind of AFL? or maybe someone can convert it?
Moving Average with Slope Based Color : http://www.thinkscripter.com/indicator/moving-average-with-slope-based-color/

Thanks in advance.

Try This AFL.

_SECTION_BEGIN("EMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 5, 2, 200, 1, 10 );
// Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );



Plot(EMA( P, Periods ), _DEFAULT_NAME(),
IIf(EMA( P, Periods ) > Ref(EMA( P, Periods ),-1),ParamColor("Rising EMA", colorBlue),ParamColor("Falling EMA", colorRed)));




_SECTION_END();

 

[sanjibbd06]

Its Coloured MACD... U can try this--------


_SECTION_BEGIN("MACD");
r1 = Param( "Fast avg", 12, 2, 200, 1 );
r2 = Param( "Slow avg", 26, 2, 200, 1 );
r3 = Param( "Signal avg", 9, 2, 200, 1 );

MACDstyle = ParamStyle("MACD style");
Signalstyle = ParamStyle("Signal style");
Histstyle = ParamStyle("Histogram style", styleHistogram | styleThick | styleNoLabel, maskHistogram );

MACDcolor = ParamColor( "Macd One Color", colorRed );
Signalcolor = ParamColor( "Signal Color", colorBlue );
Histcolor = ParamColor( "Histogram One Color", colorRed );

TitleText = StrFormat("MACD " + "(%g,%g)", r1, r2);
PlotGrid( 0 );
_SECTION_END(); _SECTION_END ();

_SECTION_BEGIN("MACD Color");
dyncolorswitch = ParamToggle("Macd Color","On,Off");
dynamic_color = IIf( MACD(r1, r2) > Ref(MACD(r1, r2),-1), ParamColor("Macd Up Color", colorGreen ), ParamColor("Macd Down Color", colorRed ));
Plot( ml = MACD(r1, r2), TitleText, IIf(dyncolorswitch, MACDcolor , dynamic_color), MACDstyle );
Plot( sl = Signal(r1,r2,r3), "Signal" + _PARAM_VALUES(), Signalcolor, Signalstyle );
_SECTION_END(); _SECTION_END ();

_SECTION_BEGIN("Histogram Color");
Histogramswitch = ParamToggle("Histogram Color","On,Off");
Histogram_color = IIf( ml-sl > Ref(ml-sl,-1), ParamColor("Hist Up Color", colorGreen ), ParamColor("Hist Down Color", colorRed ));
Plot( ml-sl, "MACD Histogram", IIf(Histogramswitch, Histcolor , Histogram_color), styleNoTitle | Histstyle );
_SECTION_END(); _SECTION_END ();

_SECTION_BEGIN("Buy Sell Arrows");
shapesSignalswitch = ParamToggle("Cross Signal Arrows","On,Off");
UPcolor = ParamColor( "UP Color", colorGreen );
DOWNcolor = ParamColor( "Down Color", colorRed );
Buy=Cross( MACD(), Signal() );
Sell=Cross( Signal(), MACD() );
shape = Buy * shapeUpArrow + Sell * shapeDownArrow;
PlotShapes( IIf(shapesSignalswitch,-1e10,shape), IIf( Buy, UPcolor, DOWNcolor ));
_SECTION_END();

_SECTION_BEGIN("Fill Color");
m = MACD(r1, r2);
s = Signal(r1,r2,r3);
Cloudswitch = ParamToggle("Fill Color","On,Off");
dynamic_color = IIf( m > s, ParamColor("Down Color", colorSeaGreen ), ParamColor("Up Color", colorOrange ));
PlotOHLC( IIf(Cloudswitch,-1e10,m),IIf(Cloudswitch,-1e10,m),IIf(Cloudswitch,-1e10,s),IIf(Cloudswitch,-1e10,m), "", dynamic_color, styleNoLabel | styleCloud );
_SECTION_END(); _SECTION_END ();

 

[vijayakishorebabu]

Try This AFL.

_SECTION_BEGIN("EMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 5, 2, 200, 1, 10 );
// Plot( EMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );



Plot(EMA( P, Periods ), _DEFAULT_NAME(),
IIf(EMA( P, Periods ) > Ref(EMA( P, Periods ),-1),ParamColor("Rising EMA", colorBlue),ParamColor("Falling EMA", colorRed)));




_SECTION_END();

_____________________________________________________________

Hi hitesh,

You have given 5 days moving average afl. Suppose If i want 10 days moving average also along with that 5 days in the chart. Simply copy second time in formula editor and "changing the period as 10" is not working. So, What i have to do and Where i have to change the afl.

 

[hitesh]

_____________________________________________________________

Hi hitesh,

You have given 5 days moving average afl. Suppose If i want 10 days moving average also along with that 5 days in the chart. Simply copy second time in formula editor and "changing the period as 10" is not working. So, What i have to do and Where i have to change the afl.

Hi,

Just ensure you have different name for the copied formula . (that is in the first line - as follows).

_SECTION_BEGIN("EMA2");

_SECTION_BEGIN("EMA3"); etc.

I use it as above and its working.

Please revert if still problem persist.

All the Best....

 

[vijayakishorebabu]

Thanks hitesh,

It worked.

 

[UnknownZ]

thank you hitesh and sanjibbd06

 

[SRJC]

Hi
How about colored RSI?
Any body can post the AFL?
Thanks in Advance.
SRJC