Reversal Periods

[binthere 10]

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 20]

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 10]

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 = ...