Download KADX by Karthimarar For Amibroker (AFL)

The ultimate porfolio management solution.

Shares, Margin, CFD's, Futures and Forex

EOD and Realtime

Dividends and Trust Distributions

And Much More ....

For Portfolio Manager Click Here

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators

Advanced Pattern Exploration

Neural Networks

And Much More ....

Find Out More Here

4 / 5 (Votes 2)

Indicator

Copy & Paste Friendly

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

_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) ;

Stock Portfolio Organizer

WiseTrader Toolbox

KADX by Karthimarar for Amibroker (AFL)
kaiji
about 15 years ago
Amibroker (AFL)

Screenshots

Indicator / Formula

0 comments

Leave Comment