Pak Isfandi terima kasih banyak atas AFL smooth untuk W%R dan ADXnya yg sangat
berguna, semoga Tuhan membalas semua kebaikan Bapak dengan berlipat ganda.
Salam. Fauzi C
Sent from my BlackBerry®
powered by Sinyal Kuat INDOSAT
-----Original Message-----
From: <isfandi2...@yahoo.com>
Sender: amibroker-4-bei@yahoogroups.com
Date: Sat, 21 Aug 2010 06:29:47
To: <amibroker-4-bei@yahoogroups.com>
Reply-To: amibroker-4-bei@yahoogroups.com
Subject: Re: [Komunitas AmiBroker] Re: AFL Smooth untuk W%R & ADX
Pak Fauzi, ADX yg sdh smooth setau saya KADX, dicoba aja barangkali sesuai yg
dimaksudkan, utk W%R yg pake arrow aja adanya nih..., monggo Pak...
salam,
Isfandi
XXXXXXXXXXXXXXXXXXX KADX XXXXXXXXXXXXXXXXXX
_SECTION_BEGIN("GSMA");
SetBarsRequired(100000,0);
PI = 3.1415926;
T1 = Param("Momentum Period",5,0,100,1);
A=C-Ref(C,-T1);
a[0]=C[0];
function IIR2( input, f0, f1, f2 )
{
result[ 0 ] = input[ 0 ];
result[ 1 ] = input[ 1 ];
for( i = 10; i < BarCount; i++ )
{
result[ i ] = f0 * input[ i ] +
f1 * result[ i - 1 ] +
f2 * result[ i - 2 ];
}
return result;
}
function GSMA( input, Period )
{
N = 0;
an = 2 * PI / Period;
c0 = b0 = 1;
c1 = b1 = b2 = a1 = a2 = gamma1 = 0;
beta1 = 2.415 * ( 1- cos( an ) );
alpha = -beta1 + sqrt( beta1 ^ 2 + 2 * beta1 );
alpha1 = ( cos( an ) + sin( an ) - 1 )/cos( an );
{
fo = alpha ^ 2;
f1 = 2 * ( 1- alpha ); f2 = -( 1 - alpha )*( 1 - alpha );
}
return IIR2( input, fo,f1,f2);
}
period=Param("period",15,1,40,1);
H1=gsma(H,period);
L1=gsma(L,period);
p = Param("adx+d-d",10,1,100,1);
PDM=IIf(H1>Ref(H1,-1) AND L1>=Ref(L1,-1), H1-Ref(H1,-1),IIf(H1 >Ref(H1,-1) AND
L1<Ref(L1,-1)
AND H1-Ref(H1,-1)> Ref(L1,-1)-L1, H1-Ref(H1,-1),0));
MDM=IIf(L1<Ref(L1,-1) AND H1<=Ref(H1,-1), Ref(L1,-1)-L1,IIf(H1>Ref(H1,-1) AND
L1<Ref(L1,-1)
AND H1-Ref(H1,-1)<Ref(L1,-1)-L1, Ref(L1,-1)-L1,0));
PlDI=100*Wilders(PDM,P)/ATR(P);
MIDI=100*Wilders(MDM,P)/ATR(P) ;
DIDif=(PLDI-MiDI);
DISum=PlDI+MiDI;
ADXF=100*Wilders(abs(DIDif)/DISum,P);
ADXF2=100*Wilders((DIDif)/DISum,P);
//Plot( PlDI , "+DI" , IIf(PlDI>Ref(PlDI,-1),colorBrightGreen,colorGreen), 4
|styleOwnScale);
Plot( PlDI , "+DI" , IIf(PDI(p)>MDI(p),colorBrightGreen,colorGreen), 4
|styleOwnScale);
Plot( MIDI , "-DI" , IIf(MDI(p)>PDI(p),colorRed,colorDarkRed), 4|styleOwnScale
);
Plot( ADXF, "KADX"+"(" +WriteVal( p,1.0 )+")" ,
IIf(ADX(p)>Ref(ADX(p),-1),colorBlue,colorViolet) , 4 |styleThick|styleOwnScale)
;
XXXXXXXXXXXXXXXXXXXXXXXX W%R (Arrow) XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
_SECTION_BEGIN("Indicator ZeroLag W%R");
/*ZeroLag W%R*/
"========";
GraphXSpace = 3;
R = ((HHV(H,14) - C) /(HHV (H,14) -LLV (L,14))) *-100;
MaxGraph=10;
Period= 10;
EMA1= EMA(R,Period);
EMA2= EMA(EMA1,5);
Difference= EMA1 - EMA2;
ZeroLagEMA= EMA1 + Difference;
PR=100-abs(ZeroLagEMA);
Graph0=PR;
MoveAvg=MA(PR,5);
Graph1=MoveAvg;
Graph1Color=colorTan;
Graph0Style=4;
upbar= PR>= MoveAvg AND PR>= Ref(PR,-1) ;
downbar=(PR < MoveAvg) OR PR>= MoveAvg AND PR< Ref(PR,-1) ;
barcolor = IIf( downbar,colorRed, IIf( upbar, colorBrightGreen, 7));
Graph0BarColor = ValueWhen( barcolor != 0, barcolor );
Graph2=30;
Graph3=70;
Graph2Style=Graph3Style=Graph4Style=1;
Graph4Color=2;
Graph2Color=5;
Graph3Color=4;
Graph5=0;
Graph6=100;
Graph5Style=Graph6Style=1;
Graph5Color=Graph6Color=2;
Title=Name()+" < ZeroLag W%R :"+WriteVal(PR)+"%";
Buy=Cross(R,ZeroLagEMA);
Sell=Cross(ZeroLagEMA,R);
PlotShapes(Buy*shapeUpArrow,colorLime,0);
PlotShapes(Sell*shapeDownArrow,colorRed,0);
_SECTION_END();
________________________________
From: FAUZI CHAIRANI <fauzi_chair...@yahoo.com>
To: amibroker-4-bei@yahoogroups.com
Sent: Fri, August 20, 2010 6:50:51 PM
Subject: Re: [Komunitas AmiBroker] Re: AFL Smooth untuk W%R & ADX
Dear All,
Apakah ada yang mau sharing AFL untuk W%R dan ADX yang sudah di-smooth?
Terima kasih.
Salam,
Fauzi C
