cobain ini, cuman keluarnya warnanya ijo2 nggak tau kenapa, tp sama2 buaya /* MS Darvas Box with Exploration ==============================
Translate from http://trader.online.pl/MSZ/e-w-Darvis_Box.html - Improve scripting * Allow Darvas Box Color/Style Changing - Exploration * Scan Price From .. To */ SetChartOptions( 0, chartShowArrows|chartShowDates ); _SECTION_BEGIN("alligator 2"); /* The first set of lines are to set up the color coding for the price bars */ outsidebar = Outside(); insidebar = H <= Ref(H,-1) AND L >= Ref(L,-1); upbar = H > Ref(H,-1) AND L >= Ref(L, -1); downbar = L < Ref(L,-1) AND H <= Ref(H,-1); barcolor=IIf(outsidebar, 1, IIf(downbar, 4, IIf(upbar,5, 6) ) ); /*The following builds the alligator lines*/ A=C; MaxGraph=12; AlligatorBlue=Ref(Wilders(A,13),-8); Graph0=AlligatorBlue; AlligatorRed=Ref(Wilders(A,8),-5); Graph1=AlligatorRed; AlligatorGreen=Ref(Wilders(A,5),-3); Graph2=AlligatorGreen; Graph0Style=Graph1Style=Graph2Style=1+4; Graph3=C; Graph3Style=64; /*Red:* modified for Amibroker*/ /* Graph3Color=22; 22 is the number for dark green */ Graph3BarColor=barcolor; Graph2Color=27; /* 6 is green */ Graph1Color=5; /* 5 is red color */ Graph0Color=7; /* 7 is dark blue */ /*The following builds Fractal Up*/ var1=ValueWhen( (Ref(H,-2) > Ref(H, -4)) AND (Ref(H,-2) > Ref(H, -3)) AND (Ref(H,-2) > Ref(H, -1)) AND (Ref(H,-2) > H), Ref(H,-2),1); FractalUp=HighestSince(var1>0,var1,1); Graph4=FractalUp; Graph4Color=3; /* 6 is green */ Graph4Style=9; /*The following builds Fractal Down*/ var2= (Ref(L,-2) <= Ref(L, -1)) AND (Ref(L,-2) <= Ref(L, 0)) AND (Ref(L,-2) <= Ref(L, -3)) AND (Ref(L,-2) <= Ref(L, -4)); FractalDown=ValueWhen( var2,Ref(L,-2),1); Graph5=FractalDown; Graph5Style=1; Graph5Color=8; /* red is 5 blue is 7 */ Graph5Style=9; /* Graph6=ma(c,17); graph7=ma(c,50); graph8=ma(c,200); graph6Style=Graph7Style=graph8Style=12; */ /* Below are the buy sell signals for testing */ Buy = Cross(H,FractalUp+0.065) AND (C > AlligatorRed) ; Sell= A < AlligatorGreen OR (Ref(C,-2) < FractalUp AND (Ref(C,-1)<Ref(C,-2) ) ) ; /* The following is Guru commentary coding */ /* Guru Commentary */ WriteIf(Hold(Buy==1,10), "Buy signal bars ago " + WriteIf(Hold(Buy==1,10), WriteVal(BarsSince(Buy==1)),""), "No Buy Signal") + "n" + WriteIf(Hold(Sell==1,10), "Sell signal bars ago " + WriteIf(Hold(Sell==1,10), WriteVal(BarsSince(Sell==1)),""), "No Sell Signal") ; /* End of commentary code */ /* The following lines of code set up a sell on the last day if in an open position*/ barnumber = Cum( 1 ); lastbar = barnumber == LastValue( barnumber ); Sell = Sell OR LASTBAR; Filter = Cross(H,FractalUp+0.065) OR Cross(L,FractalDown-0.065) ; NumColumns = 5; Column0 = IIf(Buy==1,1,-1); Column0Format = 1.2; Column0Name = "Buy+1,Sell-1";WriteIf(Buy==1," Buy"," Sell" ); Column1 = FractalUp; Column1Name = "FractalUp";Column1 = FractalUp; WriteVal(FractalUp); Column1Format = 1.2; Column2 = FractalDown; Column2Name = "Fractal Down"; Column2Format = 1.2; Column3 = MA(V,3)/EMA(V,17); Column3Name = "MAV(3/17)"; Column3Format=1.2; Column4 = C; Column4Name = "Today's Close "; Column4Format=1.2; /* removes redundant buy and sell signals */ Buy=ExRem(Buy,Sell); Sell=ExRem(Sell,Buy); first=1; /* First is the number of days for each ROC interval for reviewing performance */ /* To use this filter always make the current day at least 3*first days before the current date for meaningful results */ /* numcolumns = 7; column0 = C; column0format = 1.2; column0name = "Close"; column1 = ref(C, 1+first); column1name = "Close+i "; column1format = 1.2; column2 = ref(C,1+first*2); column2name = "Close+i*2 "; column2format = 1.2; column3 = ref(C,1+first*3); column3name = "Close+i*3 "; column3format = 1.2; column4= ref(C,first*1+1) - C; column4name="ROC+i"; column4format = 1.2; column5= ref(C,first*2+1) - C; column5name="ROC+2i"; column5format = 1.2; column6= ref(C,first*3+1) - C; column6name="ROC+3i"; column6format = 1.2; */ /* End of Exploration Code. */ _SECTION_END(); 2009/10/17 Maximilian Kurniawan <maximilian_fe...@yahoo.com> > > > Bukannya AFL itu formula yg dikenal di Amibroker ya pak? Saya coba yg BW di > Ami yg sempat dishare tadi,memang error,keliatannya ada salah coding...tx > > Sent from FelixBerry® Mobile Device > ------------------------------ > *From: * "Embah" <jsx-consult...@centrin.net.id> > *Date: *Fri, 16 Oct 2009 13:08:21 +0700 > *To: *<obrolan-bandar@yahoogroups.com> > *Subject: *RE: [ob] BW: Selecting PROFITABLE stocks , the Buaya way... > > > > Apa itu AFL ?, Never heard .... > > ------------------------------ > *From:* obrolan-bandar@yahoogroups.com [mailto: > obrolan-ban...@yahoogroups.com] *On Behalf Of *Heru Susanto > *Sent:* Saturday, October 17, 2009 1:05 PM > *To:* obrolan-bandar@yahoogroups.com > *Subject:* Re: [ob] BW: Selecting PROFITABLE stocks , the Buaya way... > > > > share afl nya dong mbah..... > > 2009/10/17 jsx_consultant <jsx-consult...@centrin.net.id> > >> >> >> Umumnya stock lebih banyak tidur dibanding bergerak, jadi pemilihan >> stock yg sembarangan tanpa methodologi akan mengakibatkan kita >> membeli saham yg mungkin: >> - Diam >> - Naik sebentar lalu turun lagi >> - Sideways/rangebound/bracketed >> - Downtrend stock. >> - Low profit stock >> >> BW memberikan Methoda Buaya untuk memilih saham yg sedang >> UPTREND, caranya: >> >> 1. Pilih saham yg buaya dan mulutnya sedang menganga keatas >> 2. Pilih saham yg grafik harganya ada diatas buaya. >> >> Coba apakah saham saham dibawah ini memenuhi kriteria diatas: >> - http://www.invest2000.net/pwlindf.png >> - http://www.invest2000.net/pwlsmcb.png >> - http://www.invest2000.net/pwlcpin.png >> - http://www.invest2000.net/pwlasii.png >> >> > >
