通达信红抄底副图源码

窥量而动，全线开花
 

DRAWGBK(OPEN>0,RGB(33,47,58),RGB(0,0,0),0,'02',0);

{换手部分}

HS:=HSL;

HS5:=MA(HS,5);

HS60:=MA(HS,60);

{高低换手}

DRAWBAND(HS5,RGB(150,50,50),HS60,RGB(50,150,50));

TJ:=IF('000引用.FWYXQ'>0,1,0);

{量比配部分合}

LB:=V/(REF(V,15)/5),DOTLINE;

MA120:=MA(LB,120)/10;

DIF:=EMA(LB,30)-EMA(LB,60);

DEA:=EMA(DIF,15);

DRAWBAND(DIF,RGB(150,20,20),DEA,RGB(10,150,20));

DMACD:(DIF-DEA)*2,COLORSTICK;

STICKLINE(DMACD>=MA120 AND C>REF(C,1),0,DMACD,1,0),COLORYELLOW;

STICKLINE(CROSS(DMACD,MA120) AND C>REF(C,1),0,DMACD,1,0),COLORMAGENTA;

DRAWTEXT(CROSS(DMACD,MA120) AND C>REF(C,1),DIF,'关注'),COLORMAGENTA;

DRAWTEXT(CROSS(HS5,HS60) AND C>REF(C,1),DIF,'异动!'),COLORYELLOW;

{红抄底}

LC:=REF(CLOSE,1);

RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);

TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);

HD:=(HIGH - REF(HIGH,1));

LD:=(REF(LOW,1) - LOW);

DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);

DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);

PDI:=((DMP * 100) / TR1);

MDI:=((DMM * 100) / TR1);

ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);

AV:=(RSI5 + ADX);

DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);

WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));

NEWVOL:=(RSI5 - WR10);

最佳买入:=(AV + NEWVOL);

最佳买入选股:=IF(CROSS(最佳买入,0),1,0),STICK,COLORRED;

VAR1:=SMA(最佳买入选股,3,1);

VAR2:=SMA(VAR1,3,1),COLOR0000FF;

VAR3:=SMA(VAR2,3,1),COLOR00FFFF;

建仓买点:IF(CROSS(VAR2,VAR3) AND (VAR2<40),6,0),COLORFFFFFF,LINETHICK2;

STICKLINE(建仓买点,0,3,4,1),COLORFF00FF;

STICKLINE(建仓买点,0,4.5,1,0),COLORRED;

RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 50);

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

J:=3*K-2*D;

X:=LLV(J,2)=LLV(J,8);

机构建仓:IF(最佳买入<5,1,DRAWNULL),COLOR00FF00,NODRAW;

STICKLINE(机构建仓>0,0,-0.5,5,0),COLOR00FF00,LINETHICK6;

最佳买入时机:IF(CROSS(J,3),1,DRAWNULL),COLORFFFF00,NODRAW;

STICKLINE(最佳买入时机>0,0,2,3,0),COLOR009999;

STICKLINE(最佳买入时机>0,0,2,2,0),COLOR00DDDD;

STICKLINE(最佳买入时机>0,0,2,1,0),COLOR00FFFF;

AA:= CLOSE>REF(CLOSE,1)*1.035 ;

AA1:=(H-C)/C*100<1;

AA2:=V<=LLV(V,4) OR V>=HHV(V,4);

BB:=(REF(H,3)-REF(L,1))/C*100>8;

BB1:=(REF(L,1)-L)/C*100>0;

BB2:=REF(C<O,1) AND C>O AND TJ>0;

波段底:IF(BB AND BB1 AND BB2 AND AA AND AA1 AND AA2,1,0),COLORFF00FF,NODRAW;

STICKLINE(波段底>0,0,6,0.1,0),COLORFF00FF;

DRAWTEXT(波段底>0,5,' 波段底'),COLORFF00FF;

0,COLORBLACK,LINETHICK1;