|
INPUT:M(0,0,2),N(130,0,999),P(130,1,999),F(1,0,1), R(1,0,1);
MA5:MA(CLOSE,5),Precis2;
MA10:MA(CLOSE,10),Precis2;
MA20:MA(CLOSE,20),Precis2;
MA30:MA(CLOSE,30),Precis2;
MA60:MA(CLOSE,60),Precis2,Linethick2;
MA120:MA(CLOSE,120),Precis2,Linethick2,colorgray;
MA240:MA(CLOSE,240),Precis2,Linethick2,colorgreen;
DRAWTEXTABS(500,30,'主题投资：'+SelfString('主题投资库')),LINETHICK2,colorWHITE;
IF(M=1) THEN BEGIN
DRAWRECTABS(0,0,380,140,RGB(1,1,1)),COLOR010101,LAYER4;END;
DRAWTEXTABS(0,10,'【板块】'+BKNAME),COLORYELLOW;
DRAWTEXTABS(5,25,'报告期 '+FINANCE2(1)),COLOR0000FF;
DRAWTEXTABS(100,25,'总股 '+NUMTOSTRN(FINANCE2(35)/10000,2)+'亿'),COLOR0000FF;
DRAWTEXTABS(5,40,'流通股 '+NUMTOSTRN(FINANCE2(37)/10000,2)+'亿' ),COLOR0000FF;
DRAWTEXTABS(100,40,'市值 '+NUMTOSTRN(DYNAINFO(57)/100000000,2)+'亿' ),COLOR0000FF;
DRAWTEXTABS(5,5,'股旁网 www.gupang.com'),linethick1,COLOR00EEff;
DRAWTEXTABS(5,55,'股收益 '+NUMTOSTRN(FINANCE2(3),2)+'元'),COLORFFFF00;
DRAWTEXTABS(100,55,'净利 '+NUMTOSTRN(FINANCE2(10),2)+'%'),COLORFFFF00;
DRAWTEXTABS(5,70,'股资产 '+NUMTOSTRN(FINANCE2(4),2)+'元'),COLORFFFF00;
DRAWTEXTABS(100,70,'收益 '+NUMTOSTRN(FINANCE2(5),2)+'%'),COLORFFFF00;
DRAWTEXTABS(5,85,'市盈率 '+NUMTOSTRN(DYNAINFO(39),2)+'%'),COLORFFFF00;
DRAWTEXTABS(100,85,'净率 '+NUMTOSTRN(DYNAINFO(58),2)+'%'),COLORFFFF00;
DRAWTEXTABS(195,25,'股东数 '+NUMTOSTRN(PFFIN(4253,0),0)+'户'),COLOR00FF00;
DRAWTEXTABS(295,25,'增减 '+NUMTOSTRN(PFFIN(4253,0)/PFFIN(4253,1)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(195,40,'人均持 '+NUMTOSTRN(PFFIN(4254,0),0)+'股'),COLOR00FF00;
DRAWTEXTABS(295,40,'增减 '+NUMTOSTRN(PFFIN(4254,0)/PFFIN(4254,1)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(195,55,'前10占 '+NUMTOSTRN(PFFIN(4252,0),2)+'%'),COLOR00FF00;
DRAWTEXTABS(295,55,'增减 '+NUMTOSTRN(PFFIN(4252,0)/PFFIN(4252,1)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(195,70,'散户持 '+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/10000,0)+'万'),COLOR00FF00;
DRAWTEXTABS(295,70,'增减 '+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/
(PFFIN(3003,1)-PFFIN(3003,1)*PFFIN(4252,1)/100)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(195,85,'散户均 '+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/(PFFIN(4253,0)-10),0)+'股'),COLOR00FF00;
DRAWTEXTABS(295,85,'增减 '+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)+'%'),COLOR00FF00;
DRAWTEXTABS(195,40,'人均持 '+NUMTOSTRN(PFFIN(4254,0),0)+'股'),COLOR00FF00;
DRAWTEXTABS(295,40,'增减 '+NUMTOSTRN(PFFIN(4254,0)/PFFIN(4254,1)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(195,55,'前10占 '+NUMTOSTRN(PFFIN(4252,0),2)+'%'),COLOR00FF00;
DRAWTEXTABS(295,55,'增减 '+NUMTOSTRN(PFFIN(4252,0)/PFFIN(4252,1)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(195,70,'散户持 '+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/10000,0)+'万'),COLOR00FF00;
DRAWTEXTABS(295,70,'增减 '+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/
(PFFIN(3003,1)-PFFIN(3003,1)*PFFIN(4252,1)/100)*100-100,2)+'%'),COLOR00FF00;
DRAWTEXTABS(5,5,'股旁网 www.gupang.com'),linethick1,COLOR00EEff;
DRAWTEXTABS(195,85,'散户均 '+NUMTOSTRN((PFFIN(3003,0)-PFFIN(3003,0)*PFFIN(4252,0)/100)/(PFFIN(4253,0)-10),0)+'股'),COLOR00FF00;
DRAWTEXTABS(295,85,'增减 '+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)+'%'),COLOR00FF00;
var100:='【自选】';
IF INBLOCK('自选股')=1
THEN BEGIN var100:=var100+'已选!';END
ELSE BEGIN var100:=var100+'未选。';END;
DRAWTEXTABS(5,100, var100),COLORRED;
DRAWTEXTABS(100,100,'权重 '+IF(selfdata('300权重')>=0,selfdata('300权重'),0)+'%'),COLOR0000FF;
202108211250.jpg
|
