Support Board

{=== StepUp Moving Average OR Block Moving Average =============}

  Inputs: SU_ATR_Length ( 2000 ),
     SU_ATR_BoxMultiplyer_1 ( 8 ),
     SU_ATR_BoxMultiplyer_2 ( 13 );

  Vars:   SU_DIR1(0),  SU_WorkBoxHalf1(0),  SU_Midl1(0),  SU_Bot1(0),   SU_Top1(0),
     SU_DIR2(0),  SU_WorkBoxHalf2(0), SU_Midl2(0),  SU_Bot2(0),   SU_Top2(0) ;

  
  SU_WorkBoxHalf1 = ( SU_ATR_BoxMultiplyer_1 * AvgTrueRange( SU_ATR_Length ) * 0.5 ) ;
  
  If H > SU_Top1 then begin
     SU_DIR1 = 1 ;
     SU_Top1 = H ;
     SU_Midl1 = SU_Top1 - SU_WorkBoxHalf1 ;
     SU_Bot1 = SU_Top1 - ( 2 * SU_WorkBoxHalf1 ) ;
   End else
   If L < SU_Bot1 then begin
     SU_DIR1 = -1 ;  
     SU_Bot1 = L ;
     SU_Midl1 = SU_Bot1 + SU_WorkBoxHalf1 ;
     SU_Top1 = SU_Bot1 + ( 2 * SU_WorkBoxHalf1 ) ;
   end ;

  
  SU_WorkBoxHalf2 = ( SU_ATR_BoxMultiplyer_2 * AvgTrueRange( SU_ATR_Length ) * 0.5 ) ;
  
  If H > SU_Top2 then begin
     SU_DIR2 = 1 ;
     SU_Top2 = H ;
     SU_Midl2 = SU_Top2 - SU_WorkBoxHalf2 ;
     SU_Bot2 = SU_Top2 - ( 2 * SU_WorkBoxHalf2 ) ;
   End else
   If L < SU_Bot2 then begin
     SU_DIR2 = -1 ;  
     SU_Bot2 = L ;
     SU_Midl2 = SU_Bot2 + SU_WorkBoxHalf2 ;
     SU_Top2 = SU_Bot2 + ( 2 * SU_WorkBoxHalf2 ) ;
   end ;

  
  
    { ================ Print ======================================}

    vars: SU_mid_C1(0), SU_mid_C2(0);

    If SU_DIR1 = 1 then SU_mid_C1 = cyan else SU_mid_C1 = magenta ;

     plot1 ( SU_Midl1, " SU_Midl1 " , SU_mid_C1 ) ;
    
    If SU_DIR2 = 1 then SU_mid_C2 = cyan else SU_mid_C2 = magenta ;

     plot2 ( SU_Midl2, " SU_Midl2 ", SU_mid_C2 ) ;