Pages

Fave This

Sunday, 6 February 2011

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


//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", colorWhite), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();
// ========== Dedicated to Amibroker 4 BEI ========= //

_SECTION_BEGIN("R-Squared+LinReg+Slope+Exploration");
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
Plot( Volume,", Volume",colorBlack,styleHidden);

MaxGraph=5;

Periods = Optimize("Periods",Param("Periods",126,2,300,1),2,500,1);
shift = Param("Look back period",0,0,500,1);
P = ParamField("Price field",3);

x = Cum(1);
lastx = LastValue( x ) - shift;
aa = LastValue( Ref(LinRegIntercept(P, Periods), -shift) );
bb = LastValue( Ref(LinRegSlope( P, Periods), -shift) );
y = Aa + bb * ( x - (Lastx - Periods+1 ) );

R2=(Correlation(P,y,Periods)^2);
R2Style=ParamStyle("R2 Style");
R2Color=ParamColor("R2 Color",colorBlack);
Rdm = 1-R2;

LRColor = ParamColor("LR Color", colorCycle );
LRStyle = ParamStyle("LR Style");
LRLine = IIf( x > (lastx - Periods) AND BarIndex() < Lastx, y, Null );
Plot( LRLine , "LinReg", LRCOLOR, LRSTYLE);

// =========================== LinReg1 =========================== //

SDP = Param("Standard Deviation", 1.0, 0, 6, 0.1);
SD = SDP/2;

width = LastValue( Ref(SD*StDev(p, Periods),-shift) );SDU = IIf( x > (lastx - Periods) AND BarIndex() < Lastx, y+width , Null ) ;
SDL = IIf( x > (lastx - Periods) AND BarIndex() < Lastx, y-width , Null ) ;

SDColor = ParamColor("SD Color", colorCycle );
SDStyle = ParamStyle("SD Style");

Plot( SDU , "Upper Lin Reg", SDColor,SDStyle );
Plot( SDL , "Lower Lin Reg", SDColor,SDStyle );

// =========================== LinReg2 =========================== //

SDP2 = Param("2d Standard Deviation", 2.0, 0, 6, 0.1);
SD2 = SDP2/2;

width2 = LastValue( Ref(SD2*StDev(p, Periods),-shift) );SDU2 = IIf( x > (lastx - Periods) AND BarIndex() < Lastx, y+width2 , Null ) ;
SDL2 = IIf( x > (lastx - Periods) AND BarIndex() < Lastx, y-width2 , Null ) ;

SDColor2 = ParamColor("2 SD Color", colorCycle );
SDStyle2 = ParamStyle("2 SD Style");

Plot( SDU2 , "Upper Lin Reg", SDColor2,SDStyle2 );
Plot( SDL2 , "Lower Lin Reg", SDColor2,SDStyle2 );

slope = LinRegSlope(P,Periods);

// === BarCount ===//

Start = ParamDate("Start","Default");
X = BarsSince(DateNum()== Start)+1;

YY = int(Start / 10000) + 1900;
M = int((Start-((YY-1900)*10000))/100);
DD = (Start-((YY-1900)*10000))-(M*100);


// =========================== Exploration =========================== //
Degree = LinRegSlope(MA(P,Periods),2);

Bu1 = Degree > 0.05 AND Degree <= 0.25;
Bu2 = Degree > 0.25 AND Degree <= 0.5;
Bu3 = Degree > 0.5 AND Degree <= 0.75;
Bu4 = Degree > 0.75;

Si1 = Degree > 0.0175 AND Degree <= 0.05;
Si2 = Degree >= -0.0175 AND Degree <= 0.0175;
Si3 = Degree < -0.0175 AND Degree >= -0.05;

Be1 = Degree < -0.05 AND Degree >= -0.25;
Be2 = Degree < -0.25 AND Degree >= -0.5;
Be3 = Degree < -0.5 AND Degree >= -0.75;
Be4 = Degree < -0.75;

Result =
WriteIf( Bu1 , "Weak Bullish" ,
WriteIf( Bu2 , "Medium Bullish" ,
WriteIf( Bu3 , "Strong Bullish" ,
WriteIf( Bu4 , "Extreme Bullish" ,
WriteIf( Si1 , "Sideways-Bullish" ,
WriteIf( Si2 , "Sideways" ,
WriteIf( Si3 , "Sideways-Bearish" ,
WriteIf( Be1 , "Weak Bearish" ,
WriteIf( Be2 , "Medium Bearish" ,
WriteIf( Be3 , "Strong Bearish" ,
WriteIf( Be4 , "Extreme Bearish" , "")))))))))));

FGCol =
IIf(Bu1 , colorBlack ,
IIf(Bu2 , colorBlack ,
IIf(Bu3 , colorLightYellow ,
IIf(Bu4 , colorLightYellow ,
IIf(Si1 , colorBlack ,
IIf(Si2 , colorBlack ,
IIf(Si3 , colorBlack ,
IIf(Be1 , colorBlack ,
IIf(Be2 , colorBlack ,
IIf(Be3 , colorLightYellow ,
IIf(Be4 , colorLightYellow , colorDefault)))))))))));

BGCol =
IIf(Bu1 , colorBrightGreen ,
IIf(Bu2 , colorLime ,
IIf(Bu3 , colorGreen ,
IIf(Bu4 , colorDarkGreen ,
IIf(Si1 , colorSkyblue ,
IIf(Si2 , colorYellow ,
IIf(Si3 , colorRose ,
IIf(Be1 , colorPink ,
IIf(Be2 , ColorRGB(255,100,100) ,
IIf(Be3 , colorRed ,
IIf(Be4 , colorDarkRed , colorDefault)))))))))));

