{适用于万国、Wind、鹏搏F10、维赛特F10}
INPUT:GD(5,0,10);//柱高度调节
DRAWGBK(v>1,COLORRGB(6,50,242),COLORRGB(200,100,0),1);
//F10数据查找
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('维赛特财经',1)>0,4,0))));
QSW:=IF(F10=2,F10FIND('【1:主力运作】',100),IF(F10=3,F10FIND('控盘情况:',1),IF(F10=4,F10FIND('（三）历年人均持股情况',1),F10FIND('◆ 控盘情况 ◆',100))));
IF QSW>0 THEN BEGIN
WZ1:=F10FIND('-',QSW)-4;WZ2:=F10FIND('-',WZ1+IF(F10=1,10,IF(F10=4,60,20)))-4;WZ3:=F10FIND('-',WZ2+IF(F10=1,10,IF(F10=4,60,20)))-4;WZ4:=F10FIND('-',WZ3+IF(F10=1,10,IF(F10=4,60,20)))-4;
WZ5:=IF(F10=2,F10FIND('【2:机构持股】',WZ1),IF(F10=3,F10FIND('公司简况',WZ1),IF(F10=4,F10FIND('（四）QFII持股',WZ1),F10FIND('◆ 概念题材',WZ1))));//查找结束位
//取时间
T1:=F10TEXT(WZ1,10);T2:=IF(WZ2<WZ5,F10TEXT(WZ2,10),'');T3:=IF(WZ3<WZ5,F10TEXT(WZ3,10),'');T4:=IF(WZ4<WZ5,F10TEXT(WZ4,10),'');
//取股东户数
LS:=IF(F10=1,142,IF(F10=4,29,14));//14;
HS1:=STRTONUM(F10TEXT(WZ1+LS,10));HS2:=IF(WZ2<WZ5,STRTONUM(F10TEXT(WZ2+LS,10)),0);HS3:=IF(WZ3<WZ5,STRTONUM(F10TEXT(WZ3+LS,10)),0);HS4:=IF(WZ4<WZ5,STRTONUM(F10TEXT(WZ4+LS,10)),0);
//取户均持股数
LS:=IF(F10=2,28,IF(F10=3,38,IF(F10=4,43,205)));
RS1:=STRTONUM(F10TEXT(WZ1+LS,10));RS2:=IF(WZ2<WZ5,STRTONUM(F10TEXT(WZ2+LS,10)),0);
RS3:=IF(WZ3<WZ5,STRTONUM(F10TEXT(WZ3+LS,10)),0);RS4:=IF(WZ4<WZ5,STRTONUM(F10TEXT(WZ4+LS,10)),0);
//日期转换
TD1:=STRTONUM('1'+STRMID(T1,3,2)+STRMID(T1,6,2)+STRRIGHT(T1,2));
TD2:=STRTONUM('1'+STRMID(T2,3,2)+STRMID(T2,6,2)+STRRIGHT(T2,2));
TD3:=STRTONUM('1'+STRMID(T3,3,2)+STRMID(T3,6,2)+STRRIGHT(T3,2));
TD4:=STRTONUM('1'+STRMID(T4,3,2)+STRMID(T4,6,2)+STRRIGHT(T4,2));
{将变化持股数对应显示在对应位置}
DRAWNUMBER(CROSS(DATE,TD1) AND HS1>100,c,RS1,2),colorFF00FF,ALIGN4;
DRAWNUMBER(CROSS(DATE,TD2) AND HS2>100,c,RS2,2),colorFFFF00,ALIGN4;
DRAWNUMBER(CROSS(DATE,TD3) AND HS3>100,c,RS3,2),colorFF00,ALIGN4;
DRAWNUMBER(CROSS(DATE,TD4) AND HS4>100,c,RS4,2),colorEEFF,ALIGN4;
A5:=SYSPARAM(5);A3:=SYSPARAM(3);AG:=INTPART((SYSPARAM(3)-SYSPARAM(2))/8);
ZX:=(SYSPARAM(4)-A5),LINETHICK;
ZY:=MAX(RS1,MAX(RS2,MAX(RS3,RS4))),LINETHICK;
AAA:=ZY/ZX*10/GD,LINETHICK;
D:=BACKSET(ISLASTBAR,80);
A:=D>REF(D,1);
STICKLINE(GD>0 AND BARPOS=A3-AG*1 AND HS1>100,A5,RS1/AAA+A5,AG*3,1),colorFF00FF,LINETHICK2;
STICKLINE(GD>0 AND BARPOS=A3-AG*2 AND HS2>100,A5,RS2/AAA+A5,AG*3,1),colorFFFF00,LINETHICK2;
STICKLINE(GD>0 AND BARPOS=A3-AG*3 AND HS3>100,A5,RS3/AAA+A5,AG*3,1),colorFF00,LINETHICK2;
STICKLINE(GD>0 AND BARPOS=A3-AG*4 AND HS4>100,A5,RS4/AAA+A5,AG*3,1),colorFFCC,LINETHICK2;
//
END;
IF QSW=-1 THEN EXIT;
//显示文字
XSW:=SYSPARAM(2)+1=BARPOS;
DRAWTEXT(XSW AND HS1>100,A5,'股东户数 \n户均持股 \n 时间'),COLORFFFF00,PXUP50;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*1 AND HS1>100,SYSPARAM(5),HS1,2),,COLORAFFF00,ALIGN,PXUP50;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*2 AND HS2>100,SYSPARAM(5),HS2,2),,COLORAFFF00,ALIGN,PXUP50;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*3 AND HS3>100,SYSPARAM(5),HS3,2),,COLORAFFF00,ALIGN,PXUP50;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*4 AND HS4>100,SYSPARAM(5),HS4,2),,COLORAFFF00,ALIGN,PXUP50;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*1 AND HS1>100,SYSPARAM(5),RS1,2),,COLORDDDDDD,ALIGN,PXUP30;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*2 AND HS2>100,SYSPARAM(5),RS2,2),,COLORDDDDDD,ALIGN,PXUP30;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*3 AND HS3>100,SYSPARAM(5),RS3,2),,COLORDDDDDD,ALIGN,PXUP30;
DRAWNUMBER(GD>0 ANDBARPOS=A3-AG*4 AND HS4>100,SYSPARAM(5),RS4,2),,COLORDDDDDD,ALIGN,PXUP30;
DRAWTEXT(GD>0 ANDBARPOS=A3-AG*1 AND HS1>100,SYSPARAM(5),T1),COLORDD00,ALIGN;
DRAWTEXT(GD>0 ANDBARPOS=A3-AG*2 AND HS2>100,SYSPARAM(5),T2),COLORDD00,ALIGN;
DRAWTEXT(GD>0 ANDBARPOS=A3-AG*3 AND HS3>100,SYSPARAM(5),T3),COLORDD00,ALIGN;
DRAWTEXT(GD>0 ANDBARPOS=A3-AG*4 AND HS4>100,SYSPARAM(5),T4),COLORDD00,ALIGN;
{点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
