庄家成本—DZHFNC源码贴图

源码：庄家成本

流通盘:FINANCE2(37)/10000,POINTDOT,COLOR33CCFF,linethick0;

MACD:="MACD.MACD#WEEK";
现价:C,linethick0;
平均成本1:(COST(50)*100)/100,linethick0;

起点0:=BARSLAST(MACD<0);
起点:=if(macd<0,ref(起点0,BARSLAST(MACD>0)),起点0);
累计量:=SUM(IF(MACD>0,V,0),起点+1);
时段换手:累计量/CAPITAL*100,linethick0;
控盘度:时段换手*13.3/100,linethick0;
成本区:(HHV(C,起点)+LLV(C,起点))/2;
平均成本:MA((HHV(C,起点)+LLV(C,起点))/2,起点);
XC:=(C-成本区)/成本区*100;
第一目标:平均成本*1.5;
第二目标:成本区*1.5;
起点价:REF(C,起点);
DRAWTEXT( BARSTATUS=2,成本区 ,'成本区' ),colorred;
DRAWTEXTABS(0,0,'■所属板块：'+BKNAME),ColorYELLOW,linethick1;
流通盘大小:=FINANCE2(37)/1000000*100;
DRAWTEXTABS(280,20,'流通盘大小：'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,ColorYELLOW;  
每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
销售毛利率:=FINANCE2(12);
主营收入同比:=FINANCE2(11);  
净利润同比增长:=FINANCE2(10);
DRAWTEXTABS(170,20,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLOR00FF00;
DRAWTEXTABS(170,40,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORRED;
DRAWTEXTABS(170,60,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),COLORRED;
DRAWTEXTABS(0,20,'销售毛利率：'+NUMTOSTRN(销售毛利率,2)+'%'),LINETHICK1,COLOR00FF00;
DRAWTEXTABS(0,40,'主营收入同比增长：'+NUMTOSTRN(主营收入同比,2)+'%'),LINETHICK1,COLOR00FF00;
DRAWTEXTABS(0,60,'净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,COLOR00FF00;


DRAWTEXT( BARSTATUS=2,平均成本 ,'平均成本' ),Colorff0000,LAYER6;
DRAWTEXT( BARSTATUS=2,第一目标 ,'第一目标' ),Color00ffff;
DRAWTEXT( BARSTATUS=2,第二目标 ,'第二目标' ),Colorff0000,LAYER6;
DRAWTEXT( BARSTATUS=2,起点价 ,'起点价' ),colorred,LAYER6;
drawtextrel(0, 300,'时段换手:'+时段换手),colorwhite;
drawtextrel(0,360,'控盘度:'+控盘度+'元'),colorgreen;
drawtextrel(0,420,'成本区:'+成本区+'元'),coloryellow;
drawtextrel(0,460,'平均成本:'+平均成本+'元'),colorred;
drawtextrel(0,510,'起点价:'+起点价+'元'),colorgreen;
drawtextrel(0,560,'超过成本:'+xc+'%'),colorwhite;
drawtextrel(0,610,'第一目标:'+第一目标+'元'),colorred;
drawtextrel(0,660,'第二目标:'+第二目标+'元'),colorgreen;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),3,1)/SMA(ABS(CLOSE-LC),3,1)*100;
SELL2:=(CROSS(88,RSI1));
DRAWTEXT(SELL2,HIGH*1.02,'      ★短出'),color00ff00,ALIGN1;
VB1:=C-REF(C,1);
VB2:=100*EMA(EMA(VB1,6),6)/EMA(EMA(ABS(VB1),6),6);
VB3:=IF(LLV(VB2,2)=LLV(VB2,7) AND COUNT(VB2<0,2) AND CROSS(VB2,MA(VB2,2)),1,0);
VB4:=filter(VB3=1,5);
DRAWTEXT(VB4,LOW*0.97,'★ 买点'),COLOR00FFFF;