一发千钧【财务主图】

大智慧L2【财务主图】分析家2006可用。
没有太多的修饰，牛熊持股线+财务。

公式：


if DISPSTATUS=2 then begin;
var100:='所属板块:';
if inblock('电力')=1 then var100:=var100+' 电力';
if inblock('电脑')=1 then var100:=var100+' 电脑';
if inblock('电器')=1 then var100:=var100+' 电器';
if inblock('电子信息')=1 then var100:=var100+' 电子信息';
if inblock('房地产')=1 then var100:=var100+' 房地产';
if inblock('纺织服装')=1 then var100:=var100+' 纺织服装';
if inblock('钢铁')=1 then var100:=var100+' 钢铁';
if inblock('工程建筑')=1 then var100:=var100+' 工程建筑';
if inblock('供水供气')=1 then var100:=var100+' 供水供气';
if inblock('化工')=1 then var100:=var100+' 化工';
if inblock('化纤')=1 then var100:=var100+' 化纤';
if inblock('机械')=1 then var100:=var100+' 机械';
if inblock('建材')=1 then var100:=var100+' 建材';
if inblock('交通工具')=1 then var100:=var100+' 交通工具';
if inblock('交通设施')=1 then var100:=var100+' 交通设施';
if inblock('教育传媒')=1 then var100:=var100+' 教育传媒';
if inblock('金融')=1 then var100:=var100+' 金融';
if inblock('旅游酒店')=1 then var100:=var100+' 旅游酒店';
if inblock('煤炭石油')=1 then var100:=var100+' 煤炭石油';
if inblock('酿酒食品')=1 then var100:=var100+' 酿酒食品';
if inblock('农林牧渔')=1 then var100:=var100+' 农林牧渔';
if inblock('其他行业')=1 then var100:=var100+' 其他行业';
if inblock('汽车')=1 then var100:=var100+' 汽车';
if inblock('汽配')=1 then var100:=var100+' 汽配';
if inblock('商业连锁')=1 then var100:=var100+' 商业连锁';
if inblock('石化')=1 then var100:=var100+' 石化';
if inblock('通信')=1 then var100:=var100+' 通信';
if inblock('外贸')=1 then var100:=var100+' 外贸';
if inblock('医药')=1 then var100:=var100+' 医药';
if inblock('仪电仪表')=1 then var100:=var100+' 仪电仪表';
if inblock('有色金属')=1 then var100:=var100+' 有色金属';
if inblock('运输物流')=1 then var100:=var100+' 运输物流';
if inblock('造纸印刷')=1 then var100:=var100+' 造纸印刷';
if inblock('安徽')=1 then var100:=var100+' 安徽';
if inblock('北京')=1 then var100:=var100+' 北京';
if inblock('福建')=1 then var100:=var100+' 福建';
if inblock('甘肃')=1 then var100:=var100+' 甘肃';
if inblock('广东')=1 then var100:=var100+' 广东';
if inblock('广西')=1 then var100:=var100+' 广西';
if inblock('贵州')=1 then var100:=var100+' 贵州';
if inblock('海南')=1 then var100:=var100+' 海南';
if inblock('河北')=1 then var100:=var100+' 河北';
if inblock('河南')=1 then var100:=var100+' 河南';
if inblock('黑龙江')=1 then var100:=var100+' 黑龙江';
if inblock('湖北')=1 then var100:=var100+' 湖北';
if inblock('湖南')=1 then var100:=var100+' 湖南';
if inblock('吉林')=1 then var100:=var100+' 吉林';
if inblock('江苏')=1 then var100:=var100+' 江苏';
if inblock('江西')=1 then var100:=var100+' 江西';
if inblock('辽宁')=1 then var100:=var100+' 辽宁';
if inblock('内蒙古')=1 then var100:=var100+' 内蒙古';
if inblock('宁夏')=1 then var100:=var100+' 宁夏';
if inblock('青海')=1 then var100:=var100+' 青海';
if inblock('山东')=1 then var100:=var100+' 山东';
if inblock('山西')=1 then var100:=var100+' 山西';
if inblock('陕西')=1 then var100:=var100+' 陕西';
if inblock('上海')=1 then var100:=var100+' 上海';
if inblock('深圳')=1 then var100:=var100+' 深圳';
if inblock('四川')=1 then var100:=var100+' 四川';
if inblock('天津')=1 then var100:=var100+' 天津';
if inblock('***')=1 then var100:=var100+' ***';
if inblock('新疆')=1 then var100:=var100+' 新疆';
if inblock('云南')=1 then var100:=var100+' 云南';
if inblock('浙江')=1 then var100:=var100+' 浙江';
if inblock('重庆')=1 then var100:=var100+' 重庆';
if inblock('3G')=1 then var100:=var100+' 3G';(来源 www.yz21.org 中国股票网)
if inblock('H股')=1 then var100:=var100+' H股';
if inblock('QFII持股')=1 then var100:=var100+' QFII持股';
if inblock('ST')=1 then var100:=var100+' ST';
if inblock('奥运')=1 then var100:=var100+' 奥运';
if inblock('创投')=1 then var100:=var100+' 创投';
if inblock('次新股')=1 then var100:=var100+' 次新股';
if inblock('大盘')=1 then var100:=var100+' 大盘';
if inblock('股权改革')=1 then var100:=var100+' 股权改革';
if inblock('股权投资')=1 then var100:=var100+' 股权投资';
end;
DRAWTEXTABS(10,70,var100),Color00FF00;
DRAWTEXTABS(160,90,extrastring('评级')),LINETHICK1,ColorFFFF00,ALIGN1;
DRAWTEXTREL(20,980,'---------------------------------2007-05-08-(一发千钧)-- --------------------------------------'),LINETHICK1,Color80BEFF;
a:=(3*c+l+o+h)/6;
X:=(20*a+19*ref(a,1)+18*ref(a,2)+17*ref(a,3)+16*ref(a,4)+15*ref(a,5)+
14*ref(a,6)+13*ref(a,7)+12*ref(a,8)+11*ref(a,9)+10*ref(a,10)+9*ref(a,11)+8*ref(a,12)
+7*ref(a,13)+6*ref(a,14)+5*ref(a,15)+4*ref(a,16)+3*ref(a,17)+2*ref(a,18)+
ref(a,20))/210;
回调认同:eMA(X,13),colorFF00FF;
STICKLINE(close>=open,open,close,8,1),colorred;
STICKLINE(open>close,close,open,8,0 ),colorgreen;
STICKLINE(close>=open,close,HIGH,0.5 ,0 ),colorred;
STICKLINE(close>=open,open,low,0.5 ,0),colorred;
STICKLINE(open>close,close,low,0.5 ,0 ),colorgreen;
STICKLINE(open>close,open,HIGH,0.5 ,0 ),colorgreen;
aa:=CLOSE/REF(CLOSE,1)>=1.09;
STICKLINE(aa,open,close,8,0),coloryellow;
STICKLINE(aa,low,HIGH,0.5 ,0 ),coloryellow;

