|
以下是通达信变异成交量源码附图（无源码的请下载附件导入）
通达信变异成交量源码附图
PRN:=SMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N,1);
HDN:=HIGH-REF(HIGH,1);
LDN:=REF(LOW,1)-LOW;
DMPN:=SMA(IF(HDN>0 AND HDN>LDN,HDN,0),N,1);
DMMN:=SMA(IF(LDN>0 AND LDN>HDN,LDN,0),N,1);
PDIN:=DMPN*100/TR;
MDIN:=DMMN*100/TR;
ADX:=SMA(ABS(MDIN-PDIN)/(MDIN+PDIN)*100,N,1);
熊力:=DMMN*100/TR;
RRYUE:=DMMN*100/PRN;
BJH:=RRYUE<14;谭氏富五代
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD:=HIGH-REF(HIGH,1);
LD:=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0 AND HD>LD,HD,0),14);
DMM:=EXPMEMA(IF(LD>0 AND LD>HD,LD,0),14);
DI:=DMM*100/TR;
PY:=COUNT(CLOSE>REF(CLOSE,1),12)/12*100;
VOLU:=VOL/PY;
FGBJ:MA(VOLU,60)*12/10000;
VOLUME:VOL/DI/10000,VOLSTICK;
量动:IF(VOLUME>FGBJ,VOLUME*1.1,0);
量动绿红:0,NODRAW,COLORGREEN;
上升:IF(FGBJ>=REF(FGBJ,1),FGBJ,DRAWNULL),COLORRED,LINETHICK2;
下降:IF(FGBJ<REF(FGBJ,1),FGBJ,DRAWNULL),COLORGREEN,LINETHICK2;
PPQ:=VOLUME>FGBJ AND VOLUME>REF(VOLUME,1)*5;
XC1:=COUNT(PPQ,20);
XC2:=VOLUME<REF(VOLUME,1)*0.3 OR VOLUME<REF(VOLUME,2)*0.2 AND XC1;
XC22:=VOLUME<REF(VOLUME,1)*0.2 AND XC1;
XC3:=VOLUME>REF(VOLUME,1)*5 OR VOLUME>REF(VOLUME,2)*5 AND VOLUME>FGBJ AND BJH;
XC4:=VOLUME>REF(VOLUME,1)*10 OR VOLUME>REF(VOLUME,2)*10 AND VOLUME>FGBJ AND BJH;
XC5:=VOLUME>REF(VOLUME,1)*20 OR VOLUME>REF(VOLUME,2)*20 AND VOLUME>FGBJ;
TDXSTEP106:STICKLINE(XC3,0,VOLUME,3,0),COLORMAGENTA;
TDXSTEP107:STICKLINE(XC4,0,VOLUME,3,0),COLORYELLOW;
TDXSTEP108:STICKLINE(XC5,0,VOLUME,3,0),COLORGRAY;
TDXSTEP109:STICKLINE(XC2,0,VOLUME,3,0),COLORGREEN;
TDXSTEP110:STICKLINE(XC22,0,VOLUME,3,0),COLORWHITE;
TDXSTEP111:DRAWICON(XC3,VOLUME+1,34);
{-----------------------------------}
621577703.jpg
|
