大家晚上好，今天跟大家分享一套私募内部会员专用的指标

主图：MACD乖离

副图：个股全图

由于主副的内容比较多，也比较复杂，这里就不一一介绍了，源码分享在下方，大家自行测试

源码

DRAWGBK(C>0, RGB(1,1,1),RGB(1,1,1),0,'0',0);

{资金主图显示}

AL:=SUMBARS(V,CAPITAL*1);

AL1:=SUM(COST(10),AL)/AL;

AL2:=SUM(COST(20),AL)/AL;

AL3:=SUM(COST(30),AL)/AL;

AL4:=SUM(COST(40),AL)/AL;

AL5:=SUM(COST(50),AL)/AL;

庄家成本:(5*AL1 4*AL2 3*AL3 2*AL4 AL5)/15,COLORWHITE,LINETHICK3;

IF(庄家成本>=REF(庄家成本,1),庄家成本,DRAWNULL),COLORRED,LINETHICK3;

IF(庄家成本<=REF(庄家成本,1),庄家成本,DRAWNULL),COLORGREEN,LINETHICK3;

DRAWTEXT(ISLASTBAR,庄家成本,'★庄家成本线'),COLORYELLOW;

RSVQ:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;

K1Q:=SMA(RSVQ,10,1);

D1Q:=SMA(K1Q,5,1);

KKQ:=INTPART(K1Q);

DDQ:=INTPART(D1Q);

TFXXSQ:=KKQ DDQ;{//变异KD风险系数}

TGLD:=MOD(TFXXSQ,10);{//踏浪涨停概率点}

TGLXSQ:=(TFXXSQ-REF(TFXXSQ,1))*10;{//变异KD乖离系数}

TYCFX:=TFXXSQ TGLXSQ;{//变异KD预测风险}

乖离系数1:=TGLXSQ>=60;

JJ:=(HIGH LOW CLOSE)/3;

QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));

QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));

QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));

QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));

DDX:=((QJ1 QJ2)-(QJ3 QJ4))/IF(CAPITAL=0,1000000,10000),COLOR00AAAA,LINETHICK;

V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);

V5:=SMA(V2*240/FROMOPEN*0.9,5,1);

DIFF:=(EMA(V2,12)-EMA(V2,26))*100/EMA(V2,26),COLORRED;

DEA:=EMA(DIFF,9),COLORRED;

AA:=CROSS(DIFF,DEA);

XG:=乖离系数1 AND AA ;

STICKLINE(XG>0,L,L*0.99,2,1),COLORYELLOW;

DRAWICON(XG>0,L*0.996,25);

DRAWTEXT(XG,L*0.996,' ←★乖离系数进'),COLORYELLOW;

D顶:=REFDATE(HHV(H,120),DATE);

D底:=REFDATE(LLV(L,120),DATE);

JGV:=(L2_VOL(0,0) - L2_VOL(0,1))*AMOUNT;

SHV:=(L2_VOL(3,0) - L2_VOL(3,1))*AMOUNT;

机构资金:=EMA(JGV,60)/CAPITAL,COLORMAGENTA;

散户资金:=EMA(SHV,60)/CAPITAL,COLORGREEN;

买入:=机构资金-散户资金;

累计:=EMA(买入,1),NODRAW;

均值:=EMA(累计,MIN(10,10)),NODRAW;

{STICKLINE(累计>0,D顶,D底,5,0),COLOR1B0E8B;

STICKLINE(累计<0,D顶,D底,5,0),COLOR6B6B12;}

{MACD主图显示}

高1:=REF(HHV(H,120),3);

低1:=REF(LLV(L,120),3);

H3:=高1-(高1-低1)*0.5;

中轴:REFDATE(H3,DATE),POINTDOT,COLORLIGRAY;

B1:=EMA(C,12);

B2:=EMA(C,26);

B3:=(B1-B2)*2;

WDIF:中轴 B3;

WDEA:EMA(WDIF,9);

DRAWBAND(WDIF,RGB(110,0,0),WDEA,RGB(0,80,00));

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

MACD:=2*(WDIF-WDEA)LINETHICK2;

STICKLINE(MACD>0,中轴,中轴 MACD,0,1),COLORRED;

STICKLINE(MACD<0,中轴,中轴 MACD,0,1),COLORLIBLUE;

A1:=BARSLAST(REF(CROSS(WDIF,WDEA),1));

底背离:=REF(CLOSE,A1 1)>CLOSE AND WDIF>REF(WDIF,A1 1) AND CROSS(WDIF,WDEA);

底背:DRAWLINE(A1=0,WDEA,底背离,WDEA,0),COLORRED,LINETHICK4;

A2:=BARSLAST(REF(CROSS(WDEA,WDIF),1));

顶背离:=REF(CLOSE,A2 1)<CLOSE AND REF(WDIF,A2 1)>WDIF AND CROSS(WDEA,WDIF);

顶背:DRAWLINE(A2=0,WDEA,顶背离,WDEA,0),COLORGREEN,LINETHICK4;

{机构持有}

AA1X:=SUM(IF(CLOSE>REF(CLOSE,1),VOL/CAPITAL*100,IF(CLOSE<REF(CLOSE,1),-

VOL/CAPITAL*100,0)),0);

成交额:=V*C/100,NODRAW;{万元}

AA2X:=SUM((IF(((成交额/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

AA3X:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

AA4X:=SUM((IF(((成交额/8<20) AND (CLOSE>(REF(CLOSE,1)))),成交额,0)),0);

AA5X:=SUM((IF(((成交额/8<20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);

AA6X:=((AA2X AA3X) AA4X) AA5X;

DD1X:=1;

AAA1:=STRCAT(STRCAT('机构持有',CON2STR((100*AA2X)/AA6X,0)),'%');

AAA2:=STRCAT(STRCAT('散户持有',CON2STR((100*AA3X)/AA6X,0)),'%');

DRAWTEXT_FIX(DD1X=1,0.38,0.91,0,AAA1),COLORRED;

DRAWTEXT_FIX(DD1X=1,0.45,0.91,0,AAA2),COLORGREEN;

VAR1S:=EMA(EMA(CLOSE,9),9);

控盘:=(VAR1S-REF(VAR1S,1))/REF(VAR1S,1)*1000;

SJTJ:=DATE<1590301;

{STICKLINE(控盘<0,控盘,0,0,0),COLORWHITE;}

A10:=CROSS(控盘,0);

无庄控盘:=IF(控盘<0,控盘,0),COLORWHITE,NODRAW;

开始控盘:=IF(A10,2,0),STICK,LINETHICK3,COLORYELLOW;

STICKLINE(开始控盘>0,中轴,中轴*1.02 MACD,0.1,1),COLORYELLOW;

DRAWICON(开始控盘>0,中轴*1.016 MACD,29);

A:=REF(HY_INDEXC,1);

行业涨幅:IF(A>0,(HY_INDEXC-A)*100/A,0),NODRAW,COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK),COLOR00C0C0;

由于文章篇幅有限，主副图源码过长，这里没办法完整的呈现分享给大家，想要这套指标自己去测试的朋友，可点我头像留言，我会整理好完整版分享给大家。

喜欢的朋友点下关注，更多指标战法，持续更新！

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。