[binthere]

hi guys, i'm a newbie with TS, and would like to be able to automatically have my charts with a vertical line marking reversal periods 10, 10:30, 11, 1pm, 2, 2:30 & 3pm
does anyne know how can i ahve this done?
thank you!!
binthere

[Tams]

try this:

if time = 1000
or time = 1030
or time = 1100 
or time = 1300
or time = 1400
or time = 1430
or time = 1500
then plot10(h*4, "Hist");

set the plot type to histogram.





ps. I have not tested this in TS.

[binthere]

Hi guys

i found a code in a forum that plots vertical lines @ reversal periods (10, 10:30, 11, 1pm, 2:30 &3 also vertical red lines @ 3:45, 3:50, 3:55 &$ indicating that market is closing soon)

well hope it helps, you can change the hours in which the lines ar eploted modifying the script in easy language

regards, binther

Inputs:  
  
    iTimeOffSet   ( 0000 ),    // HHMM offset hours from NY time  
    iStyleTimeLine   (  tool_dotted );  
 Vars:  
    TLSize    ( 0 ),  
    TL_Text_HVal   ( 0 ) ,   
    TL_Text_VVal   ( 2 ) ;  
 vars:   
    sFirstPass   ( true ),  
    sTimePlot   ( false ),  
    TL_TextTime   ( 0 ) ,  
    aLoop    ( 0 ),  
    count    ( 0 ),  
    tlCount    ( 0 ),  
    tlStart    ( 0 ), 
    MaxFutureDisplayTime( 0  ) ;  //  added this variable 
 array:   
    xKeyTimes[10]  ( 0 ),  
    tKeyTimes[10]  ( "" ),  
    cKeyTimesColor[10] ( lightgray ),  
    xTextKeyTimes[10] ( 0 );  
   
         // Inititialize - Could Use Once Begin for First Time Through  
// if  sFirstPass = true then begin  
//  sFirstPass = false;  
 if  CurrentBar = 1 then begin  
  xKeyTimes[000] = 0955 ;  
  xKeyTimes[001] = 1025 ;  
  xKeyTimes[002] = 1055 ;  
  xKeyTimes[003] = 1255 ;  
  xKeyTimes[004] = 1355 ;  
  xKeyTimes[005] = 1425 ;  
  xKeyTimes[006] = 1455 ;  
  xKeyTimes[007] = 1545 ;  
  xKeyTimes[008] = 1550 ;  
  xKeyTimes[009] = 1555 ;  
  tKeyTimes[000] = "" ;  
  tKeyTimes[001] = "" ;  
  tKeyTimes[002] = "" ;  
  tKeyTimes[003] = "" ;  
  tKeyTimes[004] = "" ;  
  tKeyTimes[005] = "" ;  
  tKeyTimes[006] = "" ;  
  tKeyTimes[007] = "" ;  
  tKeyTimes[008] = "" ;  
  tKeyTimes[009] = "" ;  
   
  cKeyTimesColor[000] = lightgray ;  
  cKeyTimesColor[001] = lightgray ;  
  cKeyTimesColor[002] = lightgray ;  
  cKeyTimesColor[003] = lightgray ;  
  cKeyTimesColor[004] = lightgray ;  
  cKeyTimesColor[005] = lightgray ;  
  cKeyTimesColor[006] = lightgray ;  
  cKeyTimesColor[007] = darkred  ;  
  cKeyTimesColor[008] = darkred ;  
  cKeyTimesColor[009] = darkred  ;  
   
  for count = 0 to 9 begin  
   xKeyTimes[count] = CalcTime( xKeyTimes[count], - iTimeOffSet ) ; // changed to use CalcTime for proper calculation  
   if tKeyTimes[count] = "" then   
    tKeyTimes[count] = numtostr(xKeyTimes[count] , 0 ) +  " Reversal" ;  
    end;  //  for count = ...  
   end; {if sFirstPass}  
     
    { PROCESSING }  
  
 TL_TextTime = CalcTime(Time, 3 * BarInterval); // use to right adjust text   
  
 //  Added this section of code to calculate the far right (future time) bar for display for real-time ticks. 
 //  If we are on historical bars then the value is simply the current Time. 
 if LastBarOnChart and GetAppInfo ( aiRealtimeCalc ) = 1 then 
  MaxFutureDisplayTime = CalcTime( LastCalcTime, GetAppInfo ( aiSpaceToRight ) * BarInterval )  
 else 
  MaxFutureDisplayTime = Time ; 
  
 value1 = HighD(0) - Close ;  
 value2 = Close - LowD(0) ;  
  
 if  value1 > value2 then   
  value3 = value1/2 + close  
 else   
  value3 = value2/2 + close ;  
     
 sTimePlot = false ;  
   
 for count = 0 to 9 begin  
  
     //  Added the condition to only plot on the closing bar tick, and to check if the xKeyTimes is bounded between 
     //  the prior bar MaxFutureDisplayTime and the current bar MaxFutureDisplayTime.  If so, then plot the vertical line. 
      
  if BarStatus(1) = 2 and xKeyTimes[count] > MaxFutureDisplayTime[1] and xKeyTimes[count] <= MaxFutureDisplayTime 
    and sTimePlot = false then begin  
   sTimePlot = true ;  
   tlStart = tl_new( date , xKeyTimes[count] ,  high + 0.0001, date , xKeyTimes[count],  low - 0.0001 );  
   tl_SetExtRight(tlStart,true);  
   tl_SetExtLeft(tlStart,true);  
   tl_SetColor(tlStart, cKeyTimesColor[count] );  
   tl_SetStyle(tlStart, iStyleTimeLine );  
   
       { Delete or Draw Text }   
  
   if  xTextKeyTimes[count] > 0 then   
    value9 = Text_Delete( xTextKeyTimes[count] ) ;  
  
   xTextKeyTimes[count]= Text_New(date, xKeyTimes[count], value3, tKeyTimes[count]) ;               
  
   Text_SetColor( xTextKeyTimes[count] , cKeyTimesColor[count]  ) ;   
   Text_SetStyle( xTextKeyTimes[count],  TL_Text_HVal , TL_Text_VVal  ) ;   
  //   HVal: 0=left, 1=right, 2=centered, / VVal: 0=Top, 1=Bottom, 2=Centered   
   Text_SetLocation(xTextKeyTimes[count] , date , TL_TextTime , value3 );  
    
    end; // if time < xKeyTimes[count]  
 end;  //  for count = ...