Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

derek2209

EasyLanguage Convolution Indicator by John F. Ehlers

Recommended Posts

Hi Traderslaboratory

 

In John F Ehlers Book " Cycle-Analytics-for-Traders "

The EasyLanguage code to compute the Convolution indicator is given in

Code Listing 13-1.

EasyLanguage Code to Compute and Display Convolution

 

/////////////////////////////////////////////////////////////////////////////

the line in the book and below is incomplete

i.e.

<<< If Filt[intPortion(.5*N)] < Filt Convolution[N] = (1 + (ExpValue Blank >>>

 

To get Indicator to run inserted the line below

 

<<< If (IntPortion(.5*N))>Filt then Convolution[N]=(1+ExpValue(N)); >>>

Could someone please correct this effort

///////////////////////////////////////////////////////////////////////////

 

See attached pdf " Ehlers Convolution Indicator" for the original code

 

Thank you in advance

Derek

 

The EasyLanguage code to compute the Convolution 
indicator is given in Code Listing 13-1. 
Code Listing 13-1.
EasyLanguage
Code to Compute
and Display
Convolution
{ Convolution Indicator 
(c) 2013 John F. Ehlers 

} 
Inputs: 
ShortestPeriod(40), 
LongestPeriod(80); 
Vars: 
alpha1(0), 
HP(0), 
a1(0), 
b1(0), 
c1(0), 
c2(0), 
c3(0), 
Filt(0), 
N(0), 
II(0), 
X(0), 
Y(0), 
Sx(0), 
Sy(0), 
Sxx(0), 
Syy(0), 
Sxy(0), 
Color1(0), 
Color2(0), 
Color3(0); 
Arrays: 

Corr[48](0), 
Slope[48](0), 
Convolution[48](0); 
//HighPass filter cyclic component 
alpha1 = (Cosine(1.414*360 / Longe 
HP = (1 - alpha1 / 2)* 
(1 - alpha1 / 2)* 
(Close - 2*Close[1] + Close[2]) + 
(1 - alpha1)*HP[1] - (1 - alpha1)* 
(1 - alpha1)*HP[2]; 
//Smooth with a Super Smoother Fil 
a1 = expvalue(-1.414*3.14159 / Sho
b1 = 2*a1*Cosine(1.414*180 / Short
c2 = b1;
c3 = -a1*a1;
c1 = 1 - c2 - c3;
Filt = c1*
(HP + HP[1]) / 2 + c2*Filt[1] + c3

For N = 1 to 48 Begin 
Sx = 0; 
Sy = 0; 
Sxx = 0; 
Syy = 0; 
Sxy = 0; 
For II = 1 to N Begin
X = Filt[iI - 1];
Y = Filt[N - II];
Sx = Sx + X;
Sy = Sy + Y;
Sxx = Sxx + X*X;
Sxy = Sxy + X*Y;
Syy = Syy + Y*Y; 
End; 
If (N*Sxx - Sx*Sx)*
(N*Syy - Sy*Sy) > 0 Then Corr[N] =
(N*Syy - Sy*Sy)); 
Slope[N] = 1; 

{//////////////////////////////////////////////////////////////////////////////////////////

In John  F Ehlers Book  " Cycle-Analytics-for-Traders"
The EasyLanguage code to compute the Convolution indicator is given in Code Listing 13-1.

the line in the book and below is incomplete
i.e.
<<<  If Filt[intPortion(.5*N)] < Filt Convolution[N] = (1 + (ExpValue  >>>

To get Indicator to run   substitued the line below

<<<  If (IntPortion(.5*N))>Filt then Convolution[N]=(1+ExpValue(N));  >>>
Could someone please correct this effort

/////////////////////////////////////////////////////////////////////////////////////////////}


If (IntPortion(.5*N))>Filt then Convolution[N]=(1+ExpValue(N));
End;
//Plot as a Heatmap
For N = 3 to 48 Begin 
If Slope[N] > 0 Then Begin

Color1 = 255*Convolution[N];
Color2 = 0; 
End; 
If Slope[N] < 0 Then Begin
Color1 = 0;
Color2 = 255*Convolution[N]; 
End; 
Color3 = 0; 
If N = 2 Then Plot2[4]
(2, “S2”, RGB(Color1, Color2, Colo 
If N = 3 Then Plot3[4]
(3, “S3”, RGB(Color1, Color2, Colo 
If N = 4 Then Plot4[4]
(4, “S4”, RGB(Color1, Color2, Colo 
If N = 5 Then Plot5[4]
(5, “S5”, RGB(Color1, Color2, Colo 
If N = 6 Then Plot6[4]
(6, “S6”, RGB(Color1, Color2, Colo 
If N = 7 Then Plot7[4]
(7, “S7”, RGB(Color1, Color2, Colo 
If N = 8 Then Plot8[4]
(8, “S8”, RGB(Color1, Color2, Colo 
If N = 9 Then Plot9[4]
(9, “S9”, RGB(Color1, Color2, Colo 
If N = 10 Then Plot10[4]
(10, “S10”, RGB(Color1, Color2, Co 
If N = 11 Then Plot11[4]
(11, “S11”, RGB(Color1, Color2, Co 
If N = 12 Then Plot12[4]

(12, “S12”, RGB(Color1, Color2, Co 
If N = 13 Then Plot13[4] 
(13, “S13”, RGB(Color1, Color2, Co 
If N = 14 Then Plot14[4] 
(14, “S14”, RGB(Color1, Color2, Co 
If N = 15 Then Plot15[4] 
(15, “S15”, RGB(Color1, Color2, Co 
If N = 16 Then Plot16[4] 
(16, “S16”, RGB(Color1, Color2, Co 
If N = 17 Then Plot17[4] 
(17, “S17”, RGB(Color1, Color2, Co 
If N = 18 Then Plot18[4] 
(18, “S18”, RGB(Color1, Color2, Co 
If N = 19 Then Plot19[4] 
(19, “S19”, RGB(Color1, Color2, Co 
If N = 20 Then Plot20[4] 
(20, “S20”, RGB(Color1, Color2, Co 
If N = 21 Then Plot21[4] 
(21, “S21”, RGB(Color1, Color2, Co 
If N = 22 Then Plot22[4] 
(22, “S22”, RGB(Color1, Color2, Co 
If N = 23 Then Plot23[4] 
(23, “S23”, RGB(Color1, Color2, Co 
If N = 24 Then Plot24[4] 
(24, “S24”, RGB(Color1, Color2, Co 
If N = 25 Then Plot25[4] 
(25, “S25”, RGB(Color1, Color2, Co 
If N = 26 Then Plot26[4] 
(26, “S26”, RGB(Color1, Color2, Co 

If N = 27 Then Plot27[4] 
(27, “S27”, RGB(Color1, Color2, Co 
If N = 28 Then Plot28[4] 
(28, “S28”, RGB(Color1, Color2, Co 
If N = 29 Then Plot29[4] 
(29, “S29”, RGB(Color1, Color2, Co 
If N = 30 Then Plot30[4] 
(30, “S30”, RGB(Color1, Color2, Co 
If N = 31 Then Plot31[4] 
(31, “S31”, RGB(Color1, Color2, Co 
If N = 32 Then Plot32[4] 
(32, “S32”, RGB(Color1, Color2, Co 
If N = 33 Then Plot33[4] 
(33, “S33”, RGB(Color1, Color2, Co 
If N = 34 Then Plot34[4] 
(34, “S34”, RGB(Color1, Color2, Co 
If N = 35 Then Plot35[4] 
(35, “S35”, RGB(Color1, Color2, Co 
If N = 36 Then Plot36[4] 
(36, “S36”, RGB(Color1, Color2, Co 
If N = 37 Then Plot37[4] 
(37, “S37”, RGB(Color1, Color2, Co 
If N = 38 Then Plot38[4] 
(38, “S38”, RGB(Color1, Color2, Co 
If N = 39 Then Plot39[4] 
(39, “S39”, RGB(Color1, Color2, Co 
If N = 40 Then Plot40[4] 
(40, “S40”, RGB(Color1, Color2, Co 
If N = 41 Then Plot41[4] 

(4 , “S4 ”, RGB(Color1, Color2, Co 
If N = 42 Then Plot42[4] 
(4 , “S4 ”, RGB(Color1, Color2, Co 
If N = 43 Then Plot43[4] 
(4 , “S4 ”, RGB(Color1, Color2, Co 
If N = 44 Then Plot44[4] 
( 4, “S 4”, RGB(Color1, Color2, Co 
If N = 45 Then Plot45[4] 
(4 , “S4 ”, RGB(Color1, Color2, Co 
If N = 46 Then Plot46[4] 
(4 , “S4 ”, RGB(Color1, Color2, Co 
If N = 47 Then Plot47[4] 
(4 , “S4 ”, RGB(Color1, Color2, Co 
If N = 48 Then Plot48[4] 
(4 , “S4 ”, RGB(Color1, Color2, Co 
End; 

Ehlers Convolution.pdf

Edited by derek2209

Share this post


Link to post
Share on other sites

Derek,

 

I think you may have to buy the book. The PDF you posted is cropped on the right after ~30 chars so who knows what else may be missing...

 

What happens when you run your

"If (IntPortion(.5*N))>Filt then Convolution[N]=(1+ExpValue(N));"

version?

'Filt' is a function call. You'd have to have the code for that to get this working...

 

Have you found complete .pla code for this? Your missing code and the Filt function might be an easy translation

 

Here is a contact who may be able to get you all the original code... He no longer uses TS so emphasis on may be

John Ehlers code links

 

hth

 

zdo

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Topics

  • Posts

    • I traded alot today. 9 trades, 8 losers and BEs, 1 runner that paid for them all. Gotta keep swinging! totaled 240 bps before commission. The first winner on W, I did not count - it was a mistake that led to profit. I felt like a machine, kept pulling the trigger, watch the 1min chart, see it doesn't go anywhere, take my small loss... over and over... then one takes off... Let it run... the whole time I was thinking I hope that the one winner will pay for all the losers. I was tempted to close out the winner early. I had no idea that the payoff distribution for this strategy would be so extreme - 8 tiny losses before hitting a big win. Pays to keep the losses tiny and keep swinging. 
    • Date : 22nd February 2019.

      MACRO EVENTS & NEWS OF 22nd February 2019.



      FX News Today Both Topix and Nikkei, declined during the Asian session, with -0.25% and -0.18% respectively. Overall, stock markets in Asia struggled through most of the session as subdued inflation data rekindled concerns about a lack of demand and flagging growth and after Wall Street closed in the red. News that US President Trump will meet with China’s top trade negotiator today in Washington seems to have helped Chinese markets to stage a late rally and CSI 300 and Shanghai Comp are up 1.76% and 1.51% respectively and the Hang Seng also managed to claw back losses and is up 0.11%. US stock futures are posting marginal gains and the April WTI future is trading at just over USD 57 per barrel. USDCAD rallied over 1.32 to 1.3225, as Oil inventories rose, with the US at record production levels. Oil price is now back around the $57 mark. Japanese CPI data same as forecasts, pushing the Yen higher. Charts of the Day


      Main Macro Events Today EU CPI Inflation – Core inflation is expected to be confirmed at 1.1% y/y while the overall inflation rate is expected to have stood at 1.4% in January. Canadian Retail Sales – Retail Sales are expected to have declined by 0.3% m/m in December, an improvement from the 0.6% declined observed in November. Mario Draghi Speech – The ECB President is due to speak to the University of Bologna where he will accept an honourary degree. Support and Resistance
       
      Always trade with strict risk management. Your capital is the single most important aspect of your trading business.

      Please note that times displayed based on local time zone and are from time of writing this report.

      Click HERE to access the full HotForex Economic calendar.

      Want to learn to trade and analyse the markets? Join our webinars and get analysis and trading ideas combined with better understanding on how markets work. Click HERE to register for FREE!

      Click HERE to READ more Market news.

      Dr Nektarios Michail
      Market Analyst
      HotForex

      Disclaimer: This material is provided as a general marketing communication for information purposes only and does not constitute an independent investment research. Nothing in this communication contains, or should be considered as containing, an investment advice or an investment recommendation or a solicitation for the purpose of buying or selling of any financial instrument. All information provided is gathered from reputable sources and any information containing an indication of past performance is not a guarantee or reliable indicator of future performance. Users acknowledge that any investment in FX and CFDs products is characterized by a certain degree of uncertainty and that any investment of this nature involves a high level of risk for which the users are solely responsible and liable. We assume no liability for any loss arising from any investment made based on the information provided in this communication. This communication must not be reproduced or further distributed without our prior written permission.
    • Actions for the 21st. 
    • Today had 3 trades, + 73 bps. The 2nd red dot on ALB was an error, somehow 1 share got executed at the lower price. I started new batch of trades today. The tweak was the exit is now based on trailing exit instead of manually calling it. I found it to be extremely uncomfortable as I sat through each retracement on DPZ. To see profit retrace back to zero or negative is associated with much pain. It feels as if it's a permanent loss. My goal is to execute my trading plan and not trade based on my emotions. I am very proud of the 2nd exit on DPZ for 170bps. I will do my best to continue this work. I do notice I may be giving back a bit too much on my losers, I will not change anything until the next batch of trades.   
    • I forgot to post yesterday. I was down 72 bps.  
×

Important Information

By using this site, you agree to our Terms of Use.