Dear Pak Meddi, saya coba tambahkan sedikit (ehehhee akhirnya saya ngerti
apa yang Pak Meddi coba ambil untuk TAIO nya :D)
Karena di sana Sinyal Jualnya adalah saat TAIO pindah dari Hijau Tua ke
Hijau Muda maka karena saya selama ini Sinyal Jual adalah Hijau Tua maka
saya coba tambahkan sebagai berikut
Buat yang mau coba AFL ini caranya adalah
Open Ami Broker nya - Pilih Analysis pada bar diatas - Pilih Formula Editor
copy paste semua yang ada di bawah ini - lalu di save
semoga bermanfaat kalau ada yang mau dikomentari makasih banget, thx sekali
lagi untuk Pak Meddi yang begitu jenius untuk bisa membuat afl ruwet begini
:D
//////////////////////////////////////// AWAL UNTUK COPY
////////////////////////////////////////////////////
//|-----------------------------------------------------------------------------------------
//|PatternExplorer.com - TAIO indicator
//|Copyright (c) 2007, PatternExplorer.com
//|http://www.PatternExplorer.com
//|e-mail: [EMAIL PROTECTED]
//|-----------------------------------------------------------------------------------------
FormulaName = "PE - TAIO Indicator";
SetChartOptions(0,chartShowDates|chartWrapTitle,chartGridMiddle==0);
GraphXSpace = 10;
#pragma nocache
#include_once <\PEInc\PatternExplorer_f0.afl>
#include_once "C:\Program
Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
#include_once "C:\Program
Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
/*******************************************************************************************/
AddCustomCodeBeforePE();
/*******************************************************************************************/
AddAlertParam(def_AudioAlert,def_EmailAlert,def_BarComplete);
/*******************************************************************************************/
_SECTION_BEGIN("Alerts");
BuySig = ParamList("Buy Signal", List1 = "Taio Top,Taio
Valley,Zero Line Cross,Zero Line Bounce,Oversold,Trend Level reached,Taio2
direction change",1);
SellSig = ParamList("Sell Signal",List2 = "Taio Top,Taio
Valley,Zero Line Cross,Zero Line Bounce,Overbought,Trend Level reached,Taio2
direction change",0);
_SECTION_END();
/*******************************************************************************************/
_SECTION_BEGIN("Indicator Periods");
period1 = Param("Period 1",def_TaioPeriod1,1,30,1);
period2 = Param("Period 2",def_TaioPeriod2,1,30,1);
_SECTION_END();
/*******************************************************************************************/
_SECTION_BEGIN("First Time Frame");
TAIO_switchvalue = ParamList("Color Mode", List = "1 -
Rising/Falling/Range,2 - Range/Trend,3 - Rising/Falling,4 - Zero based,5 -
Single Color",def_TaioModeInd-1);
Level = Param("Trend Level",def_TrendLevel,0,90);
Shadows_switch = ParamToggle("Plot Shadows", "Off|On",0);
Ribbons_switch = ParamToggle("Plot Ribbons", "On|Off",1);
Ribbonsheight = Param("Height",5,1,100,1);
Style1 = ParamStyle("Style",styleHistogram+styleThick,maskAll);
up_color1 = ParamColor("Taio > Trend Level",def_TAIO_up_color);
dn_color1 = ParamColor("Taio < Trend Level",def_TAIO_dn_color);
RangeP_color1 = ParamColor("Range (>0)",def_TaioRangeP_color);
RangeN_color1 = ParamColor("Range (<0)",def_TaioRangeN_color);
Singlecolor1 = ParamColor("Single Color",colorLightBlue);
_SECTION_END();
/*******************************************************************************************/
_SECTION_BEGIN("Second Time Frame");
SecondTF2 = ParamToggle("Plot Indicator",
"Off|On",def_SecondTF2Switch);
Multiplier = Param("Multiplier",def_Taio2TFMultiplier,1,30,1);
Taio2expandMode = ParamToggle("Taio TF2 Expand Mode","Expand
First|Expand Last",1);
SecondTFstyle =
ParamStyle("Style",styleLine+styleThick+styleDots,maskAll);
Color_Mode2 = ParamToggle("Color Mode", "1 - Rising/Falling|2 -
Above/Below Zero",0);
up_Color2 = ParamColor("Up Color",def_TaioTF2Up_Color);
dn_Color2 = ParamColor("Dn Color",def_TaioTF2Dn_Color);
_SECTION_END();
/*******************************************************************************************/
/*******************************************************************************************/
AddGradientBackground(def_BGColorswitch,def_BgTopcolor,def_BgBottomcolor,def_titlebkcolor);
/*******************************************************************************************/
#include_once <\PEInc\Lib\PatternExplorer_f12.afl>
/*******************************************************************************************/
Buy = def_Buy AND
IIf(BuySignal == 0, TpVa==-1,
IIf(BuySignal == 1, TpVa== 1,
IIf(BuySignal == 2, ZLC==1,
IIf(BuySignal == 3, ZLB==1,
IIf(BuySignal == 4, Oversold==1,
IIf(BuySignal == 5, UpperLevelreached==1,
IIf(BuySignal == 6, Taio2upsig==1,Null)))))));
Sell = def_Sell AND
IIf(SellSignal == 0, TpVa==-1,
IIf(SellSignal == 1, TpVa== 1,
IIf(SellSignal == 2, ZLC==-1,
IIf(SellSignal == 3, ZLB==-1,
IIf(SellSignal == 4, Overbought==-1,
IIf(SellSignal == 5, LowerLevelreached==-1,
IIf(SellSignal == 6, Taio2dnsig==1,Null)))))));
/*******************************************************************************************/
Alerttext =
"\nTaio = "+ WriteVal(Taio)+", "
+"\nTaio 2nd Time Frame = "+WriteVal(Taio2);
AddAlert(Buy,Audio,Email,BuySig +
Alerttext,1,BarComplete,def_BuySound1);
AddAlert(Sell,Audio,Email,SellSig +
Alerttext,2,BarComplete,def_SellSound1);
/*******************************************************************************************/
Filter = def_Filter AND NOT GroupID()==253;
/*******************************************************************************************/
if(inAA){
if(Widecolumns)
{
Addefaultcolumns();
AddColumn(Taio,"Taio",1);
AddColumn(Taio2,"Taio TF2",1,1,colorWhite,60);
AddColumn(TpVa,"Taio Top / Valley",1,1,IIf(TpVa==1 OR
TpVa==-1,colorLightBlue,colorWhite),0);
AddColumn(ZLC,"Zero Line
Cross",1,1,IIf(ZLCp,def_Color1,IIf(ZLCn,colorRed,colorWhite)),90);
AddColumn(ZLB,"Zero Line
Bounce",1,1,IIf(ZLBp,def_Color1,IIf(ZLBn,colorRed,colorWhite)),100);
AddColumn(TrendLevelreached,"Trend Level
reached",1,1,IIf(UpperLevelreached,def_Color1,IIf(LowerLevelreached,colorRed,colorWhite)),120);
AddColumn(OBOS,"Overbought/Oversold",1,1,IIf(Oversold,def_Color1,IIf(Overbought,colorRed,colorWhite)),120);
AddColumn(IIf(Taio>Level,BarsSince(Cross(Taio,Level)),IIf(Taio<-Level,BarsSince(Cross(-Level,Taio)),Null)),"Bars
since Trendlevel reached",1.0);
AddColumn(IIf(Taio2upsig,1,IIf(Taio2dnsig,-1,Null)),"Taio 2
Signals",1,1,IIf(Taio2upsig,def_Color1,IIf(Taio2dnsig,colorRed,colorWhite)),40);
AddTextColumn(FullName(),"Full name",120);
}
else
{
Addefaultcolumns();
Adddefaultcolumns(2,1);
AddColumn(Taio,"Taio",1);
AddColumn(Taio2,"Taio TF2",1,1,colorWhite,60);
AddColumn(TpVa,"T/V",1,1,IIf(TpVa==1 OR
TpVa==-1,colorLightBlue,colorWhite),40);
AddColumn(ZLC,"ZLC",1,1,IIf(ZLCp,def_Color1,IIf(ZLCn,colorRed,colorWhite)),40);
AddColumn(ZLB,"ZLB",1,1,IIf(ZLBp,def_Color1,IIf(ZLBn,colorRed,colorWhite)),40);
AddColumn(TrendLevelreached,"TLR",1,1,IIf(UpperLevelreached,def_Color1,IIf(LowerLevelreached,colorRed,colorWhite)),40);
AddColumn(OBOS,"OB/OS",1,1,IIf(Oversold,def_Color1,IIf(Overbought,colorRed,colorWhite)),60);
AddColumn(IIf(Taio>Level,BarsSince(Cross(Taio,Level)),IIf(Taio<-Level,BarsSince(Cross(-Level,Taio)),Null)),"BSTR",1.0);
AddColumn(IIf(Taio2upsig,1,IIf(Taio2dnsig,-1,Null)),"T2
Sig",1,1,IIf(Taio2upsig,def_Color1,IIf(Taio2dnsig,colorRed,colorWhite)),40);
//AddTextColumn(FullName(),"Full name");
}
}
/*******************************************************************************************/
PlotGrid(Level,colorDefault);
PlotGrid(-Level,colorDefault);
PlotGrid( 0,colorDefault);
PlotGrid( 100,colorDefault);
PlotGrid(-100,colorDefault);
Plot(IIf(Ribbons_switch ==
0,Ribbonsheight,-1e10),"",RibbonsColor,styleOwnScale|styleArea|styleNoLabel,-0.1,100);
Plot(IIf(SecondTF2,Taio2,-1e10),"TF2
Taio",Taio2_color,SecondTFstyle);
Plot(Taio,"TF1 Taio",Taio1_color,style1);
if(Shadows_switch)
{
PlotOHLC(0,Taio,0,Taio,"",IIf(Taio > 0,up_color1,dn_color1),
styleCloud | styleClipMinMax, -Level, Level);
}
/*******************************************************************************************/
ToolTip = def_ToolTip;
/*******************************************************************************************/
AddCustomCodeAfterPE();
/*******************************************************************************************/
Title = "PatternExplorer.com - Taio Indicator" + " - " + Name()
+ " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor() + " - " +
Date() +" - " +EncodeColor(LastValue(Taio1_color))+ "Taio =
"+WriteVal(Taio,1.2)+ ", " +EncodeColor(LastValue(Taio2_color))+
"TF-Multiplier = "+WriteVal(Multiplier,1.0)+", " +"Taio 2nd time frame =
"+WriteVal(Taio2,1.2)+" ";
//////////////////////////////////////////////////////////////////////////////
// MODIFIKASI UNTUK PENCARIAN DENGAN TAIO
// IDE OLEH : RYAN FILBERT
// MODIFIKASI PROGRAM OLEH : MEDDI RINALDI
// JAKARTA AKHIR JULI 2008
//////////////////////////////////////////////////////////////////////////////////
Filter1 = (RibbonsColor == colorRed);
Filter2 = StochD(15,3,3) < 10;
Filter3 = Open < BBandBot(20,2);
Filter4 = (V > Ref(V,-1)) AND (Ref(V,-1) > Ref(V,-2));
Filter5 = Open == Low;
Filter6 = (RibbonsColor == colorGreen);
Filter = Buy = Filter1 AND (Filter2 OR Filter3 OR Filter4 OR Filter5);
Filter = Sell = Filter6;
///////////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////// AKHIR YANG HARUS DI-COPY
///////////////////////////////////////////////////////////
2008/7/29 under cover <[EMAIL PROTECTED]>
> Hhehehehee..... udah coba bikin ke notepad, tapi ga bisa jalan ........
>
>
> ----- Original Message ----
> From: ryan filbert <[EMAIL PROTECTED]>
> To: amibroker-4-bei@yahoogroups.com
> Sent: Tuesday, July 29, 2008 10:21:34 AM
> Subject: Re: [Komunitas AmiBroker] Halo, apa ada yang bisa bantu buat AFL
> berhub dengan TAIO?
>
> AFL nya kan dah ada di share ama Pak Meddi tadi. Saya coba berikan rule
> yang saya coba gunakan selama ini tanpa AFL.
>
> 2008/7/29 under cover <secr3tag3nt@ yahoo.com <[EMAIL PROTECTED]>>
>
>> minta AFLnya donk (gigiku putih berseri)
>>
>>
>> ----- Original Message ----
>> From: ryan filbert <[EMAIL PROTECTED] com <[EMAIL PROTECTED]>>
>> To: amibroker-4- [EMAIL PROTECTED] com <amibroker-4-bei@yahoogroups.com>
>> Sent: Tuesday, July 29, 2008 10:17:38 AM
>> Subject: Re: [Komunitas AmiBroker] Halo, apa ada yang bisa bantu buat AFL
>> berhub dengan TAIO?
>>
>> Wowwwwwwwwwww keren sekali Pak Meddi, bisa ya :)
>> Makasih banget.
>> Nah buat yang mau coba simulasi, begitu tanda panah Hijau berarti adalah
>> sinyal beli
>> dengan kemungkinan
>>
>> 1. TAIO merah dan menandakan TAIO berada pada posisi >=-85
>> dan
>> 2. Stockhastick berada pada posisi 10
>> atau
>> 3. Candlestick di open pada hari itu diluar Bollinger Band bawah
>> atau
>> 4. Terjadi ledakan volume
>> atau terjadi
>> 5. Open = Low
>>
>> Yang jelas yang di lihat adalah TAIO nya dulu kalau merah maka akan kita
>> lihat ada ndak faktor 2/3/4/5 pada TAIO merah tersebut.
>>
>> Kadang perlu diakui indikator juga salah, namun selama TAIO ada pada merah
>> dan panah beli keluar lagi besok nya dan harga nya lebih rendah kita dapat
>> lakukan Averaging Down.
>>
>> Coba dipelajari dulu deh, TAIO dak pernah berbohong selama kita berani AVG
>> down sampai mendekati harga terendah pada TAIO Ribbon red lalu setelah
>> meninggalkan Zona Merah maka akan masuk Zona Pink dan harganya naik.
>>
>> Soal jual dimana silahkan di tentukan masing2 karena Kalau jual biasanya
>> udah berbeda kepentingannya masing2, tapi kalau sudah Hijau tua segera jual
>> ya...
>>
>> Semoga membantu.
>>
>>
>>
>
>
>
