天机论坛

标题: 大智慧选股十大股东自然人8个以上，占比30% 源码 [打印本页]

作者: 574914599 时间: 2015-5-5 08:47
标题: 大智慧选股十大股东自然人8个以上，占比30% 源码

流通盘万股:=CAPITAL/10000;

第1持股:=PFFIN(4002,0)/10000;
第2持股:=PFFIN(4012,0)/10000;
第3持股:=PFFIN(4022,0)/10000;
第4持股:=PFFIN(4032,0)/10000;
第5持股:=PFFIN(4042,0)/10000;
第6持股:=PFFIN(4052,0)/10000;
第7持股:=PFFIN(4062,0)/10000;
第8持股:=PFFIN(4072,0)/10000;
第9持股:=PFFIN(4082,0)/10000;
第10持股:=PFFIN(4092,0)/10000;
flag1:=ABS(ABS(STRCMP( STRLEFT(PFstr(4001,0),8),STRRIGHT(PFstr(4001,0),8)))-1);
flag2:=ABS(ABS(STRCMP( STRLEFT(PFstr(4011,0),8),STRRIGHT(PFstr(4011,0),8)))-1);
flag3:=ABS(ABS(STRCMP( STRLEFT(PFstr(4021,0),8),STRRIGHT(PFstr(4021,0),8)))-1);
flag4:=ABS(ABS(STRCMP( STRLEFT(PFstr(4031,0),8),STRRIGHT(PFstr(4031,0),8)))-1);
flag5:=ABS(ABS(STRCMP( STRLEFT(PFstr(4041,0),8),STRRIGHT(PFstr(4041,0),8)))-1);
flag6:=ABS(ABS(STRCMP( STRLEFT(PFstr(4051,0),8),STRRIGHT(PFstr(4051,0),8)))-1);
flag7:=ABS(ABS(STRCMP( STRLEFT(PFstr(4061,0),8),STRRIGHT(PFstr(4061,0),8)))-1);
flag8:=ABS(ABS(STRCMP( STRLEFT(PFstr(4071,0),8),STRRIGHT(PFstr(4071,0),8)))-1);
flag9:=ABS(ABS(STRCMP( STRLEFT(PFstr(4081,0),8),STRRIGHT(PFstr(4081,0),8)))-1);
flag10:=ABS(ABS(STRCMP( STRLEFT(PFstr(4091,0),8),STRRIGHT(PFstr(4091,0),8)))-1);
VAR1:=(第1持股*flag1+第2持股*flag2+第3持股*flag3+第4持股*flag4+第5持股*flag5+第6持股*flag6+第7持股*flag7+第8持股*flag8+第9持股*flag9+第10持股*flag10)/流通盘万股;
CON1:=VAR1>30;
CON2:=(flag1+flag2+flag3+flag4+flag5+flag6+flag7+flag8+flag9+flag10)>=8;
con:con1 or con2;

2015550302185179.rar

4.93 KB, 下载次数: 0

欢迎光临天机论坛 (http://www.tjgp.com/)