zjtz288 发表于 2016-7-13 22:01

股东户数+户均持股+选股

本帖最后由 zjtz288 于 2016-7-13 22:03 编辑



| 炒股赚钱重要 但是健康最重要 |



{2-户均持股:}{查找F10中股东人数的位置:}gdstar:=F10FIND('┃股东户数',1);
{取对应的数据资料:}       gdw1:=F10FIND('┃04-09-30',gdstar);gdw2:=F10FIND('┃04-06-30',gdw1);
                         gdw3:=F10FIND('┃04-03-31',gdw3);gdw4:=F10FIND('┃03-12-31',gdw1);
{转换字符串为数值:}       gdtx1:=F10TEXT(gdw1+28,8);gdtx2:=F10TEXT(gdw2+28,8);
                         gdtx3:=F10TEXT(gdw3+28,8);gdtx4:=F10TEXT(gdw4+28,8);
{转换字符串为数值:}       gd1:=STRTONUM(gdtx1); gd2:=STRTONUM(gdtx2);
                         gd3:=STRTONUM(gdtx3); gd4:=STRTONUM(gdtx4);
{显示一:解盘显示户均持股}EXPLAIN(gdw1>1,'04-09-30 股/户:'+gdtx1);
                        EXPLAIN(gdw2>1,'04-06-30 股/户:'+gdtx2);
                        EXPLAIN(gdw3>1,'04-03-31 股/户:'+gdtx3);
                        EXPLAIN(gdw4>1,'03-12-31 股/户:'+gdtx4);
{显示二:对应显示户均持股在K线上:}
                        DRAWNUMBER(DATE=1041008,CLOSE,gd1,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040630,CLOSE,gd2,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040331,CLOSE,gd3,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1031231,CLOSE,gd4,0),ALIGN4,COLORRED;
户均持股49:gd1;{2004 3季报户均持股量}
户均持46:gd2; {2004 2季报户均持股量}
户均持43:gd3; {2004 1季报户均持股量}
户均持312:gd4;{2003 年报户均持股量}
递增:gd1>gd2 and gd2>gd3 and gd3>gd4;
户均3至5千且递增:gd1>3000 and gd1<5000 and 递增;


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

gdstar:=F10FIND('┃股东户数',1);
{查找F10中股东人数的位置}
gdw1:=f10find('┃04-09-30',gdstar);
gdw2:=f10find('┃04-06-30',gdw1);
gdw3:=f10find('┃04-03-31',gdw2);
gdw4:=f10find('┃03-12-31',gdw3);
{取对应的数据资料}
gdtx1:=F10TEXT(gdw1+10,8);gdtx2:=F10TEXT(gdw2+10,8);
gdtx3:=F10TEXT(gdw3+10,8);gdtx4:=F10TEXT(gdw4+10,8);
{转换字符串为数值}
gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);
{显示方法一:解盘显示股东人数变动}
EXPLAIN(gdw1>1,'04-09-30 总户数:'+gdtx1);
EXPLAIN(gdw2>1,'04-06-30 总户数:'+gdtx2);
EXPLAIN(gdw3>1,'04-03-31 总户数:'+gdtx3);
EXPLAIN(gdw4>1,'03-12-31 总户数:'+gdtx4);
{显示方法二:对应显示在 K 线上}
DRAWNUMBER(date=1040930,c,gd1,0),ALIGN5;
DRAWNUMBER(date=1040630,c,gd2,0),ALIGN5;
DRAWNUMBER(date=1040331,c,gd3,0),ALIGN5;
DRAWNUMBER(date=1031231,c,gd4,0),ALIGN5;
{显示方法三:对应显示为拄状线,附图时用}
STICKLINE(BETWEEN(date,1040929,1041231),gd1/10,gd1,8,0);
STICKLINE(BETWEEN(date,1040629,1040930),gd1/10,gd2,8,0);
STICKLINE(BETWEEN(date,1040330,1040630),gd1/10,gd3,8,0);
STICKLINE(BETWEEN(date,1031231,1040331),gd1/10,gd4,8,0);




申酉子 发表于 2019-10-24 06:51

