Tweet
//Global Variables
var grID = 0;
var nBarCounter = 0;
var nBarsInTrade = 0;
var nRatchetInc = 0.005;
var nStatus = 1;
var nDir = 0;
var nStopPrice = null;
var nATR = null;
var nATR_1 = null;
var aFPArray = new Array();
var bInitialized = false;
var vEMA90 = new MAStudy(90, 0, "Close", MAStudy.EXPONENTIAL);
var vEMA200 = new MAStudy(200, 0, "Close", MAStudy.EXPONENTIAL);
var vBollinger30 = new BollingerStudy(30, "Close", 20);
var vLastAlert = -1;
var bRealTime = false;
//== PreMain function required by eSignal to set things up
function preMain() {
var x;
setPriceStudy(true);
setStudyTitle("ATR Stop w/Ratchet");
setCursorLabelName("Stop", 0);
setDefaultBarFgColor( Color.blue, 0 );
setShowTitleParameters( false );
setPlotType( PLOTTYPE_FLATLINES, 0 );
setDefaultBarThickness( 2, 0 );
grID = 0;
//initialize formula parameters
x=0;
aFPArray[x] = new FunctionParameter( "Period", FunctionParameter.NUMBER);
with( aFPArray[x] ) {
setName( "ATR Period" );
setLowerLimit( 1 );
setUpperLimit( 125 );
setDefault( 10 );
}
x++;
aFPArray[x] = new FunctionParameter( "ATRs", FunctionParameter.NUMBER);
with( aFPArray[x] ) {
setName( "# ATRs" );
setLowerLimit( 1 );
setUpperLimit( 20 );
setDefault( 2 );
}
x++;
aFPArray[x] = new FunctionParameter( "RatchInc", FunctionParameter.NUMBER);
with( aFPArray[x] ) {
setName( "Ratchet %" );
setLowerLimit( 0 );
setUpperLimit( 1 );
setDefault( 0.005 );
}
x++;
aFPArray[x] = new FunctionParameter( "longColor", FunctionParameter.COLOR);
with( aFPArray[x] ) {
setName( "Long Stop Color" );
setDefault( Color.blue );
}
x++;
aFPArray[x] = new FunctionParameter( "shortColor", FunctionParameter.COLOR);
with( aFPArray[x] ) {
setName( "Short Stop Color" );
setDefault( Color.red );
}
x++;
aFPArray[x] = new FunctionParameter( "lineThick", FunctionParameter.NUMBER);
with( aFPArray[x] ) {
setName( "Plot Thickness" );
setLowerLimit( 0 );
setUpperLimit( 10 );
setDefault( 2 );
}
}
//== Main processing function
function main( Period, ATRs, RatchInc, longColor, shortColor, lineThick ) {
var x;
var nV1, nV2, nV3;
var nTrToday;
var nTmp;
var nVal;
//script is initializing
if (getCurrentBarIndex() == 0) bRealTime = true;
if ( getBarState() == BARSTATE_ALLBARS ) {
return null;
}
if ( bInitialized == false ) {
nRatchetInc = RatchInc;
setDefaultBarThickness( Math.round( lineThick ), 0 );
bInitialized = true;
}
//called on each new bar
if ( getBarState() == BARSTATE_NEWBAR ) {
//save the prior ATR value
nATR_1 = nATR;
//calculate the Average True Range
nV1 = Math.abs( high(-1)-low(-1) );
nV2 = Math.abs( close(-2)-high(-1) );
nV3 = Math.abs( close(-2)-low(-1) );
nTrToday = Math.max( nV1, nV2, nV3 );
nATR = ( ( Period-1 ) * nATR_1 + nTrToday ) / Period;
//determine the ratchet, if any
nRatchet = 1.0 - ( nBarsInTrade * nRatchetInc );
//adjust long stop
if ( nStatus == 1 ) {
nVal = ATRs * nATR;
nTmp = close(-1) - ( nVal * nRatchet );
if (nTmp>nStopPrice) nStopPrice = nTmp;
}
//adjust short stop
if ( nStatus == -1 ) {
nVal = ATRs * nATR;
nTmp = close(-1) + ( nVal * nRatchet );
if (nTmp<nStopPrice) nStopPrice = nTmp;
}
//increment our counters
nBarCounter++;
nBarsInTrade++;
}
//Reverse the stop if stop was hit
if ( nStopPrice != null ) {
if ( nStatus==1 ) {
if ( low(0) <= nStopPrice ) {
nStatus = -1;
nBarsInTrade = 0;
nVal = ATRs * nATR;
nStopPrice = close(-1) + nVal;
}
}
else if ( nStatus==-1 ) {
if ( high(0) >= nStopPrice ) {
nStatus = 1;
nBarsInTrade = 0;
nVal = ATRs * nATR;
nStopPrice = close(-1) - nVal;
}
}
}
//set color based on current stop direction
if ( nStatus == 1 ) {
setDefaultBarFgColor( longColor, 0 );
}
else {
setDefaultBarFgColor( shortColor, 0 );
}
if ( nDir==1 && nStatus<0 &&
Strategy.isShort() == false )
{
onAction2();
}
if ( nStatus==1 && nDir<1 &&
Strategy.isLong() == false &&
vEMA90.getValue(MAStudy.MA) > vEMA200.getValue(MAStudy.MA)
) {
onAction1();
}
//return current stop value to be displayed
if ( nDir==1 ) {
return( nStopPrice );
}
}
/*************************************************
SUPPORT FUNCTIONS
**************************************************/
//== gID function assigns unique identifier to graphic/text routines
function gID() {
grID ++;
return( grID );
}
function onAction1() {
if (vLastAlert != 1 && !bRealTime) Strategy.doLong("", Strategy.MARKET, Strategy.THISBAR, Strategy.DEFAULT, 0);
if (vLastAlert != 1 && bRealTime) buyMarket( getSymbol(), 200 );
vLastAlert = 1;
nDir = 1;
}
function onAction2() {
if (vLastAlert != 2 && !bRealTime) Strategy.doShort("", Strategy.MARKET, Strategy.THISBAR, Strategy.DEFAULT, 0);
if (vLastAlert != 2 && bRealTime) sellShortMarket( getSymbol(), 200 );
vLastAlert = 2;
nDir = 0;
}
Comment