Computo de velas desde una fecha pasada

• 07/26/2021 at 11:08 PM #174209
  nautilus23

  Buenas tardes. ¿Es posible hacer un indicador que cuente las velas que han pasado por ejemplo desde el 1 de enero del año 2020 hasta la fecha de hoy?. He estado buscando en el foro y no he encontrado nada que me sirva y yo no sé programarlo. Muchas gracias de antemano por la ayuda que me podáis prestar.

  Cómputo de velas desde una fecha pasada.

   

   

  

  nautilus23

  Participant

  Topics: 19

  Replies: 46

  Been thanked: 3 times
  07/27/2021 at 1:46 AM #174212
  robertogozzi

  Ahi esta:

  Once MyDate = 20200101 Once Count = 0 If OpenDate >= MyDate then Count = Count + 1 Endif Return Count as “Velas”

  1 2 3 4 5 6

  Once MyDate = 20200101 Once Count  = 0 If OpenDate >= MyDate then    Count = Count + 1 Endif Return Count as “Velas”

   

  2 users thanked author for this post.

  anjoloro, nautilus23

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  07/27/2021 at 7:26 PM #174264
  nautilus23

  Roberto muchísimas gracias, como en ocasiones anteriores lo has resuelto.

  ¿Se puede hacer otro indicador similar pero complementario  a este que cuente las velas entre dos fechas por ejemplo entre el 1 de enero 2020 y el 16 de agosto de 2020?.

  Un saludo.

  1 user thanked author for this post.

  anjoloro

  

  nautilus23

  Participant

  Topics: 19

  Replies: 46

  Been thanked: 3 times
  07/27/2021 at 8:55 PM #174267
  robertogozzi

  Ahi esta:

  Once MyDate1 = 20200101 Once MyDate2 = 20201231 Once Count  = 0 If OpenDate >= MyDate1 AND OpenDate <= MyDate2 then    Count = Count + 1 Endif Return Count as “Velas”

  1 2 3 4 5 6 7

  Once MyDate1 = 20200101 Once MyDate2 = 20201231 Once Count  = 0 If OpenDate >= MyDate1 AND OpenDate <= MyDate2 then    Count = Count + 1 Endif Return Count as “Velas”

  2 users thanked author for this post.

  anjoloro, nautilus23

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  07/28/2021 at 11:48 AM #174288
  nautilus23

  Muchas gracias.

  Un saludo.

  

  nautilus23

  Participant

  Topics: 19

  Replies: 46

  Been thanked: 3 times
  07/04/2022 at 5:20 PM #196746
  Josep007

  Buenas tardes.

  Buscando en el foro he encontrado este tema que me ha parecido interesante, y me preguntaba si es posible obtener el precio de un activo a una fecha determinada, o incluso la varaicion porcentual edel activo entre dos fechas, previamente establecidas.

  Muchas gracias.

  Saludos,

  

  Josep007

  Participant

  Topics: 4

  Replies: 10

  Been thanked: 0 times
  07/05/2022 at 6:24 PM #196817
  robertogozzi

  Ahi esta:

  DEFPARAM DrawOnLastBarOnly = True //FromDate = 20220101 //from Jan. 1st 2022 //TillDate = 20220630 //to Jun. 30th 2022 (0=till today, included) IF (TillDate <> 0) AND (TillDate < FromDate) THEN tempDate = TillDate TillDate = FromDate FromDate = tempDate ENDIF IF IsLastBarUpdate THEN ToDate = TillDate IF ToDate = 0 THEN ToDate = OpenDate ENDIF LastPrice = 0 PreviousPrice = 0 FOR i = BarIndex DOWNTO 1 j = BarIndex - i IF (OpenDate[j] <= ToDate AND LastPrice = 0) THEN LastPrice = close[j] ENDIF IF (OpenDate[j] <= FromDate AND PreviousPrice = 0) OR (i = 1) THEN PreviousPrice = close[j - 1] IF LastPrice = 0 THEN LastPrice = close[j] ENDIF break ENDIF NEXT Difference = floor((LastPrice * 100 / PreviousPrice) - 100,2) DrawText("Current #LastPrice#, Previous #PreviousPrice#, Variation% #Difference#",BarIndex+10,highest[50](high)) ENDIF RETURN

  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

  DEFPARAM DrawOnLastBarOnly = True //FromDate = 20220101   //from Jan. 1st  2022 //TillDate = 20220630   //to   Jun. 30th 2022   (0=till today, included) IF (TillDate <> 0) AND (TillDate < FromDate) THEN tempDate = TillDate TillDate = FromDate FromDate = tempDate ENDIF IF IsLastBarUpdate THEN ToDate = TillDate IF ToDate = 0 THEN ToDate = OpenDate ENDIF LastPrice     = 0 PreviousPrice = 0 FOR i = BarIndex DOWNTO 1 j = BarIndex - i IF (OpenDate[j] <= ToDate AND LastPrice = 0) THEN LastPrice = close[j] ENDIF IF (OpenDate[j] <= FromDate AND PreviousPrice = 0) OR (i = 1) THEN PreviousPrice = close[j - 1] IF LastPrice = 0 THEN LastPrice = close[j] ENDIF break ENDIF NEXT Difference = floor((LastPrice * 100 / PreviousPrice) - 100,2) DrawText("Current #LastPrice#, Previous #PreviousPrice#, Variation% #Difference#",BarIndex+10,highest[50](high)) ENDIF RETURN

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  07/06/2022 at 6:09 PM #196912
  Josep007

  Muchas gracias Roberto. Lo he probado y funciona perfecto, pero no es exactamente lo que queria, y la culpa ha sido mia por no expresar correctamente la consulta que solicitaba. Yo necesitaria un screener -esto es lo que no habia indicado y que precisaba- que indicandole la fechas de inicio y final, pudiera obtener como resultado, la serie de activos, de una lista, con la indicación porcentual de la variacion producida, de tal manera que pudiera ver los valores que han subido y bajado más.

  Disculpa de nuevo, y gracias anticipadas,

  Saludos,

  José Miguel.

   

   

  

  Josep007

  Participant

  Topics: 4

  Replies: 10

  Been thanked: 0 times
  07/07/2022 at 7:58 AM #196938
  robertogozzi

  Moví su solicitud al foro de soporte de ProScreener.

  Aquí está, pero sin ningún filtro encontrará TODOS los activos elegidos, pero solo le mostrará 50 o 100:

  FromDate = 20220101 //from Jan. 1st 2022 TillDate = 20220630 //to Jun. 30th 2022 (0=till today, included) IF (TillDate <> 0) AND (TillDate < FromDate) THEN tempDate = TillDate TillDate = FromDate FromDate = tempDate ENDIF ToDate = TillDate IF ToDate = 0 THEN ToDate = OpenDate ENDIF LastPrice = 0 PreviousPrice = 0 FOR i = BarIndex DOWNTO 1 j = BarIndex - i IF (OpenDate[j] <= ToDate AND LastPrice = 0) THEN LastPrice = close[j] ENDIF IF (OpenDate[j] <= FromDate AND PreviousPrice = 0) OR (i = 1) THEN PreviousPrice = close[j - 1] IF LastPrice = 0 THEN LastPrice = close[j] ENDIF break ENDIF NEXT Difference = floor((LastPrice * 100 / PreviousPrice) - 100,2) SCREENER[Difference](Difference AS "Var.%")

  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

  FromDate = 20220101   //from Jan. 1st  2022 TillDate = 20220630   //to   Jun. 30th 2022   (0=till today, included) IF (TillDate <> 0) AND (TillDate < FromDate) THEN tempDate = TillDate TillDate = FromDate FromDate = tempDate ENDIF ToDate = TillDate IF ToDate = 0 THEN ToDate = OpenDate ENDIF LastPrice     = 0 PreviousPrice = 0 FOR i = BarIndex DOWNTO 1 j = BarIndex - i IF (OpenDate[j] <= ToDate AND LastPrice = 0) THEN LastPrice = close[j] ENDIF IF (OpenDate[j] <= FromDate AND PreviousPrice = 0) OR (i = 1) THEN PreviousPrice = close[j - 1] IF LastPrice = 0 THEN LastPrice = close[j] ENDIF break ENDIF NEXT Difference = floor((LastPrice * 100 / PreviousPrice) - 100,2) SCREENER[Difference](Difference AS "Var.%")

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  07/07/2022 at 5:31 PM #196988
  Josep007

  Saludos de nuevo, Roberto y gracias por su tiempo.

  Esta vez he encontrado un preblema, y es que el screener me da un error que dice asi “Este proscreener no puede ejecutarse. Una de las instrucciones contiene un offset negativo o un valor excesivo. Los valores de offset han de ser numeros enteros comprendidos entre 0 y 254.

  A que puede ser debido este problema?. Aparentemente, aunque no entienda mucho, a primera vista estaria bien.

  Gracis de nuevo,

  Saludos, José Miguel.

  

  Josep007

  Participant

  Topics: 4

  Replies: 10

  Been thanked: 0 times
  07/09/2022 at 10:40 AM #197048
  robertogozzi

  Intenta reemplazar la línea 15 con esto:

  j = max(0,BarIndex - i)

  1	j = max(0,BarIndex - i)

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  07/09/2022 at 11:34 AM #197052
  Josep007

  Buenos dias y saludos de nuevo, Roberto.

  A pesar de haber sustituido la linea que indicas con la nueva setencia, desgraciadamente persiste el mismo error.

  Saludos,

  José Miguel.

  

  Josep007

  Participant

  Topics: 4

  Replies: 10

  Been thanked: 0 times
  07/09/2022 at 11:51 AM #197053
  robertogozzi

  Me funciona muy bien, sin errores. no se que sugerir Prueba a ponerte en contacto con ProRealTime.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17134

  Been thanked: 4031 times
  07/10/2022 at 8:59 AM #197069
  Josep007

  Hola Roberto. Saludos de nuevo.

  Gracias por tu respuesta. Tay y como sugieres, al persistir el error, mañana lunes me pondre en contacto con el ST de Prorelatime para ver de solucionar este problema. Muchas gracias por tu interes y soluciones.

  Saludos,

  José Miguel.

  

  Josep007

  Participant

  Topics: 4

  Replies: 10

  Been thanked: 0 times
  11/26/2022 at 1:25 PM #204849
  nautilus23

  Buenas tardes.

  Tomando como base estas instrucciones he preparado un indicador, cuyo código adjunto, para calcular la variación porcentual del precio desde una fecha determinada en este caso desde 20220301. Cuando lo aplico al gráfico aparece un mensaje de error indicando que se espera un campo entero positivo con ROC. Y no entiendo por qué teóricamente count debería ser un número entero positivo.

  ¿Cómo lo puedo corregir?

  Muchas gracias.

  Saludos,

  Once MyDate = 20220301 Once Count = 0 If OpenDate >= MyDate then Count = Count + 1 Endif variacionporcentual = ROC[count](close) Return variacionporcentual as "%"

  1 2 3 4 5 6 7 8

  Once MyDate = 20220301 Once Count  = 0 If OpenDate >= MyDate then Count = Count + 1 Endif variacionporcentual = ROC[count](close)   Return variacionporcentual as "%"

   

   

   

   

  

  nautilus23

  Participant

  Topics: 19

  Replies: 46

  Been thanked: 3 times
• Author
  Posts