打印

[副图公式] 股市浪子F10专集{六个精品指标}

af8889

论坛贵宾

海风义工

UID: 14701
帖子: 3788
精华: 29
积分: 9634
体力: 13144
现金: 14017
阅读权限: 120
在线时间: 1531 小时
注册时间: 2004-3-20

楼主大中小发表于 2006-2-22 02:25 只看该作者

[副图公式] 股市浪子F10专集{六个精品指标}

复制内容到剪贴板

代码:

{鹏博F10股东人数}

//流通: CAPITAL/100,LINETHICK;

控盘:CAPITAL/100/ FINANCE(50),LINETHICK;



{基于鹏搏资讯，因为F10资料经常变动，所以在变动后，需要对应调整，可做主图}

gdstar:=F10FIND('总户数',500);{查找F10中股东人数的位置}

gdw1:=F10FIND('200',gdstar+40);

gdw2:=F10FIND('200',gdw1+40);

gdw3:=F10FIND('200',gdw2+40);

gdw4:=F10FIND('200',gdw3+40);

IF gdstar<0 THEN EXIT;

{取对应的数据资料}

gdtd1:=F10TEXT(gdw1,10);gdtx1:=LTRIM(F10TEXT(gdw1+14,10));

gdtd2:=F10TEXT(gdw2,10);gdtx2:=LTRIM(F10TEXT(gdw2+14,10));

gdtd3:=F10TEXT(gdw3,10);gdtx3:=LTRIM(F10TEXT(gdw3+14,10));

gdtd4:=F10TEXT(gdw4,10);gdtx4:=LTRIM(F10TEXT(gdw4+14,10));

{转换字符串为数值}

gd1:=STRTONUM(gdtx1),LINETHICK;gd2:=STRTONUM(gdtx2),LINETHICK;

gd3:=STRTONUM(gdtx3),LINETHICK;gd4:=STRTONUM(gdtx4),LINETHICK;

{显示}

本期:=gd1;

前:=gd2;

近:=gd3;

远:=gd4;

d:=BACKSET(ISLASTBAR,88);

A:=D>REF(D,1);

STICKLINE(REF(A,0) AND GD4>1,0,远,40,0),color00ffcc;

STICKLINE(REF(A,20) AND GD3>1,0,近,40,0),color00ff00;

STICKLINE(REF(A,40) AND GD2>1,0,前,40,0),colorffff00;

STICKLINE(REF(A,60) AND GD1>1,0,本期,40,0),colorFF00FF;

最大:=max(远,近);

最大:=max(最大,前);

最大:=max(最大,本期);



增幅:(本期-前)/前*100,linethick0;

BLW:=F10FIND('占流通A股比例',500);

十大流通股东本期占（%）:STRTONUM(STRRIGHT(F10TEXT(BLW,20),6)),PRECISION2,COLORYELLOW,LINETHICK0;

上期占（%）:STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例',BLW+20),20),6)),PRECISION2,COLORYELLOW,LINETHICK0;

-0.1*最大,color;

DRAWTEXT(ref(a,1) AND GD4>1,1.1*最大,'人数:'+gdtx4),ALIGN,color00ffcc;

DRAWTEXT(ref(a,1) AND GD4>1,-0.02*最大,'（远期）'),ALIGN,color00ffcc;

DRAWTEXT(ref(a,20) AND GD3>1,1.1*最大,'人数:'+gdtx3),ALIGN,color00ff00;

DRAWTEXT(ref(a,20) AND GD3>1,-0.02*最大,'（近期）'),ALIGN,color00ff00;

DRAWTEXT(ref(a,40) AND GD2>1,1.1*最大,'人数:'+gdtx2),ALIGN,colorffff00;

DRAWTEXT(ref(a,40) AND GD2>1,-0.02*最大,'（前期）'),ALIGN,colorffff00;

DRAWTEXT(ref(a,60) AND GD1>1,1.1*最大,'人数:'+gdtx1),ALIGN,colorff00ff;

