|
以下是通达信资金MACD+梁队长选股主图/副图指标（无源码的请下载附件导入）
DRAWGBK(C>0,RGB(8,10,4),RGB(8,10,4),0,'',0);
{资金主图显示}
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,0));
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;
A:=REF(HY_INDEXC,1);
行业涨幅:IF(A>0,(HY_INDEXC-A)*100/A,0),NODRAW,COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0,0,0,HYBLOCK),COLOR00C0C0;
{BBI牛熊均线}
BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4 COLORGREEN LINETHICK2;
BBI操作线:IF(BBI>REF(BBI,1),BBI,DRAWNULL),LINETHICK2,COLORMAGENTA;
{慢牛线}
VAR1:=(3*C+O+H+L)/6;
慢牛线:EMA(3*VAR1-2*SMA(VAR1,2,1),8),COLORBLUE,LINETHICK2;
慢牛走牛:IF(慢牛线>REF(慢牛线,1),慢牛线,DRAWNULL),LINETHICK2,COLORYELLOW;
{慢牛买点}
慢牛B点:=C>=慢牛线 AND REF(C,1)<REF(慢牛线,1) AND 慢牛线>REF(慢牛线,1);
DRAWICON(C>=慢牛线 AND REF(C,1)<REF(慢牛线,1) AND 慢牛线>REF(慢牛线,1),L*0.98,7);
{【参数定义】}
RSV:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
K1:=SMA(RSV,10,1);
D1:=SMA(K1,5,1);
KK:=INTPART(K1);
DD0:=INTPART(D1);
TFXXS:=KK+DD0;
TGLXS:=(TFXXS-REF(TFXXS,1))*10;
乖离系数:TGLXS,COLORGREEN,NODRAW;
ZLCM:=EMA(WINNER(CLOSE)*70,3);
SHCM:=EMA((WINNER(CLOSE*1.1)-WINNER(CLOSE*0.9))*80,3);
ZZLKP:=ZLCM/(ZLCM+SHCM)*100;
控盘系数:INTPART(ZZLKP),COLORCYAN,NODRAW;
风险系数:TFXXS,LINETHICK2,COLORYELLOW,NODRAW;
选股:=控盘系数>19 AND 乖离系数>39 AND 风险系数<110;
DRAWTEXT(选股>0,LOW*0.98,'☆'),COLORDD00DD;
净流比:=(LARGEINTRDVOL/LARGEOUTTRDVOL);
大10追:=EMA(净流比,10)*10;
买力度:=LARGEINTRDVOL*100/VOL;
强势将到:=选股 AND 大10追>10 AND 净流比>1 AND 买力度>30;
DRAWTEXT(强势将到,L*0.992,'强势将到'),COLORMAGENTA;
DRAWTEXT_FIX(ISLASTBAR,0,0.92,0,' 1、乖离系数，大于40关注 小于-50坚决不进场 ，大于60坚决买入，买入时看股价运行的情况而定。
2、控盘系数大于20 可以做个小波段 准确率80%。')COLOR4080FF;
{倍量}
V2V:=V/REF(V,1)>=1.9 AND (IF(C<O,C>REF(C,1),1));
{金黄色}
DRAWTEXT(V2V,(L*0.99),'倍'),COLORYELLOW;
STICKLINE(V2V,OPEN,CLOSE,0,0),COLOR000DDD;
STICKLINE(V2V,OPEN,CLOSE,3.2,0),COLOR003333;
STICKLINE(V2V,OPEN,CLOSE,2.7,0),COLOR005555;
STICKLINE(V2V,OPEN,CLOSE,2.1,0),COLOR007777;
STICKLINE(V2V,OPEN,CLOSE,1.5,0),COLOR009999;
STICKLINE(V2V,OPEN,CLOSE,0.9,0),COLOR00BBBB;
STICKLINE(V2V,OPEN,CLOSE,0.3,0 ),COLOR00DDDD;
{涨停变色}
ZT:=C/REF(C,1)>1.097;
XH:=FILTER(ZT,13);
BH:=BARSLAST(ZT);
CZ:=REF(H,BH)-REF(L,BH);
STICKLINE(C,(REF(L,BH)+CZ*0.5),(REF(L,BH)+CZ*0.5),3,0),COLORRED;
STICKLINE(C,REF(L,BH),REF(L,BH),3,0),COLORBLUE;
STICKLINE(ZT,REF(O,BH),REF(C,BH),3,0),COLORYELLOW;
DRAWTEXT(ZT,L*0.97,'涨停'),COLORRED;
STICKLINE(ZT,LOW,HIGH,0.1,0),COLORRED;
STICKLINE(ZT,OPEN,CLOSE,0,0),COLORRED;
STICKLINE(ZT,CLOSE,OPEN,3,0) ,COLOR000066;
STICKLINE(ZT,CLOSE,OPEN,2.6,0) ,COLOR000088;
STICKLINE(ZT,CLOSE,OPEN,2.1,0) ,COLOR0000AA;
STICKLINE(ZT,CLOSE,OPEN,1.5,0) ,COLOR0000BB;
STICKLINE(ZT,CLOSE,OPEN,0.9,0) ,COLOR0000CC;
STICKLINE(ZT,CLOSE,OPEN,0.6,0) ,COLOR0000DD;
STICKLINE(ZT,CLOSE,OPEN,0.3,0) ,COLOR0000EE;
STICKLINE(ZT,CLOSE,OPEN,0.1,0) ,COLOR0000FF;
STICKLINE(ZT,CLOSE,OPEN,0,0) ,COLOR0000FF;{☆精确风险}
{相对低点K线变色，上穿写短线}
LC:=REF(C,1),LINETHICK0;
RSI:=((SMA(MAX((C-LC),0),13,1)/SMA(ABS((C-LC)),13,1))*100);
STICKLINE((RSI<20),L,H,0.1,0),COLORFF6600;
STICKLINE((RSI<20),O,C,4,0),COLORCC5000;
DRAWTEXT(CROSS(RSI,20-0.0005),H*1.01,'短线'),COLORAA99AA;
STICKLINE(CROSS(RSI,20-0.0005),C,O,3,0),COLOR888888;
STICKLINE(CROSS(RSI,20-0.0005),C,O,2,0),COLORAAAAAA;
STICKLINE(CROSS(RSI,20-0.0005),C,O,1,0),COLORCCCCCC;
STICKLINE(CROSS(RSI,20-0.0005),C,O,0.1,0),COLORFFFFFF;
STICKLINE(CROSS(RSI,20-0.0005),L,H,0,0),COLORFFFFFF;
V字翻转:=MA(C,5)<MA(C,10) AND V=LLV(V,10) AND C>O;
DRAWTEXT(V字翻转,L*0.97,'V字翻转'),COLORRED;
Z1:=STRCAT(DYBLOCK,' ');
Z2:=STRCAT(Z1,HYBLOCK);
Z3:=STRCAT(Z2,' ');
Z4:=STRCAT(Z3,GNBLOCK);
Z5:=STRCAT(Z4,' ');
Z6:=STRCAT(Z5,FGBLOCK);
DRAWTEXT_FIX(ISLASTBAR,0.01,0.012,0,STRCAT(Z6,ZHBLOCK)),COLORRED;
DRAWTEXT_FIX(1,0,0.075,0,STRCAT('',ZDBLOCK)),COLORYELLOW;
总涨幅周期:=350;
高点位:=REFDATE(HHV(H,总涨幅周期),DATE);
低点位:=REFDATE(LLV(L,总涨幅周期),DATE);
低位价:=REF(L,BARSLAST(低点位=L)),COLORGREEN,NODRAW;
高位价:=REF(H,BARSLAST(高点位=H)),COLORRED,NODRAW;
曾最大涨幅:=(高位价-低位价)/低位价*100;
当前涨幅:=(C-低位价)/低位价*100;
ZFA:=CON2STR(CONST(曾最大涨幅),2);
ZFB:=CON2STR(CONST(当前涨幅),2);
ZFC:=STRCAT('【曾最大涨幅】：',ZFA);
ZFD:=STRCAT(ZFC,'％');
ZFE:=STRCAT(ZFD,'【当前总涨幅】：');
ZFF:=STRCAT(ZFE,ZFB);
ZFG:=STRCAT(ZFF,'％');
DRAWTEXT_FIX(ISLASTBAR,0,1,0,'▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇'),COLORRED;
DRAWTEXT_FIX(ISLASTBAR,0,1,0,ZFG),COLORYELLOW;
624266261.jpg
|
