注意：
本文属于八戒
改编
指标公式，源码可以用于通达信软件，第一部分源码属于主图或副图；第二部分属于选股公式源码（多个选股公式请分别使用）；第三部分属于图片示例。
注意2：防止源码复制粘贴出错，请先把源码复制到WORD文档排序，再从WORD文档中复制源码！
第一部分
【2024七宝妙树】捉首板高仿版
电脑
【2024七宝妙树】捉首板 条件如下：
1、至少连续5日出阳线；
2、当日涨幅>5%；
3、当日
涨停或曾经涨停过；
【2024七宝妙树】捉首板 选股
编写如下：
ZDF:=IF(INBLOCK('创业板'), 0.2, IF(INBLOCK('科创板'),0.2,IF(INBLOCK('ST板块'), 0.05, 0.1)));
ZT:=ZTPRICE(REF(C,1),ZDF);
B1:=(C-REF(C,1))/REF(C,1)*100;
B1B:=ZT AND C=H AND H>=C AND H>L;
A2:=BARSLASTCOUNT(C>O);
A3:=BARSLASTCOUNT(C>O) AND B1>=5 AND A2>=5 AND REF(B1B=0,1);
QAKL:=FILTER(A3,3);
去ST:=NAMELIKE('ST')=0 AND NAMELIKE('*ST')=0 AND NAMELIKE('SST')=0 AND NAMELIKE('S*ST')=0;
去除创业板:=IF(CODELIKE('300'),0,1);
去除科创板:=IF(CODELIKE('688'),0,1);
去除新三板:=IF(CODELIKE('832'),0,1);
去除新三板2:=IF(CODELIKE('430'),0,1);
去除新三板3:=IF(CODELIKE('839'),0,1);
去除新三板4:=IF(CODELIKE('835'),0,1);
去除新三板5:=IF(CODELIKE('831'),0,1);
去除新三板6:=IF(CODELIKE('873'),0,1);
去除新三板7:=IF(CODELIKE('872'),0,1);
去除新三板8:=IF(CODELIKE('301'),0,1);
去除新三板9:=IF(CODELIKE('833'),0,1);
去除新三板10:=IF(CODELIKE('838'),0,1);
XG:=去ST AND 去除创业板 AND 去除科创板 AND 去除新三板 AND 去除新三板2 AND 去除新三板3 AND 去除新三板4 AND 去除新三板5 AND 去除新三板6 AND 去除新三板7 AND 去除新三板8 AND 去除新三板9 AND 去除新三板10;
七宝妙树:QAKL AND XG;
第一部分
【2024七宝妙树】 主图
电脑
【2024七宝妙树】主图
编写如下：
HZPIS_K:=STR2CON(CODE);
TDXPP1:=INDEXADV;
TDXPP2:=INDEXDEC;
TDXPP3:=TDXPP1/(TDXPP1+TDXPP2)*100;
TDXPP3A:=TDXPP1/(TDXPP1+TDXPP2);
TDXPP4:=HY_INDEXADV;
TDXPP5:=HY_INDEXDEC;
TDXPP6:=TDXPP4/(TDXPP4+TDXPP5)*100;
TDXPP6A:=TDXPP4/(TDXPP4+TDXPP5);
出手率:=(1-(1-TDXPP3A)*(1-TDXPP6A))*100,NODRAW;
DRAWTEXT(CURRBARSCOUNT=1,L*0.93,VARCAT(VARCAT('胜算:',VAR2STR(出手率,0)),'%')),COLORMAGENTA;
STICKLINE(C/REF(C,1)>=1.097 AND H>L AND H=C,C,O,2.8,0),COLORMAGENTA;
STICKLINE(REF(C,1)/C>=1.097 AND H>L AND H=C,C,O,2.8,0),COLORLIBLUE;
STICKLINE(H/REF(C,1)>=1.097 AND H>C AND H=C,H,C,0,0),COLORMAGENTA;
STICKLINE(REF(C,1)/L>=1.097 AND H>L AND H=C,C,L,0,0),COLORLIBLUE;
DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.05,0,0,DYBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0,0.035,0,GNBLOCK),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0,0.07,0,FGBLOCK),COLORMAGENTA;
A1:=C>O;
B1:=(C-REF(C,1))/REF(C,1)*100,NODRAW;
B1B:=C/REF(C,1)>1.097 AND C=H AND H>=C AND H>L;
A2:=BARSLASTCOUNT(C>O),NODRAW;
A3:=BARSLASTCOUNT(C>O) AND B1>=5 AND A2>=5 AND REF(B1B=0,1);
QAKL:=FILTER(A3,3);
A4:=BARSLAST(QAKL);
DRAWTEXT(QAKL,H*1.01,'★'),COLORMAGENTA;
STICKLINE(QAKL,O,C,2.8,0),COLORYELLOW;
DRAWTEXT(QAKL,L*0.985,'七宝妙树'),COLORMAGENTA;
DRAWTEXT(B1B AND A4>=1 AND A4<=15,L*0.99,VARCAT(VAR2STR(A4,0),'天')),COLORYELLOW;
上涨家数:SCJYVALUE(31,1,0),COLORRED,NODRAW;
下跌家数:SCJYVALUE(31,2,0),COLORGREEN,NODRAW;
上涨率%:100*上涨家数/(上涨家数+下跌家数),NODRAW;
