## New version 18 available now

Subscription & data-feed pricing Class schedule

Margin rates Stock & option commissions

 stocks and commodities magazine trading tips for rocketrsi Rate this Topic:
 Previous Topic · Next Topic Watch this topic · Print this topic ·
afhale
 Posted : Monday, July 09, 2018 3:46:26 PM
Gold Customer

Joined: 3/26/2010
Posts: 3
can anyone covert this to pcf  fot tc2000

MyRSI Indicator     (C) 2005-2018   John F. Ehlers } Inputs: SmoothLength(8), RSILength(10); Vars: a1(0), b1(0), c1(0), c2(0), c3(0), Filt(0), count(0), CU(0), CD(0), MyRSI(0); //Compute Super Smoother coefficients once If CurrentBar = 1 Then Begin
a1 = expvalue(-1.414*3.14159 / (SmoothLength)); b1 = 2*a1*Cosine(1.414*180 / (SmoothLength)); c2 = b1; c3 = -a1*a1; c1 = 1 - c2 - c3; End; //SuperSmoother Filter Filt = c1*(Close + Close[1]) / 2 + c2*Filt[1] + c3*Filt[2]; //Accumulate "Closes Up" and "Closes Down" CU = 0; CD = 0; For count = 0 to RSILength -1 Begin If Filt[count] - Filt[count + 1] > 0 Then CU = CU + Filt[count] - Filt[count + 1]; If Filt[count] - Filt[count + 1] < 0 Then CD = CD + Filt[count + 1] - Filt[count]; End; If CU + CD <> 0 Then MyRSI = (CU - CD) / (CU + CD); Plot1(MyRSI); Plot2(0);

RocketRSI Indicator (C) 2005-2018 John F. Ehlers } Inputs: SmoothLength(8), RSILength(10); Vars: a1(0), b1(0), c1(0), c2(0), c3(0), Filt(0), Mom(0), count(0), CU(0), CD(0), MyRSI(0), RocketRSI(0); //Compute Super Smoother coefficients once If CurrentBar = 1 Then Begin a1 = expvalue(-1.414*3.14159 / (SmoothLength)); b1 = 2*a1*Cosine(1.414*180 / (SmoothLength)); c2 = b1; c3 = -a1*a1; c1 = 1 - c2 - c3; End; //Create half dominant cycle Momentum Mom = Close - Close[RSILength - 1]; //SuperSmoother Filter Filt = c1*(Mom + Mom[1]) / 2 + c2*Filt[1] + c3*Filt[2]; //Accumulate "Closes Up" and "Closes Down" CU = 0; CD = 0; For count = 0 to RSILength -1 Begin If Filt[count] - Filt[count + 1] > 0 Then CU = CU + Filt[count] - Filt[count + 1]; If Filt[count] - Filt[count + 1] < 0 Then CD = CD + Filt[count + 1] - Filt[count]; End; If CU + CD <> 0 Then MyRSI = (CU - CD) / (CU + CD); //Limit RocketRSI output to +/- 3 Standard Deviations IF MyRSI > .999 Then MyRSI = .999; If MyRSI < -.999 Then MyRSI = -.999; //Apply Fisher Transform to establish Gaussian Probability Distribution RocketRSI = .5*Log((1 + MyRSI) / (1 - MyRSI)); Plot1(RocketRSI); Plot2(0); R

Bruce_L
 Posted : Monday, July 09, 2018 4:38:27 PM

Worden Trainer

Joined: 10/7/2004
Posts: 64,759

I do not think there is a good way to create a PCF for this.

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

 Forum Jump Customer Training & Support - Ask a Trainer - TC2000 version 12/18 - Ask a Trainer - TC2000 version 7 - Ask a Trainer - StockFinder 5.0 - PCFs, EasyScan and Custom Indicators General Discussions - Stock and Market Talk - TC2000 version 12 or 18 - TC2000 version 7 - StockFinder 5.0 - RealCode for StockFinder 5.0 Tutorial Videos - TC2000 version 12 tutorial videos - TC2000 version 7 tutorial videos 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.