[PEL] 复制代码
ma40:ma(c,40),colorgreen,linethick2;
atr :=ma(tr,14);
ma20:ma(c,20),colormagenta,dot;
ll:=ref(llv(l,3),1);
hh:=ref(hhv(h,3),1);
l2:=ref(llv(l,2),1);
h2:=ref(hhv(h,2),1);
x1:=barslast(c>ma40&&c<ll||c<ma40&&c<l2&&isdown);
x2:=barslast(c>ma40&&c>h2&&isup||c<ma40&&c>hh);
cd:=isup;//区分阴阳线的
stickline(x1<x2 ,c,o,8,if(cd,1,0),colorcyan);//绘制柱体
//绘制上下影线
stickline(x1<x2,if(not(cd),o,c),h,0,if(cd,1,0),colorcyan);
stickline(x1<x2,if(cd,o,c),l,0,if(cd,1,0),colorcyan);
stickline(x1>x2,c,o,8,if(cd,1,0),colorred);//绘制柱体
//绘制上下影线
stickline(x1>x2,if(not(cd),o,c),h,0,if(cd,1,0),colorred);
stickline(x1>x2,if(cd,o,c),l,0,if(cd,1,0),colorred);
aa:=c>ma40 and c>REF(hHv(h,30),1);
bb:=c<ma40 and c<REF(lLv(l,30),1);
drawicon(cross(aa,0.5) and count(cross(aa,0.5),barslast(cross(bb,0.5))+1)=1,h+30,1);
drawicon(cross(bb,0.5) and count(cross(bb,0.5),barslast(cross(aa,0.5))+1)=1,l-30,2);