/*********************************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: This Indicator plots FSST indicator Version: 1.0 01/19/2009Formula Parameters: Default: BuyZone 50Notes: FSST is the another modification of FSK indicator. It uses RSI and SLowK in the calculation. The FSST is constructed from five different parts. The Kurtosis, the Fast Kurtosis(FK), the Fast/Slow Kurtosis(FSK), FSRS and Weighted FSRS.**********************************/var fpArray = new Array();var bInit = false;function preMain() { setStudyTitle("FSST"); setCursorLabelName("FSST", 0); setCursorLabelName("WMAFSST", 1); setDefaultBarFgColor(Color.blue, 0); setDefaultBarFgColor(Color.red, 1); var x=0; fpArray[x] = new FunctionParameter("BuyZone", FunctionParameter.NUMBER); with(fpArray[x++]){ setLowerLimit(1); setDefault(50); }}var xMOM_R = null;var xMOM_RWAvr = null;var xFastD = null;var xFSST = null;var xFSST_WAvr = null;function main(BuyZone){var nState = getBarState(); if (nState == BARSTATE_ALLBARS) { if (BuyZone == null) BuyZone = 50; } if ( bInit == false ) { xMOM_R = mom(1, mom(3)); xMOM_RWAvr = wma(6, ema(65, xMOM_R)); xFastD = efsInternal("Calc_FastD", upperDonchian(9), lowerDonchian(9)); xFSST = efsInternal("Calc_FSST", xMOM_RWAvr, xFastD); xFSST_WAvr = wma(9, xFSST); addBand(BuyZone, PS_SOLID, 2, Color.green, "0"); bInit = true; } return new Array(xFSST.getValue(0), xFSST_WAvr.getValue(0));}function Calc_FSST(xmom, xfastd){ var nVal4 = xmom.getValue(0); if (nVal4 == null) return; var nFastD = xfastd.getValue(0); var nVal5 = 500 * nVal4 + nFastD; return nVal5;}function Calc_FastD(xHH, xLL) {var nRes = 0;var nRef = ref(-1);var nValueLL = xLL.getValue(0)var nValue = xHH.getValue(0) - nValueLL;var FastK = 0; if (nValue == null) return; if (nValue > 0) { FastK = (close(0) - nValueLL) / nValue * 100; } nRes = nRef + (0.5 * (FastK - nRef)); if (nRes == null) nRes = 1; return nRes;} |