DRAWTEXT(ref(a,60) AND GD1>1,-0.02*最大,'（本期）'),ALIGN,colorff00ff;



//

附件: 您所在的用户组无法下载或查看附件

关爱海风，祝福海风的每一位朋友！

TOP

af8889

论坛贵宾

海风义工

UID: 14701
帖子: 3788
精华: 29
积分: 9634
体力: 13144
现金: 14017
阅读权限: 120
在线时间: 1531 小时
注册时间: 2004-3-20

2楼大中小发表于 2006-2-22 02:25 只看该作者

复制内容到剪贴板

代码:

{鹏博F10净利润增长}

VARIABLE:SJ[8]='str',SY[8]='str',TT=6;

jdg:=F10FIND('财务指标-增长能力',10000),LINETHICK;

IF jdg=-1 then EXIT;

SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);

SJ[1]:=LTRIM(STRMID(SJT,14,10));

FOR i=1 TO 4 DO BEGIN

    TMP:=STRFIND(SJT,'  │',1);

    SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));

    SJT:=LTRIM(STRMID(SJT,TMP+2,0));

END;

WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);

DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJ[1]);



SYT:=F10TEXT(F10FIND('净利润增长率',jdg)+6,70);

SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));

SY[1]:=STRLEFT(SYT,6);

SY[2]:=LTRIM(STRMID(SYT,13,8));

SY[3]:=LTRIM(STRMID(SYT,13*2,8));

SY[4]:=IF(WT,LTRIM(STRMID(SYT,13*3,8)),'');



一期:STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;

二期:STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;

三期:STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;

四期:STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;

增长:一期>二期,COLORFFFF00,LINETHICK;

EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),4)),colorcyan;

EXPLAIN(1,SJ[2]+'：'+NUMTOSTR(STRTONUM(SY[2]),4)),colorcyan;

EXPLAIN(1,SJ[3]+'：'+NUMTOSTR(STRTONUM(SY[3]),4)),colorcyan;

EXPLAIN(WT,SJ[4]+'：'+NUMTOSTR(STRTONUM(SY[4]),4)),colorcyan;



IF WT=1 THEN BEGIN

   SJT1:=LTRIM(F10TEXT(F10FIND('指标名称',jdg+700)+16,56));

   SJ[5]:=STRLEFT(SJT1,8);

   SJ[6]:=RTRIM(LTRIM(STRMID(SJT1,14,10)));

   SJ[7]:=RTRIM(LTRIM(STRMID(SJT1,14*2,10)));

   SJ[8]:=RTRIM(LTRIM(STRMID(SJT1,14*3,10)));



   SYT1:=F10TEXT(F10FIND('净利润增长率',jdg+700)+24,50);

   SY[5]:=STRLEFT(SYT1,6);

   SY[6]:=LTRIM(STRMID(SYT1,14,8));

   SY[7]:=LTRIM(STRMID(SYT1,14*2,8));

   SY[8]:=LTRIM(STRMID(SYT1,14*3,8));



   去年:STRTONUM(SY[5]),PRECISION4,LINETHICK;

   前年:STRTONUM(SY[6]),PRECISION4,LINETHICK;

   前二:STRTONUM(SY[7]),PRECISION4,LINETHICK;

   前三:STRTONUM(SY[8]),PRECISION4,LINETHICK;

   EXPLAIN(WT,'***往年***\n'+SJ[5]+'：'+NUMTOSTR(STRTONUM(SY[5]),4)),colorgreen;

   EXPLAIN(WT,SJ[6]+'：'+NUMTOSTR(STRTONUM(SY[6]),4)),colorgreen;

   EXPLAIN(WT,SJ[7]+'：'+NUMTOSTR(STRTONUM(SY[7]),4)),colorgreen;

   EXPLAIN(WT,SJ[8]+'：'+NUMTOSTR(STRTONUM(SY[8]),4)),colorgreen;

END;

//

关爱海风，祝福海风的每一位朋友！

TOP

af8889

