Intraday Intensity

[eSignal]

File Name: IntradayIntensity.efs

Description:
Intraday Intensity

Formula Parameters:
Length : 20

Notes:
This indicator is created by John Bollinger. It is calculated according to this formula:
IntradayIntensity = SUM{((2 * Close-High-Low)/(High-Low)) * Volume} / SUM{Volume}



Download File:
IntradayIntensity.efs



EFS Code:

/*********************************
Provided By:  
    eSignal (Copyright c eSignal), a division of Interactive Data 
    Corporation. 2008. All rights reserved. This sample eSignal 
    Formula Script (EFS) is for educational purposes only and may be 
    modified and saved under a new file name.  eSignal is not responsible
    for the functionality once modified.  eSignal reserves the right 
    to modify and overwrite this EFS file with each new release.

Description:        
    Intraday Intensity 
    
Version:            1.0  01/19/2009

Formula Parameters:                     Default:
    Length                              20

Notes:
    This indicator is created by John Bollinger. It is calculated according to this formula:
    IntradayIntensity = SUM{((2 * Close-High-Low)/(High-Low)) * Volume} / SUM{Volume}

**********************************/

var fpArray = new Array();
var bInit = false;

function preMain() {
    setStudyTitle("Intraday Intensity");
    setCursorLabelName("Intraday Intensity", 0);
    setDefaultBarFgColor(Color.blue, 0);
    addBand(0, PS_SOLID, 1, Color.grey);

    var x=0;
    fpArray[x] = new FunctionParameter("Length", FunctionParameter.NUMBER);
    with(fpArray[x++]){
        setLowerLimit(1);        
        setDefault(20);
    }
}

var xIntensity = null;

function main(Length) {
var nState = getBarState();
    if (nState == BARSTATE_ALLBARS) {
        if (Length == null) Length = 20;        
    }
    if ( bInit == false ) { 
        xIntensity = efsInternal("Calc_Value", Length);
        bInit = true; 
    } 
    if (getCurrentBarCount() < Length) return;
    return xIntensity.getValue(0);
}

function Calc_Value(nLength) {
var nRes = 0;
var i = 0;
var    xSum = 0;
var    ySum = 0;
    for(i = -nLength; i <= 0; i++){
        if(high(i) - low(i) != 0)
            xSum += (2 * close(i) - high(i) - low(i)) *  volume(i) / (high(i) - low(i));
        ySum += volume(i);
    }
    nRes = xSum / ySum;
    if (nRes == null) nRes = 1;
    return nRes;
}