İndikatör Zig Zag by UUFUK

perc:=2;
diffHi:=H-Ref(H,-1);
diffLo:=Ref(L,-1)-L;
a:=If(diffLo>diffHi,L,H);
z:=ZIG(a,perc,%);
zp:=if(z>ref(z,-1),1,-1);
last1:=ValueWhen(1, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR  ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
last2:=ValueWhen(2, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR  ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
pc:=(100*abs(C-last1)/ last1)>=perc;
Cross(c,last2) and pc and zp=1

perc:=2;
diffHi:=H-Ref(H,-1);
diffLo:=Ref(L,-1)-L;
a:=If(diffLo>diffHi,L,H);
z:=ZIG(a,perc,%);
zp:=if(z>ref(z,-1),1,-1);
last1:=ValueWhen(1, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR  ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
last2:=ValueWhen(2, ( Z > Ref(Z,-1) AND Ref(Z,-1) < Ref(Z,-2) ) OR  ( Z < Ref(Z,-1) AND Ref(Z,-1) > Ref(Z,-2) ), Ref(Z,-1));
pc:=(100*abs(C-last1)/ last1)>=perc;
Cross(last2,c) and pc and zp=-1