论坛贵宾

海风义工

UID: 14701
帖子: 3788
精华: 29
积分: 9634
体力: 13144
现金: 14017
阅读权限: 120
在线时间: 1531 小时
注册时间: 2004-3-20

3楼大中小发表于 2006-2-22 02:26 只看该作者

复制内容到剪贴板

代码:

{鹏博F10每股收益}

VARIABLE:SJA[5]='str',SYA[5]='str',TTA=1;

jdgA:=F10FIND('主要指标',50),LINETHICK;

SJTA:=F10TEXT(F10FIND(' │',jdgA)+3,50);

SJA[1]:=STRLEFT(SJTA,8);

SJA[2]:=STRMID(SJTA,11,8);

SJA[3]:=STRMID(SJTA,10*2+1,8);

SJA[4]:=STRMID(SJTA,10*3+1,8);

SJA[5]:=STRMID(SJTA,10*4+1,8);

jdg0:=F10FIND('每股收益(元)',jdgA),LINETHICK;

SYTA:=F10TEXT(jdg0,70);

SYTA:=STRRIGHT(SYTA,69-STRFIND(SYTA,'│ ',12));

SYA[1]:=STRLEFT(SYTA,8);

FOR j=1 TO 5 DO BEGIN

    SYA[j]:=STRMID(SYTA,TTA,8);

    TTA:=TTA+10;

END;

最新:STRTONUM(SYA[1]),PRECISION4,LINETHICK;

上:STRTONUM(SYA[2]),PRECISION4,LINETHICK;

三:STRTONUM(SYA[3]),PRECISION4,LINETHICK;

四:STRTONUM(SYA[4]),PRECISION4,LINETHICK;

五:STRTONUM(SYA[5]),PRECISION4,LINETHICK;

增长1:最新>上,LINETHICK;

//DRAWTEXT(SYSPARAM(2)=BARPOS,30,'最新日期：'+SJTA);

DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJA[1]);

EXPLAIN(1,'**主要指标**\n'+SJA[1]+'：'+NUMTOSTR(最新,4)),coloryellow;

EXPLAIN(1,SJA[2]+'：'+NUMTOSTR(上,4)),coloryellow;

EXPLAIN(1,SJA[3]+'：'+NUMTOSTR(三,4)),coloryellow;

EXPLAIN(1,SJA[4]+'：'+NUMTOSTR(四,4)),coloryellow;

EXPLAIN(1,SJA[5]+'：'+NUMTOSTR(五,4)),coloryellow;



VARIABLE:SJ[8]='str',SY[8]='str',TT=6;

jdg:=F10FIND('财务指标-每股指标:',6000),LINETHICK;

IF jdg=-1 then EXIT;

SJT:=F10TEXT(F10FIND('指标名称',jdg)+4,70);

SJ[1]:=LTRIM(STRMID(SJT,14,10));

FOR i=1 TO 4 DO BEGIN

    TMP:=STRFIND(SJT,'  │',1);

    SJ[i]:=LTRIM(STRMID(SJT,TMP+4,10));

    SJT:=LTRIM(STRMID(SJT,TMP+2,0));

END;

WT:=IF(STRLEN(RTRIM(SJ[4]))>4,1,0);



SYT:=F10TEXT(F10FIND('每股收益(元)',jdg)+6,70);

SYT:=LTRIM(STRRIGHT(SYT,69-STRFIND(SYT,'│ ',10)));

SY[1]:=STRLEFT(SYT,6);

SY[2]:=LTRIM(STRMID(SYT,14,8));

SY[3]:=LTRIM(STRMID(SYT,14*2,8));

SY[4]:=IF(WT,LTRIM(STRMID(SYT,14*3,8)),'');



一期:STRTONUM(SY[1]),PRECISION4,COLORFFFFFF,LINETHICK;

二期:STRTONUM(SY[2]),PRECISION4,COLORFFFF,LINETHICK;

三期:STRTONUM(SY[3]),PRECISION4,COLORFF00FF,LINETHICK;

