返回列表 发布新帖
查看: 40|回复: 0

[通达信] 通达信〖龙头量价〗主副/选股指标龙头股启动的确定性量价信号解析源码

783

主题

10

回帖

2434

积分

超级版主

积分
2434
发表于 2025-12-24 20:41:09 | 查看全部 |阅读模式


{龙头量价主图指标源码如下}

MA5:MA(C,5)DOTLINE;
MA60:MA(C,60);
X_1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
X_2:=SMA(X_1,3,1);
X_3:=SMA(X_2,3,1);
X_4:=3*X_2-2*X_3;
价格异动:=X_4>95;
龙头量价1:=BARSLASTCOUNT(价格异动)=1;
ZBGS31:=HHV(EMA(CLOSE,17),2);
龙头量价2:EMA(CLOSE,10),COLORRED,LINETHICK1 DOTLINE;
龙头量价3:=IF(ZBGS31=龙头量价2 AND UPNDAY(ZBGS31,3),ZBGS31,DRAWNULL),COLORRED,LINETHICK3;
龙头量价4:=IF(REF(ZBGS31,2)>龙头量价2,龙头量价2,DRAWNULL),COLORGREEN,LINETHICK3;
ZBGS32:=REF(CLOSE,1);
ZBGS33:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
ZBGS34:=SMA(ZBGS33,3,1);
ZBGS35:=SMA(ZBGS34,3,1);
ZBGS36:=3*ZBGS34-2*ZBGS35;
ZBGS37:=SMA(MAX(CLOSE-ZBGS32,0),9,1)/SMA(ABS(CLOSE-ZBGS32),9,1)*100;
ZBGS38:=ZBGS37>=75;
ZBGS39:=ZBGS36>=95;
ZBGS310:=EMA(CLOSE,12)-EMA(CLOSE,26);
ZBGS311:=EMA(ZBGS310,3);
ZBGS312:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
ZBGS313:=SMA(MAX(CLOSE-ZBGS32,0),9,1)/SMA(ABS(CLOSE-ZBGS32),9,1)*100;
ZBGS314:=ZBGS310>ZBGS311 OR ZBGS310=ZBGS311 AND ZBGS312>9 AND ZBGS312< 11 AND 40< ZBGS313 AND ZBGS313< 60 AND CLOSE=HIGH;
ZBGS315:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
ZBGS316:=SMA(ZBGS315,4,1);
ZBGS317:=SMA(ZBGS316,3,1);
ZBGS318:=CLOSE>=OPEN AND CROSS(ZBGS316,ZBGS317) AND ZBGS317<=50;
ZBGS319:=IF(ZBGS38 OR ZBGS39 AND (CLOSE+龙头量价2)/2< 龙头量价2,(3*龙头量价2-CLOSE)/2,(CLOSE+龙头量价2)/2);
ZBGS320:=IF(ZBGS318 OR ZBGS314 AND (CLOSE+龙头量价2)/2>龙头量价2,(3*龙头量价2-CLOSE)/2,(CLOSE+龙头量价2)/2);
STICKLINE(ZBGS37>=75,CLOSE,OPEN,2.3,0),COLORRED;
STICKLINE(ZBGS37>=75,CLOSE,OPEN,2,0),COLORRED;
STICKLINE(ZBGS37>=75,CLOSE,OPEN,1.7,0),COLORRED;
STICKLINE(ZBGS37>=75,CLOSE,OPEN,1.4,0),COLORRED;
STICKLINE(ZBGS37>=75,CLOSE,OPEN,1.1,0),COLORRED;
STICKLINE(ZBGS37>=75,CLOSE,OPEN,0.8,0),COLORRED;
STICKLINE(ZBGS36>=95,CLOSE,OPEN,2.3,0),COLORRED;
STICKLINE(ZBGS36>=95,CLOSE,OPEN,2,0),COLORRED;
STICKLINE(ZBGS36>=95,CLOSE,OPEN,1.7,0),COLORRED;
STICKLINE(ZBGS36>=95,CLOSE,OPEN,1.4,0),COLORRED;
STICKLINE(ZBGS36>=95,CLOSE,OPEN,1.1,0),COLORRED;
STICKLINE(ZBGS36>=95,CLOSE,OPEN,0.8,0),COLORRED;
STICKLINE(ZBGS318,CLOSE,OPEN,2.3,0),COLORYELLOW;
STICKLINE(ZBGS318,CLOSE,OPEN,2,0),COLORYELLOW;
STICKLINE(ZBGS318,CLOSE,OPEN,1.7,0),COLORYELLOW;
STICKLINE(ZBGS318,CLOSE,OPEN,1.4,0),COLORYELLOW;
STICKLINE(ZBGS318,CLOSE,OPEN,1.1,0),COLORYELLOW;
STICKLINE(ZBGS318,CLOSE,OPEN,0.8,0),COLORYELLOW;
STICKLINE(ZBGS318,CLOSE,OPEN,1.8,0),COLORYELLOW;
AA:=C>MA(C,3);
DRAWTEXT(ZBGS318 AND AA,L*0.98,' ★量价异动'),COLORYELLOW;
DRAWICON(ZBGS318 AND AA,L,9);
STICKLINE(龙头量价1,CLOSE,OPEN,2.8,0),COLORYELLOW;
DRAWICON(龙头量价1,L,9);
DRAWTEXT(龙头量价1,L*0.98,' ★量升价涨'),COLORYELLOW;


