通達信WEN98精準線主圖指標（源碼 附圖）

WEN98精準線

N:=5;
L0:=0;
L1:=ABS(L-REF(L,1))<=L0;
L2:=ABS(L-REF(L,2))<=L0;
L3:=ABS(L-REF(L,3))<=L0;
L4:=ABS(L-REF(L,4))<=L0;
L5:=ABS(L-REF(L,5))<=L0;
精準線首次:=L1 OR L2 OR L3 OR L4 OR L5;
精準左:=FILTER(精準線首次,N);
STICKLINE(精準左,L,L,12,-1),COLORMAGENTA;
G1:=ABS(H-REF(H,1))<=L0;
G2:=ABS(H-REF(H,2))<=L0;
G3:=ABS(H-REF(H,3))<=L0;
G4:=ABS(H-REF(H,4))<=L0;
G5:=ABS(H-REF(H,5))<=L0;
G6:=ABS(H-REF(H,6))<=L0;
G7:=ABS(H-REF(H,7))<=L0;
G8:=ABS(H-REF(H,8))<=L0;
精準線1首次:=G1 OR G2 OR G3 OR G4 OR G5 OR G6 OR G7 OR G8;
精準左1:=FILTER(精準線1首次,N);
STICKLINE(精準左1,H,H,12,-1),COLOR00FF00;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
DRAWTEXT(精準左,L,O);
DRAWTEXT(精準左1,H,L);
MA6:MA(C,6);
MA18:MA(C,18);
MA24:MA(C,24);

機構買賣分時

成交額:=V*C/100,NODRAW;{萬元}
A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT('機構買',CON2STR((100*A2)/A6,0)),'%%');
AAA2:=STRCAT(STRCAT('機構賣',CON2STR((100*A3)/A6,0)),'%%');
AAA3:=STRCAT(STRCAT('總買入',CON2STR((100*(A2-A3))/A6,0)),'%%');
DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;