控盘主图第三版 说明 EA

控盘主图第三版 说明

rn

包括
rnf10: (聚源资讯)十大股东 基金合计 解禁  股东人数变化 财务盈利能力 增长能力 行业评级 个股评级
rn筹码线: mcst 20–30%(红线圈 红虚线) 筹码分布(淡蓝线)

rn

源码

rn

rn//筹码分布
rninput:n(14,1,100);
rnexplain(1,’所属板块n’+BLKNAME+’n’),COLOR336600;
rncost(30),linedot,linethick1,colorff9933;
rncost(70),linedot,linethick1,colorff9933;
rncost(90),linedot,linethick1,colorff9933;
rncost(10),linedot,linethick1,colorff9933;
rn cmjz:=(cost(95)-cost(5))/(cost(95)+cost(5))*100;
rn筹码集中度%:100-cmjz,colorblue,linethick;
rn获利盘%:winner(c)*100,colorblue,linethick;
rnmcst:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),color6666cc,circledot;
rn//mmcst:ma(mcst,n),color6666cc,circledot;
rn1.2*mcst,linedash,color6666cc;
rn1.3*mcst,linedash,color6666cc;
rn//财务指标
rncwzbqs:=F10FIND(‘财务指标-盈利能力’,8000);
rncwzbq00:=F10FIND(‘指标名称 ‘,cwzbqs);
rncwzbq0:=F10FIND(‘销售毛利率(%)’,cwzbqs+10);
rncwzbq1:=F10FIND(‘主营业务利润率(%)’,cwzbq0+70);
rncwzbq2:=F10FIND(‘加权净资产收益率’,cwzbq1+70);
rncwzbq3:=F10FIND(‘主营业务收入增长率’,cwzbq2+70);
rncwzbq4:=F10FIND(‘净利润增长率’,cwzbq3+70);
rncwzbt00:=f10text(cwzbq00,0);
rncwzbt0:=f10text(cwzbq0,0);
rncwzbt1:=F10TEXT(cwzbq1,0);
rncwzbt2:=F10TEXT(cwzbq2,0);
rncwzbt3:=F10TEXT(cwzbq3,0);
rncwzbt4:=F10TEXT(cwzbq4,0);
rnDRAWTEXTEX(C,1,0,870,’     ‘+cwzbt00+’n’+cwzbt0+’n’+cwzbt1+’n’+cwzbt2+’n’
rn+cwzbt3+’n’+cwzbt4),colorgray;
rn//评级
rntzpjqs:=F10FIND(‘1.投资评级’,90000);
rntzpjq1:=F10FIND(‘统计时段’,tzpjqs+40);
rntzpjq2:=F10FIND(’15天以内’,tzpjq1+40);
rntzpjq3:=F10FIND(‘1个月以内’,tzpjq2+40);
rntzpjq4:=F10FIND(‘2个月以内’,tzpjq3+40);
rntzpjq5:=F10FIND(‘3个月以内’,tzpjq4+40);
rntzpjq6:=F10FIND(‘6个月以内’,tzpjq5+40);
rntzpjt1:=’ ‘+F10TEXT(tzpjq1,0);
rntzpjt2:=F10TEXT(tzpjq2,0);
rntzpjt3:=F10TEXT(tzpjq3,0);
rntzpjt4:=F10TEXT(tzpjq4,0);
rntzpjt5:=F10TEXT(tzpjq5,0);
rntzpjt6:=F10TEXT(tzpjq6,0);
rnDRAWTEXTEX(C,1,650,850,tzpjt1+’n’+tzpjt2+’n’+tzpjt3+’n’
rn+tzpjt4+’n’+tzpjt5+’n’+tzpjt6+’n’),colorgray;
rnhypjqs:=F10FIND(‘2.2近期明细’,tzpjqs);
rnhypjq0:=F10FIND(‘3.行业预测评级’,hypjqs);
rnhypjq1:=F10FIND(‘评级日期’,hypjqs);
rnhypjq2:=F10FIND(‘201’,hypjq1+40);
rnhypjq3:=F10FIND(‘201’,hypjq2+40);
rnhypjq4:=F10FIND(‘201’,hypjq3+40);
rnhypjq5:=F10FIND(‘201’,hypjq4+40);
rnhypjq6:=F10FIND(‘201’,hypjq5+40);
rnhypjt0:=F10TEXT(hypjq0+16,0);
rnhypjt1:=’ ‘+F10TEXT(hypjq1,0);
rnhypjt2:=F10TEXT(hypjq2,0);
rnhypjt3:=F10TEXT(hypjq3,0);
rnhypjt4:=F10TEXT(hypjq4,0);
rnhypjt5:=F10TEXT(hypjq5,0);
rnhypjt6:=F10TEXT(hypjq6,0);
rnDRAWTEXTEX(C,1,650,650,hypjt0+’n’+hypjt1+’n’+hypjt2+’n’+hypjt3+’n’
rn+hypjt4+’n’+hypjt5+’n’+hypjt6+’n’),colorgray;
rn//基金持股
rnjjcgqs:=F10FIND(‘1.基金持股’,20000);
rnjjcgq00:=F10FIND(‘【20’,jjcgqs);
rnjjcgq0:=F10FIND(‘基金简称’,jjcgqs+10);
rnjjcgq1:=F10FIND(‘合计’,jjcgq0+70);
rnjjcgq2:=F10FIND(‘合计’,jjcgq1+70);
rnjjcgq3:=F10FIND(‘合计’,jjcgq2+70);
rnjjcgq4:=F10FIND(‘合计’,jjcgq2+70);
rnjjcgt00:=f10text(jjcgq00,50);
rnjjcgt0:=f10text(jjcgq0,50);
rnjjcgt1:=F10TEXT(jjcgq1,50);
rnjjcgt2:=F10TEXT(jjcgq2,50);
rnjjcgt3:=F10TEXT(jjcgq3,50);
rnjjcgt4:=F10TEXT(jjcgq4,50);
rnDRAWTEXTEX(C,1,320,0,jjcgt00+’n’+jjcgt0+’n’+jjcgt1+’n’+jjcgt2+’n’+jjcgt3+’n’
rn+jjcgt4+’n’),colorgray;
rn//最近限售股解禁
rnxsjjqs:=F10FIND(‘3.最近限售股解禁’,100);
rnxsjjq0:=F10FIND(‘解禁时间’,xsjjqs+10);
rnxsjjq1:=F10FIND(’20’,xsjjq0+70);
rnxsjjq2:=F10FIND(’20’,xsjjq1+70);
rnxsjjq3:=F10FIND(’20’,xsjjq2+70);
rnxsjjt0:=f10text(xsjjq0,0);
rnxsjjt1:=F10TEXT(xsjjq1,0);
rnxsjjt2:=F10TEXT(xsjjq2,0);
rnxsjjt3:=F10TEXT(xsjjq3,0);
rnDRAWTEXTEX(C,1,320,160,xsjjt0+’n’+xsjjt1+’n’+xsjjt2+’n’+xsjjt3+’n’
rn),colorgray;
rn//十大股东
rna:=F10FIND(‘【十大流通股东】:’,1);
rna0:=F10FIND(‘主要指标:’,1);
rnQSq:=F10FIND(‘按照资产负债率排名’,5000);QSZ:=F10FIND(‘按照每股收益排名’,5000);
rnGD:=STRTONUM(STRRIGHT(F10TEXT(F10FIND(‘占流通A股比例:’,500),22),8));
rna1:=F10FIND(‘ 1│’,a);a2:=F10FIND(‘ 2│’,a1);a3:=F10FIND(‘ 3│’,a2);
rna4:=F10FIND(‘ 4│’,a3);a5:=F10FIND(‘ 5│’,a4);a6:=F10FIND(‘ 6│’,a5);
rna7:=F10FIND(‘ 7│’,a6);a8:=F10FIND(‘ 8│’,a7);a9:=F10FIND(‘ 9│’,a8);
rna10:=F10FIND(’10│’,a9);
rnDRAWTEXTEX(C,1,0,0,”+F10TEXT(a1,0)+’n’+F10TEXT(a2,0)+’n’+F10TEXT(a3,0)
rn+’n’+F10TEXT(a4,0)+’n’+F10TEXT(a5,0)+’n’+F10TEXT(a6,0)+’n’+F10TEXT(a7,0)
rn+’n’+F10TEXT(a8,0)+’n’+F10TEXT(a9,0)+’n’+F10TEXT(a10,0)),colorgray;
rnDRAWTEXTEX(C,1,0,250,’大股东占:’+NUMTOSTR(GD,2)+’ %’),Colorgray;
rn//控盘情况
rnc0:=F10FIND(‘控盘情况:’,a0);
rnhs:=F10FIND(‘总户数’,500);
rnIF c0>0 THEN BEGIN
rnq1:=F10FIND(‘201’,hs+10);
rnq2:=F10FIND(‘201’,q1+40);
rnq3:=F10FIND(‘201’,q2+40);
rnq4:=F10FIND(‘201’,q3+40);
rng1:=LTRIM(F10TEXT(q1+14,10));
rng2:=LTRIM(F10TEXT(q2+14,10));
rng3:=LTRIM(F10TEXT(q3+14,10));
rng4:=LTRIM(F10TEXT(q4+14,10));
rngd1:=STRTONUM(g1);
rngd2:=STRTONUM(g2);
rngd3:=STRTONUM(g3);
rngd4:=STRTONUM(g4);
rn户数差1:=gd1-gd2;
rn户数差2:=gd2-gd3;
rn户数差3:=gd3-gd4;
rnend;
rnDRAWTEXTEX(c,1,650,0,’本期:’+numtostr(gd1,2)+’n’
rn+’上期:’+numtostr(gd2,2)+’n’
rn+’前期:’+numtostr(gd3,2)+’n’
rn+’早期:’+numtostr(gd4,2)+’n’),colorblack;
rnDRAWTEXTEX(c,1,730,0,’本期减少:’+numtostr(-户数差1/gd2*100,2)+’n’
rn+’上期减少:’+numtostr(-户数差2/gd3*100,2)+’n’
rn+’前期减少:’+numtostr(-户数差3/gd4*100,2)+’n’),colorblue;
rnDRAWTEXTEX(c,1,650,95,’股东流通比:’+numtostr(gd1/finance(7),2));
rnbb:=F10TEXT(c0+196,12);DRAWTEXTEX(c,1,650,120,’报表日期:’+bb+’日’);

rn