Welcome Guest, please sign in to participate in a discussion. Search | Active Topics |

modified average true range indicator Rate this Topic:
Previous Topic · Next Topic Watch this topic · Print this topic ·
lkkennedy
Posted : Tuesday, November 9, 2010 7:18:23 PM
Registered User
Joined: 1/11/2010
Posts: 3

Hi 
I am looking for softwear or formula to apply the modified average true range indicator to stockfinder 5.
is this possible, can you help me.
thanks 
leigh
australia

StockGuy
Posted : Tuesday, November 9, 2010 8:02:23 PM

Administration

Joined: 9/30/2004
Posts: 9,187
What is "modified averaage true range"?  I can't find any information on it.
Bruce_L
Posted : Wednesday, November 10, 2010 8:53:15 AM


Worden Trainer

Joined: 10/7/2004
Posts: 65,138
- Select Share | Browse other users shared items.
- Select the Charts tab (it should be selected by default).
- Type June Traders Tips in the search bar.
- Select Search.
- Select Craig_S' June Traders Tips from 4/10/2009 12:28:13 PM.
- Select Open

You can type something less than the complete phrase June Traders Tips in the search, but if you do so, please make sure you select the June Traders Tips created by Craig_S.

You can right-click on the ATR or TS Indicators in the Chart and select Edit RealCode to view the RealCode. The RealCode used for Modified ATR itself is:

'# Period = UserInput.Integer = 5
'# Cumulative
Static SMArange As Single
Static ATR As Single
Static sumWeight As Single
Static termRatio As Single
If isFirstBar Then
    SMArange = 0
    sumWeight = 1
    termRatio = (Period - 1) / Period
End If
SMArange += (Price.High - Price.Low) / Period
If CurrentIndex >= Period Then
    SMArange -= (Price.High(Period) - Price.Low(Period)) / Period
End If
If CurrentIndex >= Period - 1 Then
    Dim HiLo As Single = System.Math.Min(Price.High - Price.Low, 1.5 * SMArange)
    Dim Href As Single
    If Price.Low <= Price.High(1) Then
        Href = Price.High - Price.Last(1)
    Else
        Href = Price.High - Price.Last(1) - (Price.Low - Price.High(1)) / 2
    End If
    Dim Lref As Single
    If Price.High >= Price.Low(1) Then
        Lref = Price.Last(1) - Price.Low
    Else
        Lref = Price.Last(1) - Price.Low(1) - (Price.Low(1) - Price.High) / 2
    End If
    Dim diff1 As Single = System.Math.Max(HiLo, Href)
    Dim diff2 As Single = System.Math.Max(diff1, Lref)
    Dim Weight As Single = 1 / sumWeight
    ATR = ATR * (1 - Weight) + Weight * diff2
    sumWeight = sumWeight * termRatio + 1
    Plot = ATR
Else
    Plot = Single.NaN
End If

-Bruce
Personal Criteria Formulas
TC2000 Support Articles
Users browsing this topic
Guest-1

Forum Jump
You cannot post new topics in this forum.
You cannot reply to topics in this forum.
You cannot delete your posts in this forum.
You cannot edit your posts in this forum.
You cannot create polls in this forum.
You cannot vote in polls in this forum.