{龙头量价副图指标源码如下}

R:=IF(DATE+19000000< 20250613,1,DRAWNULL);
量放大:=7*R;
阳倍量:=1*R;
量异动:=C*R;
量突破:=O*R;
阳线:=量异动>=REF(C,1)*(1+量放大/100) AND VOL>REF(VOL,1)*阳倍量*R;
高不破价:=REF(C,BARSLAST(阳线));
低不破价:=REF(L,BARSLAST(阳线));
阳线不破:=CURRBARSCOUNT< 100*R AND BARSLAST(阳线)< 11 AND (LLV(L,BARSLAST(阳线))>低不破价 OR LLV(L,BARSLAST(阳线))=低不破价);
量能:=IF(CURRBARSCOUNT=1 AND PERIOD=5,VOL*240/FROMOPEN,DRAWNULL),NODRAW;
STICKLINE(CURRBARSCOUNT=1 AND PERIOD=5,量能,0,-1,-1),COLOR00C0C0;
成交量:VOL,VOLSTICK;
百日成交量:MA(V,100)COLORBLUE LINETHICK2;
STICKLINE(阳线,O,V,2,0),COLORYELLOW;
DRAWICON(阳线,V*1.002,23);


{龙头量价选股指标源码如下}

X_13:=IF(YEAR>=2018 AND MONTH>=11 AND DAY>=1,0,1);
AA:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;
BB:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;
CC:=EMA(AA,2);
DD:=EMA(BB,5);
X_14:=MAX(EMA(AA,2)-EMA(BB,5),0)*1.2;
X_15:=EMA(X_14,5);
T:=X_15>REF(X_15,1) AND X_13;
QXS:=NOT(CODELIKE('4'));
QKC:=NOT(CODELIKE('688'));
QST:=IF(NAMELIKE('S'),0,1);
QXX:=IF(NAMELIKE('*'),0,1);
QBJ:=NOT(CODELIKE('8'));
TTXD:=QXS AND QST AND QKC AND QXX AND QBJ;
R:=IF(DATE+19000000< 20250613,1,DRAWNULL);
大阳量能:=7*R;
大阳倍量:=1*R;
大阳放量:=C*R;
大阳突破:=O*R;
大阳线:=大阳放量>=REF(C,1)*(1+大阳量能/100)AND VOL>REF(VOL,1)*大阳倍量*R;
量价齐升:REF(NOT(T),1) AND T AND CURRBARSCOUNT< 100 AND TTXD AND 大阳线;

image.png
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

投诉/建议联系

admin@discuz.vip

未经授权禁止转载,复制和建立镜像,
如有违反,追究法律责任
  • 添加微信客服
  • 关注公众号
MACD888量化www.macd888.com -MACD量化论坛-MACD股票论坛-MACD888股票论坛-macd论坛-macd网站-macd官网-Macd888论坛官方-macd俱乐部 © 2001-2026 Discuz! Team. Powered by Discuz! W1.5 闽ICP备2025120954号-1
关灯 在本版发帖
扫一扫添加微信客服
返回顶部
快速回复 返回顶部 返回列表