通达信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;