超赢持仓大本营
{超赢持仓大本营(大智慧软件窗口数量有限,这样一来等于四个窗口合为一,利于分析)}
V0:=BARSLAST(DISPSTATUS=1);
V1:=HHVALL(V0);
V2:=IF(V1<120,V1,20);
TB:=BIGORDER(1,3);TS:=BIGORDER(2,3);
DB:=BIGORDER(1,2);DS:=BIGORDER(2,2);
MB:=BIGORDER(1,1);MS:=BIGORDER(2,1);
SB:=1-MB; SS:=1-MS;
TJ:=TB-TS; DJ:=(DB-DS)-TJ;
MJ:=(MB-MS)-(DB-DS);SJ:=MS-MB;
ZJ:=DB-DS;
HS:=vol*100/capital;
A:=Amount/10000;
TJL:=HS*TJ;{超大单净率}
超净:TJ*A,LINETHICK0,PRECIS2,COLORMAGENTA;
大净:DJ*A,LINETHICK0,PRECIS2,COLOR0099FF;
中净:MJ*A,LINETHICK0,PRECIS2,COLORYELLOW;
散净:SJ*A,LINETHICK0,PRECIS2,COLORFF6666;
主净:ZJ*A,LINETHICK0,PRECIS2,COLOR0000DD;
TJAS:=SUM(超净,V2);
AT:=(HHVALL(TJAS + 超净) - LLVALL(TJAS + 超净))/9;
A1T:=40 - LLVALL((TJAS + 超净)/AT);
DJAS:=SUM(大净,V2);
AD:=(HHVALL(DJAS + 大净) - LLVALL(DJAS + 大净))/9;
A1D:=30 - LLVALL((DJAS + 大净)/AD);
MJAS:=SUM(中净,V2);
AM:=(HHVALL(MJAS + 中净) - LLVALL(MJAS + 中净))/9;
A1M:=20 - LLVALL((MJAS + 中净)/AM);
SJAS:=SUM(散净,V2);
AS:=(HHVALL(SJAS + 散净) - LLVALL(SJAS + 散净))/9;
A1S:=10 - LLVALL((SJAS + 散净)/AS);
POLYLINE(C,TJAS/AT + A1T),LAYER0,COLOR18A4FF;
STICKLINE(超净>0,TJAS/AT+A1T,(TJAS+超净)/AT+A1T,7,0),LAYER0,COLORFF00FF;
STICKLINE(超净<0,TJAS/AT+A1T,(TJAS+超净)/AT+A1T,7,0),LAYER0,COLORCYAN;
POLYLINE(C,DJAS/AD+A1D),LAYER0,COLOR18A4FF;
STICKLINE(大净>0,DJAS/AD+A1D,(DJAS+大净)/AD+A1D,7,0),LAYER0,COLORRED;
STICKLINE(大净<0,DJAS/AD+A1D,(DJAS+大净)/AD+A1D,7,0),LAYER0,COLORCYAN;
POLYLINE(C,MJAS/AM+A1M),LAYER0,COLOR18A4FF;
STICKLINE(中净>0,MJAS/AM+A1M,(MJAS+中净)/AM+A1M,7,0),LAYER0,COLORyellow;
STICKLINE(中净<0,MJAS/AM+A1M,(MJAS+中净)/AM+A1M,7,0),LAYER0,COLOR009900;
POLYLINE(C,SJAS/AS+A1S),LAYER0,COLOR18A4FF;
STICKLINE(散净>0,SJAS/AS+A1S,(SJAS+散净)/AS+A1S,7,0),LAYER0,COLORFF6666;
STICKLINE(散净<0,SJAS/AS+A1S,(SJAS+散净)/AS+A1S,7,0),LAYER0,COLOR0066ff;
 {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
