Enter Long:

n := 12 {Time periods};
BullFear := (HHV(HIGH,n) - LLV(HIGH,n))/2 + LLV(HIGH,n);
Cross(CLOSE,BullFear)

Enter Short:

n := 12 {Time periods};
BearFear := (HHV(LOW,n) - LLV(LOW,n))/2 + LLV(LOW,n);
Cross(BearFear,CLOSE)

Four-Bar Fear System Test

Enter Long:

n := 12 {Time periods};
BullFear := (HHV(HIGH,n) - LLV(HIGH,n))/2 + LLV(HIGH,n);
BearFear := (HHV(LOW,n) - LLV(LOW,n))/2 + LLV(LOW,n);
Cross(CLOSE,BullFear) AND Ref(Sum(CLOSE < BullFear AND CLOSE> BearFear,4),-1)= 4

Close Long:

LOW < Ref(LLV(LOW,3),-1)

Enter Short:

n := 12 {Time periods};
BullFear := (HHV(HIGH,n) - LLV(HIGH,n))/2 + LLV(HIGH,n);
BearFear := (HHV(LOW,n) - LLV(LOW,n))/2 + LLV(LOW,n);
Cross(BearFear,CLOSE) AND Ref(Sum(CLOSE < BullFear AND CLOSE> BearFear,4),-1)= 4

Close Short:

HIGH > Ref(HHV(HIGH,3),-1)