The Correlation Cycle Indicator was created by John Ehlers (Stocks & Commodities V. 38:06 (8–15)) and this is technically part of three indicators in one so I'm splitting each one to a separate script. This particular indicator was designed for trend direction and trend strength and simply buy when it is green and sell when it turns red. Also keep in mind that the higher the indicator is above the signal then the stronger the trend and when they are close together, conditions get choppy.
Let me know if you would like to see me publish other scripts or if you want something custom done!
Versionshinweise
⋅
changing my code to make it uniform with everything else
Versionshinweise
⋅
updated to make it consistent with my other indicators
@cheatcountry Thank you again for your various useful indicators
ashok1961
⋅
@cheatcountry Thank you very much for your excellent Ehler's Correlation Cycle indicator. I would greatly appreciate it if you code Jay A. Leavitt's indicators that appeared in 6 issues of TASC. Their TS EasyLanguage codes for translation are as follows. Function: LeavittProjection // TASC JAN 2020 // Author Jay Leavitt // function LeavittProjection inputs: Price(numericseries), Length(numericsimple) ; LeavittProjection = LinearRegValue(Price, Length, -1) ; Function: LeavittConv // TASC JAN 2020 // Author Jay Leavitt // function LeavittConv inputs: Price(numericseries), Length(numericsimple) ; vars: LenConv(0) ; LenConv = IntPortion( SquareRoot(Length)) ; LeavittConv = LinearRegValue(Leavit tProjection(Price, Length), LenConv, -1); Function: LeavittConvSlope // TASC JAN 2020 // Author Jay Leavitt // function LeavittConvSlope inputs: Price(numericseries), Length(numericsimple) ; vars: LenConv(0) ; LenConv = IntPortion( SquareRoot(Length)) ; LeavittConvSlope = LinearRegSlope(LeavittProjection(Price, Length), LenConv); Indicator: LeavittConvSlope // TASC JAN 2020 // Author Jay Leavitt // indicator LeavittConvSlope // show plot1 as histogram inputs: Price( Close ), length( 61 ), UnSure( .2 ); variables: LCSlope( 0 ) ; LCSlope = LeavittConvSlope( Price, Length ); Plot1( LCSlope, "LeavittConvSlope" ) ; Plot2(UnSure,"+UnSure", White); Plot3(-UnSure,"-UnSure", White); If LCSlope > LCSlope[1] then SetPlotColor( 1, green ); If LCSlope < LCSlope[1] then SetPlotColor( 1, red ); Plot4 ( 0, "ZeroLine" ) ;