大智慧老虎主图源码

{MA10A ●老虎主图 2010.08.15}
 INPUT:M(1,0,1);
 MA5:MA(CLOSE,5),PRECIS2;
 MA10:MA(CLOSE,10),PRECIS2;
 MA20:MA(CLOSE,20),PRECIS2;
 MA30:MA(CLOSE,30),PRECIS2,COLORGREEN;
 MA60:MA(CLOSE,60),PRECIS2,ColorFF00FF,LINETHICK2;

IF(M=1) THEN BEGIN
 DRAWRECTABS(0,0,260,235,RGB(30,30,30)),COLOR010101,LAYER4;END;
 DRAWTEXTABS(0,10,'【所属板块】'+BKNAME),COLORYELLOW;
 DRAWTEXTABS(0,25,'【发 布 期】'+FINANCE2(0)+' 【报 告 期】'+FINANCE2(1)),COLORWHITE;
 DRAWTEXTABS(0,40,'【每股收益】'+NUMTOSTRN(FINANCE2(3),2)+'元'),COLORWHITE;
 DRAWTEXTABS(125,40,'【总净利润】'+NUMTOSTRN(FINANCE2(10),2)+'%'),COLORWHITE;
 DRAWTEXTABS(0,55,'【总 股 本】'+NUMTOSTRN(FINANCE2(35)/10000,2)+'亿'),COLORWHITE;
 DRAWTEXTABS(125,55,'【目前流通】'+NUMTOSTRN(FINANCE2(37)/10000,2)+'亿' ),COLORWHITE;

DRAWTEXTABS(0,75,'【股东人数】'+NUMTOSTRN(PFFIN(4253,0),0)+'户'),COLOR00FFFF;
 DRAWTEXTABS(125,75,'【股东增减】'+NUMTOSTRN(PFFIN(4253,0)/PFFIN(4253,1)*100-100,2)+'%'),COLOR00FFFF;
 DRAWTEXTABS(0,90,'【人均持股】'+NUMTOSTRN(PFFIN(4254,0),0)+'股'),COLOR00FFFF;
 DRAWTEXTABS(125,90,'【持股增减】'+NUMTOSTRN(PFFIN(4254,0)/PFFIN(4254,1)*100-100,2)+'%'),COLOR00FFFF;
 DRAWTEXTABS(0,105,'【前10占比】'+NUMTOSTRN(PFFIN(4252,0),2)+'%'),COLOR00FFFF;
 DRAWTEXTABS(125,105,'【前10增减】'+NUMTOSTRN(PFFIN(4252,0)/PFFIN(4252,1)*100-100,2)+'%'),COLOR00FFFF;

DRAWTEXTABS(0,125,'【散户持股】'+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/10000,0)+'万'),COLORRED;
 DRAWTEXTABS(125,125,'【散持增减】'+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/
 (PFFIN(3003,1)-PFFIN(3003,1)*PFFIN(4252,1)/100)*100-100,2)+'%'),COLORRED;
 DRAWTEXTABS(0,140,'【散户户均】'+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/(PFFIN(4253,0)-10),0)+'股'),COLORRED;
 DRAWTEXTABS(125,140,'【散均增减】'+NUMTOSTRN(((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/(PFFIN(4253,0)-10))/
 ((PFFIN(3003,1)-PFFIN(3003,1)*PFFIN(4252,1)/100)/(PFFIN(4253,1)-10))*100-100,2)+'%'),COLORRED;

DRAWTEXTABS(0,160,'【最新价格】'+C+'元'),COLORFF00FF;
 DRAWTEXTABS(125,160,'【价格涨跌】'+NUMTOSTRN(C/REF(C,1)*100-100,2)+'%'),COLORFF00FF;
 DRAWTEXTABS(0,175,'【今日换手】'+NUMTOSTRN(V/FINANCE2(37),2)+'%'),COLORFF00FF;
 DRAWTEXTABS(125,175,'【换手增减】'+NUMTOSTRN((V/REF(V,1))*100-100,2)+'%'),COLORFF00FF;
 DRAWTEXTABS(0,190,'【今日主力】'+NUMTOSTRN(100*(DYNAINFO(95)+DYNAINFO(94)-DYNAINFO(98)-DYNAINFO(97)),2)+'%'),COLORFF00FF;
 DRAWTEXTABS(125,190,'【今日机构】'+NUMTOSTRN(100*(DYNAINFO(95)-DYNAINFO(98)),2)+'%'),COLORFF00FF;

{自选股板块提示}
var100:='【自选股】';
 IF inblock('自选股')=1
 THEN BEGIN var100:=var100+'已选中！';END
 ELSE BEGIN var100:=var100+'未选取。';END;
 DRAWTEXTABS(0,210, var100),COLORYELLOW;