数浪主图”改为大智慧主图公式

编写要求：

{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(pl5ref(pl5,1));走强2:=barslast(pl10ref(pl10,1));走强3:=barslast(pl20ref(pl20,1));ztjz5:=if(pl10>ref(pl10,1),count(en1,走强2),0);ztjd5:=if(pl10>ref(pl10,1),count(ex1,走强2),0);dtjz5:=if(pl10ref(pl20,1),count(en2,走强3),0);ztjd10:=if(pl20>ref(pl20,1),count(ex2,走强3),0);dtjz10:=if(pl20ref(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;

解答：