Pages

Fave This

Sunday, 6 February 2011

Re: [Komunitas AmiBroker] Bikin warna ema 20,50



Nah, sy share 2 AFL ya:

EMA Crossover + Explorationnya:
//Made by Christopher, Ideas by Ben//
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("EMA Adjustable");

Fast = Optimize("Fast",Param("Fast", 5,2,50,1),2,50,1);
Slow = Optimize("Slow",Param("Slow", 15,2,50,1),2,50,1);
IIf(Fast < Slow, True , False);
Field = ParamField("Price Field",3);
FCol = ParamColor("Fast Color" , colorBlue);
SCol = ParamColor("Slow Color" , colorRed);
FEMA = EMA(Field,Fast);
SEMA = EMA(Field,Slow);
Color = IIf(EMA(C,Fast) > EMA(C,Slow), colorBrightGreen, colorRed);
Plot(FEMA ,"Fast EMA", FCol , styleLine);
Plot(SEMA , "Slow EMA", SCol, styleLine);
PlotOHLC(FEMA,Fema,SEMA,FEMA, "", IIf(FEMA>SEMA, colorBrightGreen, colorRose), styleCloud|styleNoLabel);
Buy = Cross(FEMA , SEMA) AND (Fast < Slow);
Sell = Cross(SEMA , FEMA) AND (Fast < Slow);

Chg = C - Ref(C,-1);
Title = Title = "  •  " + Name() + "  •  ||  " + Interval(2) + "  ||  •  " + Date() + "  •  Open " + Open + "  •  Hi " + H + "  •  Lo " + L + "  •  Close " + Close + " (" + WriteVal(Chg,1.2) + " pts  " + WriteVal(ROC(C,1),1.2) + "%)  •  Vol "+WriteVal(V,1.0)+"  •  "
+EncodeColor(Fcol)+"\n\n  •  "+ "EMA ("+Fast+") = "+WriteVal(FEMA,1.2)
+EncodeColor(Scol)+"  •  "+ "EMA ("+Slow+") = "+WriteVal(SEMA,1.2)+"  •  ";

//******EXPLORATION******//

Filter = Buy OR Sell;
AddTextColumn( WriteIf(Buy,"Buy", WriteIf(Sell,"Sell","")),"Trade",1.0,colorDefault,IIf(Buy,colorBrightGreen,IIf(Sell,colorRed,colorDefault)),40);
AddColumn(FEMA , "Fast EMA" , 1.2 , colorDefault , IIf(FEMA > SEMA , colorRed , IIf(SEMA < FEMA , colorBrightGreen , colorDefault)) , 65);
AddColumn(SEMA , "Slow EMA" , 1.2 , colorDefault , IIf(FEMA > SEMA , colorRed , IIf(SEMA < FEMA , colorBrightGreen , colorDefault)) , 65);
SetChartOptions(0,0,0);
PlotShapes(shapeUpArrow*Buy,colorGreen,0,L,-24);
PlotShapes(shapeDownArrow*Sell,colorRed,0,H,-24);
_SECTION_END();
 
Yg kedua adalah boleh dipilih WMA, SMA ato EMA, ada parameternya, plus Std Dev nya...:

//Made by Christopher, Ideas by Ben//
_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

MAChoice = ParamList("MA Type","SMA|EMA|WMA",2);
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
SD = Param("Std Dev" , 1 , 1 , 10 , 0.1 );
MAChoice = ParamList("MA Type","SMA|EMA|WMA",2);
X = IIf( MAChoice == "SMA" , MA(P,Periods) , IIf( MAChoice == "EMA" , EMA(P,Periods) , WMA(P,Periods)));
Plot( X , MAChoice +" ("+ Periods +")",ParamColor( "MA Color", colorBlack ), ParamStyle("MA Style", styleDashed) );
Top = X + SD * StDev( P , Periods );
Bot = X - SD * StDev( P , Periods );
Plot( Top , "Upper Std Dev of " + MAChoice +" (" + Periods + ")", ParamColor( "Std Dev Up Color", colorRed ), ParamStyle("Std Dev Up Style") );
Plot( Bot , "Lower Std Dev of " + MAChoice +" (" + Periods + ")", ParamColor( "Std Dev Down Color", colorBlue ), ParamStyle("Std Dev Down Style") );

Buy = Cross( P , Bot ) OR Cross( P , X );
Sell = Cross( P , Top ) OR Cross( X , P );
Buy = ExRem( Buy , Sell );
Sell = ExRem( Sell , Buy );
PlotShapes(shapeUpArrow*Buy , colorGreen , 0 , Low , -20 );
PlotShapes(shapeDownArrow*Sell , colorRed , 0 , High , -20 );

