Re: code modification for "polarized fractal efficiency" (& Answer)

["Clyde Lee\(SBCY\)" <clydelee@xxxxxxxxxx>]

This is from tradeststionworld.  Added length parameter.


{
Source:
https://www.tradestationworld.com/discussions/topic.asp?TOPIC_ID=4140
Indicator Name: PFE
Screen Name: TradeStation Technologies
Study Type: Indicator
Time Frame: Multiple
Date Posted: 06/01/2002
Categories: Momentum
Description: The Polarized Fractal Efficiency indicator (PFE).
             As discussed in the January 1994 issue of
             "Technical Analysis of Stocks & Commodities magazine.

Modified by Clyde Lee to allow specification of length.

}



inputs:   Price(Close),
          SmoothignLen(15),
          BuySellLevel(50),
          Length(9) ;

vars:
  CalcPrice(0),
  PFE(0),
  C2C(0),
  COUNTER(0),
  FRACEFF(0),
  EMA(0),
  UseLeng(Iff(Length<2,9,Length));

CalcPrice = Average(Price,SmoothignLen);

PFE = 0;
C2C = 0;
COUNTER = 0;
FRACEFF = 0;
EMA = 0;

PFE = Squareroot(Power(CalcPrice - CalcPrice[Length], 2) + 100);

for COUNTER = 1 to UseLeng begin
  C2C = C2C + Squareroot(Power((CalcPrice[COUNTER - 1] -
CalcPrice[COUNTER]),2) + 1);
end;

if (CalcPrice - CalcPrice[Length]) > 0 then FRACEFF = Round((PFE / C2C) *
100,0)
                                       else FRACEFF = Round(-(PFE / C2C) *
100,0);

if Currentbar = 1 then EMA = FRACEFF
                  else EMA = Round((FRACEFF * 0.333) + (EMA[1] * (1 -
0.333)),0);

Plot1(EMA,"E");
Plot2(BuySellLevel,"BUYZONE");
Plot3(-BuySellLevel,"SELLZONE");


- - - - - - - - - - - - - - - - - - - - -  - - - - - - -
Clyde Lee   Chairman/CEO          (Home of SwingMachine)
SYTECH Corporation          email: clydelee@xxxxxxxxxxxx
7910 Westglen, Suite 105       Office:    (713) 783-9540
Houston,  TX  77063               Fax:    (713) 783-1092
Details at:                      www.theswingmachine.com
- - - - - - - - - - - - - - - - - - - -  - - - - - - - -

----- Original Message -----
From: "Michael Holder" <mholder@xxxxxxxxxxxx>
To: <omega-list@xxxxxxxxxx>; "Mike Eggleston" <mikee@xxxxxxxxxxxx>
Sent: Tuesday, April 22, 2003 12:49 PM
Subject: code modification for "polarized fractal efficiency" (& Answer)


> First a request then a further answer to your original enquiry:
>
> Request 1) : does anybody have this ELA in a version that would include an
> Input for Length that displays under Format Indicator / Inputs/
Expression?
> The ELA described below does not supply a display for Input Name /
> Expression field under Format Indicator in TS2000i.
>
> Request 2) Can any body suggest a quick fix to make this ELAS include an
> Input Name and Expression filed under Format Indicator?  I can send the
ELA
> for modification. Also I would like to smooth this Indicator with the JRC
> JMA.2k - suggestions as to best do this?
>
> Answer to original enquiry:
>
> 1) If you want some explanation of the original rationale and calculations
> for this indicator try the following link:
>
> http://www.technical-newsletter.de/docs/pfe_0102.html
>
> The Link is in German. If you can open it in Google - Google will
translate
> it back to English for you.
>
> 2) You can also find the smoothed/ intra-day version Easy Language code (
> may or may not be the same as you found at TradeStation World) plus a
short
> explanation and a Link to the original S&C Mag article at Mark Brown's
> ProSignal.com at this link http://www.prosignals.com/main.shtml . Look
under
> "TS Support" /" Knowledge Base" and search under EL Code.
>
> MH in Toronto
>
>
>
> -----Original Message-----
> From: Mike Eggleston [mailto:mikee@xxxxxxxxxxxx]
> Sent: Sunday, April 20, 2003 10:34 PM
> To: omega-list@xxxxxxxxxx
> Subject: Re: polarized fractal efficiency?
>
> On Sun, 20 Apr 2003, Mike Eggleston wrote:
>
> > I just read about something called 'polar fractal efficiency'.
> > Anyone ever read about or used it? Does someone have it in
> > EasyLanguage?
>
> Found it. It's at www.tradestationworld.com.
>