[Komunitas AmiBroker] free afl - buy with vwap cross wma

/* buy sell with vwap */
_SECTION_BEGIN("WMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15 );
Plot( WMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorBlue), ParamStyle("Style") );
_SECTION_END();

//====//

f=Param(" Periods ",5,1,5000);
VWAP=Sum(V*C,f)/Sum(V,f);
Plot (VWAP,"VWAP",ParamColor( "Color", colorCycle ), ParamStyle("Style") );
GraphXSpace=3;
Buy = Cross(VWAP,WMA(C,15));
Sell = Cross(WMA(C,15),VWAP);
PlotShapes(shapeUpArrow*Buy,colorBlack);
PlotShapes(shapeDownArrow*Sell,colorRed);
//====//

_SECTION_BEGIN("Price1");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} {{VALUES}}", VWAP, SelectedValue( ROC( VWAP, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
Filter=Buy;
AddColumn(Buy ,"cross MA 20 50",1.0);
AddColumn(Open,"Open",1.0);
AddColumn(High,"High",1.0);
AddColumn(Low,"Low",1.0);
AddColumn(Close,"Close",1.0);
AddColumn(Volume,"Volume",1.0);

------------------------------------

Apabila membutuhkan software AmiBroker, Realtime Intraday Data & Pelatihan silahkan kontak : Dendo Valentino | Cell : 08159304868 | e-mail: amibrokerfreak{at}yahoo.co.id | YM id : dendov | http://www.facebook.com/dendo.amibrokerfreak | http://www.amibroker-4-bei.org

Yahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/amibroker-4-bei/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/amibroker-4-bei/join
(Yahoo! ID required)

<*> To change settings via email:
amibroker-4-bei-digest@yahoogroups.com
amibroker-4-bei-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
amibroker-4-bei-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/