n:=13;m:=3;psy:=count(close>ref(close,1),n)/n*100;pa:=ma(psy,m);jj:=dyna**(11) ;tj4:=filter((c-jj)/jj<-0.02 and pa<16,13);tj5:=filter((c-jj)/jj<-0.04 and pa<16,13);tj4 or tj5;
gjtj1:=100*(c-llv(l,5))/(hhv(c,5)-llv(l,5));gjtj4:=100*(c-llv(l,30))/(hhv(c,30)-llv(l,30));xg:=barslast(cross(gjtj4,gjtj1))<5 and gjtj1>gjtj4;count(xg,3)=1 and xg and c>ma(c,20);