2004 May: CyberCycle_InvFisherTrans.efs

[eSignal_JasonK]

File Name: CyberCycle_InvFisherTrans.efs


Description:
Based on The Inverse Fisher Transform by John Ehlers. This article appeared in the May 2004 issue of Stock & Commodities.

Formula Parameters:
alpha – 0.07


Notes:
The related article is copyrighted material. If you are not a subscriber of Stocks & Commodities, please visit www.traders.com.
The May 2004 EFS formulas were provided by TS Support.
The current version was modified by eSignal for real time intraday analysis 4/20/2004.

Download File:
Version 1.1
CyberCycle_InvFisherTrans.efs




EFS Code:

// Magazine:    Technical Analysis of Stocks & Commodities, May 2004
// Article:        The Inverse Fisher Transform by John F. Ehlers
// Study:        CYBER CYCLE WITH INVERSE FISHER TRANSFORM
// Provided By:    TS Support, LLC for eSignal

// Version 1.1  4/20/2004       Modified by eSignal for real time analysis


var Smooth = 0;
var Smooth_1 = 0;
var Smooth_2 = 0;
var Cycle = 0;
var Cycle_1 = 0;
var Cycle_2 = 0;

function preMain(){
    setStudyTitle("CYBER CYCLE WITH INVERSE FISHER TRANSFORM");
    setCursorLabelName("Cycle",0);
    setDefaultBarFgColor(Color.green,0);
    setDefaultBarThickness(2);
    //setComputeOnClose();
}

function main(alpha){
    if(alpha == null) alpha = .07;
    var ICycle = 0;
    
    if (getBarState() == BARSTATE_NEWBAR) {
        Smooth_2 = Smooth_1;
        Smooth_1 = Smooth;
        Cycle_2 = Cycle_1;
        Cycle_1 = Cycle;
    }
    
    Smooth = ((high() + low()) / 2 + high(-1) + low(-1) + high(-2) + low(-2) + (high(-3) + low(-3)) / 2 ) / 6;
    Cycle = (1 - .5 * alpha) * (1 - .5 * alpha) * (Smooth - 2 * Smooth_1 + Smooth_2) + 2 * (1 - alpha) * Cycle_1 - (1 - alpha) * (1 - alpha) * Cycle_2;
    if(getCurrentBarIndex() - getOldestBarIndex() < 7)
        Cycle = ((high() + low()) / 2 - high(-1) - low(-1) + high(-2) + low(-2)) / 4;
    ICycle = (Math.exp(2 * Cycle) - 1) / (Math.exp(2 * Cycle) + 1);

    return ICycle;
}