{2-户均持股:}{查找F10中股东人数的位置:}gdstar:=F10FIND('┃股东户数',1);
{取对应的数据资料:}       gdw1:=F10FIND('┃04-09-30',gdstar);gdw2:=F10FIND('┃04-06-30',gdw1);
                         gdw3:=F10FIND('┃04-03-31',gdw3);gdw4:=F10FIND('┃03-12-31',gdw1);
{转换字符串为数值:}       gdtx1:=F10TEXT(gdw1+28,8);gdtx2:=F10TEXT(gdw2+28,8);
                         gdtx3:=F10TEXT(gdw3+28,8);gdtx4:=F10TEXT(gdw4+28,8);
{转换字符串为数值:}       gd1:=STRTONUM(gdtx1); gd2:=STRTONUM(gdtx2);
                         gd3:=STRTONUM(gdtx3); gd4:=STRTONUM(gdtx4);
{显示一:解盘显示户均持股}EXPLAIN(gdw1>1,'04-09-30 股/户:'+gdtx1);
                        EXPLAIN(gdw2>1,'04-06-30 股/户:'+gdtx2);
                        EXPLAIN(gdw3>1,'04-03-31 股/户:'+gdtx3);
                        EXPLAIN(gdw4>1,'03-12-31 股/户:'+gdtx4);
{显示二:对应显示户均持股在K线上:}
                        DRAWNUMBER(DATE=1041008,CLOSE,gd1,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040630,CLOSE,gd2,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040331,CLOSE,gd3,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1031231,CLOSE,gd4,0),ALIGN4,COLORRED;
户均持股49:gd1;{2004 3季报户均持股量}
户均持46:gd2; {2004 2季报户均持股量}
户均持43:gd3; {2004 1季报户均持股量}
户均持312:gd4;{2003 年报户均持股量}
递增:gd1>gd2 and gd2>gd3 and gd3>gd4;
户均3至5千且递增:gd1>3000 and gd1<5000 and 递增;


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

gdstar:=F10FIND('┃股东户数',1);
{查找F10中股东人数的位置}
gdw1:=f10find('┃04-09-30',gdstar);
gdw2:=f10find('┃04-06-30',gdw1);
gdw3:=f10find('┃04-03-31',gdw2);
gdw4:=f10find('┃03-12-31',gdw3);
{取对应的数据资料}
gdtx1:=F10TEXT(gdw1+10,8);gdtx2:=F10TEXT(gdw2+10,8);
gdtx3:=F10TEXT(gdw3+10,8);gdtx4:=F10TEXT(gdw4+10,8);
{转换字符串为数值}
gd1:=STRTONUM(gdtx1);gd2:=STRTONUM(gdtx2);
gd3:=STRTONUM(gdtx3);gd4:=STRTONUM(gdtx4);
{显示方法一:解盘显示股东人数变动}
EXPLAIN(gdw1>1,'04-09-30 总户数:'+gdtx1);
EXPLAIN(gdw2>1,'04-06-30 总户数:'+gdtx2);
EXPLAIN(gdw3>1,'04-03-31 总户数:'+gdtx3);
EXPLAIN(gdw4>1,'03-12-31 总户数:'+gdtx4);
{显示方法二:对应显示在 K 线上}
DRAWNUMBER(date=1040930,c,gd1,0),ALIGN5;
DRAWNUMBER(date=1040630,c,gd2,0),ALIGN5;
DRAWNUMBER(date=1040331,c,gd3,0),ALIGN5;
DRAWNUMBER(date=1031231,c,gd4,0),ALIGN5;
{显示方法三:对应显示为拄状线,附图时用}
STICKLINE(BETWEEN(date,1040929,1041231),gd1/10,gd1,8,0);
STICKLINE(BETWEEN(date,1040629,1040930),gd1/10,gd2,8,0);
STICKLINE(BETWEEN(date,1040330,1040630),gd1/10,gd3,8,0);
STICKLINE(BETWEEN(date,1031231,1040331),gd1/10,gd4,8,0);

东升123 发表于 2016-10-14 08:35

2-户均持股:}{查找F10中股东人数的位置:}gdstar:=F10FIND('┃股东户数',1);
{取对应的数据资料:}       gdw1:=F10FIND('┃04-09-30',gdstar);gdw2:=F10FIND('┃04-06-30',gdw1);
                         gdw3:=F10FIND('┃04-03-31',gdw3);gdw4:=F10FIND('┃03-12-31',gdw1);
{转换字符串为数值:}       gdtx1:=F10TEXT(gdw1+28,8);gdtx2:=F10TEXT(gdw2+28,8);
                         gdtx3:=F10TEXT(gdw3+28,8);gdtx4:=F10TEXT(gdw4+28,8);
{转换字符串为数值:}       gd1:=STRTONUM(gdtx1); gd2:=STRTONUM(gdtx2);
                         gd3:=STRTONUM(gdtx3); gd4:=STRTONUM(gdtx4);
{显示一:解盘显示户均持股}EXPLAIN(gdw1>1,'04-09-30 股/户:'+gdtx1);
                        EXPLAIN(gdw2>1,'04-06-30 股/户:'+gdtx2);
                        EXPLAIN(gdw3>1,'04-03-31 股/户:'+gdtx3);
                        EXPLAIN(gdw4>1,'03-12-31 股/户:'+gdtx4);
{显示二:对应显示户均持股在K线上:}
                        DRAWNUMBER(DATE=1041008,CLOSE,gd1,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040630,CLOSE,gd2,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1040331,CLOSE,gd3,0),ALIGN4,COLORRED;
                        DRAWNUMBER(DATE=1031231,CLOSE,gd4,0),ALIGN4,COLORRED;
