Announcement

Collapse
No announcement yet.

2008 Oct: ARSI, The Asymmetrical RSI, by Sylvain Vervoort

Collapse
This topic is closed.
X
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • 2008 Oct: ARSI, The Asymmetrical RSI, by Sylvain Vervoort

    File Name: ARSI.efs

    Description:
    The following study is based on the October 2008 article, ARSI, The Asymmetrical RSI, by Sylvain Vervoort.

    Formula Parameters:
    Period: 14
    Upper Band: 70
    Lower Band: 30
    ARSI Color: Blue
    RSI Color: Red
    Show Parameters: False

    Notes:
    The related article is copyrighted material. If you are not a subscriber of Stocks & Commodities, please visit www.traders.com.

    Download File:
    ARSI.efs



    EFS Code:
    PHP 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:        
        ARSI, The Asymmetrical RSI by Sylvain Vervoort

    Version:            1.0  08/07/2008

    Notes:
        October 2008 issue of Stocks & Commodities Magazine

    Formula Parameters:                     Default:
        Period                               14
        Upper Band                           70
        Lower Band                           30
        ARSI Color                           Blue
        RSI Color                            Red
        Show Parameters                      False
    **********************************/

    var fpArray = new Array();

    function 
    preMain() {
        
    setPriceStudy(false);
        
    setStudyTitle("ARSI ");
        
    setCursorLabelName("ARSI"0);
        
    setCursorLabelName("RSI"1);            

        
    setDefaultBarFgColor(Color.blue0);
        
    setDefaultBarFgColor(Color.red1);    

        
    setPlotType(PLOTTYPE_LINE0); 
        
    setPlotType(PLOTTYPE_LINE1);     

        
    setDefaultBarThickness(10);
        
    setDefaultBarThickness(11);    

        
    askForInput();

        var 
    x=0;
        
    fpArray[x] = new FunctionParameter("Period"FunctionParameter.NUMBER);
        
    with(fpArray[x++]){
            
    setName("Period");
            
    setLowerLimit(1);        
            
    setUpperLimit(100);        
            
    setDefault(14);
        }

        
    fpArray[x] = new FunctionParameter("Color1"FunctionParameter.COLOR);
        
    with(fpArray[x++]){
            
    setName("ARSI Color");
            
    setDefault(Color.blue);
        }    

        
    fpArray[x] = new FunctionParameter("Color2"FunctionParameter.COLOR);
        
    with(fpArray[x++]){
            
    setName("RSI Color");
            
    setDefault(Color.red);
        }    

        
    fpArray[x] = new FunctionParameter("Upper"FunctionParameter.NUMBER);
        
    with(fpArray[x++]){
            
    setName("Upper Band");
            
    setLowerLimit(0);        
            
    setDefault(70);
        }

        
    fpArray[x] = new FunctionParameter("Lower"FunctionParameter.NUMBER);
        
    with(fpArray[x++]){
            
    setName("Lower Band");    
            
    setLowerLimit(0);        
            
    setDefault(30);
        }

        
    fpArray[x] = new FunctionParameter("ShowParam"FunctionParameter.BOOLEAN);
        
    with(fpArray[x++]){
           
    setName("Show Parameters");
           
    setDefault(false);
        }    

    }

    var 
    xSum1 null
    var xSum2 null;
    var 
    xSum3 null;
    var 
    xSum4 null;
    var 
    xRSI  null;
    var 
    bInit false;
    var 
    bVersion null;


    function 
    main(PeriodUpperLowerColor1Color2ShowParam){

        if (
    bVersion == nullbVersion verify();
        if (
    bVersion == false) return;   
        if(
    getCurrentBarCount()<Period) return;

        if(
    bInit==false){
            
    xSum1 efsInternal("Sum",Period);
            
    xSum2 getSeries(xSum1,1); 
            
    xSum3 getSeries(xSum1,2);
            
    xSum4 getSeries(xSum1,3);
            
    xRSI rsi(Period);
            
    addBand(Upper,PS_SOLID,1,Color.grey,"UpperBand");
            
    addBand(Lower,PS_SOLID,1,Color.grey,"LowerBand");
            
    setShowTitleParametersShowParam );
            
    bInit=true;
        }

        var 
    xUpMoveAvg ema((xSum1.getValue(0)*2)-1,xSum3);
        var 
    xDnMoveAvg ema((xSum2.getValue(0)*2)-1,xSum4);
      
        if(
    xUpMoveAvg==null||xDnMoveAvg==null) return;

        var 
    RS xUpMoveAvg.getValue(0)/xDnMoveAvg.getValue(0);
        var 
    nRSI xRSI.getValue(0);
        if(
    nRSI==null) return;

        return new Array (
    100-(100/(1+RS)),nRSI)
    }

    var 
    xMom null;
    var 
    xInit false;

    function 
    Sum(Period){

        if(
    xInit==false){
            
    xMom mom(1);
            
    xInit true;
        }

        var 
    nSum 0;
        for(var 
    0Periodi++){
            if(
    xMom.getValue(-i) >= 0) {
                
    nSum += 1;
            }
        } 
        
        var 
    UpCount nSum;
        var 
    DnCount Period-UpCount;
        var 
    UpMove xMom.getValue(0)>=0?xMom.getValue(0):0;
        var 
    DnMove xMom.getValue(0)<0?Math.abs(xMom.getValue(0)):0;

        return new Array(
    UpCount,DnCount,UpMove,DnMove);
    }


    function 
    verify() {
        var 
    false;
        if (
    getBuildNumber() < 779) {
            
    drawTextAbsolute(535"This study requires version 8.0 or later."
                
    Color.whiteColor.blueText.RELATIVETOBOTTOM|Text.RELATIVETOLEFT|Text.BOLD|Text.LEFT,
                
    null13"error");
            
    drawTextAbsolute(520"Click HERE to [email protected]=http://www.esignal.com/download/default.asp"
                
    Color.whiteColor.blueText.RELATIVETOBOTTOM|Text.RELATIVETOLEFT|Text.BOLD|Text.LEFT,
                
    null13"upgrade");
            return 
    b;
        } else {
            
    true;
        }
        return 
    b;

Working...
X