加载中…
看主力增仓比率，基金持仓比率，户均持股增加的公式
(2009-02-22 19:38:22)
标签：
杂谈大智慧l2股票净利润增长率耐尔选股法选股策略于安生 |
分类： 财务分析 |
股市浪子(F10)
{适用于万国、Wind、鹏搏、维赛特、港澳资讯F10}
DRAWGBK(1, COLORRGB(60,60,60),COLORRGB(50,50,50),1);
{-------------------☆功能开关-------------------}
{选择F10类型}
F10:=IF(F10FIND('万国测评制作',1)>0,1,IF(F10FIND('Wind资讯',1)>0,2,IF(F10FIND('鹏搏资讯',1)>0,3,IF(F10FIND('维赛特',1)>0,4,IF(F10FIND('☆
DRAWTEXT(SYSPARAM(2)+20=BARPOS AND
F10=0,15,'本公式不适合该种F10资料。'),COLOREEFF;
{F10数据查找}
IF F10=0 THEN EXIT;
QSW:=IF(F10=2,F10FIND('【1:主力运作】',100),IF(F10=3,F10FIND('控盘情况:',1),IF(F10=4,F10FIND('（三）历年人均持股情况',1),IF(F10=5,F10FIND('【1.机构持股汇总】
QSW:=IF(F10=5,F10FIND('【2.股东户数',QSW),QSW);
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),IF(F10=5,F10FIND('└--',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,IF(F10=5,12,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,IF(F10=5,30,205))));
RS1:=STRTONUM(F10TEXT(WZ1+LS,10));
RS2:=IF(WZ2<WZ5 AND
HS2>100,STRTONUM(F10TEXT(WZ2+LS,10)),0);
RS3:=IF(WZ3<WZ5 AND
HS3>100,STRTONUM(F10TEXT(WZ3+LS,10)),0);
RS4:=IF(WZ4<WZ5 AND
HS4>100,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));
END;
//===============================================================================
{大股东数据查找}
QSW1:=IF(F10=2,F10FIND('股东进出】
<<占流通股比例区',1000),IF(F10=3,F10FIND('【十大流通股东】',500),IF(F10=5,F10FIND('☆股东研究☆',500),F10FIND('【基金机构持股】',1000))));//起
JSW1:=IF(F10=2,F10FIND('【2:大股东介绍】',QSW1+300),IF(F10=3,F10FIND('【十大股东】',QSW1+500),IF(F10=5,F10FIND('【2.基金持股】',QSW1+300),F10FIND('<!P关联个股>',QSW1+300))));//止
IF QSW1<0 THEN EXIT;
SJT:=IF(F10=2,F10FIND('流通股东名',QSW1+50),IF(F10=5,F10FIND('十大流通股东情况',QSW1+50),F10FIND('截止日期',QSW1+10)));
IF SJT<0 THEN EXIT;
VARIABLE:TT[4]='STR',持股[4]='STR',比例[4]=0,变化[4]=0;
FOR i=1 to 4 DO BEGIN
//变化
END;
当期:=STRTONUM(持股[1]),COLORFF,LINETHICK;
当期（%）:=比例[1],PRECISION2,COLORCC,LINETHICK;
上期:=STRTONUM(持股[2]),COLORFFFF,LINETHICK;
上期（%）:=比例[2],PRECISION2,COLORCCDD,LINETHICK;
±比例:=当期（%）-上期（%）,PRECISION2,COLORCC00DD,LINETHICK;
前二:=STRTONUM(持股[3]),LINETHICK,COLORFFFF00;
前二（%）:=比例[3],PRECISION2,COLORCDDD00,LINETHICK;
前三:=STRTONUM(持股[4]),COLORFF00,LINETHICK;
前三（%）:=比例[4],PRECISION2,COLORAD00,LINETHICK;
{将变化持股数对应显示在对应位置}
A2:=SYSPARAM(2);//最初
A3:=SYSPARAM(3);//最后
A5:=SYSPARAM(5);//最低
A6:=MIN(MIN(RS1,RS2),MIN(RS3,RS4));//最小值
AG:=INTPART((A3-A2)/8);//柱宽控制
{排序}
股东增幅:(HS1-HS2)/HS2*100,PRECISION2,linethick,Color008987;
持股增幅:(RS1-RS2)/RS2*100,PRECISION2,linethick,COLORRED;
主力增幅:(当期-上期)/上期*100,PRECISION2,LINETHICK,ColorFA7D7D;
主力占流通比增幅:(当期（%）-上期（%）)/当期（%）*100,PRECISION2,LINETHICK,ColorFFA935;
{-------------------【图解模板】-------------------}
{柱线}
{持股数柱线}
STICKLINE(BARPOS=A3-AG*1-10 AND
HS1>100,0,RS1,AG*3,1),LINETHICK2,ColorFFDDFF;
STICKLINE(BARPOS=A3-AG*2-15 AND
HS2>100,0,RS2,AG*3,1),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-20 AND
HS3>100,0,RS3,AG*3,1),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-25 AND
HS4>100,0,RS4,AG*3,1),LINETHICK2,ColorB9FFFF;
{10大股东画柱线}
STICKLINE(BARPOS=A3-AG*1-6
STICKLINE(BARPOS=A3-AG*2-11 AND
上期>0,0,上期,AG*3,0),LINETHICK2,ColorF1FFB5;
STICKLINE(BARPOS=A3-AG*3-16 AND
前二>0,0,前二,AG*3,0),LINETHICK2,ColorB9FFBC;
STICKLINE(BARPOS=A3-AG*4-21 AND
前三>0,0,前三,AG*3,0),LINETHICK2,ColorB9FFFF;
{显示文字}
DRAWTEXT(A2=BARPOS AND
HS1>100,A6,'户均持股'),PXUP50,ColorFFC800;
DRAWTEXT(A2=BARPOS AND
HS1>100,(A5+A6)/2,'股东户数'),PXUP10,ColorFA7D7D;
DRAWTEXT(A2=BARPOS AND
HS1>100,A5,'报表时间'),COLORDD00;
{10大股东显示文字}
DRAWTEXT(A3=BARPOS AND 当期>0
,(A5+A6)/2,'主力持股数(万)'),PXUP60,ALIGN2,SHIFT4,COLORRED;
DRAWTEXT(A3=BARPOS AND 当期>0
,A5,'主力占流通比'),PXUP35,ALIGN2,SHIFT2,COLORMAGENTA;
{户均持股}
DRAWNUMBER(BARPOS=A3-AG*1-10 AND
HS1>100,A6,RS1,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*2-15 AND
HS2>100,A6,RS2,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*3-20 AND
HS3>100,A6,RS3,2),PXUP50,ALIGN,ColorFFC800;
DRAWNUMBER(BARPOS=A3-AG*4-25 AND
HS4>100,A6,RS4,2),PXUP50,ALIGN,ColorFFC800;
{股东户数}
DRAWNUMBER(BARPOS=A3-AG*1-10 AND
HS1>100,(A5+A6)/2,HS1,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*2-15 AND
HS2>100,(A5+A6)/2,HS2,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*3-20 AND
HS3>100,(A5+A6)/2,HS3,0),PXUP10,ALIGN,ColorFA7D7D;
DRAWNUMBER(BARPOS=A3-AG*4-25 AND
HS4>100,(A5+A6)/2,HS4,0),PXUP10,ALIGN,ColorFA7D7D;
{10大股东持股}
DRAWNUMBER(BARPOS=A3-AG*1-6
DRAWNUMBER(BARPOS=A3-AG*2-11 AND
上期>0,(A5+A6)/2,上期,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*3-16 AND
前二>0,(A5+A6)/2,前二,2),PXUP60,ALIGN,COLORRED;
DRAWNUMBER(BARPOS=A3-AG*4-21 AND
前三>0,(A5+A6)/2,前三,2),PXUP60,ALIGN,COLORRED;
{10大股东%}
DRAWNUMBER(BARPOS=A3-AG*1-6
DRAWNUMBER(BARPOS=A3-AG*2-11 AND
上期>0,A5,上期（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*3-16 AND
前二>0,A5,前二（%）,2),PXUP35,ALIGN,COLORMAGENTA;
DRAWNUMBER(BARPOS=A3-AG*4-21 AND
前三>0,A5,前三（%）,2),PXUP35,ALIGN,COLORMAGENTA;
{时间}
DRAWTEXT(BARPOS=A3-AG*1-12 AND
HS1>100,A5,T1),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*2-17 AND
HS2>100,A5,T2),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*3-22 AND
HS3>100,A5,T3),COLORDD00;
DRAWTEXT(BARPOS=A3-AG*4-27 AND
HS4>100,A5,T4),COLORDD00;
利用主力增减（QQ兄的杰作）选股的分析家6.0,分析家5.0通用公式（扩展数据设在“数据8”---自己根据情况可改动，选股时，只要选定“主力增减排名三>0"即可）,
ZLZJ选股（主力增减排序法选股）
{主力持筹公式，取用主力仓量、主力增减、主力仓量ma5、主力仓量ma20指标}
大买:=SELFDATA('大买量');
大卖:=SELFDATA('大卖量');
当天增减:=(大买-大卖);
主力仓量:=sum(大买-大卖,0);
主力增减:当天增减/finance(7);
主仓五:=MA(主力仓量,5);
主仓二十:=MA(主力仓量,20);