控盘主图第三版 说明

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

源码

//筹码分布
input:n(14,1,100);
explain(1,'所属板块\n'+BLKNAME+'\n'),COLOR336600;
cost(30),linedot,linethick1,colorff9933;
cost(70),linedot,linethick1,colorff9933;
cost(90),linedot,linethick1,colorff9933;
cost(10),linedot,linethick1,colorff9933;
 cmjz:=(cost(95)-cost(5))/(cost(95)+cost(5))*100;
筹码集中度%:100-cmjz,colorblue,linethick;
获利盘%:winner(c)*100,colorblue,linethick;
mcst:DMA(AMOUNT/(100*VOL),VOL/CAPITAL),color6666cc,circledot;
//mmcst:ma(mcst,n),color6666cc,circledot;
1.2*mcst,linedash,color6666cc;
1.3*mcst,linedash,color6666cc;
//财务指标
cwzbqs:=F10FIND('财务指标-盈利能力',8000);
cwzbq00:=F10FIND('指标名称 ',cwzbqs);
cwzbq0:=F10FIND('销售毛利率(%)',cwzbqs+10);
cwzbq1:=F10FIND('主营业务利润率(%)',cwzbq0+70);
cwzbq2:=F10FIND('加权净资产收益率',cwzbq1+70);
cwzbq3:=F10FIND('主营业务收入增长率',cwzbq2+70);
cwzbq4:=F10FIND('净利润增长率',cwzbq3+70);
cwzbt00:=f10text(cwzbq00,0);
cwzbt0:=f10text(cwzbq0,0);
cwzbt1:=F10TEXT(cwzbq1,0);
cwzbt2:=F10TEXT(cwzbq2,0);
cwzbt3:=F10TEXT(cwzbq3,0);
cwzbt4:=F10TEXT(cwzbq4,0);
DRAWTEXTEX(C,1,0,870,'     '+cwzbt00+'\n'+cwzbt0+'\n'+cwzbt1+'\n'+cwzbt2+'\n'
+cwzbt3+'\n'+cwzbt4),colorgray;
//评级
tzpjqs:=F10FIND('1.投资评级',90000);
tzpjq1:=F10FIND('统计时段',tzpjqs+40);
tzpjq2:=F10FIND('15天以内',tzpjq1+40);
tzpjq3:=F10FIND('1个月以内',tzpjq2+40);
tzpjq4:=F10FIND('2个月以内',tzpjq3+40);
tzpjq5:=F10FIND('3个月以内',tzpjq4+40);
tzpjq6:=F10FIND('6个月以内',tzpjq5+40);
tzpjt1:=' '+F10TEXT(tzpjq1,0);
tzpjt2:=F10TEXT(tzpjq2,0);
tzpjt3:=F10TEXT(tzpjq3,0);
tzpjt4:=F10TEXT(tzpjq4,0);
tzpjt5:=F10TEXT(tzpjq5,0);
tzpjt6:=F10TEXT(tzpjq6,0);
DRAWTEXTEX(C,1,650,850,tzpjt1+'\n'+tzpjt2+'\n'+tzpjt3+'\n'
+tzpjt4+'\n'+tzpjt5+'\n'+tzpjt6+'\n'),colorgray;
hypjqs:=F10FIND('2.2近期明细',tzpjqs);
hypjq0:=F10FIND('3.行业预测评级',hypjqs);
hypjq1:=F10FIND('评级日期',hypjqs);
hypjq2:=F10FIND('201',hypjq1+40);
hypjq3:=F10FIND('201',hypjq2+40);
hypjq4:=F10FIND('201',hypjq3+40);
hypjq5:=F10FIND('201',hypjq4+40);
hypjq6:=F10FIND('201',hypjq5+40);
hypjt0:=F10TEXT(hypjq0+16,0);
hypjt1:=' '+F10TEXT(hypjq1,0);
hypjt2:=F10TEXT(hypjq2,0);
hypjt3:=F10TEXT(hypjq3,0);
hypjt4:=F10TEXT(hypjq4,0);
hypjt5:=F10TEXT(hypjq5,0);
hypjt6:=F10TEXT(hypjq6,0);
DRAWTEXTEX(C,1,650,650,hypjt0+'\n'+hypjt1+'\n'+hypjt2+'\n'+hypjt3+'\n'
+hypjt4+'\n'+hypjt5+'\n'+hypjt6+'\n'),colorgray;
//基金持股
jjcgqs:=F10FIND('1.基金持股',20000);
jjcgq00:=F10FIND('【20',jjcgqs);
jjcgq0:=F10FIND('基金简称',jjcgqs+10);
jjcgq1:=F10FIND('合计',jjcgq0+70);
jjcgq2:=F10FIND('合计',jjcgq1+70);
jjcgq3:=F10FIND('合计',jjcgq2+70);
jjcgq4:=F10FIND('合计',jjcgq2+70);
jjcgt00:=f10text(jjcgq00,50);
jjcgt0:=f10text(jjcgq0,50);
jjcgt1:=F10TEXT(jjcgq1,50);
jjcgt2:=F10TEXT(jjcgq2,50);
jjcgt3:=F10TEXT(jjcgq3,50);
jjcgt4:=F10TEXT(jjcgq4,50);
DRAWTEXTEX(C,1,320,0,jjcgt00+'\n'+jjcgt0+'\n'+jjcgt1+'\n'+jjcgt2+'\n'+jjcgt3+'\n'
+jjc