通达信“金色龙头”套装--高胜率擒龙指标公式

---

点击 关注☝ ， 置顶 + 星标 每天订阅， 学习更多指标内容 ☼☝

一、指标说明：

主图+ MACD指标 改编而成的起爆副图。主副结合妖股一个跑不掉，它是强调黄金起爆点可以会抓妖的信号。 需要注意的是，”起爆点“信号之后，副图出红柱子时操作，其他阶段观望。

二、主图公式如下：

---

总股本:=STRCAT(STRCAT(' 总股本:',CON2STR(TOTALCAPITAL/1000000,2)),'亿');

流通盘:=STRCAT(STRCAT(' 流通盘:',CON2STR(CAPITAL/1000000,2)),'亿');

全流通:=STRCAT(STRCAT(' 流通比:',CON2STR(CAPITAL/TOTALCAPITAL*100,2)),'％');

市值:=STRCAT(STRCAT(' 流通市值:',CON2STR((CAPITAL/1000000)*C,2)),'亿');

股本市值:=STRCAT('【股本市值】：',STRCAT(STRCAT(STRCAT(总股本,流通盘),全流通),市值));

市盈率:=STRCAT(' 市盈率:',CON2STR(C/FINANCE(33),2));

净资收益率:=STRCAT(' 净资收益率:',CON2STR(FINANCE(33)/FINANCE(34)*100,2));

主营利润率:=STRCAT(' 主营利润率:',CON2STR(FINANCE(23)/FINANCE(20)*100,2));

当前业绩:=STRCAT('【当前业绩】：',STRCAT(STRCAT(市盈率,净资收益率),主营利润率));

DRAWTEXT_FIX(ISLASTBAR,0.005,0.12,0,股本市值),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0.005,0.17,0,当前业绩),COLORMAGENTA;

获利盘％:=100*WINNER(C);

短期压力:=HHV(H,15);

短期支撑:=LLV(L,20);

X11:=(FINANCE(11)-FINANCE(15))/FINANCE(10)*1.2;

X12:=(FINANCE(31)+FINANCE(17))/FINANCE(10)*1.4;{盈余公积用资本公积金代替};

X13:=FINANCE(23)/FINANCE(10)*3.3;

X14:=FINANCE(19)/FINANCE(15)*0.6;{缺长期负债或负债总额}

X15:=FINANCE(20)/FINANCE(15)*0.999;

Z值:=X11+X12+X13+X14+X15;

DRAWTEXT_FIX(C>O,0.01,0.9,0,'微信公众号：欧欧量化'),COLORRED;

DRAWTEXT_FIX(Z值<1.2,0.312,0.22,0,' 【●财务重警●】'),COLORLIRED;

DRAWTEXT_FIX( BETWEEN(Z值,1.2,2.6),0.312,0.22,0,' 【○财务轻警○】'),COLOR0099FF;

DRAWTEXT_FIX(Z值>2.6,0.312,0.22,0,' 【◎财务无警◎】'),COLORLIGREEN;

DRAWTEXT_FIX(C>0,0.005 ,0.22,0,'【获利盘％】:'),COLORRED;

DRAWTEXT_FIX(C>0,0.105,0.22,0,'【短期压力】:'),COLOR00FF00;

DRAWTEXT_FIX(C>0,0.21,0.22,0,'【短期支撑】:'),COLORYELLOW;

DRAWNUMBER_FIX(C>0,0.075,0.22,0,CONST(获利盘％)),COLORRED;

DRAWNUMBER_FIX(C>0,0.175,0.22,0,CONST(短期压力)),COLOR00FF00;

DRAWNUMBER_FIX(C>0,0.28,0.22,0,CONST(短期支撑)),COLORYELLOW;

CTA:EXPMA(CLOSE,13),DOTLINE,COLORGREEN;

CTB:EXPMA(CLOSE,34),COLORWHITE;

CTD:MA(CLOSE,20),COLORRED;

CTE:MA(CLOSE,100),COLORBLUE;

CTAC2:=REF(CLOSE,1);

CTAC3:=IF((CLOSE-CTAC2)*100/CTAC2>=10-0.01*100/CTAC2,1,0);

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

