Download Divergences 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

3 / 5 (Votes 6)

amibroker, exploration

Submitted by indraji2001 over 10 years ago

Submitted by xel over 12 years ago

Submitted by coolpace over 14 years ago

Submitted by kaiji over 15 years ago

Submitted by morgen over 14 years ago

Submitted by ngocleasing over 14 years ago

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

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

/*BULLISH STOCHASTIC DIVERGENCE, DD==30*/
ST33=STOCHD();
TR1=LLVBARS(ST33,4);
TR2=IIF(ST33<30 AND TR1>0 AND REF(TR1,-1)==0,ref(ST33,-1),0);
TRC=IIF(TR2>0,C,0);
vs=valuewhen(tr2, ref(st33,-1), 1);
dvs=vs-ref(vs,-1);
vc=valuewhen(trc, LLV(c,3), 1);
dvc=vc-ref(vc,-1);
diver=iif(dvs>0 and dvc<0,30,0);
DAS=BARSSINCE(REF(TR2,-1)>0);
DD=IIF(DAS<20 AND C>=REF(C,-1),DIVER,0);
GRAPH0=DD;
GRAPH0BARCOLOR=4;
STBULL=DD==30;
 
/*BULLISH RELATIVE SLOPE DIVERGENCE, DDDR==20*/
D1=10;
KUP=EMA((H+L+C)/3,D1)+EMA(H-L,D1);
KDOWN=EMA((H+L+C)/3,D1)-EMA(H-L,D1);
K=EMA((H+L+C)/3,D1);
S1=2*(K-REF(K,-1))/(K+REF(K,-1));
T33=10+100*EMA(S1,3);
R1=LLVBARS(T33,4);
R2=IIF(T33<9 AND R1>0 AND REF(R1,-1)==0,ref(T33,-1),0);
RC=IIF(R2>0,C,0);
vsR=valuewhen(r2, ref(t33,-1), 1);
dvsR=vsR-ref(vsR,-1);
vcR=valuewhen(rc, LLV(C,3), 1);
dvcR=vcR-ref(vcR,-1);
diverR=iif(dvsR>0 and dvcR<0,20,0);
DASR=BARSSINCE(REF(R2,-1)>0);
dddR=IIF(DASR<20 ,DIVERR,0);
GRAPH1=DDDR;
GRAPH1BARCOLOR=7;
RSBULL=DDDR==20;
 
/*BEARISH STOCHASTIC DIVERGENCE, BDDD==90*/
 
BTR1=HHVBARS(ST33,4);
BTR2=IIF(ST33>70 AND BTR1>0 AND REF(BTR1,-1)==0,ref(ST33,-1),0);
BTRC=IIF(BTR2>0,C,0);
Bvs=valuewhen(Btr2, ref(st33,-1), 1);
Bdvs=Bvs-ref(Bvs,-1);
Bvc=valuewhen(Btrc, HHV(H,3), 1);
Bdvc=Bvc-ref(Bvc,-1);
Bdiver=iif(Bdvs<0 and Bdvc>0,90,0);
BDAS=BARSSINCE(REF(BTR2,-1)>0);
Bddd=IIF(BDAS<20 AND C<=REF(C,-1),BDIVER,0);
GRAPH2=BDDD;
GRAPH2BARCOLOR=4;
STBEAR=BDDD==90;
 
/*BEARISH RELATIVE SLOPE DIVERGENCE, EDDDR==80*/
 
ER1=HHVBARS(T33,4);
ER2=IIF(T33>11 AND ER1>0 AND REF(ER1,-1)==0,ref(T33,-1),0);
ERC=IIF(ER2>0,C,0);
EvsR=valuewhen(Er2, ref(t33,-1), 1);
EdvsR=EvsR-ref(EvsR,-1);
EvcR=valuewhen(Erc, HHV(H,3), 1);
EdvcR=EvcR-ref(EvcR,-1);
EdiverR=iif(EdvsR<0 and EdvcR>0,80,0);
EDASR=BARSSINCE(REF(ER2,-1)>0);
EdddR=IIF(EDASR<20,EDIVERR,0);
GRAPH3=EDDDR;
GRAPH3STYLE=2;
GRAPH3BARCOLOR=7;
GRAPH4=45;
GRAPH4STYLE=8;
RSBEAR=EDDDR==80;
 
FILTER= STBULL OR STBEAR OR RSBULL OR RSBEAR;
NUMCOLUMNS=4;
COLUMN0=RSBEAR;
COLUMN0NAME="RS BEAR";
COLUMN1=STBEAR;
COLUMN1NAME="ST BEAR";
COLUMN2=RSBULL;
COLUMN2NAME="RS BULL";
COLUMN3= STBULL;
COLUMN3NAME="ST BULL";
COLUMN0FORMAT=1.0;COLUMN1FORMAT=1.0;
COLUMN2FORMAT=1.0;COLUMN3FORMAT=1.0;
COVER=RSBULL;
BUY=STBULL;
SHORT=RSBEAR;
SELL=STBEAR;
/*The only purpose of BUY, SELL, SHORT and COVER is
to see the indicating arrows and are not suggestions to
take some action. */

Stock Portfolio Organizer

WiseTrader Toolbox

Divergences for Amibroker (AFL)
ck1250
about 13 years ago
Amibroker (AFL)

Similar Indicators / Formulas

Indicator / Formula

0 comments

Leave Comment