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
|
Administration
Joined: 9/30/2004
Posts: 9,187
|
What is "modified averaage true range"? I can't find any information on it.
|
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
|