Stochastic Momentum Index (SMI) for eSignal (EFS)

/*********************************************************
Alexis C. Montenegro © December 2004                      
Use and/or modify this code freely. If you redistribute it
please include this and/or any other comment blocks and a 
description of any changes you make.                      
**********************************************************/

var fpArray = new Array();

function preMain() {
    setPriceStudy(false);
    setStudyTitle("Stoch MOM");
    setCursorLabelName("%K",0);
    setCursorLabelName("%D",1);
    setDefaultBarFgColor(Color.blue, 0);
    setDefaultBarFgColor(Color.red, 1);
    setDefaultBarThickness(1,0);
    setDefaultBarThickness(1,1);
    var x=0;
    fpArray[x] = new FunctionParameter("KLength", FunctionParameter.NUMBER);
	with(fpArray[x++]){
        setName("%K");
        setLowerLimit(1);		
        setDefault(14);
    }
	fpArray[x] = new FunctionParameter("KSmoothing", FunctionParameter.NUMBER);
	with(fpArray[x++]){
        setName("%KSmooth");
        setLowerLimit(1);		
        setDefault(1);
    }
    fpArray[x] = new FunctionParameter("DLength", FunctionParameter.NUMBER);
	with(fpArray[x++]){
        setName("%D");
        setLowerLimit(1);		
        setDefault(3);
    }
    fpArray[x] = new FunctionParameter("MOMLength", FunctionParameter.NUMBER);
	with(fpArray[x++]){
        setLowerLimit(1);		
        setDefault(10);
    }
	fpArray[x] = new FunctionParameter("MOMSource", FunctionParameter.STRING);
	with(fpArray[x++]){
        addOption("open"); 
        addOption("high");
        addOption("low");
        addOption("close");
        addOption("hl2");
        addOption("hlc3");
        addOption("ohlc4"); 
        setDefault("close"); 
    }
    fpArray[x] = new FunctionParameter("Symbol", FunctionParameter.STRING);
    with(fpArray[x++]){
        setDefault();
	}
	fpArray[x] = new FunctionParameter("Interval", FunctionParameter.STRING);
	with(fpArray[x++]){
        setDefault();
    }
    fpArray[x] = new FunctionParameter("Upper", FunctionParameter.NUMBER);
	with(fpArray[x++]){
        setLowerLimit(0);
        setDefault(80); 
    }
	fpArray[x] = new FunctionParameter("Lower", FunctionParameter.NUMBER);
	with(fpArray[x++]){
        setLowerLimit(0);
        setDefault(20); 
	}
	fpArray[x] = new FunctionParameter("LineColor1", FunctionParameter.COLOR);
	with(fpArray[x++]){
        setName("Color1");
        setDefault(Color.blue);
    }
    fpArray[x] = new FunctionParameter("LineColor2", FunctionParameter.COLOR);
	with(fpArray[x++]){
        setName("Color2");
        setDefault(Color.red);
    }
    fpArray[x] = new FunctionParameter("Params", FunctionParameter.BOOLEAN);
	with(fpArray[x++]){
        setName("Show Parameters");
        setDefault(false);
    }
}

var bInit = false;
var xStochK = null;
var xStochD = null;

function main(KLength,KSmoothing,DLength,MOMLength,MOMSource,Symbol,Interval,Upper,Lower,LineColor1,LineColor2,Params) {
    if(bInit == false){
        if(Symbol == null) Symbol = getSymbol();
        if(Interval == null) Interval = getInterval();
        var vSymbol = Symbol+","+Interval;
        xStochK = getSeries(stochK(KLength,KSmoothing,DLength,mom(MOMLength,eval(MOMSource)(sym(vSymbol)))));
        xStochD = getSeries(stochD(KLength,KSmoothing,DLength,mom(MOMLength,eval(MOMSource)(sym(vSymbol)))));   
        setDefaultBarFgColor(LineColor1,0);
        setDefaultBarFgColor(LineColor2,1);
        addBand( Upper, PS_SOLID, 1, Color.black,"Upper");
        addBand( Lower, PS_SOLID, 1, Color.black,"Lower");
        setShowTitleParameters(eval(Params));
        bInit = true;
    }
    return new Array (xStochK,xStochD);
}