四期:STRTONUM(SY[4]),PRECISION4,COLORFF00,LINETHICK;

增长2:一期>二期,COLORFFFF00,LINETHICK;

EXPLAIN(1,'***近期***\n'+SJ[1]+'：'+NUMTOSTR(STRTONUM(SY[1]),4)),colorcyan;

EXPLAIN(1,SJ[2]+'：'+NUMTOSTR(STRTONUM(SY[2]),4)),colorcyan;

EXPLAIN(1,SJ[3]+'：'+NUMTOSTR(STRTONUM(SY[3]),4)),colorcyan;

EXPLAIN(WT,SJ[4]+'：'+NUMTOSTR(STRTONUM(SY[4]),4)),colorcyan;



//DRAWTEXT(SYSPARAM(2)=BARPOS,10,'最新日期：'+SJ[1]);





IF WT=1 THEN BEGIN

   SJT1:=LTRIM(F10TEXT(F10FIND('指标名称',jdg+700)+16,56));

   SJ[5]:=STRLEFT(SJT1,8);

   SJ[6]:=RTRIM(LTRIM(STRMID(SJT1,14,10)));

   SJ[7]:=RTRIM(LTRIM(STRMID(SJT1,14*2,10)));

   SJ[8]:=RTRIM(LTRIM(STRMID(SJT1,14*3,10)));



   SYT1:=F10TEXT(F10FIND('每股收益(元)',jdg+700)+24,50);

   SY[5]:=STRLEFT(SYT1,6);

   SY[6]:=LTRIM(STRMID(SYT1,14,8));

   SY[7]:=LTRIM(STRMID(SYT1,14*2,8));

   SY[8]:=LTRIM(STRMID(SYT1,14*3,8));



   去年:STRTONUM(SY[5]),PRECISION4,LINETHICK;

   前年:STRTONUM(SY[6]),PRECISION4,LINETHICK;

   前二:STRTONUM(SY[7]),PRECISION4,LINETHICK;

   前三:STRTONUM(SY[8]),PRECISION4,LINETHICK;

   EXPLAIN(WT,'***往年***\n'+SJ[5]+'：'+NUMTOSTR(STRTONUM(SY[5]),4)),colorgreen;

   EXPLAIN(WT,SJ[6]+'：'+NUMTOSTR(STRTONUM(SY[6]),4)),colorgreen;

   EXPLAIN(WT,SJ[7]+'：'+NUMTOSTR(STRTONUM(SY[7]),4)),colorgreen;

   EXPLAIN(WT,SJ[8]+'：'+NUMTOSTR(STRTONUM(SY[8]),4)),colorgreen;

END;

//

关爱海风，祝福海风的每一位朋友！

TOP

af8889

论坛贵宾

海风义工

UID: 14701
帖子: 3788
精华: 29
积分: 9634
体力: 13144
现金: 14017
阅读权限: 120
在线时间: 1531 小时
注册时间: 2004-3-20

4楼大中小发表于 2006-2-22 02:27 只看该作者

复制内容到剪贴板

代码:

{鹏博F10股东人数}

流通: CAPITAL/100,LINETHICK;

控盘:CAPITAL/100/ FINANCE(50),LINETHICK;



{基于鹏搏资讯，因为F10资料经常变动，所以在变动后，需要对应调整，可做主图}

gdstar:=F10FIND('总户数',500);{查找F10中股东人数的位置}

gdw1:=F10FIND('200',gdstar+40);

gdw2:=F10FIND('200',gdw1+40);

gdw3:=F10FIND('200',gdw2+40);

gdw4:=F10FIND('200',gdw3+40);

IF gdstar<0 THEN EXIT;

{取对应的数据资料}

gdtd1:=F10TEXT(gdw1,10);gdtx1:=LTRIM(F10TEXT(gdw1+14,10));

gdtd2:=F10TEXT(gdw2,10);gdtx2:=LTRIM(F10TEXT(gdw2+14,10));

