{K线美化,无未来,可单独删除}
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;
{红买绿卖点显示,无未来,可单独删除}
DRAWGBK(c>=0),Color2B5516;平衡:EMA(C,20),CIRCLEDOT,COLORwhite;
STICKLINE((CLOSE >平衡),平衡,平衡,1,0),LINETHICK6,color0000ff;
STICKLINE((平衡 > CLOSE),平衡,平衡,1,0),LINETHICK6,colorff6600;
{画线显示,带未来,正常,可单独删除}
Var1:=DATE>900101 AND DATE<2098108;
Var2:=DATE>2098106;
Var3:=EMA(100*(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100)),18)/4*Var1;
Var4:=IF(DATE<2098231,IF(Var3>23.16,Var3,0),0);
Var5:=Var3<10;
Var6:=Var3<2;
Var7:=Var5 OR Var6;
长期趋势: ZIG(3,19)*Var1,COLORBLUE;
短期趋势: ZIG(3,6.5)*Var1,COLORYELLOW;
{压力支撑显示,带未来,正常,可单独删除}
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1); vB1:=FILTER(A1,10); C1:=BACKSET(vB1,10+1); HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1); vB2:=FILTER(A2,10); C2:=BACKSET(vB2,10+1); LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD)); B:=REF(C,BARSLAST(LD));
t1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;
t2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
压力线:IF(t1,A,A),ColorFF00FF,POINTDOT;
STICKLINE(t1,A,A,9,0),ColorFF00FF;
支撑线:IF(t2,B,B),Color80FF00,POINTDOT;
STICKLINE(t2,B,B,9,0),Color80FF00;
{BS买卖点显示,无未来,可单独删除}
a:="LTFunc5@FORLT2"; {计算BS点}
s1:="LTFunc5@LT_S1"; {s1=0,向下; s1=1,向上}
hs:="LTFunc5@LT_HS"; {短线买入机会}
ls:="LTFunc5@LT_LS"; {短线卖出机会}
p1:="LTFunc5@LT_P1"; {p1=1,显示BS,p1上穿0线,B点 ; p1下穿1线,S点}
upp:="LTFunc5@LT_UPP";{明日B点预测}
udd:="LTFunc5@LT_UDD";{明日S点预测}
drawbmp(p1=1 and ref(p1,1)=0,l,'buy1.bmp'),align1,valign0;
drawbmp(p1=0 and ref(p1,1)=1,h,'sell1.bmp'),align1,valign2;
drawbmp(s1=1 and ref(s1,1)=0 and (p1+ref(p1,1))<>1,l,'bs.bmp'),align1,valign0;
drawbmp(s1=0 and ref(s1,1)=1 and (p1+ref(p1,1))<>1,h,'ss.bmp'),align1,valign2;
{筹码成本显示,带未来,正常,可单独删除}
Zyz:=cost(99.9);
Zyx:=cost(0.1);
Zy:=(Zyz-Zyx)/50;
Zy1:=Zyz-Zy;
Zy2:=Zyz-2*Zy;
Zy3:=Zyz-3*Zy;
Zy4:=Zyz-4*Zy;
Zy5:=Zyz-5*Zy;
Zy6:=Zyz-6*Zy;
Zy7:=Zyz-7*Zy;
Zy8:=Zyz-8*Zy;
Zy9:=Zyz-9*Zy;
Zy10:=Zyz-10*Zy;
Zy11:=Zyz-11*Zy;
Zy12:=Zyz-12*Zy;
Zy13:=Zyz-13*Zy;
Zy14:=Zyz-14*Zy;
Zy15:=Zyz-15*Zy;
Zy16:=Zyz-16*Zy;
Zy17:=Zyz-17*Zy;
Zy18:=Zyz-18*Zy;
Zy19:=Zyz-19*Zy;
Zy20:=Zyz-20*Zy;
Zy21:=Zyz-21*Zy;
Zy22:=Zyz-22*Zy;
Zy23:=Zyz-23*Zy;
Zy24:=Zyz-24*Zy;
Zy25:=Zyz-25*Zy;
Zy26:=Zyz-26*Zy;
Zy27:=Zyz-27*Zy;
Zy28:=Zyz-28*Zy;
Zy29:=Zyz-29*Zy;
Zy30:=Zyz-30*Zy;
Zy31:=Zyz-31*Zy;
Zy32:=Zyz-32*Zy;
Zy33:=Zyz-33*Zy;
Zy34:=Zyz-34*Zy;
Zy35:=Zyz-35*Zy;
Zy36:=Zyz-36*Zy;
Zy37:=Zyz-37*Zy;
Zy38:=Zyz-38*Zy;
Zy39:=Zyz-39*Zy;
Zy40:=Zyz-40*Zy;
Zy41:=Zyz-41*Zy;
Zy42:=Zyz-42*Zy;
Zy43:=Zyz-43*Zy;
Zy44:=Zyz-44*Zy;
Zy45:=Zyz-45*Zy;
Zy46:=Zyz-46*Zy;
Zy47:=Zyz-47*Zy;
Zy48:=Zyz-48*Zy;
Zy49:=Zyz-49*Zy;
Z1:=winner(Zyz)*100-winner(Zy4)*100;
Z2:=winner(Zy4)*100-winner(Zy7)*100;
Z3:=winner(Zy7)*100-winner(Zy10)*100;
Z4:=winner(Zy10)*100-winner(Zy13)*100;
Z5:=winner(Zy13)*100-winner(Zy16)*100;
Z6:=winner(Zy16)*100-winner(Zy19)*100;
Z7:=winner(Zy19)*100-winner(Zy22)*100;
Z8:=winner(Zy22)*100-winner(Zy25)*100;
Z9:=winner(Zy25)*100-winner(Zy28)*100;
Z10:=winner(Zy28)*100-winner(Zy31)*100;
Z11:=winner(Zy31)*100-winner(Zy34)*100;
Z12:=winner(Zy34)*100-winner(Zy37)*100;
Z13:=winner(Zy37)*100-winner(Zy40)*100;
Z14:=winner(Zy40)*100-winner(Zy43)*100;
Z15:=winner(Zy43)*100-winner(Zy46)*100;
Z16:=winner(Zy46)*100-winner(Zy49)*100;
STICKLINE( DISPSTATUS=2,Zy1 ,Zy4 ,Z1*50 ,1 ),LAYER7,coloryellow;
STICKLINE( DISPSTATUS=2,Zy5 ,Zy7 ,Z2*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy8 ,Zy10 ,Z3*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy11 ,Zy13 ,Z4*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy14 ,Zy16 ,Z5*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy17 ,Zy19 ,Z6*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy20 ,Zy23 ,Z7*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy24 ,Zy26 ,Z8*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy27 ,Zy29 ,Z9*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy30 ,Zy31 ,Z10*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy32 ,Zy34 ,Z11*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy35 ,Zy37 ,Z12*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy38 ,Zy40 ,Z13*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy41 ,Zy43 ,Z14*50 ,1),LAYER7,DOTLINE;
STICKLINE( DISPSTATUS=2,Zy44 ,Zy46 ,Z15*50 ,1),LAYER7,coloryellow;
STICKLINE( DISPSTATUS=2,Zy47 ,Zy49 ,Z16*50 ,1),LAYER7,coloryellow;
DRAWTEXTABS(5,5,'萃富网 www.cuiv.com'),linethick1,COLOR00EEff;
{文字显示,带未来,正常,可单独删除}
DRAWTEXTABS(10,10,'所属板块：'+BKNAME),COLOR00FF00,linethick1;
市值:=C*CAPITAL*VOLUNIT/100000000;
股本:=FINANCE2(35)/10000;
流通:=FINANCE2(37)/10000;
人均持股:=CEILING(CAPITAL*100/selfdata('shx'));
市盈率:=DYNAINFO(39);
市净率:=c/FINANCE2(4);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );N:=COST(85 );
F1:=(J-F)/(F+J)*100;M1:=(N-M)/(N+M)*100;
成本集中度:=F1;
莸利比例:=WINNER(c )*100;
日换手率:=vol/CAPITAL*100;
净资产:=FINANCE2(4);
净资收益率:=FINANCE2(5);
最新收益:=FINANCE2(3);
每股未分配:=FINANCE2(8);
毛利润率:=FINANCE2(12);
净利润率:=FINANCE2(33)/FINANCE2(27)*100;
股东权益比:=FINANCE2(9);
每股公积金:=FINANCE2(7);
DRAWTEXTABS(10,30,'市值:'+市值+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(110,30,'股本:'+股本+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(210,30,'流通:'+流通+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(10,50,'市盈率:'+市盈率+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(110,50,'市净率:'+市净率+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(210,50,'成本集中度:'+成本集中度+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(10,70,'莸利比例:'+莸利比例+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(110,70,'日换手率:'+日换手率+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(210,70,'净资产:'+净资产+'元 '),LINETHICK1,Color00FF00;
DRAWTEXTABS(10,90,'净资收益率:'+净资收益率+'% '),LINETHICK1,Color00FF00;
DRAWTEXTABS(110,90,'最新收益:'+最新收益+'元 '),LINETHICK1,Color00FF00;
DRAWTEXTABS(210,90,'每股未分配:'+每股未分配+'元 '),LINETHICK1,Color00FF00;
DRAWTEXTABS(10,110,'毛利润率:'+毛利润率+'% '),LINETHICK1,Color00FF00;
DRAWTEXTABS(110,110,'净利润率:'+净利润率+'% '),LINETHICK1,Color00FF00;
DRAWTEXTABS(210,110,'股东权益比:'+股东权益比+' '),LINETHICK1,Color00FF00;
DRAWTEXTABS(10,130,'每股公积金:'+每股公积金+'元 '),LINETHICK1,Color00FF00;
{文字显示,无未来,可单独删除}
mc:=REF(c,1);
阻力位:=IF((CLOSE > 200),(CLOSE * 1.01),(CLOSE * 1.07));
阻力位１:=IF((CLOSE < 10),(CLOSE * 1.05),阻力位);
止损位:=IF((CLOSE > 200),(CLOSE * 0.99),(CLOSE * 0.93));
止损位１:=IF((CLOSE < 10),(CLOSE * 0.95),止损位);
阻力位a:=IF((mc > 200),(mc * 1.01),(mc * 1.07));
阻力位2:=IF((mc < 10),(mc * 1.05),阻力位a);
止损位b:=IF((mc > 200),(mc * 0.99),(mc * 0.93));
止损位2:=IF((mc < 10),(mc * 0.95),止损位b);
DRAWTEXTABS(10,150,'[昨/今日 止损位 :'+NUMTOSTRn(止损位b,2)+'/'+NUMTOSTRn(止损位１,2)+']'),LINETHICK1,COLORYELLOW;
DRAWTEXTABS(10,170,'[昨/今日 阻力位 :'+NUMTOSTRn(阻力位2,2)+'/'+NUMTOSTRn(阻力位１,2)+']'),LINETHICK1,COLORYELLOW;