CTF2:=REF(CLOSE,1);

CTF3:=IF((CLOSE-CTF2)*100/CTF2>=5-0.01*100/CTF2,1,0);

MACD:=(DIF-DEA)*2;

CTH1:=IF(CLOSE>REF(CLOSE,1),88,0);

CTH2:=IF(CLOSE/REF(CLOSE,1)>1.01 AND HIGH/CLOSE<1.010 AND CTH1>0,91,0)>1;

CTH3:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3)/4;

CTH4:=(CTH3-REF(CTH3,1))>1;

CTH5:=C/REF(C,1)<1.2;

GP:=CTH2 AND CTH4 AND CTH5;

DFV:=(CLOSE-LLV(LOW,37))/(HHV(HIGH,37)-LLV(LOW,37))*100;

CBT:=(SMA(DFV,5,1)+2*STD(CLOSE,37))<50;

RVL:=CTF3 AND GP AND CBT;

金色龙头:=BARSSINCEN(RVL,5)=0,COLORRED,NODRAW;

DRAWTEXT(金色龙头,L,' ↖金色龙头'),COLORYELLOW;

STICKLINE(金色龙头,OPEN,CLOSE,2,0),COLORYELLOW;

STICKLINE(金色龙头,OPEN,CLOSE,0.6,0),COLORMAGENTA;

三、副图公式如下：

---

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);

DEA:=EMA(DIF,9);

CTA2:=REF(CLOSE,1);

CTA3:=IF((CLOSE-CTA2)*100/CTA2>=5-0.01*100/CTA2,1,0);

中线:=0,COLORYELLOW;

MACD:=(DIF-DEA)*2;

CTB1:=IF(CLOSE>REF(CLOSE,1),88,0);

CTB2:=IF(CLOSE/REF(CLOSE,1)>1.01 AND HIGH/CLOSE<1.010 AND CTB1>0,91,0)>1;

CTB3:=EMA(100*(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)),3)/4;

CTB4:=(CTB3-REF(CTB3,1))>1;

CTB5:=C/REF(C,1)<1.2;

GP:=CTB2 AND CTB4 AND CTB5;

DFV:=(CLOSE-LLV(LOW,37))/(HHV(HIGH,37)-LLV(LOW,37))*100;

CBT:=(SMA(DFV,5,1)+2*STD(CLOSE,37))<50;

AAC1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);

AAC2:=CROSS( (CROSS(0,MACD),REF(AAC1,1)+2),0.5);

QG:=(AAC2,MACD,REF(AAC2,1),REF(MACD,1),1);

AAC3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);

AAC4:=CROSS( (CROSS(MACD,0),REF(AAC3,1)+2),0.5);

QD:= (AAC4,MACD,REF(AAC4,1),REF(MACD,1),1);

ADX:=(AAC2,MACD,ISLASTBAR,REF(MACD,BARSLAST(AAC2)),1),COLORWHITE,DOTLINE;

PDI:=(AAC4,MACD,ISLASTBAR,REF(MACD,BARSLAST(AAC4)),1),COLORLIBLUE,DOTLINE;

RVL:=CTA3 AND GP AND CBT;

起爆:BARSSINCEN(RVL,5)=0,COLORRED,NODRAW;

DRAWTEXT_FIX(C>O,0.01,0.9,0,'微信公众号：欧欧量化'),COLORRED;

STICKLINE(MACD>0,MACD,0,2.5,1),COLORRED;

STICKLINE(MACD<0,MACD,0,2.5,1),COLORCYAN;

STICKLINE(MACD>QG,MACD,QG,1,0),COLORYELLOW;

STICKLINE(MACD<0 AND MACD

DRAWTEXT(起爆,中线,' ↙起爆点'),COLORYELLOW;

STICKLINE(起爆,MACD,0,2,0),COLORYELLOW;

STICKLINE(起爆,MACD,0,0.6,0), COLORMAGENTA;

四、主副共振起爆选股公式：

---

CTD2:=REF(CLOSE,1);

CTD3:=IF((CLOSE-CTD2)*100/CTD2>=10-0.01*100/CTD2,1,0);

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);