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.DIFF">"MACD.DEA" AND "MACD.DEA"<0;
QJ7:="KDJ.K">"KDJ.D" AND "KDJ.D"<30;
QJ8:="MACD.DIFF"<"MACD.DEA";
QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80;
特大:QJ4*QJ5,LINETHICK0;
大單:QJ3*QJ5,LINETHICK0;
中單:QJ1*QJ5,LINETHICK0;
小單:QJ2*QJ5,LINETHICK0;
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),COLOR000066;
STICKLINE(A0,0,A0,2.5,0),COLOR0000AA;
STICKLINE(A0,0,A0,1,0),COLOR0000CC;
STICKLINE(B0,0,-B0,3,0),COLOR006600;
STICKLINE(B0,0,-B0,2.5,0),COLOR00AA00;
STICKLINE(B0,0,-B0,1,0),COLOR00CC00;
周趨勢:MA(A,5),COLORFFFFFF;
M:=周趨勢;
平滑值:EMA((5*M+4*REF(M,1)+3*REF(M,2)+2*REF(M,3)+REF(M,4))/15,1),COLOR00FFFF;
(量振1 AND 標振1 AND 周趨勢>平滑值),COLORFF00FF,POINTDOT;
(量振2 AND 標振2 AND 周趨勢<平滑值),COLOR00FF00,POINTDOT;
(南方財富網SOUTHMONEY.COM)
(責任編輯:張曉軒)