Indicatore Volume Profile diviso per sessione

• 06/10/2020 at 6:12 PM #135491
  cventurer

  Ciao, sto costruendo un indicatore per vedere il volume profile ed altre informazioni divisi per sessioni, ad esempio con orario RTH.

  In pratica si configura l’inizio e la fine della sessione, ad esempio 15,22 e nel grafico vengono mostrati:

  -Il POC Precedente

  -Volume profile

  -Apertura e chiusura della sesisone precedente

  -gap dalla sessione precedente

  -con background in rosso la sessione fuori orario

   

  Ho qualche dubbio suk Poc , per ora è ancora in scrittura, però accetto volentieri suggerimenti.

  VenturerPOC

  HourStart=15 HourStop=23 dataOggi=date ScaleFactor=2 NbrBars=6 dataTemp=dataOggi Conteggio=0 once SelEnd=0 once SelStart=0 once CountDays=0 once PrezzoChiusura=0 once PrezzoApertura=0 once ColoreSfondo=0 once LastStartBarIndex=0 once LastStopBarIndex=0 //while CountDays=Maxdays do Conteggio=Conteggio+1 if date[Conteggio]<> dataTemp then CountDays=CountDays+1 SelEnd=0 SelStart=0 //PrezzoChiusura=0 endif OraBarra=hour[Conteggio] //MinutiBarra=minute[Conteggio] if OraBarra=HourStart and SelStart=0 then DRAWVLINE(Barindex[Conteggio])Coloured(0,100,0) DRAWTEXT("#DayStart#/#MonthStart# Close", barindex, PrezzoChiusura+(1*pipsize)) DRAWTEXT("#DayStart#/#MonthStart# Open", barindex, PrezzoApertura+(1*pipsize)) DRAWSEGMENT(Barindex[Conteggio],PrezzoChiusura,LastStopBarIndex,PrezzoChiusura) Coloured(100,10,22) DRAWSEGMENT(Barindex[Conteggio],PrezzoApertura,LastStartBarIndex,PrezzoApertura) Coloured(100,75,22) if Close[conteggio]>PrezzoChiusura then //Green R=127 G=255 B=0 else R=255 G=0 B=0 endif DRAWRECTANGLE(Barindex[Conteggio],Close[conteggio],Barindex,PrezzoChiusura) Coloured(R,G,B) DRAWTEXT("GAP", barindex, (Close[conteggio]+PrezzoChiusura)/2) DayStart=day MonthStart=month if DayStart and MonthStart then endif PrezzoApertura=open[Conteggio] SelStart=1 ColoreSfondo=0 LastStartBarIndex=barindex //DisegnaLariga endif if OraBarra=HourStop and SelEnd=0 then PrezzoChiusura=close[Conteggio] DayStop=day MonthStop=month //Calcolo POC StopLookback=barindex-LastStartBarIndex hh=highest[StopLookback](high) ll=lowest[StopLookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[StopLookback](volume) startbar = barindex[StopLookback] maxbar = 0 while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 ij=1 //for ij = 1 to StopLookback do while ij<=StopLookback do j=ij if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif ij=ij+1 wend //next bullbar = round((volbull*StopLookback)/volsum)*scalefactor bearbar = round((volbear*StopLookback)/volsum)*scalefactor drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0) if bullbar>bearbar then drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,15) coloured(46,139,87) else drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,15) coloured(255,0,0) endif //VPOC if(bullbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif i=i+1 wend ///if intradaybarindex=1 then yesterdayVPOC=vpoclevel[1] drawtext("---------------------------- #DayStop#/#MonthStop# VPOC [#yesterdayVPOC#]----------------------------------------------",BarIndex,vpoclevel[2],dialog,bold,15) coloured(0,0,0) //endif SelEnd=1 DRAWVLINE(Barindex[Conteggio]) Coloured(255,0,0) ColoreSfondo=1 LastStopBarIndex=barindex //DisegnaLariga endif if ColoreSfondo=1 then BACKGROUNDCOLOR(255,0,0,5) endif dataTemp=date[Conteggio] //wend 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 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160

  HourStart=15 HourStop=23     dataOggi=date   ScaleFactor=2 NbrBars=6   dataTemp=dataOggi Conteggio=0   once SelEnd=0 once SelStart=0 once CountDays=0 once PrezzoChiusura=0 once PrezzoApertura=0 once ColoreSfondo=0 once LastStartBarIndex=0 once LastStopBarIndex=0   //while CountDays=Maxdays do Conteggio=Conteggio+1   if date[Conteggio]<> dataTemp then CountDays=CountDays+1 SelEnd=0 SelStart=0 //PrezzoChiusura=0 endif   OraBarra=hour[Conteggio]   //MinutiBarra=minute[Conteggio]   if OraBarra=HourStart and SelStart=0 then DRAWVLINE(Barindex[Conteggio])Coloured(0,100,0)   DRAWTEXT("#DayStart#/#MonthStart# Close", barindex, PrezzoChiusura+(1*pipsize)) DRAWTEXT("#DayStart#/#MonthStart# Open", barindex, PrezzoApertura+(1*pipsize))   DRAWSEGMENT(Barindex[Conteggio],PrezzoChiusura,LastStopBarIndex,PrezzoChiusura) Coloured(100,10,22)   DRAWSEGMENT(Barindex[Conteggio],PrezzoApertura,LastStartBarIndex,PrezzoApertura) Coloured(100,75,22)   if Close[conteggio]>PrezzoChiusura then //Green R=127 G=255 B=0     else R=255 G=0 B=0   endif   DRAWRECTANGLE(Barindex[Conteggio],Close[conteggio],Barindex,PrezzoChiusura) Coloured(R,G,B) DRAWTEXT("GAP", barindex, (Close[conteggio]+PrezzoChiusura)/2)   DayStart=day MonthStart=month if DayStart and MonthStart then   endif   PrezzoApertura=open[Conteggio] SelStart=1 ColoreSfondo=0   LastStartBarIndex=barindex //DisegnaLariga endif     if OraBarra=HourStop and SelEnd=0 then PrezzoChiusura=close[Conteggio]   DayStop=day MonthStop=month //Calcolo POC   StopLookback=barindex-LastStartBarIndex hh=highest[StopLookback](high) ll=lowest[StopLookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[StopLookback](volume) startbar = barindex[StopLookback] maxbar = 0 while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 ij=1 //for ij = 1 to StopLookback do while ij<=StopLookback do j=ij if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif ij=ij+1 wend //next   bullbar = round((volbull*StopLookback)/volsum)*scalefactor bearbar = round((volbear*StopLookback)/volsum)*scalefactor   drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0)   if bullbar>bearbar then drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,15) coloured(46,139,87) else drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,15) coloured(255,0,0) endif //VPOC if(bullbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif    i=i+1 wend   ///if intradaybarindex=1 then yesterdayVPOC=vpoclevel[1]   drawtext("---------------------------- #DayStop#/#MonthStop# VPOC [#yesterdayVPOC#]----------------------------------------------",BarIndex,vpoclevel[2],dialog,bold,15) coloured(0,0,0) //endif   SelEnd=1 DRAWVLINE(Barindex[Conteggio]) Coloured(255,0,0) ColoreSfondo=1 LastStopBarIndex=barindex //DisegnaLariga endif   if ColoreSfondo=1 then BACKGROUNDCOLOR(255,0,0,5) endif   dataTemp=date[Conteggio]   //wend   return

   

  2 users thanked author for this post.

  yanntorp, DaxDigger

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  06/10/2020 at 10:08 PM #135511
  cventurer

  Versione 1.1 aggiornata con molte sistemazioni sia grafiche che di calcolo

  1 user thanked author for this post.

  yanntorp

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  06/14/2020 at 9:11 PM #135927
  cventurer

  Nuova versione 1.3 con altre funzioni aggiunte tra cui anche il calcolo della Value Area

  funzioni

  VPOC,VAL,VAH,Riferimenti HLOC, Riferimento Gap Apertura, Volume profile, Qualche candelstick pattern, doppi min/max, tutto calcolato su sessione RTH…tutto parametrizzabile

  ancora in lavorazione

  2 users thanked author for this post.

  Luigi Garone, robertogozzi

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  06/16/2020 at 12:01 PM #136108
  Luigi Garone

  Ciao CVENTURER complimenti per il gran bel lavoro, sono affascinato da come hai impostato l’indicatore, Vorrei chiederti se possibile, di visionare la versione 1.3 poichè anche io faccio forte affidamento sui volumi nel mio trading e grazie a te potrei evitare di utilizzare altre piattaforme per individuare i poc, le value area etc…

  Grazie in anticipo

  a presto

  

  Luigi Garone

  Participant

  Topics: 4

  Replies: 5

  Been thanked: 0 times
  06/16/2020 at 12:55 PM #136121
  robertogozzi

  La v1.3 non è postata, ma è allegato il file.

  Puoi scaricarlo e importarlo in ProBuilder, se non vuoi attendere la pubblicazione da parte di cventurer.

   

  1 user thanked author for this post.

  cventurer

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16463

  Been thanked: 3639 times
  07/03/2020 at 7:45 PM #138339
  cventurer

  Ciao ti chiedo scusa ma non mi è arrivata la notifica del messaggio, sono molto contento che almeno una persona lo utilizza ahahahah, mi fa molto molto piacere se hai suggerimenti vai pure.

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  07/03/2020 at 7:54 PM #138342
  cventurer

  Nuova versione 1.4, con alcune modifiche

  -La scritta VPOC adesso si colora rossa o verde in base alla prevalenza di scambi (non so se abbia molto senso questa cosa)

  -Aggiunta la configurazione per la percentuale del calcolo della val (solitamente 70%) il valore deve essere indicato in decimali esempio: 0.7

  Qualche suggerimento:

  ValNbrBars non deve essere superiore a 10 (purtoppo nella versoine 10.3 di prorealtime non ci sono gli array, e quindi ho dovuto bloccare a 10 alcuni calcoli)

  ValMinMaxFactor meglio se compreso tra 0 e 1 per dare un segnale affidabile

  Esempi di configurazione

  DAX

  ***30min***

  ValStart:9

  valStop:18

  ValMinMaxFactor: 1

  ValNbrBars: 8

  ValVolPerc: 0.7

   

  ***5min***

  ValStart:9

  valStop:18

  ValMinMaxFactor: 1

  ValNbrBars: 9

  ValVolPerc: 0.7

   

  ***333ticks***

  ValStart:9

  valStop:18

  ValMinMaxFactor: 0.5

  ValNbrBars: 7

  ValVolPerc: 0.7

   

  VenturerPOC 1.4

  //v1.4 //defparam drawonlastbaronly=true defparam calculateonlastbars=1500 HourStart=ValStart //15 HourStop=ValStop //23 dataOggi=date ScaleFactor=2 NbrBars=ValNbrBars //ValMinMaxFactor=1 dataTemp=dataOggi Conteggio=0 once SelEnd=0 once SelStart=0 once CountDays=0 once PrezzoChiusura=0 once PrezzoApertura=0 once PrezzoLow=0 once PrezzoHigh=0 once ColoreSfondo=0 once LastStartBarIndex=0 once LastStopBarIndex=0 once LastPrezzoChiusura=0 Conteggio=Conteggio+1 if date[Conteggio]<> dataTemp then CountDays=CountDays+1 SelEnd=0 SelStart=0 endif OraBarra=openhour[Conteggio] //Calcolo Doppi Max/Min MinMaxFactor=ValMinMaxFactor*pipsize DiffHigh=abs(high[1]-high[2]) DiffMin=abs(low[1]-low[2]) Doppio=0 if DiffHigh <= MinMaxFactor and SelStart=1 then DRAWELLIPSE(barindex, high[1]-(5*pipsize), barindex[3], high[2]+(5*pipsize))Coloured(0,128,0) Doppio=1 endif if DiffMin <= MinMaxFactor and SelStart=1 then DRAWELLIPSE(barindex, low[1]+(5*pipsize), barindex[3], low[2]-(5*pipsize))Coloured(255,0,0) Doppio=1 endif if OraBarra=HourStart and SelStart=0 then //Inizio sessione DRAWVLINE(Barindex[Conteggio])Coloured(0,100,0) DRAWTEXT("#DayStart#/ #MonthStart# Close ", barindex, PrezzoChiusura+(2*pipsize)) DRAWTEXT("#DayStart#/ #MonthStart# Open ", barindex, PrezzoApertura+(2*pipsize)) DRAWTEXT("#DayStart#/ #MonthStart# High ", barindex, PrezzoHigh+(2*pipsize))Coloured(255,0,255) DRAWTEXT("#DayStart#/ #MonthStart# Low ", barindex, PrezzoLow+(2*pipsize))Coloured(255,0,255) DRAWSEGMENT(Barindex[Conteggio],PrezzoChiusura,LastStopBarIndex,PrezzoChiusura) Coloured(255,0,0) DRAWSEGMENT(Barindex[Conteggio],PrezzoApertura,LastStartBarIndex,PrezzoApertura) Coloured(100,75,22) DRAWSEGMENT(Barindex[Conteggio],PrezzoHigh,LastStartBarIndex,PrezzoHigh) Coloured(255,0,255) DRAWSEGMENT(Barindex[Conteggio],PrezzoLow,LastStartBarIndex,PrezzoLow) Coloured(255,0,255) //DRAWSEGMENT(Barindex[Conteggio],ValH,LastStopBarIndex,ValH) Coloured(210,105,30) //DRAWSEGMENT(Barindex[Conteggio],ValL,LastStopBarIndex,ValL) Coloured(0,139,139) if Close[conteggio]>PrezzoChiusura then //Green R=0 G=128 B=0 DRAWTEXT("GAP UP ", barindex, (Close[conteggio]+PrezzoChiusura)/2) else R=255 G=0 B=0 DRAWTEXT("GAP DOWN ", barindex, (Close[conteggio]+PrezzoChiusura)/2) endif DRAWRECTANGLE(Barindex-4,Close[conteggio],Barindex[1],PrezzoChiusura) Coloured(R,G,B) //DRAWTEXT("GAP", barindex, (Close[conteggio]+PrezzoChiusura)/2) DayStart=day MonthStart=month if DayStart and MonthStart then endif LastStartBarIndex=barindex LastPrezzoChiusura=PrezzoChiusura //LastPrezzoApertura=PrezzoApertura LastPrezzoLow=PrezzoLow LastPrezzoHigh=PrezzoHigh PrezzoApertura=open[Conteggio] DRAWARROW(barindex-2, open[Conteggio]) SelStart=1 ColoreSfondo=0 maxbar=0 LastStartBarIndex=barindex LastPrezzoChiusura=PrezzoChiusura VolBar0=0 VolBar1=0 VolBar2=0 VolBar3=0 VolBar4=0 VolBar5=0 VolBar6=0 VolBar7=0 VolBar8=0 VolBar9=0 VolBar10=0 PriceBar0=0 PriceBar1=0 PriceBar2=0 PriceBar3=0 PriceBar4=0 PriceBar5=0 PriceBar6=0 PriceBar7=0 PriceBar8=0 PriceBar9=0 PriceBar10=0 //vPocNBar=0 vPocVol=0 ValH=0 ValL=0 //DisegnaLariga endif LastBarOnChart=Currenthour+1=openhour and Currentminute=openminute and date=today// Currenttime+010000=time and date=today //Currenthour+1=hour and Currentminute=minute and date=today if LastBarOnChart then ValLastBarOnChart=1 else ValLastBarOnChart=0 endif if OraBarra=HourStop and SelEnd=0 or SelStart=1 and ValLastBarOnChart=1 then PrezzoChiusura=close[Conteggio] DayStop=day MonthStop=month //Calcolo POC StopLookback=barindex-LastStartBarIndex+1 hh=highest[StopLookback](high) ll=lowest[StopLookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[StopLookback](volume) volsum70=volsum*ValVolPerc //0.7 startbar = barindex[StopLookback] maxbar = 0 vPocNBar=0 PrezzoLow=ll PrezzoHigh=hh ValH=0 ValL=0 while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 voltot=0 pricelevel=0 ij=1 //for ij = 1 to StopLookback do while ij<StopLookback do j=ij if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif ij=ij+1 wend //next voltot=volbull+volbear pricelevel=(lrange+hrange)/2 bullbar = round((volbull*StopLookback)/volsum)*scalefactor bearbar = round((volbear*StopLookback)/volsum)*scalefactor drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0) if bullbar>bearbar then drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(46,139,87) drawtext(" #voltot#",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(46,139,87) else drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(255,0,0) drawtext(" #voltot#",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(255,0,0) endif if i=0 then VolBar0=voltot PriceBar0=pricelevel endif if i=1 then VolBar1=voltot PriceBar1=pricelevel endif if i=2 then VolBar2=voltot PriceBar2=pricelevel endif if i=3 then VolBar3=voltot PriceBar3=pricelevel endif if i=4 then VolBar4=voltot PriceBar4=pricelevel endif if i=5 then VolBar5=voltot PriceBar5=pricelevel endif if i=6 then VolBar6=voltot PriceBar6=pricelevel endif if i=7 then VolBar7=voltot PriceBar7=pricelevel endif if i=8 then VolBar8=voltot PriceBar8=pricelevel endif if i=9 then VolBar9=voltot PriceBar9=pricelevel endif if i=10 then VolBar10=voltot PriceBar10=pricelevel endif //VPOC if(voltot>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=voltot if bullbar>bearbar then RPoc=46 GPoc=139 BPoc=87 else RPoc=255 GPoc=0 BPoc=0 endif ValH=vpoclevel ValL=vpoclevel VPocNBar=i vPocVol=voltot endif i=i+1 wend ///if intradaybarindex=1 then yesterdayVPOC=vpoclevel drawtext(" ------------------------------ #DayStop#/ #MonthStop# VPOC [#yesterdayVPOC#] [#VolSum#]----------------------------------------------",BarIndex,vpoclevel,dialog,bold,15) coloured(RPoc,GPoc,BPoc) //endif tmpVolSum70=vpocvol i=0 while i<NbrBars do tmpValHNBar=VPocNBar+(i+1) tmpValLNBar=VPocNBar-(i+1) tmpPriceValH=0 tmpVolH=0 tmpPriceValL=0 tmpVolL=0 if tmpValHNBar>NbrBars-1 and tmpValLNbar<0 or tmpVolSum70>VolSum70 then break endif if tmpValHNBar=0 then tmpPriceValH=PriceBar0 tmpVolH=Volbar0 endif if tmpValHNBar=1 then tmpPriceValH=PriceBar1 tmpVolH=Volbar1 endif if tmpValHNBar=2 then tmpPriceValH=PriceBar2 tmpVolH=Volbar2 endif if tmpValHNBar=3 then tmpPriceValH=PriceBar3 tmpVolH=Volbar3 endif if tmpValHNBar=4 then tmpPriceValH=PriceBar4 tmpVolH=Volbar4 endif if tmpValHNBar=5 then tmpPriceValH=PriceBar5 tmpVolH=Volbar5 endif if tmpValHNBar=6 then tmpPriceValH=PriceBar6 tmpVolH=Volbar6 endif if tmpValHNBar=7 then tmpPriceValH=PriceBar7 tmpVolH=Volbar7 endif if tmpValHNBar=8 then tmpPriceValH=PriceBar8 tmpVolH=Volbar8 endif if tmpValHNBar=9 then tmpPriceValH=PriceBar9 tmpVolH=Volbar9 endif if tmpValHNBar=10 then tmpPriceValH=PriceBar10 tmpVolH=Volbar10 endif if tmpValLNBar=0 then tmpPriceValL=PriceBar0 tmpVolL=Volbar0 endif if tmpValLNBar=1 then tmpPriceValL=PriceBar1 tmpVolL=Volbar1 endif if tmpValLNBar=2 then tmpPriceValL=PriceBar2 tmpVolL=Volbar2 endif if tmpValLNBar=3 then tmpPriceValL=PriceBar3 tmpVolL=Volbar3 endif if tmpValLNBar=4 then tmpPriceValL=PriceBar4 tmpVolL=Volbar4 endif if tmpValLNBar=5 then tmpPriceValL=PriceBar5 tmpVolL=Volbar5 endif if tmpValLNBar=6 then tmpPriceValL=PriceBar6 tmpVolL=Volbar6 endif if tmpValLNBar=7 then tmpPriceValL=PriceBar7 tmpVolL=Volbar7 endif if tmpValLNBar=8 then tmpPriceValL=PriceBar8 tmpVolL=Volbar8 endif if tmpValLNBar=9 then tmpPriceValL=PriceBar9 tmpVolL=Volbar9 endif if tmpValLNBar=10 then tmpPriceValL=PriceBar10 tmpVolL=Volbar10 endif if tmpValHNBar>NbrBars-1 then tmpPriceValH=0 tmpVolH=0 endif if tmpValLNBar<0 then tmpPriceValL=0 tmpVolL=0 endif //ValL=tmpPriceValL if tmpVolH>0 or tmpVolL>0 then if tmpVolH>tmpVolL then //if tmpVolSum70<VolSum70 then ValH=tmpPriceValH tmpVolSum70=tmpVolSum70+tmpVolH //endif else //if tmpVolSum70<VolSum70 then //if tmpPriceValL>0 then //ValL=3006 tmpVolSum70=tmpVolSum70+tmpVolL //endif //endif ValL=tmpPriceValL endif endif i=i+1 wend DRAWSEGMENT(LastStartBarIndex-2, ValH,barindex , ValH) Coloured(255,215,0) DRAWSEGMENT(LastStartBarIndex-2, ValL,barindex , ValL) Coloured(0,139,139) DRAWTEXT("VAH #ValH# ", barindex, ValH+(2*pipsize)) Coloured(255,215,0) DRAWTEXT("VAL #ValL# ", barindex, ValL+(2*pipsize)) Coloured(0,139,139) If PrezzoApertura>LastPrezzoHigh and Close>LastPrezzoHigh or PrezzoApertura<LastPrezzoLow and Close<LastPrezzoHigh then DRAWTEXT(" Reduced Size Day", LastStartBarIndex, highest[StopLookback](High)+(5*pipsize), Dialog, Standard, 18) COLOURED(0,255,10) endif if LastBarOnChart then //DRAWLINE(LastStartBarIndex, LastPrezzoChiusura, barindex, LastPrezzoChiusura) Coloured(255,0,0) else DRAWSEGMENT(LastStartBarIndex-4, LastPrezzoChiusura,barindex , LastPrezzoChiusura) Coloured(255,0,0) DRAWVLINE(Barindex[Conteggio]) Coloured(255,0,0) ColoreSfondo=1 LastStopBarIndex=barindex SelEnd=1 SelStart=0 endif //DisegnaLariga endif //Fine arra chiusura eo corrente if ColoreSfondo=1 then BACKGROUNDCOLOR(255,0,0,5) endif dataTemp=date[Conteggio] //text color // white = 255,255,255 ; black = 0,0,0 r = 255 g = 0 b = 255 atr = averagetruerange[10](close)*0.5 StatoPattern=0 DojiSize = 0.05 data=(abs(open - close) <= (high - low) * DojiSize) if Doppio=1 or Doppio[1]=1 then if data then //DRAWTEXT("Doji", barindex, high+atr, Dialog, Standard, 12) COLOURED(R,G,B) endif data2=(close[2] > open[2] and min(open[1], close[1]) > close[2] and open < min(open[1], close[1]) and close < open ) if data2 then DRAWTEXT("Evening Star", barindex, high[1]+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex-1,high[1]) COLOURED(255,0,10) endif data3=(close[2] < open[2] and max(open[1], close[1]) < close[2] and open > max(open[1], close[1]) and close > open ) if data3 then DRAWTEXT("Morning Star", barindex, low[1]-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) DRAWARROWUP(barindex-1,low[1]) COLOURED(0,255,10) endif data4=(open[1] < close[1] and open > close[1] and high - max(open, close) >= abs(open - close) * 3 and min(close, open) - low <= abs(open - close)) if data4 then DRAWTEXT("Shooting Star", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) endif data5=(((high - low)>3*(open -close)) and ((close - low)/(.001 + high - low) > 0.6) and ((open - low)/(.001 + high - low) > 0.6)) if data5 then //DRAWTEXT("Hammer", barindex, high+atr, Dialog, Standard, 12) COLOURED(R,G,B) endif data5b=(((high - low)>3*(open -close)) and ((high - close)/(.001 + high - low) > 0.6) and ((high - open)/(.001 + high - low) > 0.6)) if data5b then //DRAWTEXT("Inverted Hammer", barindex, high+atr, Dialog, Standard, 12) COLOURED(R,G,B) endif data6=(close[1] > open[1] and open > close and open <= close[1] and open[1] <= close and open - close < close[1] - open[1] ) if data6 then //DRAWTEXT("Bearish Harami", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) //DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) endif data7=(open[1] > close[1] and close > open and close <= open[1] and close[1] <= open and close - open < open[1] - close[1] ) if data7 then //DRAWTEXT("Bullish Harami", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) //DRAWARROWUP(barindex,low) COLOURED(0,255,10) endif data8=(close[1] > open[1] and open > close and open >= close[1] and open[1] >= close and open - close > close[1] - open[1] ) if data8 then if Doppio=1 or Doppio[1]=1 then DRAWTEXT("Bearish Engulfing", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) StatoPattern=-1 endif endif data9=(open[1] > close[1] and close > open and close >= open[1] and close[1] >= open and close - open > open[1] - close[1] ) if data9 then if Doppio=1 or Doppio[1]=1 then DRAWTEXT("Bullish Engulfing", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) DRAWARROWUP(barindex,low) COLOURED(0,255,10) StatoPattern=1 endif endif data10=(close[1] < open[1] and open < low[1] and close > close[1] + ((open[1] - close[1])/2) and close < open[1]) if data10 then DRAWTEXT("Piercing Line", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) DRAWARROWUP(barindex,low) COLOURED(0,255,10) StatoPattern=1 endif data14=(((high-low>4*(open-close))and((close-low)/(.001+high-low)>=0.75)and((open-low)/(.001+high-low)>=0.75)) and high[1] < open and high[2] < open) if data14 then DRAWTEXT("Hanging Man", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) StatoPattern=-1 endif data15=((close[1]>open[1])and(((close[1]+open[1])/2)>close)and(open>close)and(open>close[1])and(close>open[1])and((open-close)/(.001+(high-low))>0.6)) if data15 then DRAWTEXT("Dark Cloud Cover", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) StatoPattern=-1 endif endif //wend return StatoPattern as "StatoPattern" //tmpValLNbar coloured(139,0,139) as "volbar1"

  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 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614

  //v1.4 //defparam drawonlastbaronly=true defparam calculateonlastbars=1500   HourStart=ValStart //15 HourStop=ValStop //23     dataOggi=date   ScaleFactor=2 NbrBars=ValNbrBars   //ValMinMaxFactor=1   dataTemp=dataOggi Conteggio=0   once SelEnd=0 once SelStart=0 once CountDays=0 once PrezzoChiusura=0 once PrezzoApertura=0 once PrezzoLow=0 once PrezzoHigh=0 once ColoreSfondo=0 once LastStartBarIndex=0 once LastStopBarIndex=0 once LastPrezzoChiusura=0       Conteggio=Conteggio+1   if date[Conteggio]<> dataTemp then CountDays=CountDays+1 SelEnd=0 SelStart=0   endif   OraBarra=openhour[Conteggio]           //Calcolo Doppi Max/Min   MinMaxFactor=ValMinMaxFactor*pipsize DiffHigh=abs(high[1]-high[2]) DiffMin=abs(low[1]-low[2])   Doppio=0   if DiffHigh <= MinMaxFactor and SelStart=1 then DRAWELLIPSE(barindex, high[1]-(5*pipsize), barindex[3], high[2]+(5*pipsize))Coloured(0,128,0) Doppio=1 endif   if DiffMin <= MinMaxFactor and SelStart=1 then DRAWELLIPSE(barindex, low[1]+(5*pipsize), barindex[3], low[2]-(5*pipsize))Coloured(255,0,0) Doppio=1 endif     if OraBarra=HourStart and SelStart=0 then //Inizio sessione       DRAWVLINE(Barindex[Conteggio])Coloured(0,100,0)   DRAWTEXT("#DayStart#/ #MonthStart# Close                             ", barindex, PrezzoChiusura+(2*pipsize)) DRAWTEXT("#DayStart#/ #MonthStart# Open                             ", barindex, PrezzoApertura+(2*pipsize))   DRAWTEXT("#DayStart#/ #MonthStart# High                             ", barindex, PrezzoHigh+(2*pipsize))Coloured(255,0,255) DRAWTEXT("#DayStart#/ #MonthStart# Low                             ", barindex, PrezzoLow+(2*pipsize))Coloured(255,0,255)     DRAWSEGMENT(Barindex[Conteggio],PrezzoChiusura,LastStopBarIndex,PrezzoChiusura) Coloured(255,0,0) DRAWSEGMENT(Barindex[Conteggio],PrezzoApertura,LastStartBarIndex,PrezzoApertura) Coloured(100,75,22)   DRAWSEGMENT(Barindex[Conteggio],PrezzoHigh,LastStartBarIndex,PrezzoHigh) Coloured(255,0,255) DRAWSEGMENT(Barindex[Conteggio],PrezzoLow,LastStartBarIndex,PrezzoLow) Coloured(255,0,255)   //DRAWSEGMENT(Barindex[Conteggio],ValH,LastStopBarIndex,ValH) Coloured(210,105,30) //DRAWSEGMENT(Barindex[Conteggio],ValL,LastStopBarIndex,ValL) Coloured(0,139,139)     if Close[conteggio]>PrezzoChiusura then //Green R=0 G=128 B=0   DRAWTEXT("GAP UP                    ", barindex, (Close[conteggio]+PrezzoChiusura)/2) else R=255 G=0 B=0 DRAWTEXT("GAP DOWN                      ", barindex, (Close[conteggio]+PrezzoChiusura)/2) endif   DRAWRECTANGLE(Barindex-4,Close[conteggio],Barindex[1],PrezzoChiusura) Coloured(R,G,B) //DRAWTEXT("GAP", barindex, (Close[conteggio]+PrezzoChiusura)/2)   DayStart=day MonthStart=month if DayStart and MonthStart then   endif   LastStartBarIndex=barindex LastPrezzoChiusura=PrezzoChiusura //LastPrezzoApertura=PrezzoApertura LastPrezzoLow=PrezzoLow LastPrezzoHigh=PrezzoHigh   PrezzoApertura=open[Conteggio] DRAWARROW(barindex-2, open[Conteggio]) SelStart=1 ColoreSfondo=0 maxbar=0   LastStartBarIndex=barindex LastPrezzoChiusura=PrezzoChiusura         VolBar0=0 VolBar1=0 VolBar2=0 VolBar3=0 VolBar4=0 VolBar5=0 VolBar6=0 VolBar7=0 VolBar8=0 VolBar9=0 VolBar10=0   PriceBar0=0 PriceBar1=0 PriceBar2=0 PriceBar3=0 PriceBar4=0 PriceBar5=0 PriceBar6=0 PriceBar7=0 PriceBar8=0 PriceBar9=0 PriceBar10=0   //vPocNBar=0 vPocVol=0 ValH=0 ValL=0 //DisegnaLariga endif       LastBarOnChart=Currenthour+1=openhour and Currentminute=openminute   and date=today// Currenttime+010000=time and date=today //Currenthour+1=hour and Currentminute=minute   and date=today   if LastBarOnChart then ValLastBarOnChart=1 else ValLastBarOnChart=0 endif       if OraBarra=HourStop and SelEnd=0  or SelStart=1 and ValLastBarOnChart=1 then PrezzoChiusura=close[Conteggio]   DayStop=day MonthStop=month //Calcolo POC   StopLookback=barindex-LastStartBarIndex+1 hh=highest[StopLookback](high) ll=lowest[StopLookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[StopLookback](volume)   volsum70=volsum*ValVolPerc //0.7   startbar = barindex[StopLookback] maxbar = 0 vPocNBar=0 PrezzoLow=ll PrezzoHigh=hh       ValH=0 ValL=0     while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 voltot=0 pricelevel=0 ij=1   //for ij = 1 to StopLookback do while ij<StopLookback do j=ij if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then   volbull=volbull+volume[j]   else   volbear=volbear+volume[j]   endif endif ij=ij+1 wend //next voltot=volbull+volbear pricelevel=(lrange+hrange)/2   bullbar = round((volbull*StopLookback)/volsum)*scalefactor bearbar = round((volbear*StopLookback)/volsum)*scalefactor   drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0)   if bullbar>bearbar then drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(46,139,87) drawtext("                      #voltot#",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(46,139,87) else drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(255,0,0) drawtext("                      #voltot#",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,10) coloured(255,0,0) endif   if i=0 then VolBar0=voltot PriceBar0=pricelevel endif   if i=1 then VolBar1=voltot PriceBar1=pricelevel endif if i=2 then VolBar2=voltot PriceBar2=pricelevel endif if i=3 then VolBar3=voltot PriceBar3=pricelevel endif if i=4 then VolBar4=voltot PriceBar4=pricelevel endif if i=5 then VolBar5=voltot PriceBar5=pricelevel endif if i=6 then VolBar6=voltot PriceBar6=pricelevel endif if i=7 then VolBar7=voltot PriceBar7=pricelevel endif if i=8 then VolBar8=voltot PriceBar8=pricelevel endif if i=9 then VolBar9=voltot PriceBar9=pricelevel endif if i=10 then VolBar10=voltot PriceBar10=pricelevel endif   //VPOC if(voltot>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=voltot   if bullbar>bearbar then RPoc=46 GPoc=139 BPoc=87 else RPoc=255 GPoc=0 BPoc=0 endif   ValH=vpoclevel ValL=vpoclevel VPocNBar=i vPocVol=voltot endif       i=i+1 wend       ///if intradaybarindex=1 then yesterdayVPOC=vpoclevel   drawtext("                                                                                                              ------------------------------ #DayStop#/ #MonthStop# VPOC [#yesterdayVPOC#]  [#VolSum#]----------------------------------------------",BarIndex,vpoclevel,dialog,bold,15) coloured(RPoc,GPoc,BPoc)       //endif   tmpVolSum70=vpocvol i=0 while i<NbrBars do   tmpValHNBar=VPocNBar+(i+1) tmpValLNBar=VPocNBar-(i+1)   tmpPriceValH=0 tmpVolH=0 tmpPriceValL=0 tmpVolL=0   if tmpValHNBar>NbrBars-1 and tmpValLNbar<0 or tmpVolSum70>VolSum70 then break endif     if tmpValHNBar=0 then tmpPriceValH=PriceBar0 tmpVolH=Volbar0 endif if tmpValHNBar=1 then tmpPriceValH=PriceBar1 tmpVolH=Volbar1 endif if tmpValHNBar=2 then tmpPriceValH=PriceBar2 tmpVolH=Volbar2 endif if tmpValHNBar=3 then tmpPriceValH=PriceBar3 tmpVolH=Volbar3 endif if tmpValHNBar=4 then tmpPriceValH=PriceBar4 tmpVolH=Volbar4 endif if tmpValHNBar=5 then tmpPriceValH=PriceBar5 tmpVolH=Volbar5 endif if tmpValHNBar=6 then tmpPriceValH=PriceBar6 tmpVolH=Volbar6 endif if tmpValHNBar=7 then tmpPriceValH=PriceBar7 tmpVolH=Volbar7 endif if tmpValHNBar=8 then tmpPriceValH=PriceBar8 tmpVolH=Volbar8 endif if tmpValHNBar=9 then tmpPriceValH=PriceBar9 tmpVolH=Volbar9 endif if tmpValHNBar=10 then tmpPriceValH=PriceBar10 tmpVolH=Volbar10 endif   if tmpValLNBar=0 then tmpPriceValL=PriceBar0 tmpVolL=Volbar0 endif if tmpValLNBar=1 then tmpPriceValL=PriceBar1 tmpVolL=Volbar1 endif if tmpValLNBar=2 then tmpPriceValL=PriceBar2 tmpVolL=Volbar2 endif if tmpValLNBar=3 then tmpPriceValL=PriceBar3 tmpVolL=Volbar3 endif if tmpValLNBar=4 then tmpPriceValL=PriceBar4 tmpVolL=Volbar4 endif if tmpValLNBar=5 then tmpPriceValL=PriceBar5 tmpVolL=Volbar5 endif if tmpValLNBar=6 then tmpPriceValL=PriceBar6 tmpVolL=Volbar6 endif if tmpValLNBar=7 then tmpPriceValL=PriceBar7 tmpVolL=Volbar7 endif if tmpValLNBar=8 then tmpPriceValL=PriceBar8 tmpVolL=Volbar8 endif if tmpValLNBar=9 then tmpPriceValL=PriceBar9 tmpVolL=Volbar9 endif if tmpValLNBar=10 then tmpPriceValL=PriceBar10 tmpVolL=Volbar10 endif   if tmpValHNBar>NbrBars-1  then tmpPriceValH=0 tmpVolH=0 endif   if tmpValLNBar<0 then tmpPriceValL=0 tmpVolL=0 endif   //ValL=tmpPriceValL if tmpVolH>0 or tmpVolL>0 then if tmpVolH>tmpVolL then //if tmpVolSum70<VolSum70 then ValH=tmpPriceValH tmpVolSum70=tmpVolSum70+tmpVolH //endif   else   //if tmpVolSum70<VolSum70 then //if tmpPriceValL>0 then //ValL=3006 tmpVolSum70=tmpVolSum70+tmpVolL //endif //endif ValL=tmpPriceValL endif   endif   i=i+1 wend   DRAWSEGMENT(LastStartBarIndex-2, ValH,barindex , ValH) Coloured(255,215,0) DRAWSEGMENT(LastStartBarIndex-2, ValL,barindex , ValL) Coloured(0,139,139)   DRAWTEXT("VAH #ValH#                                  ", barindex, ValH+(2*pipsize)) Coloured(255,215,0) DRAWTEXT("VAL #ValL#                                  ", barindex, ValL+(2*pipsize)) Coloured(0,139,139)   If PrezzoApertura>LastPrezzoHigh and Close>LastPrezzoHigh or PrezzoApertura<LastPrezzoLow and  Close<LastPrezzoHigh then DRAWTEXT("                                 Reduced Size Day", LastStartBarIndex, highest[StopLookback](High)+(5*pipsize), Dialog, Standard, 18) COLOURED(0,255,10) endif   if LastBarOnChart then //DRAWLINE(LastStartBarIndex, LastPrezzoChiusura, barindex, LastPrezzoChiusura) Coloured(255,0,0)   else DRAWSEGMENT(LastStartBarIndex-4, LastPrezzoChiusura,barindex , LastPrezzoChiusura) Coloured(255,0,0)         DRAWVLINE(Barindex[Conteggio]) Coloured(255,0,0) ColoreSfondo=1 LastStopBarIndex=barindex   SelEnd=1 SelStart=0 endif     //DisegnaLariga endif //Fine arra chiusura eo corrente         if ColoreSfondo=1 then BACKGROUNDCOLOR(255,0,0,5) endif   dataTemp=date[Conteggio]             //text color // white = 255,255,255 ; black = 0,0,0 r = 255 g = 0 b = 255 atr = averagetruerange[10](close)*0.5   StatoPattern=0 DojiSize = 0.05 data=(abs(open - close) <= (high - low) * DojiSize) if Doppio=1 or Doppio[1]=1 then if data then //DRAWTEXT("Doji", barindex, high+atr, Dialog, Standard, 12) COLOURED(R,G,B) endif data2=(close[2] > open[2] and min(open[1], close[1]) > close[2] and open < min(open[1], close[1]) and close < open ) if data2 then DRAWTEXT("Evening Star", barindex, high[1]+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex-1,high[1]) COLOURED(255,0,10) endif data3=(close[2] < open[2] and max(open[1], close[1]) < close[2] and open > max(open[1], close[1]) and close > open ) if data3 then DRAWTEXT("Morning Star", barindex, low[1]-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) DRAWARROWUP(barindex-1,low[1]) COLOURED(0,255,10) endif data4=(open[1] < close[1] and open > close[1] and high - max(open, close) >= abs(open - close) * 3 and min(close, open) - low <= abs(open - close)) if data4 then DRAWTEXT("Shooting Star", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) endif data5=(((high - low)>3*(open -close)) and  ((close - low)/(.001 + high - low) > 0.6) and ((open - low)/(.001 + high - low) > 0.6)) if data5 then //DRAWTEXT("Hammer", barindex, high+atr, Dialog, Standard, 12) COLOURED(R,G,B) endif data5b=(((high - low)>3*(open -close)) and  ((high - close)/(.001 + high - low) > 0.6) and ((high - open)/(.001 + high - low) > 0.6)) if data5b then //DRAWTEXT("Inverted Hammer", barindex, high+atr, Dialog, Standard, 12) COLOURED(R,G,B) endif data6=(close[1] > open[1] and open > close and open <= close[1] and open[1] <= close and open - close < close[1] - open[1] ) if data6 then //DRAWTEXT("Bearish Harami", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) //DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) endif data7=(open[1] > close[1] and close > open and close <= open[1] and close[1] <= open and close - open < open[1] - close[1] ) if data7 then //DRAWTEXT("Bullish Harami", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) //DRAWARROWUP(barindex,low) COLOURED(0,255,10) endif data8=(close[1] > open[1] and open > close and open >= close[1] and open[1] >= close and open - close > close[1] - open[1] ) if data8 then if Doppio=1 or Doppio[1]=1 then DRAWTEXT("Bearish Engulfing", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) StatoPattern=-1 endif endif data9=(open[1] > close[1] and close > open and close >= open[1] and close[1] >= open and close - open > open[1] - close[1] ) if data9 then if Doppio=1 or Doppio[1]=1 then DRAWTEXT("Bullish Engulfing", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) DRAWARROWUP(barindex,low) COLOURED(0,255,10) StatoPattern=1 endif endif data10=(close[1] < open[1] and  open < low[1] and close > close[1] + ((open[1] - close[1])/2) and close < open[1]) if data10 then DRAWTEXT("Piercing Line", barindex, low-atr*1.5, Dialog, Standard, 12) COLOURED(0,255,10) DRAWARROWUP(barindex,low) COLOURED(0,255,10) StatoPattern=1 endif data14=(((high-low>4*(open-close))and((close-low)/(.001+high-low)>=0.75)and((open-low)/(.001+high-low)>=0.75)) and high[1] < open and high[2] < open) if data14 then DRAWTEXT("Hanging Man", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) StatoPattern=-1 endif data15=((close[1]>open[1])and(((close[1]+open[1])/2)>close)and(open>close)and(open>close[1])and(close>open[1])and((open-close)/(.001+(high-low))>0.6)) if data15 then DRAWTEXT("Dark Cloud Cover", barindex, high+atr*1.5, Dialog, Standard, 12) COLOURED(255,0,10) DRAWARROWDOWN(barindex,high) COLOURED(255,0,10) StatoPattern=-1 endif endif //wend   return StatoPattern as "StatoPattern" //tmpValLNbar coloured(139,0,139) as "volbar1"

   

   

  1 user thanked author for this post.

  robertogozzi

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  07/03/2020 at 8:05 PM #138346
  cventurer

  La cosa interessante, oltre naturalmente a poc val ecc, è l’unione dei doppi minimi e massimi con i candlestick pattern (in pratica i candelstick vengono visualizzati soltanto in presenza di doppi min/max) se ben contestualizzati danno delle buone indicazioni.

  Ad esempio la giornata di oggi sul dax, indicava molto bene l’inizio della discesa con le Bearish Engulfing. Va sempre contestualizzato, non può essere utilizzato per un trade automatico.

  Comunque i segnali uniti all’analisi volumetrica aiutano molto…oggi ho fatto 170pt sul dax!!

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  07/03/2020 at 8:44 PM #138352
  cventurer

  Scusate mi sono dimenticato di segnalare altre 2 modifiche fatte nella v.1.4

  -Nella riga del POC viene anche indicato il totale del volume scambiato (interessante per confrontare con sessioni precedenti)

  -Nel caso in cui non ci siano riferimenti con la sessione rth precedente viene mostrata una scritta verde “Reduced Size Day”

  

  cventurer

  Participant

  Topics: 21

  Replies: 63

  Been thanked: 31 times
  08/24/2020 at 11:20 AM #142424
  Marco Santini

  Ciao, a quali piattaforme ti riferisci? Io sto cercando un volume profile gratuito come quello di tradingview che pero appunto è a pagamento. Tu quale usi?
  A me questo su prorealtime non funziona

  

  Marco Santini

  Participant

  Topics: 0

  Replies: 2

  Been thanked: 0 times
  08/24/2020 at 12:28 PM #142428
  robertogozzi

  @Marco Santini

  Per favore aggiorna il tup Paese nel profilo. Grazie 🙂

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16463

  Been thanked: 3639 times
  08/24/2020 at 1:25 PM #142432
  Marco Santini

  Fatto, dicevo che servirebbe proprio il volume profile ma questo postato qui sopra non mi funziona, compare un indicatore sotto il grafico e nulla a lato sull’asse Y.

   

  

  Marco Santini

  Participant

  Topics: 0

  Replies: 2

  Been thanked: 0 times
  08/24/2020 at 1:45 PM #142433
  robertogozzi

  Per mettere un indicatore sul grafico occorre cliccare la chiave inglese che si trova nell’angolo in alto a sinistra del grafico, dove c’è scritto PREZZO.

  Da li seleziona AGGIUNGI, quindi scegli l’indicatore dalla lista.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 16463

  Been thanked: 3639 times
  01/04/2021 at 10:02 PM #156354
  Ermitage

  Buonsera, innanzitutto complimenti a cventurer per l’ottimo lavoro, mi chiedevo se era possibile dato che nella versione PRT 11 sono disponibili gli array fosse possibile riadattare il codice aumentando il numero di barre. Grazie

  

  Ermitage

  Participant

  Topics: 10

  Replies: 20

  Been thanked: 1 time
  05/01/2021 at 3:45 PM #168513
  Mara

  Buongiorno,

  stavo cercando fra i vari programmi proprio questo indicatore. L’ho importato ma purtroppo non mi funziona, il grafico si schiaccia e non riesco a visualizzare nulla.

  So che è trascorso tanto tempo da questi post, ma se qualcuno di voi sta usando questo indicatore potrebbe gentilmente spiegarmi cosa possa fare per renderlo leggibile?

  Grazie infinite

  

  Mara

  Participant

  Topics: 2

  Replies: 5

  Been thanked: 0 times
• Author
  Posts