Download Ehlers Adaptive Stochatic Indicator 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 3)

oscillator, amibroker, ehler

Submitted by burgessx over 14 years ago

Submitted by kaiji about 15 years ago

Submitted by rajaswamy over 14 years ago

Submitted by tigernifty over 12 years ago

Submitted by kelvinhand almost 12 years ago

Submitted by hit2010 over 12 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

//SetBarsRequired( 200, 0 );
 
// Ehlers CyberCycle
// Cybernetic Analysis for Stocks and Futures
// Chapter 4, p. 33. Code on p. 38.
// Original code is at:
//http://www.traders.com/Documentation/FEEDbk_docs/Archive/052004/TradersTips/TradersTips.html#amibroker
 
function Fisher(array)
// Figure 1.7 on p. 7
{
  F = array;
  F = .25 * log((1+ array)/(1 - array)) + .5 * Ref(F, -1);
  return F;
};
 
function CyberCycle( array, alpha )
{
  smooth = ( array + 2 * Ref( array, -1 ) + 2 * Ref( array, -2 ) + Ref( array, -3 ) ) / 6;
  // init value
  Cycle = ( array[ 2 ] - 2 * array[ 1 ] + array[ 0 ] )/4;
  for( i = 6; i < BarCount; i++ )
  {
     Cycle[ i ] = ( ( 1 - 0.5 * alpha) ^ 2 ) *
                  ( smooth[ i ] - 2 * smooth[ i - 1 ] + smooth[ i - 2] ) +
                  2 * ( 1 - alpha ) * Cycle[ i - 1 ] -
                  ( ( 1 - alpha) ^ 2 ) * Cycle[ i - 2 ];
  }
 
    MaxCycle = HHV(Cycle, 14);
    MinCycle = LLV(Cycle, 14);
    for (i = 0; i < BarCount; i++) {
        if (MaxCycle[i] != MinCycle[i]) {
            Value1[i] = (Cycle[i]-MinCycle[i])/(MaxCycle[i] - MinCycle[i]);
            Value2[i] = (4*Value1[i] + 3*Value1[i-1] + 2*Value1[i-2] + Value1[i-3])/10;
            Value2[i] = 2*(Value2[i] -.5);
        };
    }
    return Value2;
}
 
// get log price
logprice = ln(Close);
OA1 = (logprice - Ref(logprice, -1))/sqrt(1);
 
// get change in bar and multiply it by the change in square root of time between yesterday AND today
n = 0;
totalprice[0]= 0;
for (i = BarCount-1; i>=1; i--){
    n = n + 1;
    deltaPrice[i] = OA1[i]*(sqrt(n) - sqrt(n-1));
    totalprice[i]  = totalprice[i] + OA1[i]*(sqrt(n));
};
 
Cycle = CyberCycle( (H+L)/2, .07);
Plot( Cycle, "Stoc CyberCycle", colorBlue );
Plot( Ref(Cycle, -1), "Trigger", colorRed);

Stock Portfolio Organizer

WiseTrader Toolbox

Ehlers Adaptive Stochatic Indicator for Amibroker (AFL)
kaiji
about 15 years ago
Amibroker (AFL)

Screenshots

Similar Indicators / Formulas

Indicator / Formula

0 comments

Leave Comment