请老师编辑机构净买量选股!!!!
[通达信] 3383
K 0.01 1111 2.08 X 0 111 0.95 Y 0 111 0.08 DRAWTEXT_FIX(1,0.00,0.01,0,'一、异动原因:'),COLORRED; DRAWTEXT_FIX(1,0.00,0.08,0,EXTERNSTR(0,881)),COLORWHITE; DRAWTEXT_FIX(1,0.00,0.15,0,EXTERNSTR(0,882)),COLORWHITE; DRAWTEXT_FIX(1,0.00,0.22,0,'二、个股点评:'),COLORRED; DRAWTEXT_FIX(1,0.00,0.29,0,EXTERNSTR(0,884)),COLORWHITE; DRAWTEXT_FIX(1,0.00,0.36,0,'三、涨停原因:'),COLORRED; DRAWTEXT_FIX(1,0.00,0.43,0,EXTERNSTR(0,883)),COLORWHITE; DRAWTEXT_FIX(1,0.00,0.50,0,'四、最新消息:'),COLORRED; DRAWTEXT_FIX(1,0.00,0.57,0,EXTERNSTR(0,815)),COLORLIGRAY; 0; 20; 净流入:INTPART(SIGNALS_USER(201,0)),COLORRED,NODRAW; 高胜率买数:INTPART(SIGNALS_USER(707,0)),COLORRED,NODRAW; 高胜率卖数:INTPART(SIGNALS_USER(708,0)),COLORRED,NODRAW; 机构买数:INTPART(SIGNALS_USER(206,0)),COLORRED,NODRAW; 机构卖数:INTPART(SIGNALS_USER(207,0)),COLORRED,NODRAW; JGBUY:=IF(SIGNALS_USER(208,0)=DRAWNULL,0,SIGNALS_USER(208,0)); JGSELL:=IF(SIGNALS_USER(209,0)=DRAWNULL,0,SIGNALS_USER(209,0)); 机构买量:INTPART(JGBUY),COLORRED,NODRAW; 机构卖量:INTPART(JGSELL),COLORRED,NODRAW; 机构净买量:=INTPART((机构买量+机构卖量)),COLORRED,NODRAW; TBUY:=IF(SIGNALS_USER(701,0)=DRAWNULL,0,SIGNALS_USER(701,0)); TSELL:=IF(SIGNALS_USER(702,0)=DRAWNULL,0,SIGNALS_USER(702,0)); 做T机构总买:INTPART(TBUY),COLORRED,NODRAW; 做T机构总卖:INTPART(TSELL),COLORRED,NODRAW; 做T机构买卖方向:INTPART(SIGNALS_USER(703,0)),COLORRED,NODRAW; 做T机构净流入:INTPART((做T机构总买+做T机构总卖)),COLORRED,NODRAW; STICKLINE(净流入>0,0,4,1,0),COLORRED; STICKLINE(净流入<0,0,4,1,0),COLORGREEN; STICKLINE(高胜率买数>高胜率卖数,0,3,2,0),COLORRED; STICKLINE(高胜率买数<高胜率卖数,0,3,2,0),COLORGREEN; STICKLINE(机构净买量>0,0,2,3,0),COLORRED; STICKLINE(机构净买量<0,0,2,3,0),COLORGREEN; STICKLINE(做T机构净流入>0,0,1,4,0),COLORMAGENTA; STICKLINE(做T机构净流入<0,0,1,4,0),COLORGREEN; ZD:=ABS(机构净买量) OR MAX(高胜率买数,高胜率卖数) OR ABS(做T机构净流入) ; DRAWTEXT(做T机构净流入>0,M+3*K,VARCAT(VARCAT(VARCAT(VARCAT(VARCAT('做T总买:',VAR2STR(做T机构总买,0)),'-总卖:'),VAR2STR(做T机构总卖,0)),'-近: '),VAR2STR(做T机构买卖方向,0))),COLORMAGENTA; DRAWTEXT(ZD>0,M+K,VARCAT(VARCAT(VARCAT('高:',VAR2STR(高胜率买数,0)),'-'),VAR2STR(高胜率卖数,0))),COLORYELLOW; DRAWTEXT(ZD>0,M+2*K,VARCAT(VARCAT(VARCAT('机:',VAR2STR(机构买数,0)),'-'),VAR2STR(机构卖数,0))),COLORYELLOW; DRAWTEXT(1 AND 净流入>0,M,VARCAT('净:',VAR2STR(净流入,0))),COLORRED; DRAWTEXT(1 AND 净流入<0,M,VARCAT('净:',VAR2STR(净流入,0))),COLORGREEN; |