通达信红抄底副图源码
窥量而动,全线开花
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;
- 上一篇公式:通达信赚钱容易源码副图
- 下一篇公式:通达信波段绝品副图