Linee sul grafico

• 07/07/2018 at 3:03 PM #75531
  robertogozzi

  Ecco il codice aggiornato, stampa linee VIOLA per il primo parametro e VERDI per il secondo, se il secondo è <= al primo stampa sempre in VERDE!

  DEFPARAM CalculateOnLastBars = 1000 //DEFPARAM DrawOnLastBarOnly = true //MioVolume = 0 non stampa niente //MioVolume2 = 0 non stampa niente //BarreRettangolo = 0 stampa un rettangolo pari all'ombra della candela, quindi quasi invisibile Prezzo = 0 Massimo = 0 Minimo = 0 ONCE MioVolume = max(0,min(MioVolume,999999)) //intervallo accettato 0 - 999999 ONCE MioVolume2 = max(0,min(MioVolume2,999999)) //intervallo accettato 0 - 999999 ONCE BarreRettangolo = max(0,min(BarreRettangolo,999999)) //intervallo accettato 0 - 999999 IF Volume >= MioVolume AND MioVolume > 0 THEN r = 138 g = 43 b = 226 IF close > open THEN Massimo = high Minimo = close Prezzo = high ELSE Massimo = close Minimo = low Prezzo = low ENDIF ENDIF IF Volume >= MioVolume2 AND MioVolume2 > 0 THEN r = 144 g = 238 b = 144 IF close > open THEN Massimo = high Minimo = close Prezzo = high ELSE Massimo = close Minimo = low Prezzo = low ENDIF ENDIF DRAWHLINE(Prezzo) COLOURED(r,g,b,255) //(138,43,226,255) DRAWRECTANGLE(BarIndex,Massimo,BarIndex+BarreRettangolo,Minimo)coloured(255,10,10,255) 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 33 34 35 36 37 38 39 40 41 42 43 44

  DEFPARAM CalculateOnLastBars = 1000 //DEFPARAM DrawOnLastBarOnly   = true //MioVolume       = 0  non stampa niente //MioVolume2      = 0  non stampa niente //BarreRettangolo = 0  stampa un rettangolo pari all'ombra della candela, quindi quasi invisibile Prezzo    = 0 Massimo   = 0 Minimo    = 0   ONCE MioVolume       = max(0,min(MioVolume,999999))        //intervallo accettato 0 - 999999 ONCE MioVolume2      = max(0,min(MioVolume2,999999))       //intervallo accettato 0 - 999999 ONCE BarreRettangolo = max(0,min(BarreRettangolo,999999))  //intervallo accettato 0 - 999999   IF Volume >= MioVolume  AND MioVolume > 0 THEN    r = 138    g = 43    b = 226    IF close > open THEN       Massimo = high       Minimo  = close       Prezzo  = high    ELSE       Massimo = close       Minimo  = low       Prezzo  = low    ENDIF ENDIF IF Volume >= MioVolume2  AND MioVolume2 > 0 THEN    r = 144    g = 238    b = 144    IF close > open THEN       Massimo = high       Minimo  = close       Prezzo  = high    ELSE       Massimo = close       Minimo  = low       Prezzo  = low    ENDIF ENDIF DRAWHLINE(Prezzo) COLOURED(r,g,b,255)               //(138,43,226,255) DRAWRECTANGLE(BarIndex,Massimo,BarIndex+BarreRettangolo,Minimo)coloured(255,10,10,255) RETURN

   

  1 user thanked author for this post.

  abd78

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16455

  Been thanked: 3636 times
  07/10/2018 at 1:18 PM #75725
  abd78

  perfetto, grazie mille

  

  abd78

  Participant

  Topics: 15

  Replies: 76

  Been thanked: 0 times
  12/16/2018 at 3:28 PM #87223
  Fabiotti

  Ciao vorrei riprendere l ‘indicatore LINEE E RETT. 1 realizzato qualche settimana fa per modificarlo leggermente.

  Ho notato che l ‘indicatore mostra rette e rettangoli solo per 2-3 giorni nel passato. Se li volessi per più giorni o al limite per tutti come posso fare?

  E’ possibile far disegnare una retta di color giallo oro (anziché viola) in corrispondenza di un volume maggiore o uguale al doppio del valore della prima soglia? Per esempio volume prima soglia = 500 in corrispondenza di un volume maggiore o uguale a 1000 mi deve disegnare una retta giallo oro anziché viola.

  Ho necessità inoltre che tutte le rette disegnate si possano far scomparire e ricomparire tramite una casella di spunta come mostrato in allegato. So per certo che si può fare (dal punto di vista della programmazione)

  Potete aiutarmi?

  

  Fabiotti

  Participant

  Topics: 0

  Replies: 2

  Been thanked: 0 times
  12/18/2018 at 1:09 PM #87355
  robertogozzi

  I rettangoli li visualizza PER SEMPRE, solo che la riga 1 limita il sistema alle ultime 1000 barre per velocizzare l’indicatore. Basta aumentare quel limite, oppure mettere commentarla con le doppie barre per risolvere il problema.

  Ho fatto le modifiche richieste e ti allego il nuovo indicatore ed uno screenshot di come apparirà.

  I colori puoi, ovviamente, variarli come vuoi.

  DEFPARAM CalculateOnLastBars = 10000 //DEFPARAM DrawOnLastBarOnly = true //MioVolume = 0 non stampa niente //MioVolume2 = 0 non stampa niente //BarreRettangolo = 0 stampa un rettangolo pari all'ombra della candela, quindi quasi invisibile //DisegnaRette = 1 (spuntato) disegna le rette 0 (non spuntato) non le disegna Prezzo = 0 Massimo = 0 Minimo = 0 MioVolume = max(0,min(MioVolume,999999)) //intervallo accettato 0 - 999999 MioVolume2 = max(0,min(MioVolume2,999999)) //intervallo accettato 0 - 999999 BarreRettangolo = max(0,min(BarreRettangolo,999999)) //intervallo accettato 0 - 999999 DoppioVolume = MioVolume * 2 IF Volume >= MioVolume AND MioVolume > 0 THEN IF Volume >= DoppioVolume THEN r = 255 g = 215 b = 0 ELSE r = 138 g = 43 b = 226 ENDIF IF close > open THEN Massimo = high Minimo = close Prezzo = high ELSE Massimo = close Minimo = low Prezzo = low ENDIF ENDIF IF Volume >= MioVolume2 AND MioVolume2 > 0 THEN r = 0 //144 g = 128 //238 b = 0 //144 IF close > open THEN Massimo = high Minimo = close Prezzo = high ELSE Massimo = close Minimo = low Prezzo = low ENDIF ENDIF IF DisegnaRette THEN DRAWHLINE(Prezzo) COLOURED(r,g,b,255) //(138,43,226,255) ENDIF DRAWRECTANGLE(BarIndex,Massimo,BarIndex+BarreRettangolo,Minimo)coloured(0,0,0,255)//(255,10,10,255) 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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

  DEFPARAM CalculateOnLastBars = 10000 //DEFPARAM DrawOnLastBarOnly   = true //MioVolume       = 0  non stampa niente //MioVolume2      = 0  non stampa niente //BarreRettangolo = 0  stampa un rettangolo pari all'ombra della candela, quindi quasi invisibile //DisegnaRette    = 1 (spuntato) disegna le rette       0 (non spuntato) non le disegna Prezzo    = 0 Massimo   = 0 Minimo    = 0   MioVolume       = max(0,min(MioVolume,999999))        //intervallo accettato 0 - 999999 MioVolume2      = max(0,min(MioVolume2,999999))       //intervallo accettato 0 - 999999 BarreRettangolo = max(0,min(BarreRettangolo,999999))  //intervallo accettato 0 - 999999 DoppioVolume    = MioVolume * 2   IF Volume >= MioVolume  AND MioVolume > 0 THEN    IF Volume >= DoppioVolume THEN       r = 255       g = 215       b = 0    ELSE       r = 138       g = 43       b = 226    ENDIF    IF close > open THEN       Massimo = high       Minimo  = close       Prezzo  = high    ELSE       Massimo = close       Minimo  = low       Prezzo  = low    ENDIF ENDIF IF Volume >= MioVolume2  AND MioVolume2 > 0 THEN    r = 0   //144    g = 128 //238    b = 0   //144    IF close > open THEN       Massimo = high       Minimo  = close       Prezzo  = high    ELSE       Massimo = close       Minimo  = low       Prezzo  = low    ENDIF ENDIF IF DisegnaRette THEN    DRAWHLINE(Prezzo) COLOURED(r,g,b,255)               //(138,43,226,255) ENDIF DRAWRECTANGLE(BarIndex,Massimo,BarIndex+BarreRettangolo,Minimo)coloured(0,0,0,255)//(255,10,10,255) RETURN

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16455

  Been thanked: 3636 times
  12/18/2018 at 1:55 PM #87358
  Fabiotti

  Grazie mille

  

  Fabiotti

  Participant

  Topics: 0

  Replies: 2

  Been thanked: 0 times
• Author
  Posts