通达信趋势为先副图源码

以下是通达信趋势为先副图源码

N:=5;QJ0:=(HIGH+LOW+CLOSE)/3;

QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));

QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);

QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);

QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));

QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));

QJ6:="MACD.DIF"> "MACD.DEA" AND "MACD.DEA"< 0;

QJ7:="KDJ.K"> "KDJ.D" AND "KDJ.D"< 30;

QJ8:="MACD.DIF"< "MACD.DEA";

QJ9:="KDJ.K"< "KDJ.D" AND "KDJ.K"> 80;

特大:QJ4*QJ5,NODRAW;大单:QJ3*QJ5,NODRAW;

中单:QJ1*QJ5,NODRAW;小单:QJ2*QJ5,NODRAW;

W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N);

量振1:=特大> 大单 AND 大单> 小单;

量振2:=特大< 小单 AND 大单< 小单;

标振1:=QJ6 AND QJ7;

标振2:=QJ8 AND QJ9;

A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);

STICKLINE(A0,0,A0,3,0),COLOR000044;

STICKLINE(A0,0,A0,2.5,0),COLOR000088;

STICKLINE(A0,0,A0,1.5,0),COLOR0000AA;

STICKLINE(A0,0,A0,1,0),COLOR0000CC;

STICKLINE(B0,0,-B0,3,0),COLOR004400;

STICKLINE(B0,0,-B0,2.5,0),COLOR008800;

STICKLINE(B0,0,-B0,1.5,0),COLOR00AA00;

STICKLINE(B0,0,-B0,1,0),COLOR00CC00;

周趋势:MA(A,5),COLORFFFFFF;

平滑值:EMA(周趋势,5),COLOR00FFFF;

STICKLINE(标振1 AND 量振1 AND 周趋势> 平滑值,0,A0,3,0),COLORYELLOW; 

DRAWTEXT(标振1 AND 量振1 AND 周趋势> 平滑值,A0,'振'),COLORYELLOW;