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,’概念股網(wǎng) m.qdjiwuji.com’),linethick1,COLOR00EEff;
DRAWTEXTABS(5,55,’股收益 ‘+NUMTOSTRN(FINANCE2(3),2)+’元’),COLORFFFF00;
DRAWTEXTABS(100,55,’凈利 ‘+NUMTOSTRN(FINANCE2(10),2)+’%’),COLORFFFF00;
DRAWTEXTABS(5,70,’股資產(chǎn) ‘+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,’股東數(shù) ‘+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,’概念股網(wǎng) m.qdjiwuji.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,’權(quán)重 ‘+IF(selfdata(‘300權(quán)重’)>=0,selfdata(‘300權(quán)重’),0)+’%’),COLOR0000FF;