gdtd3:=F10TEXT(gdw3,10);gdtx3:=LTRIM(F10TEXT(gdw3+14,10));

gdtd4:=F10TEXT(gdw4,10);gdtx4:=LTRIM(F10TEXT(gdw4+14,10));

{转换字符串为数值}

gd1:=STRTONUM(gdtx1),LINETHICK;gd2:=STRTONUM(gdtx2),LINETHICK;

gd3:=STRTONUM(gdtx3),LINETHICK;gd4:=STRTONUM(gdtx4),LINETHICK;

DRAWTEXT(SYSPARAM(2)=BARPOS,GD1*0.6,'最新日期：'+gdtd1),COLORYELLOW;

DRAWTEXT(SYSPARAM(2)=BARPOS,GD1*0.3,'最新户均持股：'+NUMTOSTR(CAPITAL*100/gd1,2)),COLORYELLOW;

{解盘显示股东人数变动}

EXPLAIN(gd1>1,gdtd1+'总户数：'+gdtx1);

EXPLAIN(gd2>1,gdtd2+'总户数：'+gdtx2);

EXPLAIN(gd3>1,gdtd3+'总户数：'+gdtx3);

EXPLAIN(gd4>1,gdtd4+'总户数：'+gdtx4);

TD1:=STRTONUM('1'+STRMID(gdtd1,3,2)+STRMID(gdtd1,6,2)+STRRIGHT(gdtd1,2));

TD2:=STRTONUM('1'+STRMID(gdtd2,3,2)+STRMID(gdtd2,6,2)+STRRIGHT(gdtd2,2));

TD3:=STRTONUM('1'+STRMID(gdtd3,3,2)+STRMID(gdtd3,6,2)+STRRIGHT(gdtd3,2));

TD4:=STRTONUM('1'+STRMID(gdtd4,3,2)+STRMID(gdtd4,6,2)+STRRIGHT(gdtd4,2));

{***********************}

{将变化人数对应显示在 K 线上}

DRAWNUMBER(date=TD1 AND GD1>1,c,gd1,0),colorFF00FF,ALIGN4;

DRAWNUMBER(date=TD2 AND GD2>1,c,gd2,0),colorffff00,ALIGN4;

DRAWNUMBER(date=TD3 AND GD3>1,c,gd3,0),color00ff00,ALIGN4;

DRAWNUMBER(date=TD4 AND GD4>1,c,gd4,0),color00ffcc,ALIGN4;



本期:gd1,linethick0,colorff00ff;

前:gd2,linethick0,colorffff00;

近:gd3,linethick0,color00ff00;

远:gd4,linethick0,color00ffcc;

d:=BACKSET(ISLASTBAR,40);

A:=D>REF(D,1);

STICKLINE(REF(A,6) AND GD4>1,0,远,40,0),color00ffcc;

STICKLINE(REF(A,14) AND GD3>1,0,近,40,0),color00ff00;

STICKLINE(REF(A,22) AND GD2>1,0,前,40,0),colorffff00;

STICKLINE(REF(A,30) AND GD1>1,0,本期,40,0),colorFF00FF;

最大:=max(远,近);

最大:=max(最大,前);

最大:=max(最大,本期);



增幅:(本期-前)/前*100,linethick0;

BLW:=F10FIND('占流通A股比例',500);

十大流通股东占（%）:STRTONUM(STRRIGHT(F10TEXT(BLW,20),6)),PRECISION2,COLORYELLOW,LINETHICK0;

上期（%）:STRTONUM(STRRIGHT(F10TEXT(F10FIND('占流通A股比例',BLW+20),20),6)),PRECISION2,COLORYELLOW,LINETHICK0;

-0.1*最大,color;

DRAWTEXT(ref(a,6) AND GD4>1,-0.02*最大,gdtx4),ALIGN,color00ffcc;

DRAWTEXT(ref(a,14) AND GD3>1,-0.02*最大,gdtx3),ALIGN,color00ff00;

