- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-9-8
|
|

楼主 |
发表于 2007-3-9 09:17
|
显示全部楼层
一个极好的公式。直观看主力增减仓比率,基金持仓比率,户均持股增加比率,图如下
股市浪子(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('☆ ◇港澳资讯',1)>0,5,0)))));
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.机构持股汇总】 ',1000),F10FIND('◆ 控盘情况 ◆',100)))));
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
TT:=RTRIM(F10TEXT(SJT+IF(F10=2,(-145),IF(F10=3,9,IF(F10=5,(-12),10))),12));//时间
HJW:=F10FIND(IF(F10=2,'总 计',IF(F10=3,'流通A股合计',IF(F10=5,'合计持有','合 计'))),SJT+300);
CGT:=LTRIM(IF(F10=4,F10TEXT(HJW+42,36)-'│'-'─',IF(F10=5,F10TEXT(HJW+8,0)-'流通',F10TEXT(HJW+IF(F10=2,20,12),60))));
持股:=IF(F10=4,STRLEFT(CGT,STRFIND(CGT,' ',3)-1),STRLEFT(CGT,STRFIND(CGT,IF(F10=2,' ',IF(F10=5,'万','(万股')),1)-1));
CGT1:=LTRIM(IF(F10=5,STRRIGHT(CGT-持股,STRLEN(CGT-持股)-STRFIND(CGT-持股,'%',1)-3),CGT-持股));
比例:=STRTONUM(IF(F10=4,STRLEFT(CGT1,STRFIND(CGT1,' ',3)-1),IF(F10=2,STRLEFT(CGT1,STRFIND(CGT1,'%',1)-1),
IF(F10=5,STRMID(CGT1,STRFIND(CGT1,'股',1)+2,STRFIND(CGT1,'%',5)),STRMID(CGT,STRFIND(CGT,':',10)+1,STRFIND(CGT,'%',10)-1)))));
//变化:=STRTONUM(STRRIGHT(CGT,STRLEN(CGT)-STRFIND(CGT,' ',16)));//维赛特
SJT:=IF(F10=2,F10FIND('流通股东名',HJW+50),IF(F10=5,F10FIND('十大流通股东情况',HJW+50),F10FIND('截止日期',HJW+10)));
IF SJT>JSW1 OR SJT<0 THEN BREAK;
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 AND 当期>0,0,当期,AG*3,0),LINETHICK2,ColorFFDDFF;
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 AND 当期>0,(A5+A6)/2,当期,2),PXUP60,ALIGN,COLORRED;
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 AND 当期>0,A5,当期(%),2),PXUP35,ALIGN,COLORMAGENTA;
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;
//
[ 本帖最后由 lymanqun 于 2007-3-9 09:24 编辑 ] |
|
|