tks bro....
________________________________ From: hkstrade <hkstr...@gmail.com> To: obrolan-bandar@yahoogroups.com Sent: Sat, October 17, 2009 2:25:15 PM Subject: Re: [ob] BW: Selecting PROFITABLE stocks , the Buaya way... sorry kawan-kawan. ..ternyata setelah saya paste ke email jadinya kena word warp juga yg mengakibatkan error 30. ini saya attach aflnya dengan .txt file (dinotepad tanpa word wrap) .. On Sat, Oct 17, 2009 at 3:10 PM, hkstrade <hkstr...@gmail. com> wrote: bukan salah coding..cuma memang ga bisa dicopy paste gitu aja mesti ke download sectionnya AFL library yg sekarang di locked khusus untuk member pengguna amibroker asli. > >coba AFL ini, dah saya pergunakan.. jalan dengan mulus di Amibroker5.20 >Pro..ini juga reply untuk ts susantogondo. semoga berguna. > > >/* > Bill William's Alligator System II > > Reference Website: > ============ ====== > http://www.alpari- idc.com/en/ market-analysis- guide/chaos- > theory/alligator -and-gator. html > > > > > Modified from http://www.amibroke r.com/library/ detail.php? id=100, by > Steve Wiser - slwis...@erols. com > > > Modified by TohMz on June 9th, 2008 > >*/ >SetChartOptions( 0, chartShowArrows| chartShowDates ); > >_SECTION_BEGIN("Price Chart"); >_N(Title = StrFormat("{{NAME}}- {{INTERVAL}} {{DATE}} O= %g, H= %g, L= %g, C= >%g (%.1f%%) V= " +WriteVal( V, 1.0 ) +"\n{{VALUES}}", O, H, L, C, >SelectedValue( ROC( C, 1 )) )); > > > >PriceStyle = GetPriceStyle( ); >PriceStyleOpt = ParamStyle("Price Style")|PriceStyle; > >if (PriceStyle= =styleCandle) > Plot( C, "", colorBlack, PriceStyleOpt) ; >else > Plot( C, "", IIf( Close >= Ref(C, -1), colorBlue, colorRed ), > PriceStyleOpt) ; > > > >_SECTION_END( ); > >_SECTION_BEGIN("BW Alligator"); >/*** The trend indicators ***/ > >P= ParamList("Price", "Close|(H+L)/ 2|(H+C+L) /3",1); > >if (P=="Close") > A = C; > > > > >else >if (P=="(H+C+L)/3") > A = (H+C+L)/3; >else > A = (H+L)/2; > >AlligatorJaw = Ref(Wilders( A,13),-8) ; >AlligatorTeeth = Ref(Wilders( A,8), -5); >AlligatorLips = Ref(Wilders( A,5), -3); > > > > >Plot(AlligatorJaw, "Jaw", ParamColor("Jaw's Color",colorBlue), >ParamStyle("Jaw's Style", styleThick)) ; >Plot(AlligatorTeeth ,"Teeth", ParamColor("Teeth's Color",colorRed), >ParamStyle("Teeth's Style", styleThick)) ; > > > >Plot(AlligatorLips, "Lips", ParamColor("Lips's Color",colorGreen) , >ParamStyle("Lips's Style", styleThick)) ; > >_SECTION_END( ); > > >_SECTION_BEGIN("BW Fractal"); > > > > >UpFractal= 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)); > >DownFractal= ValueWhen( > > (Ref(L,-2) <= Ref(L, -4)) AND > > > (Ref(L,-2) <= Ref(L, -3)) AND > > (Ref(L,-2) <= Ref(L, -1)) AND > (Ref(L,-2) <= L), Ref(L,-2)); > > > >//== Added Crash crashandburn59 [at] hotmail.com solution > > > >Plot(Ref(UpFractal, 2), "Up Fractal", ParamColor("Up Fractal Color",colorRed), >ParamStyle("Up Fractal Style", styleDashed) ); >Plot(Ref(DownFracta l,2), "Down Fractal",ParamColor("Down Fractal >Color",colorBlue), ParamStyle("Down Fractal Style", styleDashed) ); > > > > >//Plot(Max(HHV( H,3),Ref( UpFractal, 2)), "Up Fractal", ParamColor("Up Fractal >Color",colorRed), ParamStyle("Up Fractal Style", styleDashed) ); >//Plot(Max(HHV( H,3),Ref( UpFractal, 2)), "Down Fractal",ParamColor("Down >Fractal Color",colorBlue), ParamStyle("Down Fractal Style", styleDashed) ); > > > > >_SECTION_END( ); > > > >_SECTION_BEGIN("Exploration"); > >/* > Buy: Scan stocks only breakout..maxbreako ut (1~30%, default) and Trend is > bullish > Sell: Scan stocks only breakout..maxbreako ut (1~30%, default) and Trend is > bearish > > > > >*/ >//== Price Increment Value - depend on different country >Inc = 0.1; > > >//== Set the Price Range for stock to scan >PriceFrom = Param("Price From:", 5, 0.1, 200, Inc); >PriceTo = Param("Price To:", 100, 0.1, 200, Inc); > > > >MaxBreakOut = Param("Max Breakout (%)", 5, 1, 30); >MaxBreakOut = MaxBreakOut/ 100; > >Buy = C>UpFractal AND C<=(1+MaxBreakOut) *UpFractal AND >AlligatorTeeth>AlligatorJaw; >Sell = C<DownFractal AND C>=(1-MaxBreakOut) *DownFractal AND >AlligatorTeeth<AlligatorJaw; > > > > > > >Filter = (Buy OR Sell) AND (C>=PriceFrom AND C<=PriceTo) AND V>0; > > >AddTextColumn( FullName( ), "Security", 1.0, colorDefault, colorDefault, 200); >AddTextColumn( WriteIf(Buy,"Buy", WriteIf(Sell, "Sell", "")), "Trade", 1.0); > > > >AddColumn( UpFractal, "Up Fratal"); >AddColumn( DownFractal, "Down Fratal"); >//AddColumn( MA(V,3)/EMA( V,17), "MAV(3/17)"); >AddColumn( C, "Today's Close"); > > >_SECTION_END( ); >
