Fisher indicator para ProRealTime

• 10/21/2016 at 10:35 AM #15263
  RafaelN

  A continuación una solicitud que ha sido enviada a ProRealtime:

  Desearia si me pueden pasar este indicador “Fisher m11” con el codigo de programacion de ProRealTime. Este çodigo es de MT4.
  Les envio copia del código.

  Y una proposición de respuesta:

  Fisher indicator

  // Change line style to histogram and set colors as needed // in the indicator settings panel // Once period = 10 Once priceSmoothing = 0.3 Once indexSmoothing = 0.3 lowestLow = Lowest[period](Low) highestHigh = Highest[period](High) periodRange = highestHigh - lowestLow midPrice = (High + Low) / 2 priceLocation = 2.0 * ((midPrice - lowestLow) / periodRange) - 1.0 If smoothedLocation[1] then smoothedLocation = priceSmoothing*smoothedLocation[1] + (1.0 - priceSmoothing)*priceLocation Else smoothedLocation = (1.0 - priceSmoothing)*priceLocation Endif If smoothedLocation > 0.99 then smoothedLocation = 0.99 Elsif smoothedLocation < -0.99 then smoothedLocation = -0.99 Endif fishIndex = Log((1+smoothedLocation)/(1-smoothedLocation)) If smoothedFish[1] then smoothedFish = indexSmoothing*smoothedFish[1] + (1.0 - indexSmoothing)*fishIndex Else smoothedFish = (1.0 - indexSmoothing)*fishIndex Endif Return smoothedFish as "Fisher 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 49 50 51 52 53 54 55 56

  // Change line style to histogram and set colors as needed   // in the indicator settings panel   //   Once period = 10   Once priceSmoothing = 0.3   Once indexSmoothing = 0.3   lowestLow = Lowest[period](Low)   highestHigh = Highest[period](High)   periodRange = highestHigh - lowestLow   midPrice = (High + Low) / 2   priceLocation = 2.0 * ((midPrice - lowestLow) / periodRange) - 1.0   If smoothedLocation[1] then   smoothedLocation = priceSmoothing*smoothedLocation[1] + (1.0 - priceSmoothing)*priceLocation   Else   smoothedLocation = (1.0 - priceSmoothing)*priceLocation   Endif   If smoothedLocation > 0.99 then   smoothedLocation = 0.99   Elsif smoothedLocation < -0.99 then   smoothedLocation = -0.99   Endif   fishIndex = Log((1+smoothedLocation)/(1-smoothedLocation))   If smoothedFish[1] then   smoothedFish = indexSmoothing*smoothedFish[1] + (1.0 - indexSmoothing)*fishIndex   Else   smoothedFish = (1.0 - indexSmoothing)*fishIndex   Endif     Return smoothedFish as "Fisher Index"

   

  

  RafaelN

  Moderator

  ProRealTime

  Topics: 14

  Replies: 217

  Been thanked: 46 times
  02/01/2017 at 8:44 PM #23485
  corzaroja

  Lo veo tarde, pero por si aún puede serte útil.

  El código que has puesto no es un MT4, quizás por ello nadie te ha respondido.  el código que has puesto es en Prorealtime.

  De todas formas, yo le he hecho un pequeño cambio y quedaria así:

  // Change line style to histogram and set colors as needed // in the indicator settings panel // Once period = p Once priceSmoothing = 0.3 Once indexSmoothing = 0.3 cero = 0 lowestLow = Lowest[period](Low) highestHigh = Highest[period](High) periodRange = highestHigh - lowestLow midPrice = (High + Low) / 2 priceLocation = 2.0 * ((midPrice - lowestLow) / periodRange) - 1.0 If smoothedLocation[1] then smoothedLocation = priceSmoothing*smoothedLocation[1] + (1.0 - priceSmoothing)*priceLocation Else smoothedLocation = (1.0 - priceSmoothing)*priceLocation Endif If smoothedLocation > 0.99 then smoothedLocation = 0.99 Elsif smoothedLocation < -0.99 then smoothedLocation = -0.99 Endif fishIndex = Log((1+smoothedLocation)/(1-smoothedLocation)) If smoothedFish[1] then smoothedFish = indexSmoothing*smoothedFish[1] + (1.0 - indexSmoothing)*fishIndex Else smoothedFish = (1.0 - indexSmoothing)*fishIndex Endif Return smoothedFish as "Fisher Index", cero coloured (0,0,0) as "0"

  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

  // Change line style to histogram and set colors as needed   // in the indicator settings panel   //   Once period = p   Once priceSmoothing = 0.3   Once indexSmoothing = 0.3   cero = 0   lowestLow = Lowest[period](Low)   highestHigh = Highest[period](High)   periodRange = highestHigh - lowestLow   midPrice = (High + Low) / 2   priceLocation = 2.0 * ((midPrice - lowestLow) / periodRange) - 1.0   If smoothedLocation[1] then   smoothedLocation = priceSmoothing*smoothedLocation[1] + (1.0 - priceSmoothing)*priceLocation   Else   smoothedLocation = (1.0 - priceSmoothing)*priceLocation   Endif   If smoothedLocation > 0.99 then   smoothedLocation = 0.99   Elsif smoothedLocation < -0.99 then   smoothedLocation = -0.99   Endif   fishIndex = Log((1+smoothedLocation)/(1-smoothedLocation))   If smoothedFish[1] then   smoothedFish = indexSmoothing*smoothedFish[1] + (1.0 - indexSmoothing)*fishIndex   Else   smoothedFish = (1.0 - indexSmoothing)*fishIndex   Endif Return smoothedFish as "Fisher Index", cero coloured (0,0,0) as "0"

   

  La variable p = 89  (el period del tuyo que era 10 es demasiado nervioso para mi gusto)

  89 es un número de Fibonacci.

  Luego con el indicador puesto, le cambias forma, lo pones en histograma y en color verde y rojo para positivo y negativo.

  

  corzaroja

  Participant

  Topics: 6

  Replies: 31

  Been thanked: 3 times
  02/01/2017 at 8:47 PM #23487
  corzaroja

  Tambien tienes este con 2 medias o puedes poner en invisible la MA1.

  Es más alisado y con menos ruido, más claro a la vista y marca divergencias.

  period = P MA1period=9 MA2period=45 cero = 0 MaxH = highest[period](high) MinL = lowest[period](low) price = customclose if(barindex>MA2period) then Value = 0.3*2*((price-MinL)/(MaxH-MinL)-0.5) + 0.67*Value[1] Fish = 0.3*LOG((1+Value)/(1-Value))+0.5*Fish[1] MA1 = Average[MA1period](Fish) MA2 = WeightedAverage[MA2period](MA1) endif IF fish THEN SEMAFORO1 = 1 ELSE SEMAFORO1 = 0 ENDIF RETURN SEMAFORO1 as "Fish", Fish as "line-Fish", MA1 as "MA fast signal",MA2 as "MA slow signal", CERO COLOURED (0,0,0) as "0"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

  period = P MA1period=9 MA2period=45   cero = 0   MaxH = highest[period](high) MinL = lowest[period](low)   price = customclose   if(barindex>MA2period) then Value = 0.3*2*((price-MinL)/(MaxH-MinL)-0.5) + 0.67*Value[1] Fish = 0.3*LOG((1+Value)/(1-Value))+0.5*Fish[1] MA1 = Average[MA1period](Fish) MA2 = WeightedAverage[MA2period](MA1) endif   IF fish THEN SEMAFORO1 = 1 ELSE SEMAFORO1 = 0 ENDIF RETURN SEMAFORO1 as "Fish", Fish as "line-Fish", MA1 as "MA fast signal",MA2 as "MA slow signal", CERO COLOURED (0,0,0) as "0"

   

   

  variable p = 10

  LineFish en histograma verde y rojo en positivo y negativo

  1 user thanked author for this post.

  Nicolas

  

  corzaroja

  Participant

  Topics: 6

  Replies: 31

  Been thanked: 3 times
  02/02/2017 at 9:32 AM #23513
  Nicolas

  Muchas gracias corzaroja por señalar esto a nuestra atención.
  ¡Usted podría incluso fijar estos códigos agradables en la biblioteca para que todos se beneficien! Gracias 🙂

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  02/02/2017 at 1:11 PM #23556
  supertiti

  Hola Corsaroja

  Tu indicador me parece muy bueno,si podemos tenerlo con las variaciones que van de 0 hasta 100 te agradeceria por el codigo; porque me gustaria mesclarlo
  con otro que va de 0 hasta 100 tambien
  gracias, un saludo.

  // FISHER PRC V1 by Corsaroja period = P MA1period=9 MA2period=45 cero = 0 MaxH = highest[period](high) MinL = lowest[period](low) price = customclose if(barindex>MA2period) then Value = 0.3*2*((price-MinL)/(MaxH-MinL)-0.5) + 0.67*Value[1] Fish = 0.3*LOG((1+Value)/(1-Value))+0.5*Fish[1] MA1 = Average[MA1period](Fish) MA2 = WeightedAverage[MA2period](MA1) endif IF fish THEN SEMAFORO1 = 1 ELSE SEMAFORO1 = 0 ENDIF RETURN SEMAFORO1 as "Fish", Fish as "line-Fish", MA1 as "MA fast signal",MA2 as "MA slow signal", CERO COLOURED (0,0,0) as "0" // Variable : // p = 10 // Tambien tienes este con 2 medias o puedes poner en invisible la MA1. Es más alisado y con // menos ruido, más claro a la vista y marca divergencias.

  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

  // FISHER PRC V1 by Corsaroja   period = P MA1period=9 MA2period=45   cero = 0   MaxH = highest[period](high) MinL = lowest[period](low)   price = customclose   if(barindex>MA2period) then Value = 0.3*2*((price-MinL)/(MaxH-MinL)-0.5) + 0.67*Value[1] Fish = 0.3*LOG((1+Value)/(1-Value))+0.5*Fish[1] MA1 = Average[MA1period](Fish) MA2 = WeightedAverage[MA2period](MA1) endif   IF fish THEN SEMAFORO1 = 1 ELSE SEMAFORO1 = 0 ENDIF   RETURN SEMAFORO1 as "Fish", Fish as "line-Fish", MA1 as "MA fast signal",MA2 as "MA slow signal", CERO COLOURED (0,0,0) as "0"   // Variable : // p = 10 // Tambien tienes este con 2 medias o puedes poner en invisible la MA1. Es más alisado y con // menos ruido, más claro a la vista y marca divergencias.

   

  

  supertiti

  Participant

  Topics: 123

  Replies: 738

  Been thanked: 76 times
  02/02/2017 at 6:51 PM #23668
  corzaroja

  Nicolás, he subido, creo que 3 indicadores nuevos de Fisher, distintos claro, pero es que no los veo.

  Si es tan amable de ver donde están.

  Muchas gracias.

  

  corzaroja

  Participant

  Topics: 6

  Replies: 31

  Been thanked: 3 times
  02/02/2017 at 6:55 PM #23669
  corzaroja

  Pues no lo he hecho nunca Supertiti, no sabría hacerlo.

  Sin embargo quizás Nicolás esté encantado de hacerlo y nos beneficiamos todos.

  Quizás no pueda dar otra visión hecho de ese modo.

  Un saludo

  

  corzaroja

  Participant

  Topics: 6

  Replies: 31

  Been thanked: 3 times
  02/03/2017 at 11:19 AM #23758
  supertiti

  Hola Corzaroja

   

  gracias por contestarme, a ver si Nicolas nos hecha una mano ?!

  un saludo

  

  supertiti

  Participant

  Topics: 123

  Replies: 738

  Been thanked: 76 times
  02/03/2017 at 3:08 PM #23798
  corzaroja

  Nicolás, ya lo he visto, muchas gracias.

  De todas formas falta uno, que es el que va con colores y es el más interesante (que va con anexo también)

  Lo veo en mi perfil, pero no lo veo en la lista de ProBuilder.

   

  Un saludo

  

  corzaroja

  Participant

  Topics: 6

  Replies: 31

  Been thanked: 3 times
  02/03/2017 at 4:05 PM #23802
  supertiti

  El Inverse Fisher transform RSI esta bien, lo utilizo hace años y funciona bastante bien.

  Yo le he puesto una media movil para lisar los señales, ma parece mejor asi ?!

  un saludo

  // INVERSE FISHER TRANSFORM RSI PRC by Corzaroja ind=RSI[N](close) x=0.1*(ind-50) y=(EXP(2*x)-1)/(EXP(2*x)+1) ynorma=50*(y+1) MAynorma = endpointaverage [13](ynorma) RETURN ynorma AS "Fisher Invertido transforma RSI",0 as " 0 " , 20 AS "20",50 as " 50 " , 80 AS "80",100 as " 100 ", MAynorma as " MAIFISH " // Variable // N = Núm. de velas para calcular el RSI = 14

  1 2 3 4 5 6 7 8 9 10 11

  // INVERSE FISHER TRANSFORM RSI PRC by Corzaroja   ind=RSI[N](close) x=0.1*(ind-50) y=(EXP(2*x)-1)/(EXP(2*x)+1) ynorma=50*(y+1) MAynorma = endpointaverage [13](ynorma) RETURN ynorma  AS "Fisher Invertido transforma RSI",0 as " 0 " , 20  AS "20",50 as " 50 " ,  80 AS "80",100 as " 100 ", MAynorma as " MAIFISH "   // Variable //  N = Núm. de velas para calcular el RSI = 14

   

  

  supertiti

  Participant

  Topics: 123

  Replies: 738

  Been thanked: 76 times
  02/03/2017 at 5:08 PM #23810
  Nicolas

  Todavía no se ha tenido tiempo para comprobar el otro post, me pongo tan pronto como sea posible! 😉
  y Gracias!

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4773 times
  02/14/2017 at 12:52 AM #25023
  corzaroja

  Nicolás, han desaparecido los post del Fisher con 2 medias.

  Antes tenia 4, con esos 2 pendientes, ahora solo hay 2.

  Ha habido algún problema?

  

  corzaroja

  Participant

  Topics: 6

  Replies: 31

  Been thanked: 3 times
• Author
  Posts