等级: 免费版
- 注册:
- 2021-6-5
- 曾用名:
|

楼主 |
发表于 2022-11-29 17:11
|
显示全部楼层
ma10:ma(c,10);
HX:DRAWNULL;
H1:=HHV(H,3);
IF ALL(L>MA20,3) THEN HX:=H1;
LX:DRAWNULL,NODRAW;
L1:=LLV(L,3);
IF ALL(H<MA20,3) THEN LX:=L1;
showH:HX,COLORRED;
showL:lx,COLORGREEN;
VARIABLE:mark:=0;
if HX then mark:=1;
if lx then mark:=-1;
lzh:ref(mark=-1,1) and mark=1;
hzl:ref(mark=1,1) and mark=-1;
ma10:ma(c,10);
hx:"T1.showH",COLORRED;
lx:"T1.showL",COLORGREEN;
lzh:="T1.lzh";
hzl:="T1.hzl";
LEN1:=BARSLAST(lzh)+1;
LEN2:=BARSLAST(hzl)+1;
redV:=if(VALID(hx),hx,0),NODRAW;
redH_location:=HHVBARS(redV,len1);
greenV:=if(VALID(lx),lx,1000000),NODRAW;
greenL_location:=LLVBARS(greenV,LEN2);
S1:BACKSET(hzl,redH_location+1);
S2:BACKSET(lzh,greenL_location+1);
DRAWICON(cross(s1,0),h,1);
DRAWICON(cross(s2,0),L,2);
DRAWLINE(cross(s1,0),H,cross(s2,0) OR ISLASTBAR,L,0);
DRAWLINE(cross(s2,0),L,cross(s1,0) OR ISLASTBAR,H,0);
i5:=ref(l,len_5-1),NODRAW;
i4:=ref(h,len_4-1),NODRAW;
i3:=ref(l,len_3-1),NODRAW;
i2:=ref(h,len_2-1),NODRAW;
i1:=ref(l,len_1-1),NODRAW;
i0:=ref(h,len_0-1),NODRAW;
cd1:=i1>i3 and i3>i5 and i0>i2 and i2>i4 and i4<i0 and i1<i0 and i3<i2 and i5<i4;
cd2:=((i3-i2))<((i1-i0)) and ((i3-i2))<((i5-i4));
cd3:=(i0-i5)/i0>=0.005;
cd:cd1 and cd2 and cd3;
DRAWICON(cd and cross(s2,0),h,3);
|
|