Créer un screener basé sur CCI correction + PRC_Trendilio

• 01/31/2024 at 4:04 PM #227184
  francis59

  Bonjour,

  N’ayant aucune connaissance en code, serait-il possible et intéressant? de créer un screener en croisant ces 2 critères (cf pièces jointes) :

  • CCI-correction : prendre comme paramètre lorsque l’histogramme est vert (tendance haussière)
  • PRC-Trendilio : prendre comme paramètre lorsque la courbe sort de la zone de survente et croise l’autre à la hausse (pièce jointe image_trendilio)

  Si par hasard ce n’est pas pertinent, ne perdez pas de temps avec ma demande sinon, merci d’avance pour votre aide et n’hésitez pas à compléter avec des idées supplémentaires.

  Bonne journée

  

  francis59

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 0 times
  02/01/2024 at 1:42 PM #227242
  Nicolas

  Bonjour,

  Pour créer un screener qui croise les critères de la “CCI-correction” et du “PRC-Trendilio” en ProBuilder, nous devons intégrer les deux logiques dans un seul script ProScreener. Voici un exemple de code qui pourrait correspondre à votre demande :

  // Paramètres CCI L = 14 // Long terme CCI B = 9 // Court terme CCI // Calcul du CCI pour les deux périodes CCL = CCI[L] CCS = CCI[B] // Logique pour la CCI-correction LASTUP = 0 LASTDW = 0 UP = 0 DW = 0 IF CCL > 100 THEN LASTUP = 1 LASTDW = 0 ELSIF CCL < -100 THEN LASTDW = -1 LASTUP = 0 ENDIF IF CCS > 100 THEN UP = 1 DW = 0 ELSIF CCS < -100 THEN DW = -1 UP = 0 ENDIF // Paramètres PRC-Trendilio src = close // Source is Close smooth = 1 // Smoothing length = 50 // ALMA Lookbackperiod offset = 0.85 // ALMA Offset sigma = 6 // ALMA Sigma bmult = 1.0 // Band Multiplier blen = 20 // Custom Band Length // Calcul de PRC-Trendilio WtdSum = 0 CumWt = 0 FOR k = 0 TO length - 1 DO Wtd = exp(-((k-m)*(k-m))/(2*s*s)) WtdSum = WtdSum + Wtd * (src[length - 1 - k] - src[length - k]) / (src[length - 1 - k] * 100) CumWt = CumWt + Wtd NEXT avpch = WtdSum / CumWt rms = bmult * sqrt(summation[blen](avpch * avpch) / blen) cdir = 0 IF avpch > rms THEN cdir = 1 ELSIF avpch < -rms THEN cdir = -1 ENDIF // Condition finale pour le screener Condition = (LASTUP = 1 OR UP = 1) AND cdir = 1 SCREENER[Condition]

  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 49 50 51 52 53 54 55 56 57 58 59 60 61 62

  // Paramètres CCI L = 14 // Long terme CCI B = 9  // Court terme CCI   // Calcul du CCI pour les deux périodes CCL = CCI[L] CCS = CCI[B]   // Logique pour la CCI-correction LASTUP = 0 LASTDW = 0 UP = 0 DW = 0   IF CCL > 100 THEN     LASTUP = 1     LASTDW = 0 ELSIF CCL < -100 THEN     LASTDW = -1     LASTUP = 0 ENDIF   IF CCS > 100 THEN     UP = 1     DW = 0 ELSIF CCS < -100 THEN     DW = -1     UP = 0 ENDIF   // Paramètres PRC-Trendilio src = close // Source is Close smooth = 1 // Smoothing length = 50 // ALMA Lookbackperiod offset = 0.85 // ALMA Offset sigma = 6 // ALMA Sigma bmult = 1.0 // Band Multiplier blen = 20 // Custom Band Length   // Calcul de PRC-Trendilio WtdSum = 0 CumWt  = 0 FOR k = 0 TO length - 1 DO     Wtd = exp(-((k-m)*(k-m))/(2*s*s))     WtdSum = WtdSum + Wtd * (src[length - 1 - k] - src[length - k]) / (src[length - 1 - k] * 100)     CumWt = CumWt + Wtd NEXT   avpch = WtdSum / CumWt rms = bmult * sqrt(summation[blen](avpch * avpch) / blen)   cdir = 0 IF avpch > rms THEN     cdir = 1 ELSIF avpch < -rms THEN     cdir = -1 ENDIF   // Condition finale pour le screener Condition = (LASTUP = 1 OR UP = 1) AND cdir = 1   SCREENER[Condition]

  Ce code combine les logiques de la “CCI-correction” et du “PRC-Trendilio”. Il vérifie si les conditions de la CCI-correction (tendance haussière) et du PRC-Trendilio (la courbe sortant de la zone de survente et croisant à la hausse) sont remplies simultanément.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4742 times
  02/01/2024 at 5:13 PM #227258
  francis59

  Bonjour Nicolas,

  Merci pour votre réponse rapide. Lorsque j’essaie le code, il y a un message d’alerte : “veuillez définir les variables : m, s”

  Auriez vous une idée de solution? 🙂

  D’avance merci et bonne soirée

   

   

  

  francis59

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 0 times
  02/06/2024 at 4:42 PM #227477
  francis59

  Bonjour Nicolas,

  Désolé de vous déranger à nouveau sur ce même sujet mais je viens d’essayer de modifier et de paramétrer “m” et “s” avec (demande #227258):

  m = (Offset * (length – 1))
  s = length/Sigma

  mais j’ai ensuite un nouveau message d’alerte :

  “erreur de syntaxe :

  la variable suivante n’est pas utilisée dans le programme : lastdw

  la variable suivante n’est pas utilisée dans le programme : dw

  la variable suivante n’est pas utilisée dans le programme : smooth”

  Auriez-vous une idée de solution?

  D’avance merci pour votre aide.

  Bonne journée 🙂

   

   

   

   

  

  francis59

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 0 times
  02/09/2024 at 5:00 PM #227763
  francis59

  Bonjour Nicolas,

  Désolé de vous déranger à nouveau sur ce sujet mais j’ai essayé de modifier le code avec mes “moyens” de compréhension mais j’ai l’impression que ce n’est pas encore tout à fait le bon code. Pourriez vous vérifier si le code suivant est OK ?

  // Paramètres CCI
  L = 14 // Long terme CCI
  B = 9 // Court terme CCI

  // Calcul du CCI pour les deux périodes
  CCL = CCI[L]
  CCS = CCI[B]

  // Logique pour la CCI-correction
  LASTUP = 0
  UP = 0

  IF CCL > 100 THEN
  LASTUP = 1

  ELSIF CCL < -100 THEN
  LASTUP = 0
  ENDIF

  IF CCS > 100 THEN
  UP = 1

  ELSIF CCS < -100 THEN

  UP = 0
  ENDIF
  // Paramètres PRC-Trendilio
  src = close // Source is Close
  length = 50 // ALMA Lookbackperiod
  offset = 0.85 // ALMA Offset
  sigma = 6 // ALMA Sigma
  bmult = 1.0 // Band Multiplier
  blen = 20 // Custom Band Length
  m = (Offset * (length – 1))
  s = length/Sigma
  // Calcul de PRC-Trendilio
  WtdSum = 0
  CumWt = 0
  FOR k = 0 TO length – 1 DO
  Wtd = exp(-((k-m)*(k-m))/(2*s*s))
  WtdSum = WtdSum + Wtd * (src[length – 1 – k] – src[length – k]) / (src[length – 1 – k] * 100)
  CumWt = CumWt + Wtd
  NEXT

  avpch = WtdSum / CumWt
  //avpch = ta.alma(pch, length, offset, sigma)
  rms = bmult * sqrt(summation[blen](avpch * avpch) / blen)

  cdir = 0
  IF avpch > rms THEN
  cdir = 1
  ELSIF avpch < -rms THEN
  cdir = -1
  ENDIF

  // Condition finale pour le screener
  Condition = (LASTUP = 1 OR UP = 1) AND cdir = 1

  SCREENER[Condition]

   

  D’avance merci et bonne journée

  

  francis59

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 0 times
  02/20/2024 at 2:28 PM #228455
  francis59

  Bonjour Nicolas,

  Veuillez m’excuser de vous relancer concernant ce sujet mais auriez-vous la possibilité de vérifier le code proposé dans ma dernière demande? 🙂

  D’avance merci pour votre aide.

  Bonne journée

  

  francis59

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 0 times
  02/23/2024 at 4:42 PM #228663
  francis59

  Bonjour,

  Le sujet peut être fermé.

  Merci 🙂

  Bonne journée

  

  francis59

  Participant

  Topics: 8

  Replies: 10

  Been thanked: 0 times
• Author
  Posts