市值:=C*CAPITAL*VOLUNIT/100000000;
股本:=FINANCE2(35)/10000;
流通:=FINANCE2(37)/10000;
人均持股:=CEILING(CAPITAL*100/selfdata('shx'));
市盈率:=DYNAINFO(39);
市净率:=c/FINANCE2(4);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度:=F1;
莸利比例:=WINNER(c )*100;
日换手率:=vol/CAPITAL*100;
净资产:=FINANCE2(4);
净资收益率:=FINANCE2(5);
最新收益:=FINANCE2(3);
每股未分配:=FINANCE2(8);
毛利润率:=FINANCE2(12);
净利润率:=FINANCE2(33)/FINANCE2(27)*100;
股东权益比:=FINANCE2(9);
每股公积金:=FINANCE2(7);
DRAWTEXTABS(10,13,'市值:'+市值+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(100,13,'股本:'+股本+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(190,13,'流通:'+流通+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(275,13,'市盈率:'+市盈率+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(375,13,'市净率:'+市净率+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(455,13,'成本集中度:'+成本集中度+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(455,50,'莸利比例:'+莸利比例+' '),LINETHICK1,ColorFFFF07;
DRAWTEXTABS(10,50,'日换手率:'+日换手率+' '),LINETHICK1,ColorFFFF07;
DRAWTEXTABS(10,30,'净资产:'+净资产+'元 '),LINETHICK1,ColorFFFF07;
DRAWTEXTABS(230,30,'净资收益率:'+净资收益率+'% '),LINETHICK1,ColorFFFF07;
DRAWTEXTABS(110,30,'最新收益:'+最新收益+'元 '),LINETHICK1,COLOR00FFFF;
DRAWTEXTABS(110,50,'每股未分配:'+每股未分配+'元 '),LINETHICK1,COLOR00FFFF;
DRAWTEXTABS(455,30,'毛利润率:'+毛利润率+'% '),LINETHICK1,ColorFFFF07;
DRAWTEXTABS(230,50,'净利润率:'+净利润率+'% '),LINETHICK1,ColorFFFF07;
DRAWTEXTABS(335,30,'股东权益比:'+股东权益比+' '),LINETHICK1,COLOR00FFFF;
DRAWTEXTABS(335,50,'每股公积金:'+每股公积金+'元 '),LINETHICK1,COLOR00FFFF;