通达信主力DDX异动监测副图源码

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;

DIF:IF(DIFF<REF(DIFF,1),DIFF,DRAWNULL),COLORGREEN;

ADEA:IF(DEA<REF(DEA,1),DEA,DRAWNULL),COLORGREEN;

V10:=SMA(V5,5,1);

V20:=SMA(V10,5,1);

DRAWKLINE(V2*1.01*10,REF(V2,1)*10,REF(V2,1)*0.99*10,V2*10);

当日DDX:DDX,NODRAW;

STICKLINE(CURRBARSCOUNT=1 AND C>=REF(C,1),REF(V2,1),MAX(V2,V2*120/FROMOPEN*0.8),0,0),COLORLIMAGENTA;

STICKLINE(CURRBARSCOUNT=1 AND C<REF(C,1),REF(V2,1),MIN(V2,V2*120/FROMOPEN*0.8),0,0),COLORLIGREEN;

DRAWTEXT(DIFF<-200,DIFF,'异动'),COLORMAGENTA;

DRAWTEXT(CROSS(V2,REF(V2,1)*1.2) AND LONGCROSS(CLOSE,REF(C,1)*1.025,4) AND DDX/REF(MA(DDX,5),1)>2,REF(V2,1),'★'),COLORMAGENTA;

DRAWICON(CROSS(DIFF,DEA),DEA,1);

X:=(3*C+L+O+H)/6;

多空线:=(20*X+19*REF(X,1)+18*REF(X,2)+17*REF(X,3)+16*REF(X,4)+15*REF(X,5)+14*REF(X,6)

+13*REF(X,7)+12*REF(X,8)+11*REF(X,9)+10*REF(X,10)+9*REF(X,11)+8*REF(X,12)

+7*REF(X,13)+6*REF(X,14)+5*REF(X,15)+4*REF(X,16)+3*REF(X,17)+2*REF(X,18)+

REF(X,20))/210,COLORFF00FF,LINETHICK2;

注意:ABS(DIFF)-ABS(REF(DIFF,1))>28 AND REF(多空线,1)<多空线  AND DIFF<0;

DRAWTEXT(注意,DIFF,'注意'),COLORMAGENTA;

{强攻:REF(DIFF,1)<REF(DIFF,2) AND REF(DIFF,1)<DIFF AND REF(V2*1.01,1)-REF(V2,2)*0.99<0 AND V2*1.01-REF(V2,1)*0.99>0 AND REF(DIFF,1)>REF(DEA,1);

DRAWICON(强攻,DEA,25);}

今日量:V2*1.01-REF(V2,1)*0.99,NODRAW;{K线柱大小}

昨日量:REF(V2*1.01,1)-REF(REF(V2,1)*0.99,1),NODRAW;

倍量:今日量/ABS(昨日量),NODRAW;

原理解析：
JJ赋值:(最高价+最低价+收盘价)/3
如果最高价=最低价返回4否则返回最高价-最低价
QJ1赋值:IF(当前流通股本=0,QJ0*(JJ-收盘价和开盘价的较小值),QJ0*IF(最高价=最低价,1,(开盘价和收盘价的较小值-最低价)))
QJ2赋值:IF(当前流通股本=0,QJ0*(开盘价和收盘价的较小值-最低价),QJ0*IF(最高价=最低价,1,(JJ-收盘价和开盘价的较小值)))
QJ3赋值:IF(当前流通股本=0,QJ0*(最高价-开盘价和收盘价较大值),QJ0*IF(最高价=最低价,1,(最高价-开盘价和收盘价较大值)))
QJ4赋值:IF(当前流通股本=0,QJ0*(收盘价和开盘价较大值-JJ),QJ0*IF(最高价=最低价,1,(收盘价和开盘价较大值-JJ)))
如果当前流通股本=0返回1000000否则返回10000
V2赋值:SMA(IF(C>=1日前的C,DDX,-DDX/100),2,1)
V2*240/FROM开盘价*0.9的5日[1日权重]移动平均
输出DIFF:(V2的12日指数移动平均-V2的26日指数移动平均)*100/V2的26日指数移动平均,画红色
输出DEA:DIFF的9日指数移动平均,画红色
输出DIF:IF(DIFF<1日前的DIFF,DIFF,DRAWNULL),画绿色
A输出DEA:IF(DEA<1日前的DEA,DEA,DRAWNULL),画绿色
V5的5日[1日权重]移动平均
V10的5日[1日权重]移动平均
DRAWKLINE(V2*1.01*10,1日前的V2*10,1日前的V2*0.99*10,V2*10)
当日输出DDX:DDX,NODRAW
STICKLINE( 到最后交易的周期=1 AND C>=1日前的C,1日前的V2,V2和V2*120/FROM开盘价*0.8较大值,0,0),COLORLIMAGENTA
STICKLINE( 到最后交易的周期=1 AND C<1日前的C,1日前的V2,V2和V2*120/FROM开盘价*0.8的较小值,0,0),COLORLIGREEN
当满足条件DIFF<-200时,在DIFF和'异动'位置书写文字
DRAWTEXT(CROSS(V2,1日前的V2*1.2) AND LONGCROSS(收盘价,1日前的C*1.025,4) AND DDX/REF(DDX的5日简单移动平均,1)>2,1日前的V2,'★'),画洋红色
DRAWICON(DIFF上穿DEA,DEA,1)
X赋值:(3*C+L+O+H)/6
多空线赋值:(20*X+19*1日前的X+18*2日前的X+17*3日前的X+16*4日前的X+15*5日前的X+14*6日前的X+13*7日前的X+12*8日前的X+11*9日前的X+10*10日前的X+9*11日前的X+8*12日前的X+7*13日前的X+6*14日前的X+5*15日前的X+4*16日前的X+3*17日前的X+2*18日前的X+20日前的X)/210,COLORFF00FF, 线宽为2
输出注意:DIFF的绝对值-ABS(1日前的DIFF)>28 AND 1日前的多空线<多空线  AND DIFF<0
当满足条件注意时,在DIFF和'注意'位置书写文字
输出{强攻:1日前的DIFF<2日前的DIFF AND 1日前的DIFF0 AND 1日前的DIFF>1日前的DEA
当满足条件强攻时,在DEA和25之间画图标
输出}今日量:V2*1.01-1日前的V2*0.99,NODRAW
输出{K线柱大小}昨日量:1日前的V2*1.01-1日前的V2*0.99,1),NODRAW
输出倍量:今日量/昨日量的绝对值,NODRAW