Saya lampirkan pic I fractal today pd sample IHSG, kemunculannya current tanpa menunggu konfirmasi spt yg ada pd ide Bpk juga, pengembangan analisa fractal base on indicator pd candle yg saya lakukan mungkin berbeda dgn yg sdh lbh dulu Bpk kembangkan bersama Pak Eko, namun saya msh terus menyempurnakan lbh lanjut (indikasinya IHSG akan mengalami koreksi besok atau plg telat 2 hari lg, but lets we see).
Harapan saya semakin byk ide pengembangan fractal dr berbagai perspektif yg berbeda, kita bisa semakin kaya dgn rambu2 keputusan bertransaksi.
buat rekan2 lainnya mohon maaf sebelumnya saya blm bisa berbagi afl utk pic pertama (underconstruction), namun utk pic ke II (green color) inilah yg tadinya akan saya bawa utk urun rembuk bersama sesuai maksud saya menambahkan bbrp signal pd afl mirip yg mahal tsb.
salam,
From: Timur Langit <timurlangit.is.here@gmail.com>
To: amibroker-4-bei@yahoogroups.com
Sent: Wed, June 16, 2010 1:19:13 PM
Subject: Re: [Komunitas AmiBroker] Perbaikan Mirip yg Mahal
/* Mirip yang Mahal
Dibuat Lucu oleh Timur Langit
Ide Lucucnya dari Sofia Liaw
*/
_SECTION_BEGIN("Price");
SetChartOptions( 0,chartShowArrow s|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( );
SetChartOptions( 0, chartShowArrows| chartShowDates );
SetChartOptions( 0, chartShowArrows| chartShowDates );
_SECTION_BEGIN("Fractal");
ntick=Param("Jumlah Tick Utk Jaga2 Sebelum Fractal",3,1,100,1 );
//V20=Param("JumlahBar_MA_ Volume_BreakOut",20,1,100,1 );
V20=20;
UpFractal= ValueWhen(
(Ref(H,-2) >= Ref(H, -3)) AND
(Ref(H,-2) >= Ref(H, -1)) AND
(Ref(H,-2) >= H), Ref(H,-2));
DownFractal= ValueWhen(
(Ref(L,-3) <= Ref(L, -4)) AND
(Ref(L,-3) <= Ref(L, -2)) AND
(Ref(L,-3) <= Ref(L, -1)) AND
(Ref(L,-3) <= L), Ref(L,-3));
Beli = C>UpFractal AND Ref(C,-1)<=UpFractal ;
//Buy = (Ref(C,-1)<=UpFractal) AND C>UpFractal AND V >= MA(V,V20);
Jual = Ref(C,-1)>=DownFractal AND C < DownFractal;
tick=IIf( C<=200,1,
IIf(C>200 AND C<=500,5,
IIf(C>500 AND C<=2000,10,
IIf(C>2000 AND C<=5000,25,
IIf(C>5000,50,0))) ));
distance1=UpFractal -C;
distance2=C- DownFractal;
batasatas=UpFractal -ntick*tick;
batasbawah =DownFractal+ ntick*tick;
riskinvalue= round(DownFracta l-tick-C) ;
riskinpercent= round((DownFract al-tick-C) *1000/C)/ 10;
Copet1="Siap2 Jual Kalau Jebol --> "+DownFractal;
Copet2=Copet1+" Kalau mau copet resikonya harus CL (Cut Loss) kalau jebol --> ";
Copet3=Copet2+ downFractal;
Copet4=Copet3+" RESIKO Rp";
Copet5=Copet4+ riskinvalue;
Copet6=Copet5+" atau ";
Copet7=Copet6+ riskinpercent;
Copet8=Copet7+"%";
riskinvalue= round(UpFractal+ tick-C);
riskinpercent= round((UpFractal +tick-C)* 1000/C)/10;
TP1="Siap2 Beli Kalau Tembus --> "+UpFractal;
TP2=TP1+" Kalau mau Take Profit resikonya BBL (Bisa Beli Lagi) kalau tembus --> ";
TP3=TP2+UpFractal;
TP4=TP3+" RESIKO Rp";
TP5=TP4+riskinvalue ;
TP6=TP5+" atau ";
TP7=TP6+riskinperce nt;
TP8=TP7+"%";
Siap2Beli=distance1<=distance2 AND C>=batasatas AND C<=UpFractal;
Siap2Jual=distance1>distance2 AND C>=DownFractal AND C<=batasbawah ;
Plot(Ref(UpFractal, 2), "spekulative buy jika tembus", ParamColor("resistance",colorBlue), ParamStyle("Up Fractal Style", styleLine));
Plot(Ref(DownFracta l,3), "cutloss jika tembus",ParamColor("suport",colorRed), ParamStyle("Down Fractal Style", styleLine));
PlotShapes(IIf( Beli,shapeUpArro w,Null), ParamColor("Warna Untuk Panah Beli", colorBrightGreen) , 0, L,-10);
PlotShapes( IIf(Jual,shapeDownA rrow,Null) ,ParamColor("Warna Untuk Panah jual", colorRed), 0, H,-10);
color1 = IIf( Beli, ParamColor("Warna Latar untuk Beli", colorDarkGreen) , IIf( Jual, ParamColor("Warna Latar untuk Jual", colorDarkRed) , IIf(Siap2Beli, ParamColor("Warna Latar untuk Siap2 Beli", colorPaleTurquoise) , IIf(Siap2Jual, ParamColor("Warna Latar untuk Siap2 Jual", colorTan),colorBlac k))));
SetChartBkColor( LastValue(color1) );
AlertIf( Beli, "SOUND C:\\Program Files\\AmiBroker\ \RekamSuara\ \Beli.wav", "Audio alert", 2 );
AlertIf( Jual, "SOUND C:\\Program Files\\AmiBroker\ \RekamSuara\ \Jual.wav", "Audio alert", 2 );
_SECTION_END( );
_SECTION_BEGIN("Exploration");
//Filter = (Buy OR Sell) AND V > 0; /*AND (C>=PriceFrom AND C<=PriceTo) AND V>0; */
Filter = (Beli OR Jual OR Siap2Beli OR Siap2Jual) AND V>1000;
//Filter = (Beli OR Jual) ;
//clorback=IIf( Beli, colorGreen, colorRed);
//clorfrnt=IIf( Beli, colorYellow, colorAqua);
clorback=IIf( Beli, colorGreen, IIf(Jual, colorRed, IIf(Siap2Beli, colorAqua, IIf(Siap2Jual, colorPink, colorWhite)) ));
clorfrnt=IIf( Beli, colorYellow, IIf(Jual, colorAqua, IIf(Siap2Beli, colorBlack, IIf(Siap2Jual, colorBlack, colorWhite)) ));
clorbacksprt= IIf(Jual, colorRed, IIf(Siap2Jual, colorPink, colorWhite)) ;
clorfrntsprt= IIf(Jual, colorBlack, IIf(Siap2Jual, colorBlack, colorBlack)) ;
clorbackrst= IIf(Beli, colorGreen, IIf(Siap2Beli, colorAqua, colorWhite)) ;
clorfrntrst= IIf(Beli, colorBlack, IIf(Siap2Beli, colorBlack, colorBlack)) ;
//AddTextColumn( WriteIf(Beli,"Beli", WriteIf(Jual, "Jual", WriteIf(Siap2Beli, "Siap2 Beli kalau tembus --> "+round(UpFractal) , WriteIf(Siap2Jual, "Siap2 Jual kalau jebol --> "+round(DownFractal) ,"")))), "Trade", 1.0, clorfrnt, clorback);
AddTextColumn( WriteIf(Beli,"Beli Sekarang", WriteIf(Jual, "Jual Sekarang", WriteIf(Siap2Beli, TP8, WriteIf(Siap2Jual, Copet8,"")))), "Trade", 1.0, clorfrnt, clorback);
//AddTextColumn( WriteIf(Beli,"Beli", "Jual"), "Trade", 1.0, clorfrnt, clorback);
AddColumn( UpFractal, "resistance",1.0,colorBlack, colorWhite, 50);
AddColumn( DownFractal, "suport",1.0,colorBlack, colorWhite, 50);
AddColumn(C,"Harga Terakhir",1.0,colorWhite, IIf(C>Ref(C,-1),colorGree n,colorRed) ,50);
_SECTION_END( );
_SECTION_BEGIN("Background Name");
GfxSetOverlayMode( 1);
GfxSelectFont("Tahoma", Status("pxheight")/40 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( ParamColor( "Warna", colorLightGrey ) );
GfxSetBkMode( 0); // transparent
GfxTextOut( "Mirip Yang Mahal", Status("pxwidth")/8, Status("pxheight")/10 );
GfxTextOut( "Dibuat Lucu oleh Timur Langit", Status("pxwidth")/5.7, Status("pxheight")/6 );
GfxTextOut( "Ide Lucu nya dari SofiaLiaw", Status("pxwidth")/6, Status("pxheight")/4.2 );
C13=Param("fonts",20,10,30,1 );
C14=Param("left-right",2.1,1.0,5.0, 0.1 );
C15=Param("up-down",12,1,20,1 );
Miny = Status("axisminy");
Maxy = Status("axismaxy");
lvb = Status("lastvisiblebar");
fvb = Status("firstvisiblebar");
pxwidth = Status("pxwidth");
pxheight = Status("pxheight");
GfxSetOverlayMode( 1);
GfxSelectFont("Tahoma", Status("pxheight")/8 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( colorDarkGrey );
GfxSetBkMode( 0); // transparent
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/12 );
GfxSelectFont("Tahoma", Status("pxheight")/18 );
//GfxTextOut( IndustryID(1) , Status("pxwidth")/2, Status("pxheight")/4 );
GfxSelectFont("Tahoma", Status("pxheight")/18 );
GfxSelectFont("Tahoma", Status("pxheight")/36 );
//GfxTextOut( "chartistsbd. net", Status("pxwidth")/2, Status("pxheight")/3 );//GfxSelectFont("Aparajita", Status("pxheight")/C13*1 );
//GfxTextOut( IndustryID(1) , Status("pxwidth")/2, Status("pxheight")/C15*2.3 );
GfxSelectFont("Aparajita", Status("pxheight")/C13*1.1 );
GfxSetTextColor( ColorHSB( 50, 50, 50 ) );
GfxTextOut( FullName(), Status("pxwidth")/2, Status("pxheight")/C15*10.5);
_SECTION_END( );
_SECTION_BEGIN("EMA");
P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 300, 1, 10 );
Plot( EMA( P, Periods ), _DEFAULT_NAME( ), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
_SECTION_END( );
Dear Pak Timur,
Pak boleh ikutan nimbrung gak nih?, saya tertarik utk rembukan mikirin afl mirip yg mahal, kl gak salah konsepnya pantulan S/R ya..? Apa ada konsep lainnya? Cuma saya amati bagaimana bila candle posisi ditengah2? Sedangkan ide afl ini lbh kpd opportunity how to doing like copet ya? Apa saya salah? Maksud saya apa kita gak mikirin seluruh perangkatnya dulu sampai fraksi terkecil?, tentunya explorer dgn sendirinya akan mengikuti dan akan lbh lengkap.
File text afl mirip mahal tsb saya load terbukanya berantakan, apa boleh di send lg? better di copas aja kesini (page mail/jgn text file). Semoga pekerjaan ini nanti akhirnya bisa mendekati harapan utk menjadi intraday basic trading system.
Demikian dan trm ksh.
Sent from BlackBerry® on 3
Date: Wed, 16 Jun 2010 11:24:58 +0700ReplyTo: amibroker-4- bei@yahoogroups. comSubject: Re: [Komunitas AmiBroker] Perbaikan Mirip yg Mahal
Saya set 3 ticks sebelum support (SF) or resistance (BF).... kalau kosong berarti masih jauh dari BF dan SF....3 ticks itu bisa diatur2 sendiri... jadi 2 ticks or 4 ticks misalnya... coba lihat di parametersTimur2010/6/16 <ayahnyanadia@ yahoo.com>
Pak timur barusan sy aplikasikan utk klbf kok kolom "trade" kosong ? Apa krn blm trbentuk fractal baru yah..?
Powered by Telkomsel BlackBerry®
From: "Timur Langit" <timurlangit. is.here@gmail. com>Date: Wed, 16 Jun 2010 05:30:09 +0700ReplyTo: amibroker-4- bei@yahoogroups. comSubject: [Komunitas AmiBroker] Perbaikan Mirip yg MahalMa'af mBah dan Pak Dendo, numpang lewat….
Dear teman2 nubie….
Scanner mirip-yg-mahal tempo hari ternyata ada yg salah. (Terima kasih buat Pak Fauzi yg telah menemukan kesalahannya)… .
Cukup pusing juga memperbaikinya, syukurlah Pak Eko Widjajanto telah membantu….
Tips… screener mirip-yg-mahal hanya 'valid' jika dijalankan untuk data terakhir…. "Kalau explore dilakukan untuk from – to date yang sama (sehari saja) explore pak Timur berfungsi baik, kalau dipakai untuk tanggal berbeda maka hanya text dari tanggal terakhir yang akan muncul di seluruh date range." Itu quote dari Pak Eko….
Sebagai permohonan ma'af saya, berikut saya tambahkan sedikit warning bagi yg ingin TP di resistance or copet di support…. Dengan mengetahui resikonya, harapan saya kita bisa cepat mengambil keputusan untuk copet atau TP.
Kebiasaan saya;
screener ini untuk mengetahui saham2 yg saya harus pay attention… khususnya pada intraday trading misal pada timeframe 15menit…. tetapi sebelum mengikuti saran dari screener ini saya selalu check lagi buaya lucu saya untuk keputusan terakhir …..
Semoga bermanfaat. Eh lupa.. resiko tanggung sendiri ya!
Timur
__._,_.___
Posts
No comments:
Post a Comment