Stock Portfolio Organizer

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

WiseTrader Toolbox

#1 Selling Amibroker Plugin featuring:

Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
Find Out More Here

Cup Formation for Amibroker (AFL)
vargasc1
about 14 years ago
Amibroker (AFL)

Rating:
2 / 5 (Votes 4)
Tags:
amibroker, pattern

Early detection of cup formations. Published in April edition of Stocks and Commodities

Similar Indicators / Formulas

Wolf Wave AFL
Submitted by shekhar373 over 13 years ago
Head & Shoulders Pattern
Submitted by anandnst almost 14 years ago
Volume Trade with Candle reader
Submitted by Divyesh almost 12 years ago
Modified Head & Shoulder Pattern
Submitted by huynhbao2 about 14 years ago
Andrews Pitchfork v3.3
Submitted by kaiji over 15 years ago
Schiff Lines
Submitted by kaiji about 15 years ago

Indicator / Formula

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
Parameter = Param( "parameter", 1.5, 1, 10, 0.1 );
 
FilC = ( log( C ) );
 
eps = 0.0000000001;
// basic Definitions
semicupperiod = SelectedValue( Max( BarsSince( C >= SelectedValue( C * parameter ) ), 1 ) ) + 1;
 
Ptop = SelectedValue( HHV( FilC, Semicupperiod ) );
Pbot = SelectedValue( LLV( FilC, Semicupperiod ) );
boxheight = SelectedValue( abs( Ptop - Pbot ) / 5 );
boxlength = SelectedValue( Max( int( semicupperiod / 5 ), 1 ) );
 
//   Grid Nodes
bar = Cum( 1 );
b0 = SelectedValue( bar - semicupperiod + 1 );
b5 = SelectedValue( bar );
b1 = SelectedValue( Min( b0 + boxlength, b5 ) );
b2 = SelectedValue( Min( b1 + boxlength, b5 ) );
b3 = SelectedValue( Min( b2 + boxlength, b5 ) );
b4 = SelectedValue( Min( b3 + boxlength, b5 ) );
L2 = Pbot + 2 * boxheight;
L3 = Pbot + 3 * boxheight;
 
// Directional Strength
Diff = FilC - Ref( FilC, -1 );
UpSum2 = Sum( Max( Diff, 0 ), 2 * boxlength );
DnSum2 = Sum( Max( -Diff, 0 ), 2 * boxlength );
DSX1 = abs( UpSum2 - DnSum2 ) / ( eps + UpSum2 + DnSum2 ) * 100;
UpSum3 = Sum( Max( Diff, 0 ), 3 * boxlength );
DnSum3 = Sum( Max( -Diff, 0 ), 3 * boxlength );
DSX2 = abs( UpSum3 - DnSum3 ) / ( eps + UpSum3 + DnSum3 ) * 100;
 
// Coditions
isSemicup = ( semicupperiod >= 20 ) AND
            ( Ref( DSX1, -( b5 - b2 ) ) > 25 ) AND
            ( DSX2 < 25 ) AND
            ( Cum( IIf( bar >= b2, FilC > L3, 0 ) ) == 0 ) AND
            ( Cum( IIf( bar >= b4, FilC > L2, 0 ) ) == 0 );
 
LIS = SelectedValue( isSemicup );
Lastbar = SelectedValue( Cum( bar ) );
 
 
Line = LIS * ( ValueWhen( LIS * bar == b0, 1 ) *
       ( ( exp( Ptop ) - exp( Pbot ) ) /
         ( bar - b0 + 2 ) * 2 + 0.98 * exp( Pbot ) ) );
 
if( LIS ) Plot( Line , "IsSemiCupPlot", colorRed, styleThick );
Plot( C, Date() + " Close", ParamColor("Color", colorBlack ), styleBar );
 
Filter = isSemicup;
AddColumn( semicupperiod, "Semicup period", 1.0 );

0 comments

Leave Comment

Please login here to leave a comment.

Back