{Hammer Fuction Return Hammer =True if all condition is met
Input: RBT: Ratio Bar / Tail // RBT: Ratio Body Tail
Output: Tail 
Hammer (True or False) }
 
variables:RBT(0);// Ratio Bar tail
Variables:DoubleLength(0),DoubleBody(0),DoubleTail(0);
Variables:DoubleLBody(0),DoubleHBody(0);
 
_Hammer=true;

RBT=0.99;              // If = 1 then Body and Tail could be of equal length. Other Value may be tested
Body=absvalue(open-close);
LBody=Minlist(Close,Open);// Slect the bottom price of the body
HBody=Maxlist(close,open);          // Select the upper price of the body
Tail=LBody-Low;// Tail = Lower part of the body - low of the bar
 

Print(value1," ",High," ",Low," ",Open," ",Close);   // for debugging only
Value1=value1+1;                                        //          :: ::
 

 
If((Body/Tail)<RBT)and(close>=medianprice)then_Hammer=true  {The body as to be smaller than the tail by a determined ratio ( RBT)}

 
else begin
  _Hammer=False;             //Actual ratio = Body / Tail. This as to be < then the targeted RBT
    Tail=0;
End