Download Auto Pattern Finder 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 5)

amibroker, pattern

Submitted by shekhar373 over 13 years ago

Submitted by anandnst over 13 years ago

Submitted by Divyesh almost 12 years ago

Submitted by huynhbao2 almost 14 years ago

Submitted by vargasc1 about 14 years ago

Submitted by kaiji about 15 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

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

_SECTION_BEGIN("Pattern_Recognition_with_Shading");
//Pattern Recognition graph with shading
 
/*TRENDLINES BREAKOUT*/
 
x = Cum(1);
 
per = Param("Percent",3,1,5,1);
 
s1=L;
 
s11=H;
 
pS = TroughBars( s1, per, 1 ) == 0;
 
endt= LastValue(ValueWhen( pS, x, 1 ));
 
startt=LastValue(ValueWhen( pS, x, 2 ));
 
endS = LastValue(ValueWhen( pS, s1, 1 ) );
 
startS = LastValue( ValueWhen( pS, s1, 2 ));
 
dtS =endt-startt;
 
aS = (endS-startS)/dtS;
 
bS = endS;
 
trendlineS = aS * ( x -endt ) + bS;
 
pR = PeakBars( s11, per, 1 ) == 0;
 
endt1= LastValue(ValueWhen( pR, x, 1 ));
 
startt1=LastValue(ValueWhen( pR, x, 2 ));
 
endR = LastValue(ValueWhen( pR, s11, 1 ) );
 
startR = LastValue( ValueWhen( pR, s11, 2 ));
 
DTR=ENDT1-STARTT1;
 
aR = (endR-startR)/dtR;
 
bR = endR;
 
trendlineR = aR * ( x -endt1 ) + bR;
 
BEGIN=Min(STARTT,STARTT1);
 
TRS = IIf(x>BEGIN-10,trendlineS,-1e10);
 
TRR = IIf(x>BEGIN-10,trendlineR,-1e10);
 
Condcolor=(Cross(C,trendlineR) AND X>ENDT1) OR (Cross(trendlineS,C) AND
 
X>ENDT);
 
BarColor=IIf(Condcolor,7,1);
 
Plot(C,"Close",BarColor,styleCandle); 
 
Plot(TRS,"Support",colorYellow,styleLine);
 
Plot(TRR,"Resist",colorYellow,styleLine);
 
/////////////////////////////////////
 
// Shading // 
 
////////////////////////////////////
 
fill=Param("style",2,1,2,1);
 
style=IIf(fill==1,styleHistogram,IIf(fill==2,styleArea,Null));
 
x=IIf(trs > trr,trr,trs);
 
Plot(x,"",colorLightGrey,style);
 
Plot(trr,"",colorPink,style);
 
////////////////////////////////////////////
 
// Pattern Recognition in title bar // 
 
///////////////////////////////////////////
 
Lowline=Ends-starts;
 
Highline=endr-startr;
 
Wedge=IIf(Highline <0 AND Lowline > 0,1,0);
 
DecendingTriangle=IIf(Highline < 0 AND Lowline==0,1,0);
 
AscendingTriangle=IIf(Highline==0 AND Lowline > 0,1,0);
 
DownChannel=IIf(Highline<0 AND Lowline<0,1,0);
 
UpChannel=IIf(Highline>0 AND Lowline>0,1,0);
 
BroadeningWedge=IIf(Highline > 0 AND Lowline < 0,1,0);
 
///////////////////////////////////
 
// Bullish or Bearish breakout //
 
//////////////////////////////////
 
BullishBreakout=Cross(C,trendlineR);
 
BearishBreakout=Cross(trendlineS,C);
 
Title=Name()+ WriteIf(wedge==1," Wedge","")+WriteIf(DecendingTriangle==1," Decending Triangle","")+WriteIf(AscendingTriangle==1,"Ascending Triangle","")/*+WriteVal(Lowline)*/+WriteIf(DownChannel==1," Downward Sloping Channel","")+WriteIf(UpChannel==1," Upward Sloping Channel","")+WriteIf(broadeningWedge==1," Broadening Wedge","")+"\n"+EncodeColor(colorGreen)+WriteIf(bullishbreakout,"Bullish Breakout",EncodeColor(colorRed)+WriteIf(bearishbreakout,"Bearish Breakout",""))/*+WriteVal(highline)*/; 
 
/////////////////////////////////////
 
// Automatic Analysis //
 
////////////////////////////////////
 
Filter=AscendingTriangle OR DecendingTriangle OR Wedge OR DownChannel OR UpChannel OR BroadeningWedge OR Bullishbreakout OR bearishbreakout;
 
AddTextColumn(WriteIf(bullishbreakout,"bullish Breakout",""),"BullBreak"); 
 
AddTextColumn(WriteIf(bearishBreakout,"Bearish Breakout",""),"BearBreak"); 
 
AddTextColumn(WriteIf(ascendingtriangle,"Ascending Triangle",WriteIf(decendingtriangle,"Decending Triangle",WriteIf(Wedge,"Wedge",WriteIf(DownChannel,"Down Channel",WriteIf(UpChannel,"Up Channel",WriteIf(BroadeningWedge,"Broadening Wedge","")))))),"Pattern");
 
AddColumn(C,"Close");
  
_SECTION_END();

Stock Portfolio Organizer

WiseTrader Toolbox

Auto Pattern Finder for Amibroker (AFL)
sunil.mact
over 12 years ago
Amibroker (AFL)

Similar Indicators / Formulas

Indicator / Formula

0 comments

Leave Comment