波段通達信指標

會飛的魚9168 2013-03-12

展開全文

A1:=(DVOL/C)/2,NODRAW;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
主買:(A2/A6)*100,LINETHICK1,COLORRED;
主賣:(A3/A6)*100,LINETHICK1,COLORCYAN;
散買:(A4/A6)*100,LINETHICK0;
散賣:(A5/A6)*100,LINETHICK0;
主差:主買-主賣,LINETHICK1,NODRAW;
散差:散買-散賣,LINETHICK0,NODRAW;
DRAWTEXT(主差>0 AND REF(主差,1)<=0,C*2,'搶'),COLORRED;
DRAWTEXT(主差<0 AND REF(主差,1)>=0,C*1,'主'),COLORWHITE;
DRAWTEXT(散差>0 AND REF(散差,1)<=0,C*2,'散'),COLORCYAN;
DRAWTEXT(散差<0 AND REF(散差,1)>=0,C*1,'入'),COLORWHITE;
VAR1:=((CLOSE - LLV(LOW,50))/(HHV(HIGH,50) - LLV(LOW,50)))*(100);
VAR2:=REVERSE(VAR1);

{文章來至小牛網(wǎng) 028 588.com}

VAR3:=SMA(VAR1,6,1);
K:=SMA(VAR3,4,1);
D:=SMA(K,4,1);
DRAWTEXT(CROSS(K,D) AND MA(CLOSE,5)<CLOSE,D,'B'),COLORRED;
DRAWTEXT(CROSS(D,K) AND MA(CLOSE,5),D,'S'),COLORWHITE;
STICKLINE((K >= D),K,D,6,0),COLOR0000A8;
STICKLINE((K >= D),K,D,5,0),COLOR0000C0;
STICKLINE((K >= D),K,D,4,0),COLOR0000E0;
STICKLINE((K >= D),K,D,3,0),COLOR0000F0;
STICKLINE((K >= D),K,D,2,0),COLOR0000D0;
STICKLINE((K >= D),K,D,1,0),COLOR8080FF;
STICKLINE((K <= D),K,D,6,0),COLOR008800;
STICKLINE((K <= D),K,D,5,0),COLOR009900;
STICKLINE((K <= D),K,D,4,0),COLOR00AA00;
STICKLINE((K <= D),K,D,3,0),COLOR00BB00;
STICKLINE((K <= D),K,D,2,0),COLOR00CC00;
STICKLINE((K <= D),K,D,1,0),COLOR00DD00;
頂:90,DOTLINE;
底:10,DOTLINE;