Best Regards,
Christopher Tahir
Blog: http://ez-stock.blogspot.com
MSN: chris_tahir@hotmail.com
YM: chris_tahir@ymail.com

Mail to my Y!Group:
ez-stock-subscribe@yahoogroups.com


From: Christopher Tahir <chris_tahir@ymail.com>
To: amibroker-4-bei@yahoogroups.com
Sent: Sun, February 6, 2011 9:29:13 PM
Subject: Re: [Komunitas AmiBroker] Bikin warna ema 20,50

 

Wah...
LinReg sy seingat sy uda pernah dishare tuh, coba dicari aja yah di filing yg uda lama.
Kalo Std Deviation, maksudnya spt Bol.Bands donk...
Coba sy formulasikan dl dehh..
Kalo uda jadi, ku kabarkan....
:D


 
Best Regards,
Christopher Tahir
Blog: http://ez-stock.blogspot.com
MSN: chris_tahir@hotmail.com
YM: chris_tahir@ymail.com

Mail to my Y!Group:
ez-stock-subscribe@yahoogroups.com


From: Eco Syariah <esyariah@gmail.com>
To: amibroker-4-bei@yahoogroups.com
Sent: Sun, February 6, 2011 8:51:10 PM
Subject: Re: [Komunitas AmiBroker] Bikin warna ema 20,50

 

Untuk channel/LinReg... masternya mas Chris tuh... tunggu aja reply dari beliau.

Regards,
ES

2011/2/6 Ben <gwoke74@yahoo.com>


Sippp tx banget yah pak eco dicoba dulu nihh ...wah klo dit + lagi ama std (channel) untuk 21 hari dan stdnya adalah 0.61,1, 1.61 & 2.61  apakah bisa pak eco? Sory banget nambah terus soalnya saya enggak ngerti bahasa afl...

Sebelumnya makasih banget pak Eco atas bantuannya..

Ben

Sent from Ben's Iphone

On Feb 6, 2011, at 19:02, Eco Syariah <esyariah@gmail.com> wrote:

 

Nice idea mas Ben,

Coba tambahkan ini:

Buy = Cross(C, EMA20) AND EMA20>EMA50;
Sell = Cross(EMA20, C) AND EMA20>EMA50;

PlotShapes(shapeUpArrow*Buy, colorBlue, 0, L, -15);
PlotShapes(shapeDownArrow*Sell, colorRed, 0, H, -15);

Regards,
ES

On Sun, Feb 6, 2011 at 12:14 PM, Ben <gwoke74@yahoo.com> wrote:


Siang all kalo mau dit + dgn signal buy saat harga cross ma 20 hanya waktu cloud hijau (bullish) ada yang bisa bantu tambahan aflnya ?

Makasih sebelumnya


Sent from Ben's Iphone

On Feb 6, 2011, at 10:28, "hakitrader" <hakitrader@gmail.com> wrote:

 



// Ini afl yang tidak error
//EMA20=EMA(Close,20);
EMA20=EMA(Close,20);
EMA55=EMA(Close,55);
 
PlotOHLC(EMA20, EMA20, EMA55, EMA20, "", IIf(ema20>ema55, colorGreen, colorRed), styleCloud);
//
----- Original Message -----
From: ag hadi
Sent: Sunday, February 06, 2011 9:46 AM
Subject: Re: [Komunitas AmiBroker] Bikin warna ema 20,50

 

Kok error ya Pak Tjhai.....

From: tjhai lioe <tjhailioe@gmail.com>
To: amibroker-4-bei@yahoogroups.com
Cc:
Sent: Sunday, February 6, 2011 4:52 AM
Subject: Re: [Komunitas AmiBroker] Bikin warna ema 20,50

 
tambahin ah biar seru

2011/2/4 Christopher Tahir <chris_tahir@ymail.com>
 
Gini aja codenya:
Color = iif(EMA(C,20) > EMA(C,50), colorGreen, colorRed);
 
Best Regards,
Christopher Tahir
Blog: http://ez-stock.blogspot.com
MSN: chris_tahir@hotmail.com
YM: chris_tahir@ymail.com

Mail to my Y!Group:
ez-stock-subscribe@yahoogroups.com


From: Ben <gwoke74@yahoo.com>
Sent: Fri, February 4, 2011 6:55:33 PM
Subject: [Komunitas AmiBroker] Bikin warna ema 20,50

 
Malam semua,

Apakah ada yang bisa bantu untuk afl berwarna ema 20,50 yaitu kalau golden cross antara ema 20-50 warnanya hijau dan kalau death cross antara 50-20 warnanya merah.

Sebelumnya makasih ..

Ben
Sent from Ben's Iphone





<GoldenX DeathX1b.afl>










__._,_.___


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



Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)