CA:=MA(CLOSE,5);
CJ5:=CA*102/100;
HA:=MA(H,5);
HJ5:=HA*102/100;
TGH1:=IF(C>O AND H>REF(C,1),ATAN(HJ5-REF(CJ5,1)),0);
TGH2:=IF(C>O AND H<REF(C,1),-ATAN(REF(CJ5,1)-HJ5),0);
TGH3:=IF(C>O AND H=REF(C,1),0,0);
LGH1:=IF(C<O AND H>REF(C,1),ATAN(HJ5-REF(CJ5,1)),0);
LGH2:=IF(C<O AND H<REF(C,1),-ATAN(REF(CJ5,1)-HJ5),0);
LGH3:=IF(C<O AND H=REF(C,1),0,0);
GGH:=(TGH1+TGH2+TGH3+LGH1+LGH2+LGH3);