缠论升级版
MA1 : MA(CLOSE,P1);
MA2 : MA(CLOSE,P2);
MA3 : MA(CLOSE,P3);
MA5:=EMA(c,5),COLORFFFFFF;
MA20:=EMA(c,20),COLORRED;
MA60:=EMA(c,60),COLOR00FF00;
DRAWTEXTABS(650,-15,'流通盘:'+CAPITAL/10000+'亿股;所属板块：'+BKNAME)COLORffffff;
kx:="chanlun@kxian";
kxg:="chanlun@kxg";
kxd:="chanlun@kxd";
kxfx:="chanlun@kxfx";
笔:="chanlun@bi";
笔周期:"chanlun@bilast",linethick0, colorff00ff;
bilast:="chanlun@bilast";{笔周期};
段:="chanlun@duan";
段周期:"chanlun@duanlast", linethick0, colorFFffFF;
duanlast:="chanlun@duanlast"; {段周期};
中枢:="chanlun@zs";
zszg:="chanlun@zszg";
zszd:="chanlun@zszd";
zsgg:="chanlun@zsgg";
zsdd:="chanlun@zsdd";
zszz:="chanlun@zszz";
zsks:="chanlun@zskslast";
zsjs:="chanlun@zsjslast";
bifx:=-REF(笔,bilast);
duanfx:=-REF(段,duanlast);
kxqj:="chanlun@kxqj";
{画中枢Begin} {以背景方式画}
STICKLINE(zszg>zszd AND duanfx=1, zszg, zszd,0,0),ColorDB7093 ,linethick1;
STICKLINE(zszg>zszd AND duanfx=-1, zszg, zszd,0,0),Color007700,linethick1;
{中枢震荡监视器}
DRAWLINE(zsks=1, zszz, zsjs=1, zszz, 0), colorFFFFff,linethick1;
{画中枢END}
{顶底分型}
STICKLINE(kx>0, kxg, kxd,7, 1),Coloraff00,linethick2;
STICKLINE(kx<0, kxg, kxd,7 , 1),Color00ffff,linethick2;
{笔段}
STICKLINE(笔=1, kxg, kxd,7 , 1), coloraff00, linethick1;
STICKLINE(笔=-1, kxg, kxd,7, 1), COLOR00ffff, linethick1;
STICKLINE(段=1, kxg, kxd, 7, 1), coloraff00, linethick1;
STICKLINE(段=-1, kxg, kxd, 7, 1), color00ffff, linethick1;
{画K线END}
{画笔段}
drawline(笔=1,h,笔=-1,l,0),ColorFF7F00,linethick2;
drawline(笔=-1,l,笔=1,h,0),ColorFF00FF ,linethick2;
drawline(段=1,h,段=-1,l,0),color007700, linethick2;
drawline(段=-1,l,段=1,h,0),color0000cc, linethick2;
{笔高低点 周期 力度 提示}
DRAWTEXT(笔= 1, h*1.0008, ''+h+''), colorffffff, align1, valign2;
DRAWTEXT(笔=-1, L*0.995, ''+l+''), colorFFffFF, align1, valign2;
TY:=C;
A1:=REF(TY,10)=HHV(TY,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
HD:=FILTER(C1,10);
A2:=REF(TY,10)=LLV(TY,2*10+1);
B2:=FILTER(A2,10);
C2:=BACKSET(B2,10+1);
LD:=FILTER(C2,10);
A:=REF(C,BARSLAST(HD));
B:=REF(C,BARSLAST(LD));
T1:=BARSLAST(HD)
VAR3:=LLV(H,240);
VAR4:=100*(C-VAR3)/VAR3;
VAR5:=(C-LLV(L,528))/(HHV(H,528)-LLV(L,528))*100;
VAR6:=(C-LLV(C,530))/(HHV(C,530)-LLV(C,530))*100;
VAR7:=0;
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND H>L+0.04,4,0);
VAR11:=ZIG(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3);
VAR12:=ZIG(3,6)
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22)
,2)<=REF(ZIG(3,22),3);
VAR14:=ZIG(3,22)
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3);
VAR16:=ZIG(3,51)
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3);
VAR18:=ZIG(3,72)
VAR19:=EMA(C,2)-EMA(C,150);
PL5:=ZIG(3,5);
EN1:=PL5>REF(PL5,1) AND REF(PL5,1)<=REF(PL5,2) AND REF(PL5,2)<=REF(PL5,3);
EX1:=PL5
PL10:=ZIG(3,10);
EN2:=PL10>REF(PL10,1) AND REF(PL10,1)<=REF(PL10,2) AND REF(PL10,2)<=REF(PL10,3);
EX2:=PL10
PL20:=ZIG(3,20);
EN3:=PL20>REF(PL20,1) AND REF(PL20,1)<=REF(PL20,2) AND REF(PL20,2)<=REF(PL20,3);
EX3:=PL20
走强1:=BARSLAST(PL5
走强2:=BARSLAST(PL10
走强3:=BARSLAST(PL20
ZTJZ5:=IF(PL10>REF(PL10,1),COUNT(EN1,走强2),0);
ZTJD5:=IF(PL10>REF(PL10,1),COUNT(EX1,走强2),0);
DTJZ5:=IF(PL10
ZTJD10:=IF(PL20>REF(PL20,1),COUNT(EX2,走强3),0);
DTJZ10:=IF(PL20
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=1,H*1.03,'[大2卖]'),LINETHICK2,COLOR00FFff;
DRAWTEXT(EN2 AND PL20>REF(PL20,1) AND ZTJZ10=2,L*0.965,'[大2买]'),LINETHICK2,COLOR00ffff;
DRAWTEXT(EX2 AND PL20>REF(PL20,1) AND ZTJD10=2 OR (ZTJD10=0 OR ZTJD10=2) AND EX2,H*1.015,'[大1卖]'),LINETHICK3,COLOR00ffff;
drawtext(en1 and dtjz5=1,low*0.995,'(跌2买)'),colorffff00;
drawtext(ex1 and dtjd5=2,high*1.01,'(跌2卖)'),colorffff00;
drawtext(en2 and ztjz5=1,low*0.991,'(小1买)'),colorffffff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjd5=1,h*1.007,'（小2卖）'),linethick3,colorffffff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=2,l*0.997,'（小2买）'),linethick3,colorffffff;
drawtext(ex1 and pl10>ref(pl10,1) and ztjz5=2,h*1.012,'（小3卖）'),linethick3,colorffffff;
drawtext(en1 and pl10>ref(pl10,1) and ztjz5=3,l*0.993,'（小3买）'),linethick3,colorffffff;
drawtext(ex2 and pl20>ref(pl20,1) and ztjd10=1,h*1.012,'（小1卖）'),linethick3,colorffffff;
drawtext(en2 and dtjz10=1 and ztjz5=1,low*0.98,'[2买]'),linethick3,colorff00ff;
drawtext(ex2 and dtjd10=2,high*1.02,'[小转大1卖]'),linethick3,color00ff00;
ZT:
=BETWEEN((C/REF(C,1)-1)*100,9.7,11) AND C=H;
上市天数:=BARSCOUNT(C),DRAWNULL;
ZT天数:=BARSLAST(ZT)+1,DRAWNULL;
ZT统计:=SUM(ZT,0),DRAWNULL;
DRAWTEXTABS(570,-50,'上市：')COLORffffff;
DRAWTEXTABS(620,-50,上市天数)COLORff00ff;
DRAWTEXTABS(650,-50,'天')COLORYELLOW;
DRAWTEXTABS(570,-35,'共涨停：')COLORffffff;
DRAWTEXTABS(620,-35,ZT统计)COLORff00ff;
DRAWTEXTABS(700,-35,'次')COLORYELLOW;
DRAWTEXTABS(670,-35,'涨停距:')COLORYELLOW;
DRAWTEXTABS(720,-35,ZT天数)COLORff00ff;
DRAWTEXTABS(750,-35,'天')COLORYELLOW;
市盈率:=DYNAINFO(39);
市净率:=DYNAINFO(58);
DRAWTEXTABS(800,-50,'市盈率:')COLORYELLOW;
DRAWTEXTABS(800,-35,'市净率:')COLORYELLOW;
DRAWTEXTABS(850,-50,市盈率)COLORff00ff;
DRAWTEXTABS(850,-35,市净率)COLORff00ff;
每股收益:=FINANCE(29);
每股净资产:=FINANCE(30);
DRAWTEXTABS(900,-50,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLORWHITE,LAYER1;
DRAWTEXTABS(900,-35,'每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),COLORWHITE,LAYER1;
{股价预测}
VC:=(HIGH+LOW+OPEN+2.01*CLOSE)/4.99;
明日阻力:=2.01*VC-LOW;
明日支撑:=1.99*VC-HIGH;
今日阻力:=REF(明日阻力 , 1);
今日支撑:=REF(明日支撑 , 1);
DRAWTEXTREL(900,-160,'支撑: '+NUMTOSTRN(今日支撑,2)+' 元'),Colorffffff,layer1;
DRAWTEXTREL(900,-100,'阻力: '+NUMTOSTRN(今日阻力,2)+' 元'),Color008508,layer1;
DRAWGBK(CLOSE>0,'16'),Layer7;
午夜阳光抓板:=ABS(REF(OPEN,1)-REF(CLOSE,1))/REF(CLOSE,1)<0.03 && CLOSE/OPEN>1.03 && CLOSE>REF(CLOSE,2) AND C/REF(C,1)>1.0572 AND DYNAINFO(7)>DYNAINFO(11);
DRAWTEXT(午夜阳光抓板,L*0.98,'抓板'),ColorAFFF00;bkname