R2FGCol =
IIf(R2 >= 0 AND R2 < 0.25 , colorBlack ,
IIf(R2 >= 0.25 AND R2 < 0.5 , colorBlack ,
IIf(R2 >= 0.5 AND R2 < 0.75 , colorBlack ,
IIf(R2 >= 0.75 AND R2 < 0.85 , colorLightYellow ,
IIf(R2 >= 0.85 , colorLightYellow , colorDefault)))));

R2BGCol =
IIf(R2 >= 0 AND R2 < 0.25 , colorRose ,
IIf(R2 >= 0.25 AND R2 < 0.5 , colorLime ,
IIf(R2 >= 0.5 AND R2 < 0.75 , colorBrightGreen ,
IIf(R2 >= 0.75 AND R2 < 0.85 , colorGreen ,
IIf(R2 >= 0.85 , colorDarkGreen , colorDefault)))));

Bullish = Bu1 OR Bu2 OR Bu3 OR Bu4;
Bullish1 = Bu1 OR Bu2;
Bullish2 = Bu3 OR Bu4;
Sideways = Si1 OR Si2 OR Si3;
Bearish = Be1 OR Be2 OR Be3 OR Be4;
Bearish1 = Be1 OR Be2;
Bearish2 = Be3 OR Be4;
All = Bu1 OR Bu2 OR Bu3 OR Bu4 OR Si1 OR Si2 OR Si3 OR Be1 OR Be2 OR Be3 OR Be4;

Q = ParamList("Trend","Bullish|Good Bullish|Mild Bullish|Sideways|Bearish|Mild Bearish|Bad Bearish|All");
QQ =
IIf( Q == "Bullish" , Bullish ,
IIf( Q == "Mild Bullish" , Bullish1 ,
IIf( Q == "Good Bullish" , Bullish2 ,
IIf( Q == "Sideways" , Sideways ,
IIf( Q == "Bearish" , Bearish ,
IIf( Q == "Mild Bearish" , Bearish1 ,
IIf( Q == "Bad Bearish" , Bearish2 ,
IIf( Q == "All" , All , 0))))))));


PriceFrom = Param("Price From:", 1, 50 , 1000000, 1);
PriceTo = Param("Price To:", 100000, 50, 1000000, 1);


GfxSetOverlayMode(1);
GfxSelectFont("Kunstler Script", Status("pxheight")*6/100 );
GfxSetBkMode(0);
GfxSetTextColor(colorBlue);
GfxTextOut("Christopher Tahir",Status("pxwidth")/300, Status("pxheight")/2.1 );


Title = " • "+Name()+" • || "+Interval(2)+" || • "+Date()+" • Open "+Open+" • Hi "+ H+" • Lo "+L+" • Close "+Close+"("+WriteVal(ROC(C,1),1.1)+"%)"
+EncodeColor(colorRed)+"\n----------------------------------------------------------------------------"
+EncodeColor(R2Color)+"\n • R-Squared ("+Periods+") = "+WriteVal(R2,1.4)+" • Random ("+Periods+") = "+WriteVal(Rdm,1.4)+" • "
+EncodeColor(colorRed)+"\n----------------------------------------------------------------------------"
+EncodeColor(colorGreen)+"\n • Slope ("+Periods+") = "+WriteVal(slope,1.4)+" • "
+EncodeColor(colorRed)+"\n----------------------------------------------------"
+EncodeColor(colorBlue)+"\n • Since = "+M+"/"+DD+"/"+YY+EncodeColor(colorDarkGrey)+" • BarCount = "+X+" • "
+EncodeColor(colorRed)+"\n----------------------------------------------------"
+EncodeColor(colorBlack)+"\n • Trend ("+Periods+") = "+Result+" • "
+EncodeColor(colorRed)+"\n------------------------------------------------";
_SECTION_END();

// ========= END ========== //
Plot(V,"",IIf(C>O,colorGreen,IIf(C<O,4,7)),2|4|32768,5);
Plot(MA(V,45),"",colorYellow,0|4|32768,40);
//,styleLine|styleThick|styleOwnScale);

_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();
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),
ParamColor("BgBottom",colorBlack),ParamColor("titleblock",colorYellow));



ini hasil explorer nya Mas Christopher

2011/2/6 tjhai lioe <tjhailioe@gmail.com>
Pak Christopher exploration nya luar biasa bagus sekali  ,terima kasih yah
pak saya pernah baca buku ,kata buku itu untuk main long term ,salah satu cara kita cari saham yang empat candle hijau  weekly yang naik berturut = buy  dan kalau empat candle weekly merah 4 minggu berturut = sell.
gimana yah pak buat eplorernya untuk cari 4 candle weekly yang berturut naik dan turun.
terima kasih

2011/2/6 tjhai lioe <tjhailioe@gmail.com>
memang Mas Eco dan Mas Christopher luar biasa  ,karyanya sangat berguna buat kita semua.
untuk mengatur warna dan periode linear regressionnya 
klik kana pilih parameter
atur deh warnanya dan periodenya
kalau sdh klik ok

selamat mencoba


semoga berguna
2011/2/6 tjhai lioe <tjhailioe@gmail.com>

ini saya coba gabung karya Mas Eco dan Mas Christopher
semoga bermanfaat

2011/2/6 Christopher Tahir <chris_tahir@ymail.com>

 

Sama2...
Di pake dengan baik2 mas...
Itu bs di setting SMA, WMA ato EMA...
Tinggal dipilih saje...

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


Sent: Sun, February 6, 2011 9:46:58 PM

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

 

Waahh terima kasih pak Chris, pak Eco dan lainnya atas bantuannya :D

Rgds

Ben

Sent from Ben's Iphone

On Feb 6, 2011, at 21:29, Christopher Tahir <chris_tahir@ymail.com> wrote:

 

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)