相關標簽:瘋牛選股指標公式源碼 、 地量選股指標公式源碼 、 選股買點指標公式源碼 、 紅柱選股指標公式源碼 、 朝霞選股指標公式源碼 、 排序選股 7天漲停指標 、 通達信排序選股指標 、 漲停王排序和選股指標 、 指標排序選股 、 突破回踩選股指標源碼 、

 

INPUT:X1(500,100,1000),Y(80,10,100),M(0);
動態股東人數:extradata('散戶線'),COLOR00C0C0,PRECIS0,LINETHICK1;
季報:PFFINTERM( M),PRECIS0,LINETHICK0;
流通盤萬股:=CAPITAL/10000;
aa:=(PFFIN(4002,0)/10000+PFFIN(4012,0)/10000+PFFIN(4022,0)/10000
+PFFIN(4032,0)/10000+PFFIN(4042,0)/10000+PFFIN(4052,0)/10000+PFFIN(4062,0)/10000
+PFFIN(4072,0)/10000+PFFIN(4082,0)/10000+PFFIN(4092,0)/10000)/流通盤萬股;
bb:=(PFFIN(4002,1)/10000+PFFIN(4012,1)/10000+PFFIN(4022,1)/10000+PFFIN(4032,1)/10000+PFFIN(4042,1)/10000+PFFIN(4052,1)/10000
+PFFIN(4062,1)/10000+PFFIN(4072,1)/10000+PFFIN(4082,1)/10000+PFFIN(4092,1)/10000)/流通盤萬股;股東增減:(PFFIN(4253,M)-PFFIN(4253,M+1))/PFFIN(4253,M+1)*100,LINETHICK0;
人均增減:(PFFIN(4254,M)-PFFIN(4254,M+1))/PFFIN(4254,M+1)*100,LINETHICK0;
合計增減:(PFFIN(4251,M)-PFFIN(4251,M+1))/PFFIN(4251,M+1)*100,LINETHICK0;
股東占比: PFFIN(4252,M),LINETHICK0,precis2;
籌碼集中度:PFFIN(4254,M)/PFFIN(3003,M)*100000,LINETHICK0;
新進大股東數:
(STRCMP( PFSTR(4004,0), '新進')=0)+ {小心地雷的綜合公式。可以排序，可以選股}
(STRCMP( PFSTR(4014,0), '新進')=0)+
(STRCMP( PFSTR(4024,0), '新進')=0)+
(STRCMP( PFSTR(4034,0), '新進')=0)+
(STRCMP( PFSTR(4044,0), '新進')=0)+
(STRCMP( PFSTR(4054,0), '新進')=0)+
(STRCMP( PFSTR(4064,0), '新進')=0)+
(STRCMP( PFSTR(4074,0), '新進')=0)+
(STRCMP( PFSTR(4084,0), '新進')=0)+
(STRCMP( PFSTR(4094,0), '新進')=0),linethick0,precis0;
未變大股東數:
(STRCMP( PFSTR(4004,0), '未變')=0)+
(STRCMP( PFSTR(4014,0), '未變')=0)+
(STRCMP( PFSTR(4024,0), '未變')=0)+
(STRCMP( PFSTR(4034,0), '未變')=0)+
(STRCMP( PFSTR(4044,0), '未變')=0)+
(STRCMP( PFSTR(4054,0), '未變')=0)+
(STRCMP( PFSTR(4064,0), '未變')=0)+
(STRCMP( PFSTR(4074,0), '未變')=0)+
(STRCMP( PFSTR(4084,0), '未變')=0)+
(STRCMP( PFSTR(4094,0), '未變')=0),linethick0,precis0;
增倉大股東數:
(STRTONUM( PFSTR(4004,0))>0)+
(STRTONUM( PFSTR(4014,0))>0)+
(STRTONUM( PFSTR(4024,0))>0)+
(STRTONUM( PFSTR(4034,0))>0)+
(STRTONUM( PFSTR(4044,0))>0)+
(STRTONUM( PFSTR(4054,0))>0)+
(STRTONUM( PFSTR(4064,0))>0)+
(STRTONUM( PFSTR(4074,0))>0)+
(STRTONUM( PFSTR(4084,0))>0)+
(STRTONUM( PFSTR(4094,0))>0),linethick0,precis0;
基金家數:(STRFIND(PFSTR(4001,0),'基金',1)>0)+(STRFIND(PFSTR(4011,0),'基金',1)>0)
+(STRFIND(PFSTR(4021,0),'基金',1)>0)+(STRFIND(PFSTR(4031,0),'基金',1)>0)
+(STRFIND(PFSTR(4041,0),'基金',1)>0)+(STRFIND(PFSTR(4051,0),'基金',1)>0)
+(STRFIND(PFSTR(4061,0),'基金',1)>0)+(STRFIND(PFSTR(4071,0),'基金',1)>0)
+(STRFIND(PFSTR(4081,0),'基金',1)>0)+(STRFIND(PFSTR(4091,0),'基金',1)>0),LINETHICK0;
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);
個人股東:(flag1+flag2+flag3+flag4+flag5+flag6+flag7+flag8+flag9+flag10),LINETHICK0;
其它股東:10-基金家數-個人股東,LINETHICK0;
DRAWRECTREL(0,924,1100,1100,0),COLOR0000C0,LAYER1;
DRAWRECTREL(0,0,1000,1000,0),COLOR0000C0,LAYER1;
DRAWRECTREL(0,0,1100,120,0),COLOR0000C0,LAYER1;
DRAWRECTREL(0,0,40,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(450,0,390,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(590,0,540,925,0),COLOR0000C0,LAYER1;DRAWRECTREL(870,0,540,925,0),COLOR0000C0,LAYER1;
DRAWTEXTREL(5,35,'名次'),COLOR00FFFF;DRAWTEXTREL(120,35,'本 期 十 大 股 東 名 稱'),COLOR00FFFF;DRAWTEXTREL(405,35,'增減情況'),COLORFF00FF;DRAWTEXTREL(478,35,'持股比例'),Color8080FF;DRAWTEXTREL(550,35,'前期比例'),colorwhite;DRAWTEXTREL(650,35, '前 期 十 大 股 東 名 稱'),COLOR00FFFF;DRAWTEXTREL(880,35,'股票名稱:'+'【'+STKLABEL+' '+STKNAME+'】'),COLOR00FFFF;
DRAWTEXTREL(20,135,'1'),COLOR00FFFF; DRAWTEXTREL(45,135,PFSTR(4001,M)),COLOR00FF00;DRAWTEXTREL(410,135,PFSTR(4004,M)),COLORFF00FF;DRAWTEXTREL(482,135,STR(PFFIN(4003,M))),Color8080FF;DRAWTEXTREL(560,135,STR(PFFIN(4003,1))),colorwhite;DRAWTEXTREL(600,135,PFSTR(4001,1)),COLOR00FF00;DRAWTEXTREL(880,135,'A股:'+capital/100+'萬'),COLOR0080FF;
DRAWTEXTREL(20,215,'2'),COLOR00FFFF; DRAWTEXTREL(45,215,PFSTR(4011,M)),COLOR00FF00;DRAWTEXTREL(410,215,PFSTR(4014,M)),COLORFF00FF;DRAWTEXTREL(482,215,STR(PFFIN(4013,M))),Color8080FF;DRAWTEXTREL(560,215,STR(PFFIN(4013,1))),colorwhite;DRAWTEXTREL(600,215,PFSTR(4011,1)),COLOR00FF00;DRAWTEXTREL(880,215,'總股本:'+FINANCE2(35)+'萬 '),COLOR0080FF;
DRAWTEXTREL(20,295,'3'),COLOR00FFFF; DRAWTEXTREL(45,295,PFSTR(4021,M)),COLOR00FF00;DRAWTEXTREL(410,295,PFSTR(4024,M)),COLORFF00FF;DRAWTEXTREL(482,295,STR(PFFIN(4023,M))),Color8080FF;DRAWTEXTREL(560,295,STR(PFFIN(4023,1))),colorwhite;DRAWTEXTREL(600,295,PFSTR(4021,1)),COLOR00FF00;DRAWTEXTREL(880,295,'每股收益:'+NUMTOSTRN(FINANCE2(3),2)+'元'),COLOR0080FF;
DRAWTEXTREL(20,375,'4'),COLOR00FFFF; DRAWTEXTREL(45,375,PFSTR(4031,M)),COLOR00FF00;DRAWTEXTREL(410,375,PFSTR(4034,M)),COLORFF00FF;DRAWTEXTREL(482,375,STR(PFFIN(4033,M))),Color8080FF;DRAWTEXTREL(560,375,STR(PFFIN(4033,1))),colorwhite;DRAWTEXTREL(600,375,PFSTR(4031,1)),COLOR00FF00;DRAWTEXTREL(880,375,'每股市盈率:'+NUMTOSTRN(DYNAINFO(39),1)+'倍'),COLOR0080FF;
DRAWTEXTREL(20,455,'5'),COLOR00FFFF; DRAWTEXTREL(45,455,PFSTR(4041,M)),COLOR00FF00;DRAWTEXTREL(410,455,PFSTR(4044,M)),COLORFF00FF;DRAWTEXTREL(482,455,STR(PFFIN(4043,M))),Color8080FF;DRAWTEXTREL(560,455,STR(PFFIN(4043,1))),colorwhite;DRAWTEXTREL(600,455,PFSTR(4041,1)),COLOR00FF00;DRAWTEXTREL(880,455,'每股凈資產:'+NUMTOSTRN(FINANCE2(4),2)+'元'),COLOR0080FF;
DRAWTEXTREL(20,535,'6'),COLOR00FFFF; DRAWTEXTREL(45,535,PFSTR(4051,M)),COLOR00FF00;DRAWTEXTREL(410,535,PFSTR(4054,M)),COLORFF00FF;DRAWTEXTREL(482,535,STR(PFFIN(4053,M))),Color8080FF;DRAWTEXTREL(560,535,STR(PFFIN(4053,1))),colorwhite;DRAWTEXTREL(600,535,PFSTR(4051,1)),COLOR00FF00;DRAWTEXTREL(880,535,'銷售毛利率：'+NUMTOSTRN(FINANCE2(12),2)+'%'),COLOR0080FF;
DRAWTEXTREL(20,615,'7'),COLOR00FFFF; DRAWTEXTREL(45,615,PFSTR(4061,M)),COLOR00FF00;DRAWTEXTREL(410,615,PFSTR(4064,M)),COLORFF00FF;DRAWTEXTREL(482,615,STR(PFFIN(4063,M))),Color8080FF;DRAWTEXTREL(560,615,STR(PFFIN(4063,1))),colorwhite;DRAWTEXTREL(600,615,PFSTR(4061,1)),COLOR00FF00;DRAWTEXTREL(880,615,'主營收入同比增長：'+NUMTOSTRN(FINANCE2(11),2)+'%'),COLOR0080FF;
DRAWTEXTREL(20,695,'8'),COLOR00FFFF; DRAWTEXTREL(45,695,PFSTR(4071,M)),COLOR00FF00;DRAWTEXTREL(410,695,PFSTR(4074,M)),COLORFF00FF;DRAWTEXTREL(482,695,STR(PFFIN(4073,M))),Color8080FF;DRAWTEXTREL(560,695,STR(PFFIN(4073,1))),colorwhite;DRAWTEXTREL(600,695,PFSTR(4071,1)),COLOR00FF00;DRAWTEXTREL(880,695,'凈利潤同比增長：'+NUMTOSTRN(FINANCE2(10),2)+'%'),COLOR0080FF;
DRAWTEXTREL(20,775,'9'),COLOR00FFFF; DRAWTEXTREL(45,775,PFSTR(4081,M)),COLOR00FF00;DRAWTEXTREL(410,775,PFSTR(4084,M)),COLORFF00FF;DRAWTEXTREL(482,775,STR(PFFIN(4083,M))),Color8080FF;DRAWTEXTREL(560,775,STR(PFFIN(4083,1))),colorwhite;DRAWTEXTREL(600,775,PFSTR(4081,1)),COLOR00FF00;DRAWTEXTREL(880,775,'每股公積金:'+NUMTOSTRN(FINANCE2(7),2)+'元'),COLOR0080FF;
DRAWTEXTREL(15,855,'10'),COLOR00FFFF;DRAWTEXTREL(45,855,PFSTR(4091,M)),COLOR00FF00;DRAWTEXTREL(410,855,PFSTR(4094,M)),COLORFF00FF;DRAWTEXTREL(482,855,STR(PFFIN(4093,M))),Color8080FF;DRAWTEXTREL(560,855,STR(PFFIN(4093,1))),colorwhite;DRAWTEXTREL(600,855,PFSTR(4091,1)),COLOR00FF00;DRAWTEXTREL(880,855,'每股未分配:'+NUMTOSTRN(FINANCE2(8),2)+'元'),COLOR0080FF;DRAWTEXTREL(20,950,' 股東人數增減比例:'+STR((PFFIN(4253,M)-PFFIN(4253,M+1))/PFFIN(4253,M+1)*100)+ ' 人均持股增減比例: '+STR((PFFIN(4254,M)-PFFIN(4254,M+1))/PFFIN(4254,M+1)*100)+' 十大流通股東占流通股比例:'+NUMTOSTRN(aa,2)+' 前期 股東占流通股比例:'+NUMTOSTRN(bb,2)),COLOR00AAFF;
CXH:=STRTONUM(STRRIGHT(DATESTR(CURRENTDATE),1));
WARNING('http://www.kzuj.com.cn',CURRENTTIME>180000 and (CXH=1 OR CXH=6));
DRAWTEXTREL(10 ,10 ,'指標公式');