Variazione % progr. da inizio anno scorso riportata sull’anno in corsoata

• 09/14/2023 at 6:09 PM #221048
  Gabriele Battista

  Ho costruito un indicatore che per ogni candela riporta la variazione del close rispetto all’open dell’anno passato nella corrispondente candela dell’anno in corso (esempio il 3/3/23 ho un valore pari alla variazione % del close dal 3/3/22 a inizi 22 (in realtà è il numero della candela progressiva dell’anno che fa testo). Ho poi plottato con la stessa logica i punti successivi alla data odierna. E’ possibile congiungerli con un comando grafico. Allego anche il cofdice

  DEFPARAM DRAWONLASTBARONLY=TRUE // // SETTAGGIO S&p500 INDEX // once a2022=251 once a2021=252 once a2020=253 once a2019=252 once a2018=251 once a2017=251 once a2016=252 once a2015=252 once a2014=252 once a2013=252 once a2012=250 once a2011=252 once a2010=252 once a2009=252 once a2008=254 once a2007=251 once a2006=251 once a2005=252 once a2004=252 once a2003=252 // ONCE Conto = 0 IF OpenYear <> OpenYear[1] THEN Conto = 0 ENDIF Conto = Conto + 1 if conto=1 then annoprec=close[1] endif varpercanno=(close-annoprec)/annoprec*100 Closemedia1=varpercanno[A2022] // "PROIEZIONE ANNO" for i=1 to 50 k=a2022-i valore=varpercanno[k] DRAWPOINT(barindex+i, valore, 1) coloured (0,0,0) //DRAWTEXT("Valore = #valore#", barindex+60, valore)coloured (0,0,0) TEST PER DEBUG VALORE next DRAWTEXT("Valore progressiva % anno prec.", barindex+80, valore)coloured (0,0,0) // RETURN Closemedia1 AS "1 anno"

  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

  DEFPARAM DRAWONLASTBARONLY=TRUE // // SETTAGGIO S&p500 INDEX // once a2022=251 once a2021=252 once a2020=253 once a2019=252 once a2018=251 once a2017=251 once a2016=252 once a2015=252 once a2014=252 once a2013=252 once a2012=250 once a2011=252 once a2010=252 once a2009=252 once a2008=254 once a2007=251 once a2006=251 once a2005=252 once a2004=252 once a2003=252   //   ONCE Conto = 0 IF OpenYear <> OpenYear[1] THEN Conto = 0 ENDIF   Conto = Conto + 1 if conto=1 then annoprec=close[1] endif   varpercanno=(close-annoprec)/annoprec*100   Closemedia1=varpercanno[A2022]   // "PROIEZIONE ANNO" for i=1 to 50 k=a2022-i valore=varpercanno[k] DRAWPOINT(barindex+i, valore, 1) coloured (0,0,0) //DRAWTEXT("Valore = #valore#", barindex+60, valore)coloured (0,0,0) TEST PER DEBUG VALORE next DRAWTEXT("Valore progressiva % anno prec.", barindex+80, valore)coloured (0,0,0) //       RETURN Closemedia1 AS "1 anno"

   

  

  Gabriele Battista

  Participant

  Topics: 86

  Replies: 171

  Been thanked: 9 times
  09/15/2023 at 2:36 PM #221113
  robertogozzi

  Eccolo:

  DEFPARAM DRAWONLASTBARONLY=TRUE // // SETTAGGIO S&p500 INDEX // once a2022=251 once a2021=252 once a2020=253 once a2019=252 once a2018=251 once a2017=251 once a2016=252 once a2015=252 once a2014=252 once a2013=252 once a2012=250 once a2011=252 once a2010=252 once a2009=252 once a2008=254 once a2007=251 once a2006=251 once a2005=252 once a2004=252 once a2003=252 // ONCE Conto = 0 IF OpenYear <> OpenYear[1] THEN Conto = 0 ENDIF Conto = Conto + 1 if conto=1 then annoprec=close[1] endif varpercanno=(close-annoprec)/annoprec*100 Closemedia1=varpercanno[A2022] // "PROIEZIONE ANNO" for i=1 to 50 k=a2022-i valore=varpercanno[k] //DRAWPOINT(barindex+i, valore, 1) coloured (0,0,0) IF i = 1 THEN DrawSegment(barindex, Closemedia1, BarIndex+i,valore) coloured (0,0,0) ELSIF i > 1 THEN DrawSegment(barindex+i-1, Prec, BarIndex+i,valore) coloured (0,0,0) ENDIF Prec = valore //DRAWTEXT("Valore = #valore#", barindex+60, valore)coloured (0,0,0) TEST PER DEBUG VALORE next DRAWTEXT("Valore progressiva % anno prec.", barindex+80, valore)coloured (0,0,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

  DEFPARAM DRAWONLASTBARONLY=TRUE // // SETTAGGIO S&p500 INDEX // once a2022=251 once a2021=252 once a2020=253 once a2019=252 once a2018=251 once a2017=251 once a2016=252 once a2015=252 once a2014=252 once a2013=252 once a2012=250 once a2011=252 once a2010=252 once a2009=252 once a2008=254 once a2007=251 once a2006=251 once a2005=252 once a2004=252 once a2003=252 // ONCE Conto = 0 IF OpenYear <> OpenYear[1] THEN Conto = 0 ENDIF   Conto = Conto + 1 if conto=1 then annoprec=close[1] endif   varpercanno=(close-annoprec)/annoprec*100 Closemedia1=varpercanno[A2022] // "PROIEZIONE ANNO" for i=1 to 50 k=a2022-i valore=varpercanno[k] //DRAWPOINT(barindex+i, valore, 1) coloured (0,0,0) IF i = 1 THEN DrawSegment(barindex, Closemedia1, BarIndex+i,valore) coloured (0,0,0) ELSIF i > 1 THEN DrawSegment(barindex+i-1, Prec, BarIndex+i,valore) coloured (0,0,0) ENDIF Prec = valore //DRAWTEXT("Valore = #valore#", barindex+60, valore)coloured (0,0,0) TEST PER DEBUG VALORE next DRAWTEXT("Valore progressiva % anno prec.", barindex+80, valore)coloured (0,0,0)

   

  1 user thanked author for this post.

  Gabriele Battista

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17087

  Been thanked: 4005 times
  09/15/2023 at 3:34 PM #221118
  Gabriele Battista

  Grazie, perfetto! Se volessi mantenere comunque i punti o usare un diverso spessore per differenziare il passato dal futuro sarebbe possibile farlo?

   

  

  Gabriele Battista

  Participant

  Topics: 86

  Replies: 171

  Been thanked: 9 times
  09/15/2023 at 6:01 PM #221123
  robertogozzi

  Se vuoi anche i punti basta che togli i commenti dalla riga 42.

  Mi sono accorto adesso che avevo tagliato l’ultima riga, credo tu l’abbia capito e l’abbia ricopiata esattamente com’era, quella non cambia.

  Ecco come stampare il segmento aggiungendo STYLE per lo spessore (può andare da 1 a 5, comunque vedi https://www.prorealcode.com/documentation/style/):

  DrawSegment(barindex+i-1, Prec, BarIndex+i,valore) style(Line,1) coloured (0,0,0)

  1	DrawSegment(barindex+i-1, Prec, BarIndex+i,valore) style(Line,1) coloured (0,0,0)

  ovviamente anche sull’altra riga basta che metti style(Line,1) nella stessa posizione.

  1 user thanked author for this post.

  Gabriele Battista

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17087

  Been thanked: 4005 times
  09/15/2023 at 6:46 PM #221124
  Gabriele Battista

  Si mi ero accorto, grazie. Tutto chiarissimo perfetto

   

  

  Gabriele Battista

  Participant

  Topics: 86

  Replies: 171

  Been thanked: 9 times
• Author
  Posts