编写要求:
{K线}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,7,0),colorred;
STICKLINE(CLOSE=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
pl5:=zig(3,5);
en1:=zig(3,5)>ref(zig(3,5),1) and ref(zig(3,5),1)<=ref(zig(3,5),2) and ref(zig(3,5),2)<=ref(zig(3,5),3);
ex1:=zig(3,5)[=ref(zig(3,5),2) and ref(zig(3,5),2)>=ref(zig(3,5),3);
pl10:=zig(3,13);
en2:=zig(3,10)>ref(zig(3,10),1) and ref(zig(3,10),1)<=ref(zig(3,10),2) and ref(zig(3,10),2)<=ref(zig(3,10),3);
ex2:=zig(3,10)][=ref(zig(3,10),2) and ref(zig(3,10),2)>=ref(zig(3,10),3);
pl20:=zig(3,26);
en3:=zig(3,20)>ref(zig(3,20),1) and ref(zig(3,20),1)<=ref(zig(3,20),2) and ref(zig(3,20),2)<=ref(zig(3,20),3);
ex3:=zig(3,20)][=ref(zig(3,20),2) and ref(zig(3,20),2)>=ref(zig(3,20),3);
pl40:=zig(3,55);
{
pl5:=HHV(H,5);
pl10:=HHV(H,13);
pl20:=HHV(H,26);
pl40:=HHV(H,55);
en1:=pl5>ref(pl5,1) and ref(pl5,1)<=ref(pl5,2) and ref(pl5,2)<=ref(pl5,3);
ex1:=pl5][=ref(pl5,2) and ref(pl5,2)>=ref(pl5,3);
en2:=pl10>ref(pl10,1) and ref(pl10,1)<=ref(pl10,2) and ref(pl10,2)<=ref(pl10,3);
ex2:=pl10][=ref(pl10,2) and ref(pl10,2)>=ref(pl10,3);
en3:=pl20>ref(pl20,1) and ref(pl20,1)<=ref(pl20,2) and ref(pl20,2)<=ref(pl20,3);
ex3:=pl20][=ref(pl20,2) and ref(pl20,2)>=ref(pl20,3);
}
走强1:=barslast(pl5][ref(pl5,1));
走强2:=barslast(pl10][ref(pl10,1));
走强3:=barslast(pl20][ref(pl20,1));
ztjz5:=if(pl10>ref(pl10,1),count(en1,走强2),0);
ztjd5:=if(pl10>ref(pl10,1),count(ex1,走强2),0);
dtjz5:=if(pl10][ref(pl20,1),count(en2,走强3),0);
ztjd10:=if(pl20>ref(pl20,1),count(ex2,走强3),0);
dtjz10:=if(pl20][ref(pl10,1) and ztjd5=1,h*1.02,'⑴'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.98,'⑵'),colorff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.02,'⑶'),colorff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.98,'⑷'),colorff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.02,'⑸'),colorff;
drawtext(en2 and dtjz10=1,l*0.94,'【A】'),color00ff00;
drawtext(ex2 and dtjd10=2,h*1.03,'【B】'),color00ff00;
drawtext(en3 and ztjz10=1,l*0.94,'【C】'),color00ff00;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.04,'①'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and ztjz10=2,l*0.94,'②'),Linethick3,colorffff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=2 or (ztjd10=0 or ztjd10=2) and ex2,h*1.04,'③'),Linethick3,colorffff;
drawtext(en2 and pl20>ref(pl20,1) and ztjz10=3,l*0.94,'④'),Linethick3,colorffff;
DMLJ:=HHV(H,120);
DMLK:=HHV(H,10);
LM:=LLV(L,120);
LG:=LLV(L,10);
PL100:=IF(C>1000,LM,LG);
DL100:=IF(C>1000,DMLJ,DMLK);
qj1:=pl100*1.382;qj2:=pl100*1.500;qj3:=pl100*1.618;qj4:=pl100*1.809;xh5:=pl100*1.3820*1.3820;
dj1:=Dl100/1.382;dj2:=Dl100/1.500;dj3:=Dl100/1.618;dj4:=Dl100/1.809;dj5:=Dl100/1.3820/1.3820;
{dj1:=Dl100/1.382;dj2:=Dl100/1.500;dj3:=Dl100/1.618;dj4:=Dl100/1.809;}
DRAWTEXT(BARPOS=SYSPARAM(2),H,'\N所属板块:'+BLKNAME),ALIGN4,COLORYELLOW;
地心引力线:(MA(C,30)+MA(C,72))/2,LINETHICK1;
D2大盘用高10%:地心引力线*1.1,COLORWHITE,LINETHICK1;
D3大盘用低7%:地心引力线*0.93,COLORWHITE,LINETHICK1;
MA10:MA(C,10),COLORRED,LINETHICK2;
MA20:MA(C,20),COLORYELLOW,LINETHICK2;
MA144:MA(C,144),LINETHICK1;]
解答:
?