Conversion MT4 a PRT indicador “Fro Kiosotto”

• 03/30/2021 at 8:39 AM #165717
  Mestor

  Buenos días,

  me gustaría convertir el indicador “Fro Kiosotto” que tiene formato MT4 en código para PRT.

  Es un indicador basado en el RSI que indica zonas de sobreventa/sobrecompra, no es nada especial pero me resulta útil como referencia para mi operativa.

  He intentado convertirlo pero me quedo atascado en alguna parte del código y no consigo el resultado esperado.

  Si alguien pudiese echarle un vistazo y orientarme sobre la posible solución sería de agradecer.

  Ajunto el codigo MT4 en fichero y lo que tengo hecho hasta ahora (pero que no funciona)

  Un saludo y gracias a todos

  Fro Kiosotto

  // En variables externas hay que tener en cuenta "DevPeriod=150" vRSI = RSI[DevPeriod](close) j = 0 TSBUL = 0 TSBER = 0 hpres =0 lpres = 9999999 while (j<DevPeriod) do sbl = 0 sbr = 0 shift=j kolichestvo = shift-1 if (kolichestvo < 0 ) then kolichestvo=0 for n=shift TO n > kolichestvo do n = n-1 ii = vRSI[n] hnw = High[n] lnw = Low[n] cle = Close[n] if hnw> hpres then hpres = hnw sbl = sbl + ii*cle endif if lpres > lnw then lpres = lnw sbr = sbr + ii*cle endif next TSBUL = TSBUL + sbl TSBER = TSBER + sbr endif j = j+1 wend vSell = TSBER/TSBUL vBuy = TSBUL/TSBER Return vSell, vBuy

  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

  // En variables externas hay que tener en cuenta "DevPeriod=150" vRSI = RSI[DevPeriod](close)   j = 0 TSBUL = 0 TSBER = 0 hpres =0 lpres = 9999999 while (j<DevPeriod) do sbl = 0 sbr = 0 shift=j kolichestvo = shift-1   if (kolichestvo < 0 ) then kolichestvo=0    for n=shift TO n > kolichestvo do n = n-1 ii = vRSI[n] hnw = High[n] lnw = Low[n] cle = Close[n]   if hnw> hpres then hpres = hnw sbl = sbl + ii*cle endif if lpres > lnw then lpres = lnw sbr = sbr + ii*cle endif next      TSBUL = TSBUL + sbl TSBER = TSBER + sbr   endif j = j+1   wend   vSell = TSBER/TSBUL vBuy = TSBUL/TSBER   Return vSell, vBuy

   

  

  Mestor

  Participant

  Topics: 9

  Replies: 15

  Been thanked: 7 times
  03/30/2021 at 9:20 AM #165724
  Nicolas

  ¿Podría compartir una imagen de cómo se ve el indicador original en MT4, por favor? Me está acelerando el proceso de conversión, gracias.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  03/30/2021 at 2:30 PM #165757
  Mestor

  Adjunto una captura de pantalla

  Muchas gracias por tu ayuda

  

  Mestor

  Participant

  Topics: 9

  Replies: 15

  Been thanked: 7 times
  03/31/2021 at 5:21 PM #165868
  Mestor

  Bueno, a falta de alguien me corrija… he omitido lo que no parecía tener mucho sentido y más o menos creo que hace lo mismo…

  Siempre hay alguna variación pero pienso que la idea está ahí.

  El código queda de la siguiente manera:

  FroKiosotto

  //Variables externas DevPeriod=150, y los distintos Level... vRSI = RSI[DevPeriod](close) j = 1 TSBUL = 0 TSBER = 0 hpres =0 lpres = 9999999 while (j<DevPeriod) do sbl = 0 sbr = 0 ii = vRSI[j] hnw = High[j] lnw = Low[j] cle = Close[j] if hnw> hpres then hpres = hnw sbl = sbl + ii*cle endif if lpres > lnw then lpres = lnw sbr = sbr + ii*cle endif TSBUL = TSBUL + sbl TSBER = TSBER + sbr j = j+1 wend vSell = TSBER/TSBUL vBuy = TSBUL/TSBER Return vSell as "vSell", vBuy as "vBuy", Level1 as "Level 1", Level2 as "Level 2", Level3 as "Level 3", Level4 as "Level 4"

  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

  //Variables externas DevPeriod=150, y los distintos Level... vRSI = RSI[DevPeriod](close)   j = 1 TSBUL = 0 TSBER = 0 hpres =0 lpres = 9999999 while (j<DevPeriod) do sbl = 0 sbr = 0 ii = vRSI[j] hnw = High[j] lnw = Low[j] cle = Close[j] if hnw> hpres then hpres = hnw sbl = sbl + ii*cle endif if lpres > lnw then lpres = lnw sbr = sbr + ii*cle endif TSBUL = TSBUL + sbl TSBER = TSBER + sbr j = j+1 wend   vSell = TSBER/TSBUL vBuy = TSBUL/TSBER   Return vSell as "vSell", vBuy as "vBuy", Level1 as "Level 1", Level2 as "Level 2", Level3 as "Level 3", Level4 as "Level 4"

  y el aspecto de Mt4 y PRT en los adjuntos

  Un saludo

  

  Mestor

  Participant

  Topics: 9

  Replies: 15

  Been thanked: 7 times
• Author
  Posts