把定妖股装到通达信后,以线上穿、下穿给出交叉信号,对价格序列做平滑去噪,65 行源码原样贴出,便于二次修改。同一篇另附 1 套配套公式,主图、副图、选股可分开导入。
指标类型 副图指标 适用软件 通达信
适用周期 日线 / 60分钟 未来函数 无未来函数
加密状态 源码未加密,可修改 源码行数 65
公式套数 2 套 包含 定妖股副图(29行) / 定妖股选股(36行)
一、指标效果截图


二、公式源码
以下源码未加密,复制 → 打开通达信 → Ctrl+F 调出公式管理器 → 新建 → 粘贴 → 测试公式 → 保存即可调用。多套公式请分别新建,名称不要重名。
1. 定妖股副图(副图 · 29 行)
N:=2;
ZT:=C>=ZTPRICE(REF(C,1),0.1);
ZBTN:=(COUNT(ZT,N)=1 AND ZT);
ZBT1:=V/700000000;
ZBT2:=1.1*(MAX(H,REF(C,1))/MIN(L,REF(C,1))-1);
ZBT3:=2.5*MAX(ZBT1,ZBT2);
ZBT4:=DMA(C,ZBT3);
ZBT5:=SMA(20*(ZBT4/REF(ZBT4,1)-1),2,1);
ZBT6:=EMA(ZBT5,2);
ZBT7:=0.24;
ZBT8:=C>=REF(C,1);
XX:= IF(ZBT5>ZBT7 AND ZBT6>=0.005 AND ZBT8,1,0);
XXX:=CROSS(XX,0.5) AND COUNT(XX>0.5,10)=1;
QB:="KDJ.J"-REF("KDJ.J",1)>30 AND C/REF(C,1)>1.043 AND "MACD.MACD">0 AND "MACD.DEA">0;
LS:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,12),2.1*FORCAST(V,12));
LQ:=FILTER(LS,28)*100 AND L>REF(C,1)*0.93;
XG:=QB OR LQ AND XXX;
M11:=9;
M12:=10;
B1:=C/REF(C,1)>1+0.01*M11;
B2:=EXIST(C/REF(C,1)>1+0.01*M11,M12);
B3:=C/REF(C,1)>1+0.01*M11;
MM:=IF(B1+B2+B3=3,1,0);
CC:=(H-C)/(C-O)<0.33;
DD:=(C/REF(C,1)-1)>=0.0502 AND C>REF(C,1) AND (O-L)/(C-O)>=1.48 AND L<REF(L,1) AND L<REF(L,2);
EE:=(C/REF(C,1)-1)>=0.08;
AA:=V>REF(V,1)*1.9 AND C>REF(C,1) AND C/REF(C,1)-1>=0.049 AND CC;
BB:=(C/REF(C,1)-1)>=0.0502 AND C>REF(C,1) AND V>REF(V,1) AND V>REF(V,1)*2.5 AND CC;
CCB:=EMA(2.055*EMA(EMA(H,34),34)-EMA(EMA(L,34),34),5),COLORCYAN,LINETHICK2;
2. 定妖股选股(选股 · 36 行)
N:=2;
ZT:=C>=ZTPRICE(REF(C,1),0.1);
ZBTN:=(COUNT(ZT,N)=1 AND ZT);
ZBT1:=V/700000000;
ZBT2:=1.1*(MAX(H,REF(C,1))/MIN(L,REF(C,1))-1);
ZBT3:=2.5*MAX(ZBT1,ZBT2);
ZBT4:=DMA(C,ZBT3);
ZBT5:=SMA(20*(ZBT4/REF(ZBT4,1)-1),2,1);
ZBT6:=EMA(ZBT5,2);
ZBT7:=0.24;
ZBT8:=C>=REF(C,1);
XX:= IF(ZBT5>ZBT7 AND ZBT6>=0.005 AND ZBT8,1,0);
XXX:=CROSS(XX,0.5) AND COUNT(XX>0.5,10)=1;
QB:="KDJ.J"-REF("KDJ.J",1)>30 AND C/REF(C,1)>1.043 AND "MACD.MACD">0 AND "MACD.DEA">0;
LS:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,12),2.1*FORCAST(V,12));
LQ:=FILTER(LS,28)*100 AND L>REF(C,1)*0.93;
XG:=QB OR LQ AND XXX;
M11:=9;
M12:=10;
B1:=C/REF(C,1)>1+0.01*M11;
B2:=EXIST(C/REF(C,1)>1+0.01*M11,M12);
B3:=C/REF(C,1)>1+0.01*M11;
MM:=IF(B1+B2+B3=3,1,0);
CC:=(H-C)/(C-O)<0.33;
DD:=(C/REF(C,1)-1)>=0.0502 AND C>REF(C,1) AND (O-L)/(C-O)>=1.48 AND L<REF(L,1) AND L<REF(L,2);
EE:=(C/REF(C,1)-1)>=0.08;
AA:=V>REF(V,1)*1.9 AND C>REF(C,1) AND C/REF(C,1)-1>=0.049 AND CC;
BB:=(C/REF(C,1)-1)>=0.0502 AND C>REF(C,1) AND V>REF(V,1) AND V>REF(V,1)*2.5 AND CC;
CCB:=EMA(2.055*EMA(EMA(H,34),34)-EMA(EMA(L,34),34),5),COLORCYAN,LINETHICK2;
YDXG:=IF(FILTER(AA OR BB OR DD OR EE AND CCB>C,34),1,0) AND MM;
LYQD:=XG OR YDXG;
P:=CROSS(LYQD,1),LYQD-LYQD*0.14 AND ZBTN;
QUI:=H=C;
A:=(C-REF(C,1))/REF(C,1)*100>=0.93 AND QUI;
T:=BARSLAST(P);
XG1:T AND A AND T<=1;
三、安装与调用
通达信客户端按 Ctrl + F 打开「公式管理器」。
选中对应分组(技术指标公式 → 其他类型 / 条件选股公式),点「新建」。
公式名称填英文或拼音(不含空格、不超过 10 个字符),把源码粘进编辑区。
点「测试公式」,提示编译通过后「确定」保存。
K 线图界面输入公式名称调出;选股公式在「条件选股」里执行。
四、使用提醒
指标本质是把价格与成交量做数学加工,用来辅助判断趋势和买卖时机,不能预测未来。任何公式都有失效区间,请结合大盘环境、板块节奏与仓位管理使用。本文源码仅供学习研究,不构成投资建议。
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。
