用主图和成交量副图时间:2011-06-13 00:10来源:未知 作者:admin 分享到： QQ空间 新浪微博 开心网 人人网
比较简单没什么指标 都是拿论坛里几个老师的东西整合起来的 自己用着还算舒服 拿来分享下主图 基本的f10资料和涨停板标示成交量图 最近几次解禁股信息和地量标示
主图：
{基本信息}
每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
每股现金流:=FINANCE2(6);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
每股未分配:=FINANCE2(8);
每股公积金:=FINANCE2(7);
资产负债率:=FINANCE2(20)/FINANCE2(14)*100;
每股市净率:=DYNAINFO(58);
销售毛利率:=FINANCE2(12);
净资产收益率:=FINANCE2(5);
总市值:=C*CAPITAL*VOLUNIT/100000000;
总股本:=FINANCE2(35)/10000;
流通盘:=FINANCE2(37)/10000;
DRAWTEXTABS(1,10,'■所属板块：'+BKNAME),COLOR00FFFF;
DRAWTEXTABS(1,25,'■主营业务：'+SELFSTRING('主营业务')),color00D7FF;
DRAWTEXTABS(1,40,'■主题库：'+SELFSTRING('主题库')),COLOR00A5FF;
DRAWTEXTABS(1,60,'■净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,COLORB48246;
DRAWTEXTABS(1,75,'■净资产收益率：'+NUMTOSTRN(净资产收益率,2)+'%'),LINETHICK1,COLORFFBF00;
DRAWTEXTABS(1,90,'■销售毛利率：'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,COLOREBCE87;
DRAWTEXTABS(1,105,'■每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORD0E040;
DRAWTEXTABS(1,120,'■每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLOrD4FF7F;
DRAWTEXTABS(1,140,'■流通盘：'+NUMTOSTRN(流通盘,2)+'亿'),LINETHICK1,COLORFFFFFF;
DRAWTEXTABS(135,140,'总股本：'+NUMTOSTRN(总股本,2)+'亿'),LINETHICK1,COLOR808080;
DRAWTEXTABS(1,155,'■流通市值：'+DYNAINFO(57)/100000000+'亿'),COLOR808080;
DRAWTEXTABS(135,155,'总市值：'+DYNAINFO(56)/100000000+'亿'),COLOR808080;
{涨停}
ZT:=C/ref(C,1)>1.097;
XH:=FILTER(ZT,13);
BH:=BARSLAST(ZT);
CZ:=REF(H,BH)-REF(L,BH);
STICKLINE(ZT,REF(O,BH),REF(C,BH),7,0),COLORYELLOW;
DRAWTEXT(ZT,L*0.98,'涨停'),COLOR9314FF;
成交量副图：
{地量}
VOL,VOLSTICK;
AA:=SUMBARS(VOL,CAPITAL);
地量:IF(CAPITAL=0,AMOUNT=LLV(AMOUNT,34),VOL<MA(VOL,AA)/3) ,LINETHICK0;
STICKLINE(地量,VOL,0,7,0),COLORYELLOW;
{解禁股}
解禁股:=SelfString('限售流通股. 大智慧');
XOffset:= 0;
YOffset:= 0;
lineHeight:= 18;
pos1:= STRFIND(解禁股, ';', 1);
pos2:= STRFIND(解禁股, ';', pos1 + 1);
pos3:= STRFIND(解禁股, ';', pos2 + 1);
pos4:= STRFIND(解禁股, ';', pos3 + 1);
pos5:= STRFIND(解禁股, ';', pos4 + 1);
str1:= STRMID(解禁股, 1 , pos1-1);
str2:= STRMID(解禁股, pos1 + 1, pos2 - pos1 - 1);
str3:= STRMID(解禁股, pos2 + 1, pos3 - pos2 - 1);
str4:= STRMID(解禁股, pos3 + 1, pos4 - pos3 - 1);
str5:= STRMID(解禁股, pos4 + 1, pos5 - pos4 - 1);
IF pos1 THEN DRAWTEXTABS(XOffset, YOffset + lineHeight , '解禁股： '+ str1), Color808080;
IF pos1 AND pos2 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 2, str2), Color908070;
IF pos1 AND pos2 AND pos3 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 3, str3), Color808080;
IF pos1 AND pos2 AND pos3 AND pos4 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 4, str4), Color908070;
IF pos1 AND pos2 AND pos3 AND pos4 AND pos5 THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 5, str5), Color808080;
