Welcome Guest, please sign in to participate in a discussion. | Search | Active Topics | |
Registered User Joined: 9/27/2010 Posts: 17
|
Hi there, I am trying to find the real code that was built for Sylvain Vervoot's ATR. It is referenced on this website by you guys, however, when I go to where I am instructed I can't find the code.Here is the link:http://www.traders.com/Documentation/FEEDbk_Docs/2009/06/TradersTips.htmlOn this page you will see Stockfinder Code referenced.Can you please help me.ThanksGSA
|
|
Worden Trainer
Joined: 10/7/2004 Posts: 65,138
|
It's definitely still there.
- 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
|
|
Registered User Joined: 9/27/2010 Posts: 17
|
Thanks Bruce. Weird but nothing comes up for me.Is the code you posted the Vervoot code or something similar?ThanksGeorge
|
|
Worden Trainer
Joined: 10/7/2004 Posts: 65,138
|
It's the exact Modified ATR RealCode from the Chart containing the Modified ATR (what you are calling a Vervoot ATR). The RealCode wasn't written by Vervoot but was based on the article and example code.
-Bruce Personal Criteria Formulas TC2000 Support Articles
|
|
Registered User Joined: 12/17/2008 Posts: 25
|
Wallah - I found this .Can this be converted into a PCF and used on a chart template in telechart.
|
|
Worden Trainer
Joined: 10/7/2004 Posts: 65,138
|
swatantra,
It is beyond my abilities to convert it into a Personal Criteria Formula. I suspect that the formula would be too long to be practical even if I could.
-Bruce Personal Criteria Formulas TC2000 Support Articles
|
|
Registered User Joined: 12/17/2008 Posts: 25
|
On worries. Thx u
|
|
Worden Trainer
Joined: 10/7/2004 Posts: 65,138
|
swatantra,
You're welcome.
-Bruce Personal Criteria Formulas TC2000 Support Articles
|
|
Guest-1 |