X间隔值:=0.15;
Y间隔值:=0.15;
起点位X值:=X间隔值/10;
起点位Y值:=Y间隔值/10;
概念:=STRCAT('概念: ',GNBLOCK);
DRAWTEXT_FIX(C 0,0*起点位X值,0.5*起点位Y值,0,概念),COLORYELLOW;
地域:=STRCAT(DYBLOCK,'');
DRAWTEXT_FIX(C 0,0*起点位X值,3.5*起点位Y值,0,地域),COLORWHITE;
行业:=STRCAT(HYBLOCK,'');
DRAWTEXT_FIX(C 0,4*起点位X值,3.5*起点位Y值,0,行业),COLORWHITE;
LTSZ:=STRCAT(STRCAT('总市值: ',CON2STR(FINANCE(41)/100000000,2)),' 亿元');
DRAWTEXT_FIX(C 0,8*起点位X值,3.5*起点位Y值,0,LTSZ),COLORWHITE;
涨停板1:=C=H C/REF(C,1) 1.0975 C/REF(C,1) 1.11 FINANCE(3)=1;
涨停板2:=C=H C/REF(C,1) 1.1985 C/REF(C,1) 1.21 FINANCE(3)=3;
涨停板:=涨停板1 OR 涨停板2;
k线实体:=Abs(C-O)/REF(C,1);
双倍量:=(V/REF(MA(V,5),1) =2) OR (V/REF(V,1)
倍量0:=C O 双倍量 C EMA(C,13) V=HHV(V,6);
倍量:=TFILTER(倍量0,C O H REF(H,1),1);
位置要求:=L/EMA(C,13) 1.05;
SPX0:=H/REF(C,1) =1.06 H=HHV(H,6) 倍量0 H/C 1.005 C/REF(C,1) 1.015 位置要求 K线实体 0.01
FINANCE(3)=1;
SPX1:=H/REF(C,1) =1.11 H=HHV(H,6) 倍量0 H/C 1.005 C/REF(C,1) 1.015 位置要求 K线实体 0.02
FINANCE(3)=3;
SPX2:=SPX0 OR SPX1;
SPX3:=SPX2 NOT(EXISTR(SPX2,6,1));
试盘K线:=FILTER(SPX3,5);
STICKLINE(试盘K线,H,L,0,0),COLORFF55FF;
STICKLINE(试盘K线,C,O,3.1,0),COLOR880088;
STICKLINE(试盘K线,C,O,2.6,0),COLORAA00AA;
STICKLINE(试盘K线,C,O,1.9,0),COLORCC00CC;
STICKLINE(试盘K线,C,O,1.1,0),COLOREE00EE;
STICKLINE(试盘K线,C,O,0.2,0),COLORFF44FF;
SPZQ:=BARSLAST(试盘K线);
试盘最高不破:=LAST(H =REF(H,SPZQ),2,1);
洗盘不破:=COUNT(EMA(C,13) REF(EMA(C,13),1),SPZQ)
洗盘K00:=C O H REF(H,1);
洗盘K0:=EXIST(试盘K线,10) H HHV(H,SPZQ+1) C =EMA(C,13) L =REF(C,SPZQ) C O COUNT(洗盘K00,SPZQ)
洗盘K:=TFILTER(洗盘K0,试盘K线,1);
XPZQ:=BARSLAST(洗盘K);
起爆K0:=EXISTR(试盘K线,10,3) C REF(H,XPZQ) L REF(H,XPZQ) EXISTR(洗盘K,SPZQ,1) C O
洗盘不破 (H-C)/(C-O) 1 COUNT(C REF(H,XPZQ),XPZQ)=1;
起爆K1:=EXISTR(试盘K线,10,2) EVERY(C =EMA(C,13),SPZQ) C REF(H,XPZQ) O REF(H,XPZQ)
EXISTR(洗盘K,SPZQ,1) 涨停板 COUNT(涨停板,10)=1;
起爆K3:=起爆K0 OR 起爆K1;
起爆K:=FILTER(起爆K3,5);
{www.9m8.cn}金柱}
STICKLINE(起爆K,O,C,3.1,0),COLOR00AAFF;
STICKLINE(起爆K,O,C,2.1,0),COLOR00BBFF;
STICKLINE(起爆K,O,C,1.5,0),COLOR00CCFF;
STICKLINE(起爆K,O,C,1,0),COLOR00DDFF;
STICKLINE(起爆K,O,C,0.6,0),COLOR00EEFF;
STICKLINE(起爆K,O,C,0.2,0),COLOR00FFFF;
STICKLINE(起爆K,H,L,0,0),COLOR00FFFF;
{www.9m8.cn}银柱}
STICKLINE(FILTER(起爆K,5),O,L,0,0),COLORFFFFFF;
STICKLINE(FILTER(起爆K,5),O,MAX(O,REF(H,XPZQ)),3.1,0),COLOR555555;
STICKLINE(FILTER(起爆K,5),O,MAX(O,REF(H,XPZQ)),2.6,0),COLOR777777;
STICKLINE(FILTER(起爆K,5),O,MAX(O,REF(H,XPZQ)),1.9,0),COLOR999999;
STICKLINE(FILTER(起爆K,5),O,MAX(O,REF(H,XPZQ)),1.1,0),COLORCCCCCC;
STICKLINE(FILTER(起爆K,5),O,MAX(O,REF(H,XPZQ)),0.2,0),COLORFFFFFF;
起涨K0:=H REF(H,XPZQ) H/REF(C,1) 1.03 C O EXIST(试盘K线,10)
EXIST(洗盘K,SPZQ) C REF(H,XPZQ) NOT(EXIST(起爆K,SPZQ));
起涨K1:=EXISTR(试盘K线,1,1) C O C REF(H,1) C REF(C,1) H REF(H,1);
起涨K2:=起涨K0 OR 起涨K1;
起涨K:=FILTER(起涨K2,5);
STICKLINE(起涨K,H,L,0,0),COLOR0000FF;
STICKLINE(起涨K,C,O,3.1,0),COLOR000099;
STICKLINE(起涨K,C,O,2,0),COLOR0000BB;
STICKLINE(起涨K,C,O,1,0),COLOR0000DD;
STICKLINE(起涨K,C,O,0.2,0),COLOR0000FF;
生命线:EMA(C,13),COLORRED,LINETHICK2;
源码未粘贴完..........
下载附件源码...............
