MULTIMOVING AVERGES WITH COLOUR for Amibroker (AFL)

_SECTION_BEGIN("GUPPY MULTIMOVING AVERAGES AS SHOWN ON GUPPYs BOOK");
SetChartOptions(0, chartShowArrows | chartShowDates);
FastMAColor = ParamColor("Fast Group MA Color", colorRed);
SlowMAColor = ParamColor("Slow Group MA Color", colorGreen);


Plot(WMA(C, 3), _DEFAULT_NAME(), IIf(C > WMA( Close,3),colorGreen, colorRed), styleLine);
Plot(WMA(C,4), _DEFAULT_NAME(), IIf(C > WMA( Close,4),colorGreen, colorRed) ,styleLine);
Plot(WMA(C, 5), _DEFAULT_NAME(), IIf(C > WMA( Close,4),colorGreen, colorRed), styleLine);
Plot(WMA(C, 6), _DEFAULT_NAME(), IIf(C > WMA( Close,6),colorGreen, colorRed), styleLine);
Plot(WMA(C, 7), _DEFAULT_NAME(), IIf(C > WMA( Close,7),colorGreen, colorRed), styleLine);
Plot(WMA(C, 8), _DEFAULT_NAME(), IIf(C > WMA( Close,8),colorGreen, colorRed), styleLine);
Plot(WMA(C, 9), _DEFAULT_NAME(), IIf(C > WMA( Close,9),colorGreen, colorRed), styleLine);
Plot(WMA(C, 10), _DEFAULT_NAME(), IIf(C > WMA( Close,10),colorGreen, colorRed), styleLine);
Plot(WMA(C, 11), _DEFAULT_NAME(), IIf(C > WMA( Close,11),colorGreen, colorRed), styleLine);
Plot(WMA(C, 12), _DEFAULT_NAME(), IIf(C > WMA( Close,12),colorGreen, colorRed), styleLine);
Plot(WMA(C, 13), _DEFAULT_NAME(), IIf(C > WMA( Close,13),colorGreen, colorRed), styleLine);
Plot(WMA(C, 14), _DEFAULT_NAME(), IIf(C > WMA( Close,14),colorGreen, colorRed), styleLine);
Plot(WMA(C,15), _DEFAULT_NAME(), IIf(C > WMA( Close,15),colorGreen, colorRed), styleLine);
Plot(WMA(C, 16), _DEFAULT_NAME(), IIf(C > WMA( Close,16),colorGreen, colorRed), styleLine);
Plot(WMA(C, 17), _DEFAULT_NAME(), IIf(C > WMA( Close,17),colorGreen, colorRed), styleLine);
Plot(WMA(C, 18), _DEFAULT_NAME(), IIf(C > WMA( Close,18),colorGreen, colorRed), styleLine);
Plot(WMA(C, 19), _DEFAULT_NAME(), IIf(C > WMA( Close,19),colorGreen, colorRed), styleLine);
Plot(WMA(C, 20), _DEFAULT_NAME(), IIf(C > WMA( Close,20),colorGreen, colorRed), styleLine);
Plot(WMA(C, 21), _DEFAULT_NAME(), IIf(C > WMA( Close,21),colorGreen, colorRed), styleLine);
Plot(WMA(C,22), _DEFAULT_NAME(), IIf(C > WMA( Close,22),colorGreen, colorRed), styleLine);
Plot(WMA(C, 23), _DEFAULT_NAME(), IIf(C > WMA( Close,23),colorGreen, colorRed), styleLine);
Plot(WMA(C,24), _DEFAULT_NAME(), IIf(C > WMA( Close,24),colorGreen, colorRed), styleLine);
Plot(WMA(C, 25), _DEFAULT_NAME(), IIf(C > WMA( Close,25),colorGreen, colorRed), styleLine);
Plot(WMA(C, 26), _DEFAULT_NAME(), IIf(C > WMA( Close,26),colorGreen, colorRed), styleLine);
Plot(WMA(C, 27), _DEFAULT_NAME(), IIf(C > WMA( Close,27),colorGreen, colorRed), styleLine);
Plot(WMA(C, 28), _DEFAULT_NAME(), IIf(C > WMA( Close,28),colorGreen, colorRed), styleLine);
Plot(WMA(C,29), _DEFAULT_NAME(), IIf(C > WMA( Close,29),colorGreen, colorRed), styleLine);
Plot(WMA(C, 30), _DEFAULT_NAME(), IIf(C > WMA( Close,30),colorGreen, colorRed), styleLine);
Plot(WMA(C, 31), _DEFAULT_NAME(), IIf(C > WMA( Close,31),colorGreen, colorRed), styleLine);
Plot(WMA(C, 32), _DEFAULT_NAME(), IIf(C > WMA( Close,32),colorGreen, colorRed), styleLine);
Plot(WMA(C, 33), _DEFAULT_NAME(), IIf(C > WMA( Close,33),colorGreen, colorRed), styleLine);
Plot(WMA(C, 34), _DEFAULT_NAME(), IIf(C > WMA( Close,34),colorGreen, colorRed), styleLine);
Plot(WMA(C, 35), _DEFAULT_NAME(), IIf(C > WMA( Close,35),colorGreen, colorRed), styleLine);
Plot(WMA(C,36), _DEFAULT_NAME(), IIf(C > WMA( Close,36),colorGreen, colorRed), styleLine);
Plot(WMA(C, 37), _DEFAULT_NAME(), IIf(C > WMA( Close,37),colorGreen, colorRed), styleLine);
Plot(WMA(C, 38), _DEFAULT_NAME(), IIf(C > WMA( Close,38),colorGreen, colorRed), styleLine);
Plot(WMA(C, 39), _DEFAULT_NAME(), IIf(C > WMA( Close,39),colorGreen, colorRed), styleLine);
Plot(WMA(C, 40), _DEFAULT_NAME(), IIf(C > WMA( Close,40),colorGreen, colorRed), styleLine);
Plot(WMA(C, 41), _DEFAULT_NAME(), IIf(C > WMA( Close,41),colorGreen, colorRed), styleLine);
Plot(WMA(C, 42), _DEFAULT_NAME(), IIf(C > WMA( Close,42),colorGreen, colorRed), styleLine);
Plot(WMA(C, 43), _DEFAULT_NAME(), IIf(C > WMA( Close,43),colorGreen, colorRed), styleLine);
Plot(WMA(C, 44), _DEFAULT_NAME(), IIf(C > WMA( Close,44),colorGreen, colorRed), styleLine);
Plot(WMA(C, 45), _DEFAULT_NAME(), IIf(C > WMA( Close,45),colorGreen, colorRed), styleLine);
Plot(WMA(C, 46), _DEFAULT_NAME(), IIf(C > WMA( Close,46),colorGreen, colorRed), styleLine);
Plot(WMA(C, 47), _DEFAULT_NAME(), IIf(C > WMA( Close,47),colorGreen, colorRed), styleLine);
Plot(WMA(C, 48), _DEFAULT_NAME(), IIf(C > WMA( Close,48),colorGreen, colorRed), styleLine);
Plot(WMA(C, 49), _DEFAULT_NAME(), IIf(C > WMA( Close,49),colorGreen, colorRed), styleLine);
Plot(WMA(C, 50), _DEFAULT_NAME(), IIf(C > WMA( Close,50),colorGreen, colorRed), styleLine);
Plot(WMA(C, 51), _DEFAULT_NAME(), IIf(C > WMA( Close,51),colorGreen, colorRed), styleLine);
Plot(WMA(C, 52), _DEFAULT_NAME(), IIf(C > WMA( Close,52),colorGreen, colorRed), styleLine);
Plot(WMA(C, 53), _DEFAULT_NAME(), IIf(C > WMA( Close,53),colorGreen, colorRed), styleLine);
Plot(WMA(C, 54), _DEFAULT_NAME(), IIf(C > WMA( Close,54),colorGreen, colorRed), styleLine);
Plot(WMA(C, 55), _DEFAULT_NAME(), IIf(C > WMA( Close,55),colorGreen, colorRed), styleLine);
Plot(WMA(C, 56), _DEFAULT_NAME(), IIf(C > WMA( Close,56),colorGreen, colorRed), styleLine);
Plot(WMA(C, 57), _DEFAULT_NAME(), IIf(C > WMA( Close,57),colorGreen, colorRed), styleLine);
Plot(WMA(C, 58), _DEFAULT_NAME(), IIf(C > WMA( Close,58),colorGreen, colorRed), styleLine);
Plot(WMA(C, 59), _DEFAULT_NAME(), IIf(C > WMA( Close,59),colorGreen, colorRed), styleLine);
Plot(WMA(C, 60), _DEFAULT_NAME(), IIf(C > WMA( Close,60),colorGreen, colorRed), styleLine);

_SECTION_END();

SetChartOptions(0,chartShowArrows|chartShowDates);
GraphXSpace=5;
Plot(C,"",colorBlack,styleBar);

_SECTION_BEGIN("Magnified Market Price");
//by Vidyasagar, vkunisetty@yahoo.com// 
FS=Param("Font Size",30,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True ); 
GfxSetBkMode( colorBlack );  
GfxSetTextColor( ParamColor("Color",colorYellow) ); 
Hor=Param("Horizontal Position",1050,1,1200,1);
Ver=Param("Vertical Position",1,1,830,1); 
GfxTextOut(""+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Times New Roman", 11, 700, True ); 
GfxSetBkMode( colorYellow );  
GfxSetTextColor(ParamColor("Color",colorGreen) ); 
GfxTextOut(""+DD+"  ("+xx+"%)", Hor , Ver+45 );
_SECTION_END();