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 ) ) ));
SetBarFillColor( IIf(C>MA(C,20) AND O<MA(C,20) OR C<MA(C,20) AND O>MA(C,20), colorYellow,IIf( MA(C,20)< C, colorBlue, colorRed )) );
Plot( C, "Price", IIf( C > O, colorGreen, colorRed ), styleCandle );
_SECTION_BEGIN("scaner if above SMA20 buy");
Buy = Cross( C,MA( Close,20) );
PlotShapes(IIf(Buy==1, shapeUpArrow , shapeNone), colorGreen, 0,Low, Offset=-20);
_SECTION_END();
_SECTION_BEGIN("MA1");
P = ParamField("Price field",-1);
Periods = Param("Periods", 20 );
Plot( MA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorRed ), ParamStyle("Style") );
_SECTION_END();
// Paste the code below to your price chart somewhere and green ribbon means both
// both MACD and ADX trending up so if the red ribbon shows up the MACD and the ADX
// are both trending down.
_SECTION_BEGIN("trending ribbon");
uptrend=PDI()>MDI()AND Signal()<MACD();
downtrend=MDI()>PDI()AND Signal()>MACD();
Plot( 2, /* defines the height of the ribbon in percent of pane width */"ribbon",
IIf( uptrend, colorGreen, IIf( downtrend, colorRed, 0 )), /* choose color */
styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
_SECTION_END();
TimeFrameSet(inDaily);
AVGd = (H + L)/2;
" PPd:\t "+ AVGd;
TimeFrameRestore();
Buy = O < Ref(AVGd ,-1) AND (O!=C);
Sell = C < Ref(AVGd ,-1)AND (O!=C);
MLP = (O + C)/2;
Plot( TimeFrameExpand(AVGd,inDaily,expandFirst),"hold jika harga masih diatas MID PRICE",colorGreen,styleStaircase);
Plot( TimeFrameExpand(MLP,inDaily,expandFirst),"boleh juga hold jika harga masih diatas MLP",colorGreen,styleStaircase);
///////// V-TRADE - MLP End ////////
_SECTION_BEGIN("BBands");
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorBlack );
Style = ParamStyle("Style") | styleNoRescale;;
Plot( bbt = BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot( bbb = BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, ColorRGB(255,250,201), 0.9 ), styleCloud | styleNoRescale, Null, Null, Null, -1 );
Sell=Cross(BBandTop( P, Periods, Width ),P);
Buy=Cross(P,BBandBot( P, Periods, Width ));
PlotShapes(IIf(Sell, shapeDownArrow , shapeNone), colorRed, 0, Low, Offset=-35);
PlotShapes(IIf(Buy, shapeUpArrow , shapeNone), colorBlue, 0, Low, Offset=-30);
_SECTION_END();
PAK MUHAMAD ANAS terima kasih pak , wah cepat sekali pak ,hebat dan luar biasa pak.
ini saya coba coba modifikasi dari AFL Bapak , mohon teman teman melengkapi lagi .saya cuma bisa tambal sulam dari AFL teman teman , jadi mohon maaf kalu coding saya ada yang aneh .mohon teman teman mengembalikan nya kejalan yang benar .
semoga berguna
Silahkan dicoba....
SetBarFillColor( IIf(C>MA(C,50) AND O<MA(C,50) OR C<MA(C,50) AND O>MA(C,50), colorYellow,IIf( MA(C,50)< C, colorBlue, colorRed )) );
Plot( C, "Price", IIf( C > O, colorGreen, colorRed ), styleCandle );
--- Pada Sen, 2/8/10, tjhai lioe <tjhailioe@gmail.com> menulis:
Dari: tjhai lioe <tjhailioe@gmail.com>
Judul: Re: [Komunitas AmiBroker] Stochastic (ditambahin) Supp-Resist, afl
Kepada: amibroker-4-bei@yahoogroups.com
Tanggal: Senin, 2 Agustus, 2010, 8:25 PM
Terima kasih pak Isfandi ,iya betul semua sudah pakar , kok saya masih pelajar terus yah , YES walau begitu tapi kata orang kalau kita bergaul sama pakar ( PAK TIMUR LANGIT,SUHENG HOK 1,GREEN HORN,COLONEL,52,Pak ABDUL HALIM,PAK ISFANDI ,Pak MUH ANAS JAMIL,ARIES RESSA,ECO SYARIAH ,EKO WIDJAJANTO,YOHAN ARSIANTO,DIMAZ ,FREEXXX,dan banyak lagi lainnya ,mohon maaf kalau ada yang lupa disebutkan ),lama lama kita bisa jadi pakar juga , milist ini benar benar luar biasa ,
saya membayangkan ini sebagai kampus AMIBROKER yang terhebat di dunia dengan dosen terbaik di Indonesia,dan jika kita tekun ikuti terus makin hari kita bisa makin pintar .
seperti kata pak TIMUR LANGIT tujuannya adalah menemukan system trading yang praktis tapi menghasilkan profit yang konsisten dan bisa digunakan oleh orang yang awam .
SIMPLE TRADING SYSTEM .
Pak Isfandi dan teman teman yang lain tolong dong buatkan AFL seperti gambar yang terlampir ,saya melihat ini adalah salah satu trading system yang simpel.
kalau pengamatan saya ,kira kira logikanyya sebagai berikut:
Digunakan ma50 sebagai batas bullish dan bearish.
jadi kalau candle diatas ma 50 maka candle berwarna biru ( (BULLISH)
dan jika dibawah ma 50 maka candle berwarna merah (BEARISH),
serta jika candle cross dari bawah keatas atau atas kebawah dan masih digaris ma 50 maka candle berwarna kuning berwarna kuning (NEUTRAL).
Tentu saja ma nya bisa kita rubah rubah tergantung kita main long term ,mid term,atau short term dan very short term
Tolong ya pak buatkan , ya kalau pas lagi sempat aja pak .
saya merasa ini mempermudah newbie melihat apakah saat ini bullish atau bearish atau masa pancaroba
apalagi kita tambah kan arrow setiap golden cross dan death cross
lebih seru lagi ditambah ribbon
terus dikasih MYM line
terima kasih2010/8/2 Timur Langit <timurlangit.is.here@gmail.com>
Oh iya, exrem itu cara kerjanya gimana sih? Ngilangin yg overlapping ya?
From: amibroker-4-bei@yahoogroups.com [mailto:amibroker-4-bei@yahoogroups.com] On Behalf Of 5'2
Sent: Monday, August 02, 2010 5:31 PMSubject: Re: [Komunitas AmiBroker] Stochastic (ditambahin) Supp-Resist, afl
Cobain function EXREM?
TqWith U absolutly can get it free, without U I'm Nothing
From: Timur Langit <timurlangit.is.here@gmail.com>
Sender: amibroker-4-bei@yahoogroups.com
Date: Mon, 2 Aug 2010 16:37:13 +0700
ReplyTo: amibroker-4-bei@yahoogroups.com
Subject: Re: [Komunitas AmiBroker] Stochastic (ditambahin) Supp-Resist, afl
Kalau Pak Isfandi mah, top markotop.....
This one is superb.....
tapi gimana ya agar keluar hanya satu arrow buy di lembah yg ke-2 yg divergen?
tapi gimana ya agar keluar hanya satu arrow sell di puncak yg ke-2 yg divergen?
Timur....
2010/8/2 tjhai lioe <tjhailioe@gmail.com>
wah selalu ada yang baru dari pak ISFANDI ,terima kasih koleksi saya tambah lagi .
cara bacanya yang efektif gimana ya pak .panah merah yang banyak itu menunjukan apa ya pak.
pak saya ada lihat chart candle 3 warna ,setiap perubahan dari bull(candle biru) ke bear (candle merah )muncul candle kuning .
sepertinya bagus tuh kalau boleh tolong buatkan AFL nya pak .
mantap tuh.
terima kasih ya pak2010/8/2 <isfandi2001@yahoo.com>
Just Sharing,
kalo stoch pake support & resistance line jdnya kaya apa ya..? saya coba tambahin sepertinya jd ada trigger buat signal sell yg kmrn udh muncul pd GJTL, jd gak semua signal sell dianggap hrs jual semua paling gak afl ini bisa menjadi pembanding alokasi sell yg akan anda putuskan.
seperti himbauan pak eco yg lalu, pls.. temen2 yg blm pake AB asli tolong diperbaharui jd kita2 enak berbaginya nih... setuju gak?
semoga menambah perbendaharaan trading tools anda.
happy operating
salam,
Isfandi
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx stoch pake supp rest xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
_SECTION_BEGIN("Stochastic");
periods = Param( "Periods", 14, 1, 200, 1 );
Ksmooth = Param( "%K avg", 3, 1, 200, 1 );
Dsmooth = Param( "%D avg", 3, 1, 200, 1 );
myStochD =StochD( periods , Ksmooth, DSmooth );
myStochK =StochK( periods , Ksmooth);
Overbought = 80 ;
Oversold =20 ;
Center = 50 ;
Buy1 = Cross(myStochK, Oversold ) ;
Buy2 = Cross(myStochK, Center ) ;
Sell1 = Cross( Overbought, myStochK );
Sell2 = Cross( Center, myStochK );
Plot( myStochD, "Stochastic %D"+_PARAM_VALUES(), ParamColor( "ColorD", colorRed ), ParamStyle("StyleD") );
Plot( myStochK, "Stochastic %K", ParamColor( "ColorK", colorBlue ), ParamStyle("StyleK") );
PlotShapes(IIf(Sell1, shapeDownArrow , shapeNone), colorRed,0, Offset=Null);
PlotShapes(IIf(Sell2, shapeDownArrow , shapeNone), colorRed,0, Offset=Null);
PlotShapes(IIf(Buy1 , shapeUpArrow , shapeNone), colorGold,0, Offset=Null);
PlotShapes(IIf(Buy2 , shapeUpArrow , shapeNone), colorGold,0, Offset=Null);
Plot(Overbought,"",colorRed);
Plot(Oversold,"",colorGreen);
Plot(Center,"",colorWhite, styleDashed);
y0=LastValue(Trough(StochD(periods , Ksmooth, DSmooth ),1,2));
y1=LastValue(Trough(StochD(periods , Ksmooth, DSmooth ),1,1));
x0=BarCount - 1 - LastValue(TroughBars(StochD(periods , Ksmooth, DSmooth ),1,2));
price_start=Close[x0];
x1=BarCount - 1 - LastValue(TroughBars(StochD(periods , Ksmooth, DSmooth ),1,1));
price_end=Close[x1];
Line = LineArray( x0, y0, x1, y1, 0 );
Plot( Line, "Support line", colorYellow );
Buy = y1>y0 AND price_end<price_start;
PlotShapes(shapeUpArrow * Buy, colorGreen,0,Line);
y00=LastValue(Peak(StochD(periods , Ksmooth, DSmooth ),1,2));
y11=LastValue(Peak(StochD(periods , Ksmooth, DSmooth ),1,1));
x00=BarCount - 1 - LastValue(PeakBars(StochD(periods , Ksmooth, DSmooth ),1,2));
price_start1=Close[x00];
x11=BarCount - 1 - LastValue(PeakBars(StochD(periods , Ksmooth, DSmooth ),1,1));
price_end1=Close[x11];
Line = LineArray( x00, y00, x11, y11, 0 );
Plot( Line, "Resistance line", colorBlue );
Sell = y11<y00 AND price_end1>price_start1;
PlotShapes(shapeDownArrow * Sell, colorRed,0,Line);
PlotOHLC( myStochK,myStochK,50,myStochK, "", colorAqua, styleCloud | styleClipMinMax, Oversold , Overbought);
PlotOHLC( myStochD,myStochD,50,myStochD, "", colorPink, styleCloud | styleClipMinMax, Oversold , Overbought);
//Optimize
range = Optimize( "Range", 8, 8, 14, 1 );
Ksmooth = Optimize("%K smooth", 3, 2, 5, 1 );
Dsmooth = Optimize("%D smooth", 3, 2, 5, 1 );
Buy=Cross( StochK (range,Ksmooth), StochD (range,Ksmooth,Dsmooth) );
Sell = Cross( StochD(range,Ksmooth,Dsmooth), StochK(range,Ksmooth) );
_SECTION_END();
__._,_.___
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
__,_._,___
Posts
No comments:
Post a Comment