户均持股49:gd1;{2004 3季报户均持股量}
户均持46:gd2; {2004 2季报户均持股量}
户均持43:gd3; {2004 1季报户均持股量}
户均持312:gd4;{2003 年报户均持股量}
递增:gd1>gd2 and gd2>gd3 and gd3>gd4;
户均3至5千且递增:gd1>3000 and gd1<5000 and 递增;

chenzhixiong 发表于 2017-7-23 12:39

DIFF:=EMA(CLOSE,6)-EMA(CLOSE,13);
DEA:=EMA(DIFF,5);
MACD:=2*(DIFF-DEA);
FH1:=REF(MACD,1)<REF(MACD,2) AND REF(MACD,2)<REF(MACD,3)
AND REF(MACD,3)<REF(MACD,4)&&CAPITAL/100<20000;
FH2:=MACD>=0 AND COUNT(MACD>REF(MACD,1),1)=1;
FH3:=FH1 AND FH2 AND EMA(C,13)>REF(EMA(C,13),1);
FH4:=FH1 AND FH2 AND ABS((DIFF-DEA)/C)<0.018;
FH5:=FH1 AND FH2 AND MACD<0.10;
凹口淘金:=FH3 OR FH4 OR FH5;

伸倍量柱:= REF(V>=REF(V,1)*1.5 AND C>O,1) AND V<=REF(V,1)*0.9;
T:=BARSSINCEN(伸倍量柱,8);
不跌破:=LLV(C,T+2)>=REF(L,T+1);
缩倍双阴:=COUNT(C<O,2)=2 AND REF(C>O,2) AND MA(V,2)<=REF(V,2)*0.7;
倍量伸缩:= REF(伸倍量柱,1) AND 缩倍双阴;
凹底:= (MA(C,3)-LLV(L,20))/LLV(L,20)<0.1;
涨停:= C>=(1.10*REF(C,1)-0.004);
XG1:= COUNT(伸倍量柱,6)>=2 AND 倍量伸缩 AND 凹底 AND 不跌破 AND T>=3 AND COUNT(涨停,30);
凹底1:= COUNT(XG1,10) ;
盘:=CAPITAL/100;
换:=V/盘;
换手率:=BETWEEN(换,1.74,40);
量比 :=DYNAINFO(17)>1.3;
流通盘:=CAPITAL/1000000<=2.85;
股价:=C>=4.60 AND C<14.99;
去创业板:=IF(CODELIKE('300'),0,1);
去停牌:=DYNAINFO(17)>0;
D22:=IF(NAMELIKE('S'),0,1);
D33:=IF(NAMELIKE('*'),0,1);
去ST:=D22 AND D33 AND 流通盘 AND 股价
AND 去创业板 AND 去停牌 ;
凹口淘金 OR 凹底1 AND 去ST AND 换手率 AND 量比;

七里屿 发表于 2016-7-13 22:19

股东户数+户均持股+选股

p467327843 发表于 2016-7-14 05:29

这个不错,谢谢分享。

wthxz 发表于 2016-7-16 05:10

学习学习学习

muge 发表于 2016-7-16 15:33

谢谢楼主分享

射雕英雄郭靖 发表于 2016-7-16 16:01

谢谢分享学习

wmm2016 发表于 2016-7-18 09:20

谢谢楼主分享

证明本人 发表于 2016-7-18 09:40

证明本人 发表于 2016-7-18 09:41

ybsd147369 发表于 2016-7-18 10:09

谢谢楼主分享

阿育阿育 发表于 2016-9-22 13:42

谢谢分享,努力学习。

rdkdy 发表于 2016-9-22 14:39

谢谢分享学习

股全 发表于 2016-10-14 06:54

学习学习学习

wtwl3143 发表于 2016-10-14 07:59

多谢分享。
页: [1] 2
查看完整版本: 股东户数+户均持股+选股