Bruce,

Can you produce the code for the Stocks and Commodities September 2017 Issue “The Reverse EMA Indicator” in Real Code for us or suggest something faster that is it’s equal?  When the company activity marketed Stockfinder you used to be in the Traders Tips all the time, but unfortunately, I don’t find your high-quality products on display as much.  I would like it in PCF as well if possible as I use both Telechart version 7 and Stockfinder because of the long resistance and support lines available.  I don’t believe Stockfinder has an EMA that you can weight yourself or I could possibly pull it off. I find all other coding except Stockfinder and one other product inferior to the rest of the market.  (BTW I would also like to tie it to the VIX-X as the possible trend vs mean reversion to see if I can sharpen its efficiently on trading signals by varying the weight 0.03 and 0.05 on the Alpha as described in the article, suspect I can do that but any help would be welcomed.) 

Thanks

Java56

I don't have a version for TC2000, but this should work for StockFinder. It is pretty much just a straight up conversion of the example code in the article.

'|******************************************************************
'|*** StockFinder RealCode Indicator - Version 5.0 www.worden.com 
'|*** Copy and paste this header and code into StockFinder *********
'|*** Indicator:Reverse EMA Indicator
'|******************************************************************
'# AA = UserInput.Single = .1
Static CC As Single
Static EMA As New List(Of Single)
Static RE1 As New List(Of Single)
Static RE2 As New List(Of Single)
Static RE3 As New List(Of Single)
Static RE4 As New List(Of Single)
Static RE5 As New List(Of Single)
Static RE6 As New List(Of Single)
Static RE7 As New List(Of Single)
If isFirstBar Then
	CC = 1 - AA
	EMA.Clear
	EMA.Insert(0, Price.Last)
	RE1.Clear
	RE1.Insert(0, CC * EMA(0))
	RE2.Clear
	RE2.Insert(0, CC ^ 2 * RE1(0))
	RE3.Clear
	RE3.Insert(0, CC ^ 4 * RE2(0))
	RE4.Clear
	RE4.Insert(0, CC ^ 8 * RE3(0))
	RE5.Clear
	RE5.Insert(0, CC ^ 16 * RE4(0))
	RE6.Clear
	RE6.Insert(0, CC ^ 32 * RE5(0))
	RE7.Clear
	RE7.Insert(0, CC ^ 64 * RE6(0))
Else
	EMA.Insert(0, AA * Price.Last + CC * EMA(0))
	RE1.Insert(0, CC * EMA(0) + EMA(1))
	RE2.Insert(0, CC ^ 2 * RE1(0) + RE1(1))
	RE3.Insert(0, CC ^ 4 * RE2(0) + RE2(1))
	RE4.Insert(0, CC ^ 8 * RE3(0) + RE3(1))
	RE5.Insert(0, CC ^ 16 * RE4(0) + RE4(1))
	RE6.Insert(0, CC ^ 32 * RE5(0) + RE5(1))
	RE7.Insert(0, CC ^ 64 * RE6(0) + RE6(1))
End If
Plot = EMA(0) - AA * (CC ^ 128 * RE7(0) + RE7(1))
If isLastBar Then
	EMA.Clear
	RE1.Clear
	RE2.Clear
	RE3.Clear
	RE4.Clear
	RE5.Clear
	RE6.Clear
	RE7.Clear
End If

Thanks Bruce!

As with all Worden works great and thanks for shortcutting this for me love your customer support.

Java56

Can this be done in V17?

Thanks

It may be possible, but I have not been able to figure out a way to write a version which would be short and fast enough to be practical.