Request Information
From Advertisers
|
Home | S&C Magazine | Working Money | Traders' Resource | Message-Boards | Store
October 2008
TRADERS' TIPS
Here is this month's selection of Traders' Tips, contributed by various
developers of technical analysis software to help readers more easily implement
some of the strategies presented in this and other issues.
You can copy these formulas and programs for easy use in your spreadsheet
or analysis software. Simply "select" the desired text by highlighting
as you would in any word processing program, then use your standard key
command for copy or choose "copy" from the browser menu. The copied text
can then be "pasted" into any open spreadsheet or other software by selecting
an insertion point and executing a paste command. By toggling back and
forth between an application window and the open Web page, data can be
transferred with ease.
This month's tips include formulas and programs for:
 METASTOCK:
ASYMMETRICAL RSI (ARSI)
TRADESTATION:
ASYMMETRICAL RSI (ARSI)
ESIGNAL:
ASYMMETRICAL RSI (ARSI)
WEALTH-LAB:
ASYMMETRICAL RSI (ARSI)
AMIBROKER:
ASYMMETRICAL RSI (ARSI)
NEUROSHELL
TRADER: ASYMMETRICAL RSI (ARSI)
TD
AMERITRADE'S STRATEGYDESK: ASYMMETRICAL RSI (ARSI)
WORDEN
BROTHERS BLOCKS: ASYMMETRICAL RSI (ARSI)
AIQ:
ASYMMETRICAL RSI (ARSI)
TRADERSSTUDIO:
ASYMMETRICAL RSI (ARSI)
NEOTICKER:
ASYMMETRICAL RSI (ARSI)
STRATASEARCH:
ASYMMETRICAL RSI (ARSI)
ASPEN
GRAPHICS: ASYMMETRICAL RSI (ARSI)
OMNITRADER:
ASYMMETRICAL RSI (ARSI)
NINJATRADER:
ASYMMETRICAL RSI (ARSI)
METATRADER
4: ASYMMETRICAL RSI (ARSI)
VT
TRADER: ASYMMETRICAL RSI (ARSI)
or return to October 2008 Contents
METASTOCK: ASYMMETRICAL RSI (ARSI)
Code for the ARSI indicator in MetaStock is already provided in Sylvain
Vervoort's article in this issue, "ARSI, The Asymmetrical RSI."
Subscribers may view the code by logging in to the Subscribers' Area.
Please clicking here
to log in.
GO BACK
TRADESTATION: ASYMMETRICAL RSI (ARSI)
Sylvain Vervoort's article in this issue, "ARSI, The Asymmetrical RSI,"
describes a modification of J. Welles Wilder's RSI. Unlike the original
RSI, which uses a fixed smoothing factor, Vervoort uses asymmetrical averaging
periods to smooth the "up closing" and "down closing" price differentials.
The following indicator code reproduces these ARSI calculations.
To accommodate the asymmetrical averaging, the code dynamically changes
the smoothing lengths of the exponential averages involved. The original
EasyLanguage XAverage function requires a fixed smoothing length, so exponential
average calculations with dynamic smoothing lengths were added to the code.
See Figure 1 for an example.
FIGURE 1: TRADESTATION, ARSI. In this sample TradeStation
chart, the ARSI (red line) is compared to the RSI (gray line) on a daily
chart of Hewlett-Packard stock (HPQ).
The article describes ways to identify divergences with the ARSI. For EasyLanguage
code to test the ARSI as a divergence indicator, see our February 2008
Traders' Tip.
To download the EasyLanguage code for this study, go to the TradeStation
and EasyLanguage Support Forum (https://www.tradestation.com/Discussions/forum.aspx?Forum_ID
=213). Search for the file "Arsi.Eld."
Indicator: ARSI Indicator
inputs: Price( Close ), Length( 14 ) ;
variables: ARSIValue( 0 ) ;
ARSIValue = ARSI( Price, Length ) ;
Plot1( ARSIValue, "ARSI" ) ;
Function: ARSI
inputs:
Price( numericseries ),
Length( numericsimple ) ; { this input presumed to
be a constant and >= 1 }
variables:
ROCValue( 0 ),
UpBarMove( 0 ),
DnBarMove( 0 ),
UpCount( 0 ),
DnCount( 0 ),
UpMove( 0 ),
DnMove( 0 ),
RS( 0 ),
UpExpAverage( 0 ),
DnExpAverage( 0 ) ;
if Price >= Price[1] then
begin
ROCValue = 1 ;
UpBarMove = Price - Price[1] ;
DnBarMove = 0 ;
end
else
begin
UpBarMove = 0 ;
DnBarMove = Price[1] - Price ;
ROCValue = 0 ;
end ;
UpCount = Summation( ROCValue, Length ) ;
DnCount = Length - UpCount ;
if CurrentBar = 1 then
UpMove = UpBarMove
else if UpCount > 0 then
UpMove = UpMove[1] + 2 / ( ( 2 * UpCount - 1 ) + 1 )
* ( UpBarMove - UpMove[1] ) ;
if CurrentBar = 1 then
DnMove = DnBarMove
else if DnCount > 0 then
DnMove = DnMove[1] + 2 / ( ( 2 * DnCount - 1 ) + 1 )
* ( DnBarMove - DnMove[1] ) ;
if DnMove = 0 then
ARSI = -1
else
ARSI = 100 - ( 100 / ( 1 + ( UpMove / DnMove ) ) ) ;
This article is for informational purposes. No type of trading or
investment recommendation, advice, or strategy is being made, given, or
in any manner provided by TradeStation Securities or its affiliates.
--Mark Mills
TradeStation Securities, Inc.
A subsidiary of TradeStation Group, Inc.
www.TradeStation.com
GO BACK
ESIGNAL: ASYMMETRICAL RSI (ARSI)
For this month's Traders' Tip, we've provided the eSignal formula, Arsi.efs,
based on the code from Sylvain Vervoort's article in this issue, "ARSI,
The Asymmetrical RSI."
The study contains formula parameters that may be configured through
the Edit Studies option to set the period length, upper band, lower band,
and colors of both the RSI and ARSI.
A sample chart is shown in Figure 2.
FIGURE 2: eSIGNAL, ARSI. This sample eSignal chart shows
the ARSI indicator on a daily chart of GM.
To discuss this study or download a complete copy of the formula code,
please visit the EFS Library Discussion Board forum under the Forums link
at www.esignalcentral.com or visit our EFS KnowledgeBase at www.esignalcentral.com/support/kb/efs/.
The eSignal formula scripts (EFS) are also available for copying and pasting
from the STOCKS & COMMODITIES website at Traders.com.
/*********************************
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.blue, 0);
setDefaultBarFgColor(Color.red, 1);
setPlotType(PLOTTYPE_LINE, 0);
setPlotType(PLOTTYPE_LINE, 1);
setDefaultBarThickness(1, 0);
setDefaultBarThickness(1, 1);
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(Period, Upper, Lower, Color1, Color2, ShowParam){
if (bVersion == null) bVersion = 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");
setShowTitleParameters( ShowParam );
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 i = 0; i < Period; i++){
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 b = false;
if (getBuildNumber() < 779) {
drawTextAbsolute(5, 35, "This study requires version 8.0 or later.",
Color.white, Color.blue, Text.RELATIVETOBOTTOM|Text.RELATIVETOLEFT|Text.BOLD|Text.LEFT,
null, 13, "error");
drawTextAbsolute(5, 20, "Click HERE to upgrade.@URL=http://www.esignal.com/download/default.asp",
Color.white, Color.blue, Text.RELATIVETOBOTTOM|Text.RELATIVETOLEFT|Text.BOLD|Text.LEFT,
null, 13, "upgrade");
return b;
} else {
b = true;
}
return b;
}
--Jason Keck
eSignal, a division of Interactive Data Corp.
800 815-8256, www.esignalcentral.com
GO BACK
WEALTH-LAB: ASYMMETRICAL RSI (ARSI)
Out of possible ways of detecting divergences, in some of our past Traders'
Tips contributions we have already presented two. One sophisticated technique
that we presented in our February 2008 tip based on Sylvain Vervoort's
February 2008 STOCKS & COMMODITIES article, "Trading Medium-Term Divergences,"
detects and highlights divergences by any indicator. Since it relies on
finding peaks and troughs, price must retrace by some amount before a peak/trough
occurs. Another approach, which we presented in our July 2008 tip based
on "Leader Of The MACD" by Giorgos Siligardos, is simplistic, identifying
a divergence between price and indicator when it fails to confirm a price
extreme (for example, the highest high). Relying on price action makes
it act a tad quicker.
The system we're presenting here based on Sylvain Vervoort's article
in this issue, "ARSI, The Asymmetrical RSI," catches bullish divergences
of the asymmetrical RSI (ARSI), with price based on the second approach.
As seen in Figure 3, two potentially profitable opportunities could be
taken as a result of timely signaling from the 14-period ARSI, which in
its turn seems to be very responsive -- as responsive as the half-period
RSI.
FIGURE 3: WEALTH-LAB, ARSI. As an illustration of the ARSI
technique on a long trade in the OIH ETF, the ARSI turns out to signal
two timely bullish divergence trades.
Readers might like to explore the ARSI crossovers and crossunders, because
the threshold levels are reached more timely than with the classic RSI.
The strategy exits after 20 bars neutrally. It offers room for improvement;
however, a quick test over 1,000 bars of daily data on a diversified portfolio
containing 16 most liquid ETFs turned out profitable.
You will find ARSI in your Wealth-Lab installation, organized under
the "Tasc Magazine Indicators" group. This allows you to quickly use it
in rule-based strategies as an entry or exit condition without having to
program any code (Figure 4).
FIGURE 4: WEALTH-LAB, PROFITABILITY. A chart that combines
the portfolio equity curve with the drawdown chart indicates overall profitability
of the approach.
WealthScript strategy code:
using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using WealthLab;
using WealthLab.Indicators;
using TASCIndicators;
namespace WealthLab.Strategies
{
/*
ARSI divergence:
Price sets a lowest low but the indicator fails to confirm the new low and turns up
*/
public class ARSI_Divergence : WealthScript
{
private StrategyParameter paramHighest;
private StrategyParameter paramPeriod;
private StrategyParameter paramExitDays;
public ARSI_Divergence()
{
paramPeriod = CreateParameter("ARSI period", 14, 1, 100, 1);
paramHighest = CreateParameter("Highest high of", 20, 5, 50, 1);
paramExitDays = CreateParameter("Exit after", 20, 1, 50, 1);
}
protected override void Execute()
{
bool trough = false; int troughBar = -1;
int low = paramHighest.ValueInt;
int period = paramPeriod.ValueInt;
int days = paramExitDays.ValueInt;
ARSI arsi = ARSI.Series( Close, period );
Lowest indicatorLowest = Lowest.Series( arsi, low );
Lowest hLow = Lowest.Series( Low, low );
HideVolume(); LineStyle solid = LineStyle.Solid;
ChartPane arsiPane = CreatePane( 50, false, true );
PlotSeries( arsiPane, arsi, Color.Green, solid, 2 );
PlotSeries( arsiPane, RSI.Series( Close, period ), Color.Red, solid, 1 );
for(int bar = 80; bar < Bars.Count; bar++)
{
if (!IsLastPositionActive)
{
/* 1st trough: both price and indicator */
if( trough == false )
{
if( ( Low[bar-1] == Lowest.Series( Low, low )[bar-1] )
& ( arsi[bar-1] == Lowest.Series( arsi, low )[bar-1] )
& TurnUp( bar, Low ) & TurnUp( bar, arsi ) )
{
trough = true; troughBar = bar-1;
}
}
if( trough == true )
{
if( ( Low[bar] != Lowest.Series( Low, low )[bar] )
& ( arsi[bar] == Lowest.Series( arsi, low )[bar] ) )
trough = false;
}
/* 2nd trough: price low not confirmed by the indicator */
if( trough == true )
{
if( ( Low[bar-1] == Lowest.Series( Low, low )[bar-1] )
& ( Low[bar-1] <= Low[troughBar] )
& ( arsi[bar-1] != Lowest.Series( arsi, low )[bar-1] )
& ( arsi[bar-1] > arsi[troughBar] ) &
TurnUp( bar, Low ) & TurnUp( bar, arsi ) )
{
trough = false;
BuyAtMarket( bar+1 );
/* Highlight divergence */
for (int b = troughBar; b <= bar; b++)
SetPaneBackgroundColor( arsiPane, b,
Color.FromArgb( 30, Color.LightGreen ) );
DrawLine( PricePane, troughBar, Low[troughBar],
bar-1, Low[bar-1], Color.Blue, solid, 2 );
DrawLine( arsiPane, troughBar, arsi[troughBar],
bar-1, arsi[bar-1], Color.Red, solid, 2 );
}
}
} else
{
/* Exit after N days */
Position p = LastPosition;
if ( bar+1 - p.EntryBar >= days )
SellAtMarket( bar+1, p, "Timed" );
}
}
}
}
}
-- Robert Sucher and Eugene
www.wealth-lab.com
GO BACK
AMIBROKER: ASYMMETRICAL RSI (ARSI)
In "ARSI, The Asymmetrical RSI" in this issue, Sylvain Vervoort presents
a modification of the classic RSI formula.
The MetaStock formula given in the article uses the LastValue() function
that looks into the future. Thus, in our coding, we decided to present
two versions of the ARSI: one that mimics the original version in the article,
which uses a constant period and SelectedValue() that may look into the
future; and another version that uses variable periods (evaluated on a
bar-by-bar basis) that does not look into the future, making it backtest-safe.
Both versions are included in Listing 1.
In addition, a standard RSI is also plotted with the formula. To use
it, simply enter the code into the Formula Editor, then choose Tools->Apply
Indicator menu from the editor. You can use the parameters window (available
from the right-click menu) to set the period for ARSI.
AmiBroker LISTING 1
// Version 1.
// ARSI formula
// constant period version (looks into the future)
Period = Param("ARSI Period", 14, 1, 100 );
Chg = C - Ref( C, -1 );
UpCount = Sum( Chg >= 0, Period );
DnCount = Period - UpCount;
UpMove = EMA( Max( Chg, 0 ), SelectedValue( UpCount) * 2 - 1 );
DnMove = EMA( Max( -Chg, 0 ), SelectedValue( DnCount ) * 2 - 1 );
RS = UpMove/DnMove;
ARSI = 100-(100/(1+RS));
Plot( ARSI, "ARSI("+Period+")", colorBlue );
// Version 2.
// ARSI formula
// variable period version (backtest-safe)
Period = Param("ARSI Period", 14, 1, 100 );
Chg = C - Ref( C, -1 );
UpCount = Sum( Chg >= 0, Period );
DnCount = Period - UpCount;
UpMove = AMA( Max( Chg, 0 ), 1/UpCount );
DnMove = AMA( Max( -Chg, 0 ), 1/DnCount );
RS = UpMove/DnMove;
ARSI = 100-(100/(1+RS));
Plot( ARSI, "ARSI_V("+Period+")", colorGreen );
Plot( RSI( Period ), "RSI", colorRed );
A sample chart is shown in Figure 5.
FIGURE 5: AMIBROKER, ARSI. Here is a daily chart of HPQ showing the
constant-period ARSI (blue); the variable-period backtest-safe ARSI (green);
and the classic RSI (red).
--Tomasz Janeczko, AmiBroker.com
www.amibroker.com
GO BACK
NEUROSHELL TRADER: ASYMMETRICAL RSI (ARSI)
The asymmetrical RSI indicator as described by Sylvain Vervoort in his
article in this issue, "ARSI, The Asymmetrical RSI," can be easily implemented
in NeuroShell Trader using NeuroShell Trader's ability to program functions
in standard languages such as C, C++, Power Basic, or Delphi. You can recreate
the asymmetrical RSI indicator (Figure 6) by moving the code given in the
article to your preferred compiler and creating the corresponding function.
You can insert the resulting indicator as follows:
1. Select "New Indicator ..." from the Insert menu.
2. Choose the Custom Indicator category.
3. Select the Arsi indicator.
4. Select the Finished button.
FIGURE 6: NEUROSHELL, ARSI. Here is a sample NeuroShell chart demonstrating
the asymmetrical RSI against the traditional RSI.
Users of NeuroShell Trader can go to the STOCKS & COMMODITIES section
of the NeuroShell Trader free technical support website to download a copy
of this or any previous Traders' Tips.
--Marge Sherald, Ward Systems Group, Inc.
301 662-7950, sales@wardsystems.com
www.neuroshell.com
GO BACK
TD AMERITRADE'S STRATEGYDESK: ASYMMETRICAL
RSI (ARSI)
In this issue, Sylvain Vervoort discusses a variation of the RSI in
his article, "ARSI, The Asymmetrical RSI." Here is an interpretation of
the ARSI using TD Ameritrade's StrategyDesk.
In the article, Vervoort modifies J. Welles Wilder's classic RSI to
identify more reliable divergences than those found using the original
RSI. The original RSI looks at momentum to measure the speed at which a
security is changing. The original RSI formula is as follows:
Rsi = 100 - 100/(1+RS)
The RS portion of the equation is calculated by taking the average gain
and dividing it by the average loss based on the RSI period, irrespective
of the number of up or down bars in the period. The author suggests that
it is more logical to use the number of up bars for averaging the up closing
and the number of down bars for averaging the down closing for the chosen
RSI period, thus giving you the ARSI, or asymmetrical RSI. ARSI incorporates
Wilder's smoothing method of two times the up/down price counter minus
1. The advantage of ARSI is that it can identify entry and exit points
quicker than RSI. The disadvantage is that it has a higher probability
of giving false entry and exit points.
To recreate this as a custom chart indicator in StrategyDesk, assuming
an ARSI period of 14, use the following formula:
ARSI:
100 - (100 / (1 +
(((MomentumROC[Momentum,Close,1,0,D] >= 0) * MomentumROC[Momentum,Close,1,0,D] +
(MomentumROC[Momentum,Close,1,0,D,1] >= 0) * MomentumROC[Momentum,Close,1,0,D,1] +
(MomentumROC[Momentum,Close,1,0,D,2] >= 0) * MomentumROC[Momentum,Close,1,0,D,2] +
(MomentumROC[Momentum,Close,1,0,D,3] >= 0) * MomentumROC[Momentum,Close,1,0,D,3] +
(MomentumROC[Momentum,Close,1,0,D,4] >= 0) * MomentumROC[Momentum,Close,1,0,D,4] +
(MomentumROC[Momentum,Close,1,0,D,5] >= 0) * MomentumROC[Momentum,Close,1,0,D,5] +
(MomentumROC[Momentum,Close,1,0,D,6] >= 0) * MomentumROC[Momentum,Close,1,0,D,6] +
(MomentumROC[Momentum,Close,1,0,D,7] >= 0) * MomentumROC[Momentum,Close,1,0,D,7] +
(MomentumROC[Momentum,Close,1,0,D,8] >= 0) * MomentumROC[Momentum,Close,1,0,D,8] +
(MomentumROC[Momentum,Close,1,0,D,9] >= 0) * MomentumROC[Momentum,Close,1,0,D,9] +
(MomentumROC[Momentum,Close,1,0,D,10] >= 0) * MomentumROC[Momentum,Close,1,0,D,10] +
(MomentumROC[Momentum,Close,1,0,D,11] >= 0) * MomentumROC[Momentum,Close,1,0,D,11] +
(MomentumROC[Momentum,Close,1,0,D,12] >= 0) * MomentumROC[Momentum,Close,1,0,D,12] +
(MomentumROC[Momentum,Close,1,0,D,13] >= 0) * MomentumROC[Momentum,Close,1,0,D,13]) /
(2 * ((MomentumROC[Momentum,Close,1,0,D] >= 0) + (MomentumROC[Momentum,Close,1,0,D,1] >= 0) +
(MomentumROC[Momentum,Close,1,0,D,2] >= 0) + (MomentumROC[Momentum,Close,1,0,D,3] >= 0) +
(MomentumROC[Momentum,Close,1,0,D,4] >= 0) + (MomentumROC[Momentum,Close,1,0,D,5] >= 0) +
(MomentumROC[Momentum,Close,1,0,D,6] >= 0) + (MomentumROC[Momentum,Close,1,0,D,7] >= 0) +
(MomentumROC[Momentum,Close,1,0,D,8] >= 0) + (MomentumROC[Momentum,Close,1,0,D,9] >= 0) +
(MomentumROC[Momentum,Close,1,0,D,10] >= 0) + (MomentumROC[Momentum,Close,1,0,D,11] >= 0) +
(MomentumROC[Momentum,Close,1,0,D,12] >= 0) + (MomentumROC[Momentum,Close,1,0,D,13] >= 0)) - 1)) /
(-1 * ((MomentumROC[Momentum,Close,1,0,D] < 0) * MomentumROC[Momentum,Close,1,0,D] +
(MomentumROC[Momentum,Close,1,0,D,1] < 0) * MomentumROC[Momentum,Close,1,0,D,1] +
(MomentumROC[Momentum,Close,1,0,D,2] < 0) * MomentumROC[Momentum,Close,1,0,D,2] +
(MomentumROC[Momentum,Close,1,0,D,3] < 0) * MomentumROC[Momentum,Close,1,0,D,3] +
(MomentumROC[Momentum,Close,1,0,D,4] < 0) * MomentumROC[Momentum,Close,1,0,D,4] +
(MomentumROC[Momentum,Close,1,0,D,5] < 0) * MomentumROC[Momentum,Close,1,0,D,5] +
(MomentumROC[Momentum,Close,1,0,D,6] < 0) * MomentumROC[Momentum,Close,1,0,D,6] +
(MomentumROC[Momentum,Close,1,0,D,7] < 0) * MomentumROC[Momentum,Close,1,0,D,7] +
(MomentumROC[Momentum,Close,1,0,D,8] < 0) * MomentumROC[Momentum,Close,1,0,D,8] +
(MomentumROC[Momentum,Close,1,0,D,9] < 0) * MomentumROC[Momentum,Close,1,0,D,9] +
(MomentumROC[Momentum,Close,1,0,D,10] < 0) * MomentumROC[Momentum,Close,1,0,D,10] +
(MomentumROC[Momentum,Close,1,0,D,11] < 0) * MomentumROC[Momentum,Close,1,0,D,11] +
(MomentumROC[Momentum,Close,1,0,D,12] < 0) * MomentumROC[Momentum,Close,1,0,D,12] +
(MomentumROC[Momentum,Close,1,0,D,13] < 0) * MomentumROC[Momentum,Close,1,0,D,13]) /
(2 * ((MomentumROC[Momentum,Close,1,0,D] < 0) + (MomentumROC[Momentum,Close,1,0,D,1] < 0) +
(MomentumROC[Momentum,Close,1,0,D,2] < 0) + (MomentumROC[Momentum,Close,1,0,D,3] < 0) +
(MomentumROC[Momentum,Close,1,0,D,4] < 0) + (MomentumROC[Momentum,Close,1,0,D,5] < 0) +
(MomentumROC[Momentum,Close,1,0,D,6] < 0) + (MomentumROC[Momentum,Close,1,0,D,7] < 0) +
(MomentumROC[Momentum,Close,1,0,D,8] < 0) + (MomentumROC[Momentum,Close,1,0,D,9] < 0) +
(MomentumROC[Momentum,Close,1,0,D,10] < 0) + (MomentumROC[Momentum,Close,1,0,D,11] < 0) +
(MomentumROC[Momentum,Close,1,0,D,12] < 0) + (MomentumROC[Momentum,Close,1,0,D,13] < 0)) - 1))
))
Sylvain Vervoort's formula incorporates an exponential moving average
into the ARSI indicator. However, this indicator is replicated in StrategyDesk
using simple moving averages for the up and down price data.
The overbought and oversold levels from the original RSI indicator can
be used for ARSI. When ARSI crosses 30 in an upward direction, this indicates
a buy signal. When ARSI crosses 70 in a downward direction, this indicates
a sell signal. (See Figure 7.)
FIGURE 7: TD AMERITRADE STRATEGYDESK, ARSI. The price chart
shows the 14-day ARSI indicator (red) and a backtest for ARSI crossing
30 or 70 for WMT since February 2008. In the backtest, ARSI generated a
buy signal on 3/4/08 at a price of $49.87 and a sell signal on 4/9/08 at
a price of $54.14. These buy and sell signals are identified with arrows
on the price chart.
If you have questions about this formula or functionality, please call
TD Ameritrade's StrategyDesk help line at 800 228-8056, free of charge,
or access the Help Center via the StrategyDesk application. StrategyDesk
is a downloadable application free for all TD Ameritrade clients. Regular
commission rates apply.
TD Ameritrade and StrategyDesk do not endorse or recommend any particular
trading strategy.
--Jeff Anderson
TD AMERITRADE Holding Corp.
www.tdameritrade.com
GO BACK
WORDEN BROTHERS BLOCKS: ASYMMETRICAL RSI
(ARSI)
Note: To use the indicators and charts in this Traders' Tip, you will
need the free Blocks software. Go to www.Blocks.com to download the software
and get free US stock charts and scans.
The indicator discussed by Sylvain Vervoort in his article in this issue,
"ARSI, The Asymmetrical RSI," is available in the Blocks indicator library.
To load the indicator, click the Indicators button, click on the "SC Traders
Tips" folder, then click on "ARSI - The Asymmetrical RSI" and drag it onto
the chart.
In Figure 8, ARSI makes a clear break below the 30 level (C), which
creates a negative divergence with price (A). Wilder's RSI (B) remains
relatively flat throughout the same period.
FIGURE 8: BLOCKS, ARSI. This sample chart from Worden Brothers
shows the asymmetrical RSI (cyan) versus the classic RSI (red).
To download the Blocks software and get free US stock charts and scans,
go to www.Blocks.com.
--Patrick Argo and Jake Karlsmark
Worden Brothers, Inc.
GO BACK
AIQ: ASYMMETRICAL RSI (ARSI)
The AIQ code for Sylvain Vervoort's article, "ARSI, The Asymmetrical
RSI," is shown here. Vervoort's version of the indicator, which is a variation
of J. Welles Wilder's relative strength index or RSI, is illustrated using
divergence of price with the ARSI indicator. A system to test the indicator
was suggested but not specifically described by the author. To test the
indicator, I devised a simple trading system based on the author's suggested
divergence. The rules of the system are as follows.
Enter a long position when:
1) Today's low is less than the last pivot low of
10 bar strength, and
2) Today's ARSI value is greater than its value on
the date of the price pivot low of 10 bar strength, and
3) The ARSI has been less than 30 in the last two
bars, and
4) This is the first such signal in the last two
bars.
I ran an EDS test, which shows all signals, using the NASDAQ 100 list
of stocks.
The exit rules for long positions are:
1) If the ARSI is greater than 70, or
2) If the bars in the position are greater than or equal to 3 and the
ARSI is less than 50, or
3) If the bars in the position are greater than or equal to 10.
The short sale rules are the inverse of the long rules and my testing
was symmetrical.
I was curious as to whether the new indicator would outperform the original
Wilder RSI. Vervoort indicates there should be more signals using the ARSI
than from the RSI due to the modified indicator's higher volatility. I
used the same system and parameters as outlined above but substituted the
RSI where the ARSI indicator was used. I ran comparative tests over the
period 10/15/2002 to 7/1/2008, which was a mostly bullish period.
On the long-only test comparison, shown in Figure 9, the ARSI system
is shown in the left two columns compared with the RSI system in the right
two columns. There are almost six times more signals in the ARSI system,
confirming the author's view of the modified indicator. In addition, the
performance of the modified indicator is better than the original RSI version,
with the average profit per trade improving by 2.5 times and the reward-to-risk
ratio improving by 1.2 times. The short-side-only test comparison was run
over a mostly bearish period of 3/1/2000 to 10/15/2002, shown in Figure
10. The other metrics for the ARSI on the short side test are worse than
for the RSI, but the RSI had only 17 trades in the test and this sample
is not large enough to be reliable. A trading system could more easily
be built around the ARSI indicator with divergences than around the RSI.
FIGURE 9: AIQ, LONG SIDE SYSTEM TEST FOR ARSI. Here is a
comparison of the ARSI indicator trading the NASDAQ 100 stocks (long side
only) versus the same system with the RSI replacing the ARSI during a generally
bullish period from 10/15/2002 to 7/1/2008. On most metrics, the ARSI is
superior to the RSI system for the long side.
FIGURE 10: AIQ, SHORT SIDE SYSTEM TEST FOR ARSI. Here is a comparison
of the ARSI indicator trading the NASDAQ 100 stocks (short side only) versus
the same system with the RSI replacing the ARSI during a generally bearish
period from 3/1/2000 to 10/15/2002. Although the metrics appear worse for
the ARSI system on the short side, there are not enough trades for the
RSI system to draw any valid conclusions.
The code can be downloaded from the AIQ website at www.aiqsystems.com or
from www.tradersedgesystems.com/traderstips.htm. It also can be copied
and pasted from the STOCKS & COMMODITIES website at Traders.com.
!! ASYMMETRICAL RSI
! Author: Sylvain Vervoort, TASC October 2008
! Coded by: Richard Denning 08/08/08
! ABBREVIATIONS:
C is [close].
C1 is valresult(C,1).
H is [high].
H1 is valresult(H,1).
L is [low].
L1 is valresult(L,1).
O is [open].
PEP is {position entry price}.
PD is {position days}.
!! RSI WILDER
! To convert Wilder Averaging to Exponential Averaging:
! ExponentialPeriods = 2 * WilderPeriod - 1.
U is C - valresult(C,1).
D is valresult(C,1) - C.
WilderLen is 14.
rsiLen is 2 * WilderLen - 1.
AvgU is ExpAvg(iff(U>0,U,0),rsiLen).
AvgD is ExpAvg(iff(D>=0,D,0),rsiLen).
RSI is 100-(100/(1+(AvgU/AvgD))).
!! ASYMETRICAL RSI
Ucount is countof(U>0,WilderLen).
Dcount is WilderLen - Ucount.
AvgUasym is expavg(iff(U>0,U,0),Ucount*2-1).
AvgDasym is expavg(iff(D>=0,D,0),Dcount*2-1).
ARSI is 100-(100/(1+(AvgUasym/AvgDasym))). ! ARSI
! PIVOT FINDER SETUP INFORMATION:
Define periods 252. !Total look back period
strength is 10. !Number of bars on each side of pivot
OTD is Offsettodate(Month(),Day(),Year()).
LowR is Lowresult(L,(2*strength)+1).
LowM is valresult(L,strength).
LS if LowR = LowM.
HighR is highresult(H,(2*strength)+1).
HighM is valresult(H,strength).
HS if HighR = HighM.
! FIND FIRST PIVOT LOW
LT1 is scanany(LS,periods) then OTD .
LO1 is ^LT1 + Strength.
LO1dte is SetDate(LO1).
LowLO1 is valresult(L,^LO1).
! FIND FIRST PIVOT HIGH
HT1 is scanany(HS,periods,0) then OTD .
HO1 is ^HT1 + Strength.
HO1dte is SetDate(HO1).
HighHO1 is valresult(H,HO1).
LO1spx Is TickerUDF("SPX",LO1).
LO1dteSPX is TickerUDF("SPX",LO1dte).
HO1spx is TickerUDF("SPX",HO1).
HO1dteSPX is TickerUDF("SPX",HO1dte).
LLstr1 is lowresult(L,strength,1).
HHstr1 is highresult(H,strength,1).
! LONG SIDE DIVERGENCE STRATEGY USING ARSI:
! BUY when today's low is lower than the last low pivot of
! X bar strength and the ARSI shows a higher low
! yesterday compared to its value on the low price
! pivot date and ARSI is oversold:
LEdivg if L <= LowLO1
and ARSI > valresult(ARSI,^LO1)
and countof(ARSI < 30,2)>=1.
LEdivg1 if LEdivg and countof(LEdivg,15,1)=1.
LXdivg1 if ARSI > 70 or (PD >=3 and ARSI < 50) or PD >= 10.
! CODE FOR LONG SIDE COMPARATIVE TEST USING RSI:
LEdivgR if L <= LowLO1
and RSI > valresult(RSI,^LO1)
and countof(RSI < 30,2)>=1.
LEdivgR1 if LEdivgR and countof(LEdivgR,15,1)=1.
LXdivgR1 if RSI > 70 or (PD >=3 and RSI < 50) or PD >= 10.
! SHORT SIDE DIVERGENCE STRATEGY USING ARSI:
! SELL SHORT when today's high is higher than the last high
! pivot of X bar strength and the ARSI shows a lower
! high today compared to its value on the high price
! pivot date and ARSI is overbought:
SEdivg if H >= HighHO1
and valresult(ARSI,^HO1) > ARSI
and ARSI > 70.
SEdivg1 if SEdivg and countof(SEdivg,15,1)=1.
SXdivg1 if ARSI < 30 or (PD >=3 and ARSI > 50) or PD >= 10.
SEdivgR if H >= HighHO1
and valresult(RSI,^HO1) > RSI
and RSI > 70.
SEdivgR1 if SEdivgR and countof(SEdivgR,15,1)=1.
SXdivgR1 if RSI < 30 or (PD >=3 and RSI > 50) or PD >= 10.
--Richard Denning
richard.denning@earthlink.net
GO BACK
TRADERSSTUDIO: ASYMMETRICAL RSI (ARSI)
The TradersStudio code for Sylvain Vervoort's article, "ARSI, The Asymmetrical
RSI," is shown here. Vervoort's version of the indicator, which is a variation
of J. Welles Wilder's relative strength index or RSI, is shown by Vervoort
to be an improvement over the classic ARSI when used to spot divergences.
A system using divergence to test the indicator was suggested but not specifically
described by the author. To test the indicator, I devised a simple trading
system based on Vervoort's suggested divergence. The rules of the system
are as follows.
Enter a long position when:
1) Today's low is less than the last pivot low of
20 bar strength, and
2) Today's ARSI value is greater than its value
on the date of the price pivot low of 20 bar strength, and
3) The ARSI has been less than 30 in the last
two bars, and
4) This is the first such signal in the last
two bars,
5) Enter on a stop next bar at high of the
setup bar.
The exit rules for long positions:
1) If the ARSI is greater than 70, or
2) If a closing basis loss of 3 or more average
true ranges (ATRs) occurs
3) Exit at market at next day's opening price.
The short sale rules are the inverse of the long rules except the exit
parameter for the short sales on the ARSI and RSI was set to 40 rather
than the 30 value that would be used if symmetrical testing had been used.
I ran both session-level tests and trade-plan level tests using three
full-size futures contracts on the stock indexes, Russell 2000 (RL), S&P
Midcap 400 (MD), and the Nasdaq 100 (ND). The trade plan used was one of
the plans that come with the product called "TS_Percentrisk," using 6%
of the account balance to risk on each trade with starting capital of $1,000,000.
The code for this trade plan is not shown since it comes with the software.
The risk was set at three ATRs, the same as the stop-loss level.
In order to determine whether the new indicator would outperform the
original Wilder RSI, I used the same system and parameters, portfolio,
and trade plan as outlined above but substituted the RSI where the ARSI
indicator was used. I ran comparative tests over the period 2/13/1992 to
8/12/2008. A summary of the key metrics that resulted from running the
trade-plan-level tests on both systems using the 6% risk per trade is shown
in the table in Figure 11. The ARSI system is shown in the left column
compared with the RSI system in the right column. Vervoort indicates there
should be more signals using the ARSI versus the RSI due to the modified
indicator's higher volatility, and this was verified by my tests -- there
are almost seven times more signals on the ARSI system. In addition, almost
all of the key metrics were significantly better using the ARSI over the
RSI. A divergence trading system could more easily be built around the
ARSI indicator than around the RSI, as there are more and better signals
using the ARSI.
FIGURE 11: TRADERSSTUDIO, COMPARISON TABLE OF ARSI VS. RSI.
Here is a comparison of the ARSI indicator trading the three full-size
index futures (RL, MD, ND) versus the same system but using the RSI instead
of the ARSI over the period from 2/13/1992 to 8/12/2008. On most metrics,
the ARSI is superior to the RSI system.
The TradersStudio code can be downloaded from the TradersStudio website
at www.TradersStudio.com ->Traders Resources->FreeCode and also from www.TradersEdgeSystems.com/traderstips.htm,
or can be copied and pasted from the STOCKS & COMMODITIES website at
Traders.com.
' ASYMMETRICAL RSI DIVERGENCE SYSTEM FOR TESTING ARSI
' Author: Sylvain Vervoort, TASC October 2008
' Coded by: Richard Denning 08/11/08
Sub ARSItest(aRSILen,pivotStr,longARSIexitLvl, shortARSIexitLvl)
Dim sLowBars, sHighBars, LB As Integer
Dim sHigh, sLow, myATR As Double
Dim myARSI As BarArray
LB = 150 'set bars back to LB + pivotStr + 1
sLow = swingLow(1,L,pivotStr,LB)
sLowBars = swingLowBar(1,L,pivotStr,LB)
sHigh = swingHigh(1,H,pivotStr,LB)
sHighBars = swingHighBar(1,H,pivotStr,LB)
myARSI = ARSI(C,aRSILen)
myATR = Average(TrueRange, LB)
If sLowBars > 0 Then
If L <= sLow And myARSI > myARSI[sLowBars] And myARSI < 30 Then
Buy("LE_divg1",1,H,Stop,Day)
End If
End If
If sHighBars > 0 Then
If H >= sHigh And myARSI < myARSI[sHighBars] And myARSI > 70 Then
Sell("SE_divg1",1,L,Stop,Day)
End If
End If
If myARSI > longARSIexitLvl Then ExitLong("LX_70","",1,0,Market,Day)
If C < EntryPrice - 3 * myATR Then ExitLong("LX_loss","",1,0,Market,Day)
If myARSI < shortARSIexitLvl Then ExitShort("SX_30","",1,0,Market,Day)
If C > EntryPrice + 3 * myATR Then ExitShort("SX_loss","",1,0,Market,Day)
SetTradeRisk(3 * myATR)
End Sub
'------
' ASYMMETRICAL RSI FUNCTION
' Author: Sylvain Vervoort, TASC October 2008
' Coded by: Richard Denning 08/11/08
Function ARSI(price As BarArray, arsiLen As Integer)
Dim upValue, dnValue, upCount, dnCount, avgUp, avgDn As Double
Dim i As Integer
Dim upVals, dnVals As BarArray
For i = 0 To arsiLen - 1
If price[i] >= price[i+1] Then
upCount = upCount + 1
upVals[i] = price[i] - price[i+1]
dnVals[i] = 0
Else
upVals[i] = 0
dnVals[i] = price[i+1] - price[i]
End If
Next
dnCount = arsiLen - upCount
If upCount > 0 Then avgUp = XAverage(upVals,upCount*2-1,0)
if dncount > 0 then avgDn = XAverage(dnVals,dnCount*2-1,0)
If avgDn > 0 Then
ARSI = 100 - (100 / (1 + (avgUp / avgDn)))
Else
ARSI = 0
End If
End Function
'------
' ASYMMETRICAL RSI INDICATOR
' Author: Sylvain Vervoort, TASC October 2008
' Coded by: Richard Denning 08/11/08
Sub ARSI_ind(rsiLen)
Dim myRSI, myARSI As BarArray
myRSI = RSI(C, rsiLen, 0)
myARSI = ARSI(C, rsiLen)
plot1(myRSI)
plot2(myARSI)
plot3(70)
plot4(30)
End Sub
--Richard Denning
richard.denning@earthlink.net
GO BACK
NEOTICKER: ASYMMETRICAL RSI (ARSI)
We can use formula language in NeoTicker to implement the asymmetrical
RSI as presented in Sylvain Vervoort's article in this issue, "ARSI, The
Asymmetrical RSI" (Figure 12).
FIGURE 12: NEOTICKER, ARSI
We named the formula indicator in NeoTicker "asymmetrical RSI" (Listing
1) with one integer parameter for the number of periods that ARSI is based
on. We used a different implementation than is shown in the MetaStock code
given in the article's sidebar; instead of calling external indicators
to calculate the rate of change in price and exponential moving averages,
we use raw calculations within the same indicator to get these results.
Direct calculation methods help improve indicator execution efficiency
and speed.
A downloadable version of ARSI will be available at the NeoTicker blog
site (http://blog.neoticker.com).
LISTING 1
UpBar := data1-data1(1) >= 0;
$upcount := summation(UpBar, param1);
$dncount := param1-$upcount;
$upfactor := 1/($upcount*2-1);
$dnfactor := 1/($dncount*2-1);
Upmove := Upmove*(1-$upfactor)+if(UpBar>0, (data1-data1(1))*$upfactor, 0);
Dnmove := Dnmove*(1-$dnfactor)+if(UpBar=0, absvalue(data1-data1(1))*$dnfactor, 0);
$RS := Upmove/Dnmove;
plot1 := 100-(100/(1+$RS));
--Kenneth Yuen, TickQuest Inc.
www.tickquest.com
GO BACK
STRATASEARCH: ASYMMETRICAL RSI (ARSI)
In "ARSI, The Asymmetrical RSI" in this issue, author Sylvain Vervoort
gives us a clearly defined alternative to the relative strength index.
However, there is still a great deal of flexibility available when implementing
this indicator. For example, to run this indicator in a backtest, we need
to define our own method for measuring the divergences. Moreover, a number
of supporting indicators are also recommended by the author, including
candlestick patterns, Elliott waves, trendlines, and support/resistance,
each of which could be implemented in a variety of ways.
In a quick test using StrataSearch's divergence() formula, the ARSI
shows some potential (Figure 13). Most parameter sets in the test were
significantly profitable, and holding periods and percentage of trades
profitable were both reasonable. If we added the use of supporting indicators,
as the author suggests, this base formula could help create a solid, profitable
system.
FIGURE 13: STRATASEARCH, ASYMMETRICAL RSI. As can be seen
here, there are more price divergences with the ARSI (green) than with
the RSI (yellow).
As with all other Traders' Tips, additional information -- including plug-ins
-- can be found in the Shared Area of the StrataSearch user forum. This
month's plug-in contains a number of prebuilt trading rules that will allow
you to include this indicator in your automated searches. Simply install
the plug-in and let StrataSearch identify the benefits of using this indicator
alongside other trading rules.
//***************************************
// ARSI
//***************************************
Period = parameter("Period");
UpCount = Sum(if(proc(C, 1)>=0, 1, 0), Period);
DnCount = Period-UpCount;
UpDays = LastValue(UpCount)*2-1;
UpMove = Mov(If(proc(C, 1)>=0, proc(C, 1), 0), UpDays, E);
DnDays = LastValue(DnCount)*2-1;
DnMove = Mov(If(proc(C, 1)<0, abs(proc(C, 1)), 0), DnDays, E);
RS = UpMove/DnMove;
ARSI = 100-(100/(1+RS));
--Pete Rast
Avarin Systems, Inc.
www.StrataSearch.com
GO BACK
ASPEN GRAPHICS: ASYMMETRICAL RSI (ARSI)
Here are the formulas needed to reproduce Sylvain Vervoort's asymmetrical
relative strength index (ARSI) study in the Aspen Graphics Workstation
(Figure 14).
FIGURE 14: ASPEN GRAPHICS, ASYMMETRICAL RSI. Here is a demonstration
of the ARSI in the Aspen Graphics workstation.
We begin the ARSI by creating a formula for calculating the rate of change.
This mimics MetaStock's Roc() function, which is used in Vervoort's article.
Aspen RateOfChange() Formula
RateOfChange(series, period = 14) = begin
retval = ( ($1 - $1[period]) / $1[period] ) * 100
retval
end
Next, we create a pair of formulas for tallying the up and down counts.
This is done with the UpCount and DownCount formulas, respectively. We
call RateOfChange() in the UpCount/DownCount formulas to get the number
of periods we need for our averages.
Aspen UpCount() Formula
UpCount(series, period = 14) = begin
retval = 1
cnt = 1
while cnt < period do begin
if RateOfChange($1, 1)[cnt] >= 0 then retval = retval + 1
cnt = cnt + 1
end
retval
end
Aspen DownCount() Formula
DownCount(series, period = 14) = begin
retval = 1
cnt = 1
while cnt < period do begin
if RateOfChange($1, 1)[cnt] < 0 then retval = retval + 1
cnt = cnt + 1
end
retval
end
Finally, we create the ARSI formula. The ARSI formula calculates
the exponential moving averages of each day's rate of change using the
results from the UpCount() and DownCount() formulas as periods. The result
is as follows, which is the ARSI.
Aspen ARSI() Formula
ARSI(series, period = 14) = begin
retval = nonum
roc = RateOfChange($1, 1)
upMove = eavg(if(roc >= 0, roc, 0), UpCount($1, period) * 2 - 1)
dnMove = eavg(if(roc < 0, Abs(roc), 0), DownCount($1, period) * 2 - 1)
rs = upMove/dnMove
retval = 100 - (100 / (1 + rs))
retval
end
These formulas and a complete page suite are available to Aspen
Graphics users at:
http://www.aspenres.com/forums/viewtopic.php?f=3&t=24
For a free trial of Aspen Graphics, please contact our sales department
at sales@aspenres.com, 800 359-1121, or visit our website at http://aspenres.com.
--Jeremiah Adams
Aspen Research Group, Ltd.
support@aspenres.com, 800 359-1121
GO BACK
OMNITRADER: ASYMMETRICAL RSI (ARSI)
For this month's Traders' Tip, we will provide a new indicator based
on Sylvain Vervoort's article in this issue, "ARSI, The Asymmetrical RSI."
The name of the indicator is "Arsi.txt." A sample chart demonstrating it
can be found in Figure 15.
FIGURE 15: OMNITRADER, ASYMMETRICAL RSI. Here is a daily
price chart of the NASDAQ index with ARSI plotted along with the standard
RSI.
To use this indicator, first copy the file "Arsi.txt" to the directory
C:\Program Files\Nirvana\OT2008\VBA\Indicators. Next, open OmniTrader and
click Edit:OmniLanguage. You should see ARSI in the indicators section
of the project pane. Click "compile." Now the code is ready to use.
For more information and complete source code, visit
http://www.omnitrader.com/ProSI.
#Indicator
'**************************************************************
'* Asymmetrical Relative Strength Index (ARSI.txt)
'* by Jeremy Williams August 13, 2008
'*
'* Adapted from Technical Analysis of Stocks & Commodities
'* October 2008
'*
'* Summary:
'* This RSI calculates its relative strength by averaging the total
'* number of up and down bars by their respective counts rather than a
'* fixed period as in the standard RSI
'*
'* Parameters:
'* Periods - Specifies the number of bars to use in the RSI calculation
'**************************************************************
#Param "Periods", 14, 1, 100
Dim fUpBar, fDownBar, fUpCount, fDownCount as Single
Dim fUpMove, fDownMove, fUpAvg, fDownAvg as Single
Dim fARS, fARSI as Single
Dim UpAlpha, DownAlpha As Single
fUpCount = fUpCount[1]
fDownCount = fDownCount[1]
'Set our fixed scaling and labels
SetScales(0, 100)
PlotLabel(70)
PlotLabel(30)
'Calculate the Rate of Change
If C >= C[1] then
fUpMove = C - C[1]
fUpBar = 1
Else
fDownMove = Abs(C - C[1])
fDownBar = 1
End If
'If we do not have enough bars to perform our calculations, initalize our EMAs
If Bar <= 2*Periods+1 Then
fUpAvg = fUpAvg[1]+fUpMove/Periods
fDownAvg = fDownAvg[1]+fDownMove/Periods
'We now have enough bars
Else
'Count the number of up and down bars
fUpCount = Sum(fUpBar, Periods)
fDownCount = Sum(fDownBar, Periods)
'Calculate up and down aplhas for EMA
UpAlpha = 2/(2*fUpCount+2)
DownAlpha = 2/(2*fDownCount+2)
'Calculate EMAs for ROC
fUpAvg = UpAlpha*fUpMove+(1-UpAlpha)*fUpAvg[1]
fDownAvg = DownAlpha*fDownMove+(1-DownAlpha)*fDownAvg[1]
'Calculate asymmetrical relative strength
fARS = fUpAvg/fDownAvg
'Calculate the indicator
fARSI = 100-(100/(1+fARS))
Plot("ARSI", fARSI, Green)
End If
Return fARSI
--Jeremy Williams, Trading Systems Researcher
Nirvana Systems, Inc.
www.omnitrader.com, www.nirvanasystems.com
GO BACK
NINJATRADER: ASYMMETRICAL RSI (ARSI)
The ARSI indicator as discussed by Sylvain Vervoort in his article in
this issue, "ARSI, The Asymmetrical RSI," is available for download at
www.ninjatrader.com/SC/October2008SC.zip.
Once it is downloaded, from within the NinjaTrader Control Center window,
select the menu File > Utilities > Import NinjaScript and select the downloaded
file. These indicators are for NinjaTrader Version 6.5 or greater. See
Figure 16.
FIGURE 16: NINJATRADER, ASYMMETRICAL RSI. Here is a demonstrations
of the ARSI indicator applied to a one-minute chart of the September 2008
S&P 500 emini contract.
You can review the indicator's source code by selecting the menu Tools
> Edit NinjaScript > Indicator from within the NinjaTrader Control Center
window and selecting Arsi.
NinjaScript indicators are compiled DLLs that run native, not interpreted,
which provides you with the highest performance possible.
--Raymond Deux & Ben Nachtrieb
NinjaTrader, LLC
www.ninjatrader.com
GO BACK
METATRADER 4: ASYMMETRICAL RSI (ARSI)
Here is some code for use in MetaTrader 4 to go with the article in
this issue, "ARSI, The Asymmetrical RSI," by Sylvain Vervoort.
//+--------
+
//| TASC102008 - ARSI.mq4 |
//| Copyright © 2008, Mistigri LLC |
//| http://www.mistigrifx.com |
//+--------
+
#property copyright "Copyright © 2008, Mistigri LLC"
#property link "http://www.mistigrifx.com"
#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_buffers 1
#property indicator_color1 DodgerBlue
//---- input parameters
extern int Periods=14;
//---- buffers
double RSIBuffer[];
double PosBuffer[];
double NegBuffer[];
double RocUpBuffer[];
double RocDnBuffer[];
//+--------
+
//| Custom indicator initialization function |
//+--------
+
int init()
{
string short_name;
IndicatorBuffers(5);
SetIndexBuffer(1,PosBuffer);
SetIndexBuffer(2,NegBuffer);
SetIndexBuffer(3,RocUpBuffer);
SetIndexBuffer(4,RocDnBuffer);
//---- indicator line
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,RSIBuffer);
SetIndexDrawBegin(0,Periods);
//---- name for DataWindow and indicator subwindow label
short_name="ARSI("+Periods+")";
IndicatorShortName(short_name);
SetIndexLabel(0,short_name);
//---- Set indicator Levels
SetLevelValue( 0, 30.0);
SetLevelValue( 1, 70.0);
SetLevelStyle( 2, 1, Gray );
//----
return(0);
}
//+--------
+
//| Relative Strength Index |
//+--------
+
int start()
{
int counted_bars=IndicatorCounted();
//----
if(Bars<=Periods) { return(0); }
//---- initial zero
if( counted_bars < 1 )
for(int i=1;i<=Periods;i++) { RSIBuffer[Bars-i] = 0.0; }
//---- Set ROC Arrays
i=Bars-1;
while(i>=0)
{
double rel=Close[i]-Close[i+1];
if( rel >= 0 ) { RocUpBuffer[i] = rel; RocDnBuffer[i] = 0.0; }
else { RocUpBuffer[i] = 0.0; RocDnBuffer[i] = -rel; }
i--;
}
//---- Calculate RSI
i=Bars-Periods-1;
if(counted_bars>=Periods) { i=Bars-counted_bars-1; }
while(i>=0)
{
if(i==Bars-Periods-1)
{
PosBuffer[i]= iMAOnArray( RocUpBuffer, 0, Periods, 0, MODE_SMA, i );
NegBuffer[i]= iMAOnArray( RocDnBuffer, 0, Periods, 0, MODE_SMA, i );
}
else
{
int UpCount = 0; int DnCount = 0;
//---- Calculate Up and Dn counts
for( int j = 0; j < Periods; j++ )
{
if( RocDnBuffer[i+j] != 0.0 ) { DnCount++; } else { UpCount++; }
}
int UpPeriods = ( UpCount*2-1 ); int DnPeriods = ( DnCount*2-1 );
//StandardRSI formula - PosBuffer[i] = (PosBuffer[i+1]*(Periods-1)+RocUpBuffer[i])/Periods;
//ARSI formula / Replace Wilders smoothing by Adaptive EMA
PosBuffer[i] = iMAOnArray( RocUpBuffer, 0, UpPeriods, 0, MODE_EMA, i );
//Standard RSI formula - NegBuffer[i] = (NegBuffer[i+1]*(Periods-1)+RocDnBuffer[i])/Periods;
//ARSI formula / Replace Wilders smoothing by Adaptive EMA
NegBuffer[i] = iMAOnArray( RocDnBuffer, 0, DnPeriods, 0, MODE_EMA, i );
}
if(NegBuffer[i] == 0.0) { RSIBuffer[i] = 0.0; }
else { RSIBuffer[i]=100.0-(100.0/(1+PosBuffer[i]/NegBuffer[i])); }
i--;
}
return(0);
}
//+--------
+
--Patrick S. Nouvion
admin@mistigrifx.com
www.mistigrifx.com
GO BACK
VT TRADER: ASYMMETRICAL RSI (ARSI)
The asymmetrical RSI as described by Sylvain Vervoort in his article
in this issue, "ARSI, The Asymmetrical RSI,"is a modified, less smooth
version of J. Welles Wilder's original RSI formula.
According to Vervoort's article, the ARSI's main advantages over Wilder's
RSI are its ability to enter overbought and oversold territory more frequently
and its ability to identify more reliable price/indicator divergences.
We'll be offering the ARSI indicator for download in our user forums.
The VT Trader code and instructions for recreating the ARSI indicator are
as follows:
The Asymmetrical RSI Indicator
1. Navigator Window>Tools>Indicator Builder>[New] button
2. In the Indicator Bookmark, type the following text for each field:
Name: TASC - 10/2008 - Asymmetrical RSI (ARSI)
Short Name: vt_ARSI
Label Mask: TASC - 10/2008 - Asymmetrical RSI (ARSI) (%Price%,%Period%) | %ARSI%
Placement: New Frame
Inspect Alias: Asymmetrical RSI
3. In the Input Bookmark, create the following variables:
[New] button... Name: Price , Display Name: ARSI Price , Type: price , Default: close
[New] button... Name: Period , Display Name: ARSI Periods , Type: integer, Default: 14
4. In the Output Bookmark, create the following variables:
[New] button...
Var Name: ARSI
Name: (ARSI)
Line Color: dark red
Line Width: slightly thicker
Line Type: solid
5. In the Horizontal Line Bookmark, create the following variables:
[New] button...
Value: +70.0000
Color: red
Width: thin
Type: dashed
[New] button...
Value: +50.0000
Color: gray
Width: thin
Type: dashed
[New] button...
Value: +30.0000
Color: red
Width: thin
Type: dashed
6. In the Formula Bookmark, copy and paste the following formula:
{Provided By: Visual Trading Systems, LLC &
Capital Market Services, LLC (c) Copyright 2008}
{Description: The Asymmetrical RSI (ARSI) Indicator}
{Notes: T.A.S.C., October 2008 - "ARSI, The Asymmetrical RSI" by Sylvain Vervoort}
{vt_ARSI Version 1.0}
UpCount:= sum(if(roc(Price,1,points)>=0,1,0),Period);
DnCount:= Period-UpCount;
UpMove:= wilders(if(roc(Price,1,points)>=0,roc(Price,1,points),0),UpCount);
DnMove:= wilders(if(roc(Price,1,points)<0,abs(roc(Price,1,points)),0),DnCount);
RS:= UpMove/DnMove;
ARSI:= 100-(100/(1+RS));
7. Click the "Save" icon to finish building the ARSI indicator.
To attach the indicator to a chart, click the right mouse button
within the chart window and then select
"Add Indicator" -> "TASC - 10/2008 - Asymmetrical Rsi (Arsi)" from the
indicator list. See Figure 17.
To learn more about VT Trader, please visit www.cmsfx.com.
FIGURE 17: VT TRADER, ARSI. Here, the ARSI (in red) and
RSI (in green) indicators are attached to a EUR/USD 30-minute candlestick
chart in VT Trader.
--Chris Skidmore
CMS Forex
(866) 51-CMSFX, trading@cmsfx.com
www.cmsfx.com
GO BACK
Return to October 2008 Contents
Originally published in the October 2008 issue of Technical Analysis
of STOCKS & COMMODITIES magazine. All rights reserved. © Copyright
2008, Technical Analysis, Inc.
|
