Cybernetic Oscillator by John F. Ehlers

• 09/29/2025 at 1:34 PM #251959
  elekin.

  Hello guys,

  I’ve coded the cybernetic oscillator by John F. Ehlers, taking it from the article “Making a Better Oscillator” from the TASC journal, but I’ve faced some issues.

  The original code is written in Easy Language, you can find it in the pdf attached. I wrote in the same page the code of the high-pass filter, the Super Smoother and the RMS formula to obtain the final formula of the cybernetic oscillator, without calling the other indicators from external codes.

  The problem is that the oscillator’s values exploded in the first periods while are too small in the latests, so it seems like it’s not normalized as it should.

  Can anyone help me? The following is the code written in ProRealTime:

  // === Coefficienti High-Pass === a1HP = EXP(-(SQRT(2) * 3.14159) / HPLength) b1HP = 2 * a1HP * COS((SQRT(2) * 180) / HPLength) c2HP = b1HP c3HP = -(a1HP * a1HP) c1HP = (1 + c2HP - c3HP)/4 // === High-Pass Filter === IF BarIndex >= 4 THEN HP = c1HP * (Close - 2*Close[1] + Close[2]) + c2HP * HP[1] + c3HP * HP[2] ELSE HP = 0 ENDIF // === Coefficienti Super Smoother === a1SS = EXP(-(SQRT(2) * 3.14159) / LPLength) b1SS = 2 * a1SS * COS((SQRT(2) * 180) / LPLength) c2SS = b1SS c3SS = -(a1SS * a1SS) c1SS = 1 - c2SS - c3SS // === Super Smoother === IF BarIndex >= 4 THEN SS = c1SS * (HP + HP[1]) / 2 + c2SS * SS[1] + c3SS * SS[2] ELSE SS = HP ENDIF // === RMS === SumSq = 0 FOR Count = 0 to RMSLength - 1 DO Sumsq = SumSq + SS[count]*SS[Count] NEXT IF SumSq <> 0 THEN RMS = SQR(SumSq/RMSLength) ENDIF // === Cybernetic Oscillator === IF RMS <> 0 THEN CyberneticOscillator = SS / RMS ENDIF RETURN CyberneticOscillator AS "Cybenrnetic Oscillator" The variables HPLength, LPLength and RMSLength are set as parameters in the ProBuilder code editor. I attached also a screenshot of the behaviour of the CO, applied to the graph of the NASDAQ Index.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48

  // === Coefficienti High-Pass === a1HP = EXP(-(SQRT(2) * 3.14159) / HPLength) b1HP = 2 * a1HP * COS((SQRT(2) * 180) / HPLength) c2HP = b1HP c3HP = -(a1HP * a1HP) c1HP = (1 + c2HP - c3HP)/4   // === High-Pass Filter === IF BarIndex >= 4 THEN    HP = c1HP * (Close - 2*Close[1] + Close[2]) + c2HP * HP[1] + c3HP * HP[2] ELSE    HP = 0 ENDIF   // === Coefficienti Super Smoother === a1SS = EXP(-(SQRT(2) * 3.14159) / LPLength) b1SS = 2 * a1SS * COS((SQRT(2) * 180) / LPLength) c2SS = b1SS c3SS = -(a1SS * a1SS) c1SS = 1 - c2SS - c3SS   // === Super Smoother === IF BarIndex >= 4 THEN    SS = c1SS * (HP + HP[1]) / 2 + c2SS * SS[1] + c3SS * SS[2] ELSE    SS = HP ENDIF   // === RMS === SumSq = 0 FOR Count = 0 to RMSLength - 1 DO    Sumsq = SumSq + SS[count]*SS[Count] NEXT   IF SumSq <> 0 THEN    RMS = SQR(SumSq/RMSLength) ENDIF     // === Cybernetic Oscillator === IF RMS <> 0 THEN    CyberneticOscillator = SS / RMS ENDIF   RETURN CyberneticOscillator AS "Cybenrnetic Oscillator"   The variables HPLength, LPLength and RMSLength are set as parameters in the ProBuilder code editor. I attached also a screenshot of the behaviour of the CO, applied to the graph of the NASDAQ Index.

  

  elekin.

  Participant

  Topics: 1

  Replies: 0

  Been thanked: 0 times
• Author
  Posts