[PEL] 复制代码
h1:=callstock('',vthigh,5,0);
o1:=callstock('',vtopen,5,0);
l1:=callstock('',vtlow,5,0);
c1:=callstock('',vtclose,5,0);
v1:=callstock('',vtvol,5,0);
p1:=callstock('',vtopenint,5,0);
sth:=ref(h1,3)<ref(h1,2)&&ref(h1,2)>=ref(h1,1)&&ref(h1,2)>=h1;
stl:=ref(l1,3)>ref(l1,2)&&ref(l1,2)<=ref(l1,1)&&ref(l1,2)<=l1;
ith:=cross(backset(sth&&ref(ref(h1,2),sumbars(sth,2)-1)>ref(ref(h1,2),sumbars(sth,1)-1)&&ref(ref(h1,2),sumbars(sth,2)-1)>ref(ref(h1,2),sumbars(sth,3)-1),sumbars(sth,2)+2),0.5);
itl:=cross(backset(stl&&ref(ref(l1,2),sumbars(stl,2)-1)<ref(ref(l1,2),sumbars(stl,1)-1)&&ref(ref(l1,2),sumbars(stl,2)-1)<ref(ref(l1,2),sumbars(stl,3)-1),sumbars(stl,2)+2),0.5);