如何用PEL实现

pxr019225

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);                 

pxr019225

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),LINETHICK2;
DRAWLINE(cross(s2,0),L,cross(s1,0) OR ISLASTBAR,H,0),LINETHICK2;

len_5:=SUMBARS(cross(s2,0),1),NODRAW;
len_4:=SUMBARS(cross(s1,0),1);
len_3:=SUMBARS(cross(s2,0),2);
len_2:=SUMBARS(cross(s1,0),2);
len_1:=SUMBARS(cross(s2,0),3);
len_0:=SUMBARS(cross(s1,0),3);

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);              

52Hz

pxr019225 发表于 2022-11-29 20:21
ma10:ma(c,10);
hx:"T1.showH",COLORRED;
lx:"T1.showL",COLORGREEN;

T1.showH这两个是需要引用的指标吧，可否提供下，谢谢老大。

pxr019225

T1 20楼指标前半部分不是已经有了吗？

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;