Seeking AFL modification of EMA Crossover

Dear Seniors,
Below AFL is the general EMA Crossover for stock trading. I use the AFL for daily data. Buy I need to use the formula for weekly and monthly chart. Can anyone please help me modifying this chart for weekly and Monthly derivation. Or, is there any option to use afl for weekly and monthly.

Thanks in Advance.


_SECTION_BEGIN("STOCHA_RSI_EMA_SAR_4NP");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat(" - Open %g, Hi %g, Lo %g, Close %g (%.1f%%) ", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

Sell = Short = Cross( EMA( Close, 25), EMA( Close, 10 ));
Buy = Cover = Cross( EMA( Close, 10 ), EMA( Close, 25));

Buy = ExRem( Buy, Sell );
Sell = ExRem( Sell, Buy );

shape = Buy * shapeUpArrow + Sell * shapeDownArrow;
PlotShapes( shape, IIf( Buy, colorGreen, colorRed ), 0, IIf( Buy, Low-1, High+1));
_SECTION_END();

BuyPrice=ValueWhen(Buy, C);
SellPrice=ValueWhen(Sell, C);


Filter=Buy OR Sell ;


SetOption("NoDefaultColumns", True);
AddTextColumn(Name(), "Symbol", 77, colorDefault, colorDefault, 120);
AddColumn(DateTime(), "Trigger Date", formatDateTime);



AddColumn(IIf(Buy, 66, 83), "Signal", formatChar, colorYellow, IIf(Buy, colorGreen, colorRed));
AddColumn(IIf(Buy, BuyPrice, SellPrice), "Entry", 6.2);
AddColumn(LastValue(C), "Entry Price.", 6.2);
_SECTION_END();

Seeking AFL modification of EMA Crossover