DRAWTEXT(ref(a,22) AND GD2>1,-0.02*最大,gdtx2),ALIGN,colorffff00;

DRAWTEXT(ref(a,30) AND GD1>1,-0.02*最大,gdtx1),ALIGN,colorff00ff;

//

关爱海风，祝福海风的每一位朋友！

TOP

af8889

论坛贵宾

海风义工

UID: 14701
帖子: 3788
精华: 29
积分: 9634
体力: 13144
现金: 14017
阅读权限: 120
在线时间: 1531 小时
注册时间: 2004-3-20

5楼大中小发表于 2006-2-22 02:27 只看该作者

复制内容到剪贴板

代码:

{鹏博F10资产负债率}

VARIABLE:SJA[4]='str',FZ[4]='str';

jdg:=F10FIND('财务指标-偿债能力',9000),LINETHICK;

IF jdg<0 THEN EXIT;

jdgA:=F10FIND('指标名称',jdg),LINETHICK;

SJTA:=LTRIM(F10TEXT(F10FIND(' │',jdgA)+3,56));

SJA[1]:=STRLEFT(SJTA,8);

SJA[2]:=STRMID(SJTA,15,8);

SJA[3]:=STRMID(SJTA,14*2+1,8);

SJA[4]:=STRMID(SJTA,14*3+1,8);

DRAWTEXT(SYSPARAM(2)=BARPOS,30,'最新日期：'+SJA[1]);

WT:=IF(STRLEN(RTRIM(SJA[4]))>4,1,0);



jdg0:=F10FIND('资产负债比率(%)',jdgA+50),LINETHICK;

FZT:=F10TEXT(jdg0,74);

FZT:=LTRIM(STRRIGHT(FZT,69-STRFIND(FZT,'│ ',12)));

FZ[1]:=STRLEFT(FZT,8);

FZ[2]:=STRMID(FZT,15,8);

FZ[3]:=STRMID(FZT,14*2+1,8);

FZ[4]:=STRMID(FZT,14*3+1,8);

最新:STRTONUM(FZ[1]),PRECISION2,LINETHICK;

上:STRTONUM(FZ[2]),PRECISION2,LINETHICK;

三:STRTONUM(FZ[3]),PRECISION2,LINETHICK;

四:STRTONUM(FZ[4]),PRECISION2,LINETHICK;

EXPLAIN(1,SJA[1]+'：'+NUMTOSTR(最新,4)),coloryellow;

EXPLAIN(1,SJA[2]+'：'+NUMTOSTR(上,4)),COLORMAGENTA;

EXPLAIN(1,SJA[3]+'：'+NUMTOSTR(三,4)),colorgreen;

EXPLAIN(WT,SJA[4]+'：'+NUMTOSTR(四,4)),colorred;

关爱海风，祝福海风的每一位朋友！

TOP

af8889

论坛贵宾

海风义工

UID: 14701
帖子: 3788
精华: 29
积分: 9634
体力: 13144
现金: 14017
阅读权限: 120
在线时间: 1531 小时
注册时间: 2004-3-20

6楼大中小发表于 2006-2-22 02:28 只看该作者

复制内容到剪贴板

代码:

{鹏博F10公司曾用名}

CYM:=F10FIND('曾用名',500);{查找曾用名的位置}

MDW1:=F10FIND('│',CYM+10);

MDW2:=F10FIND('│',MDW1+68);

MDW3:=F10FIND('│',MDW2+68);

MDW4:=F10FIND('联系电话',MDW2+68);

IF CYM<0 THEN EXIT;

{取对应的数据资料}

ZD1:=LTRIM(RTRIM(F10TEXT(MDW1+2,30)));

IF STRFIND(ZD1,'-',1)>0 THEN EXIT;

ZD2:=RTRIM(F10TEXT(MDW2+2,20));

ZD3:=IF(MDW3<MDW4,RTRIM(F10TEXT(MDW3+2,20)),'');

DRAWTEXT(SYSPARAM(2)=BARPO

关爱海风，祝福海风的每一位朋友！