我的指标

{绘制最强压力支撑线，股价跌至黑马线则反弹，涨至黑马线则遇阻}

{NOTEXT黑马线:EXPMA(C,453),LINETHICK3,COLORFF0000;

IF(ATAN((NOTEXT黑马线/REF(NOTEXT黑马线,1)-1)*100)*180/3.1416<0,NOTEXT黑马线,DRAWNULL),LINETHICK3,COLOR675103;}

NOTEXTMA30:MA(C,30),COLORWHITE,LINETHICK1,DOTLINE;

{––定义参数––};

A0:=(3*C+L+O+H)/6;

VAR1:=SLOPE(EMA(C,2),5)*15+C;

VAR2:=EMA(VAR1,5);

VARA:=EMA(EMA(EMA(EMA(EMA(EMA(EMA(EMA(VAR2,5),5),5),5),5),5),5),5);

VARB:=BARSLAST(CROSS(C,VARA));

VARC:=BARSLAST(CROSS(VARA,C));

T:=BARSLAST(L>REF(H,1));

E:=COUNT(L<REF(H,T+1),T)<2;

{––定义线形––}

EMA5:=EMA(C,5);

EMA13:=EMA(C,13);

EMA21:=EMA((C+O+H+L)/4,21);

{--操作波段--}

XS1:=(8*A0+7*REF(A0,1)+6*REF(A0,2)+5*REF(A0,3)+4*REF(A0,4)+3*REF(A0,5)+2*REF(A0,6)+REF(A0,7))/36;

XS2:=(LLV(XS1,1)+LLV(XS1,3)+LLV(XS1,5))/3;

DRAWBAND(XS1,RGB(30,38,38),XS2,RGB(30,38,38));

{绘制垂帘听股系统：1、绘制主力成本线和资金生命线；2、绘制卷帘和垂帘图形。本质是寻找圆弧底，粉帘操作、绿帘休息}

{平滑处理13日均线}

NOTEXTX1:(20*A0+19*REF(A0,1)+18*REF(A0,2)+17*REF(A0,3)+16*REF(A0,4)+15*REF(A0,5)+14*REF(A0,6)+13*REF(A0,7)+12*REF(A0,8)+11*REF(A0,9)+10*REF(A0,10)+9*REF(A0,11)+8*REF(A0,12)+7*REF(A0,13)+6*REF(A0,14)+5*REF(A0,15)+4*REF(A0,16)+3*REF(A0,17)+2*REF(A0,18)+REF(A0,19))/210,COLOR40FF00,POINTDOT,LINETHICK3;

主力成本线:IF(NOTEXTX1>REF(NOTEXTX1,1),NOTEXTX1,DRAWNULL),COLORRED,POINTDOT,LINETHICK3;

{平滑处理21日均线}

NOTEXTX2:MA(NOTEXTX1,5),COLORC08000,POINTDOT,LINETHICK3;

资金生命线:IF(NOTEXTX1>NOTEXTX2 AND NOTEXTX2>REF(NOTEXTX2,1),NOTEXTX2,DRAWNULL),COLORYELLOW,POINTDOT,LINETHICK3;

{上涨卷帘}

NOTEXT上涨帘轴:IF(C>VARA AND C>REF(C,VARB),REF(C,VARB),DRAWNULL),COLORFFC8FF,LINETHICK2;

STICKLINE(C>VARA AND C>REF(C,VARB) AND NOTEXTX1<=REF(C,VARB),REF(C,VARB),NOTEXTX1,0,-1),COLORFFC8FF;

STICKLINE(C>VARA AND C>REF(C,VARB) AND NOTEXTX2>=REF(C,VARB),REF(C,VARB),NOTEXTX2,0,-1),COLORFFC8FF;

{下跌挂帘}

NOTEXT下跌帘轴:IF(C<VARA,REF(C,VARC),DRAWNULL),COLOR00FF00,LINETHICK2;

STICKLINE(C<VARA AND C<REF(C,VARC) AND NOTEXTX1>=REF(C,VARC),REF(C,VARC),NOTEXTX1,0,-1),COLOR00FF00;

STICKLINE(C<VARA AND C<REF(C,VARC) AND NOTEXTX2<=REF(C,VARC),REF(C,VARC),NOTEXTX2,0,-1),COLOR00FF00;

{--画K线形式--}

STICKLINE(C>=O,H,L,0,0),COLORRED;

STICKLINE(C<O,H,L,0,0),COLORFFFF52;

STICKLINE(C>=O,C,O,3,1),COLORRED;

STICKLINE(C<O,C,O,3,0),COLORFFFF52;

STICKLINE(RANGE(C/O,0.995,1.005) AND H>MAX(C,O) AND L<MIN(C,O) AND C>=O AND XS1<>XS2,C,O,3,0),COLORYELLOW;

STICKLINE(RANGE(C/O,0.995,1.005) AND H>MAX(C,O) AND L<MIN(C,O) AND C>=O AND XS1<>XS2,H,L,0,0),COLORYELLOW;

涨停:=C/REF(C,1)>1.0925 AND C=H;

STICKLINE(涨停,O,C,3,0),COLORRED;

跌停:=REF(C,1)/C>1.095 AND C=L;

STICKLINE(跌停,O,C,3,0),COLORGREEN;

STICKLINE(跌停,H,L,0,0),COLORGREEN;

{STICKLINE(L<REF(H,T+1) AND E,L,L-0.09,3,0),COLOR0099FF;{补缺口}

{画线：上轨类5日线，下轨类10日线}

NOTEXT上轨:XS1,COLORWHITE;

短上轨:IF(XS1>REF(XS1,1),XS1,DRAWNULL),COLORMAGENTA,LINETHICK2;

NOTEXT下轨:XS2,COLORYELLOW;

短下轨:IF(XS2>REF(XS2,1),XS2,DRAWNULL),COLORMAGENTA,LINETHICK2;

NOTEXT跌下轨:IF(XS1=XS2,XS2,DRAWNULL),COLORGREEN,LINETHICK1;

{绘制参考图标：小人跑步是走强买点（五日线和21日线的金叉），小黄圆点是13日线和21日线形成的圆弧底（底确认）}

STICKLINE(CROSS(EMA(EMA(C,13),1),EMA(NOTEXTX1,8)) AND XS1>REF(XS1,1),H,H*1.05,0,-1),COLORYELLOW;

DRAWICON(CROSS(EMA(EMA(C,13),1),EMA(NOTEXTX1,8)) AND XS1>REF(XS1,1),H*1.05,15);

{圆弧底}

NOTEXTCRLBTM:IF(CROSS(NOTEXTX1,NOTEXTX2),NOTEXTX1,DRAWNULL),CIRCLEDOT,COLORYELLOW,LINETHICK7;

{波段黄金坑买入标志：看多B信号};

MTM:=C-REF(C,1);

DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);

买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,EMA(DX,2)),1,0);

VAR1K:=MA(CLOSE,27);

VAR2K:=(CLOSE-VAR1K)/VAR1K*100;

RRA:=MA(VAR2K,2);

RRB:=BARSLAST(CROSS(-10,RRA)=1);

RRD1:=RRA<-10 AND RRB>3;{黄金坑

黄金坑1}

VAR1P:=(CLOSE-LLV(LOW,55.144))/(HHV(HIGH,55.144)-LLV(LOW,55))*80;

VAR2P:=SMA(VAR1P,7,1); 

VAR3P:=SMA(VAR2P,5,1); 

RRD2:=CROSS(VAR2P,VAR3P) AND VAR2P<20;

{顶底指示}

顶:=REFDATE(HHV(H,144),DATE); 

底:=REFDATE(LLV(L,144),DATE);

NOTEXT顶部:REFDATE(顶,DATE),LINETHICK3,COLORRED;

NOTEXT底部:REFDATE(底,DATE),LINETHICK3,COLORGREEN;

{辅助线角度计算和显示}

{ATAN5:=ATAN((EMA5/REF(EMA5,1)-1)*100)*180/3.1416;

ATAN13:=ATAN((EMA13/REF(EMA13,1)-1)*100)*180/3.1416;

ATAN21:=ATAN((EMA21/REF(EMA21,1)-1)*100)*180/3.1416;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.01,0,'攻击线角度：      °'),COLOR624AE8;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.01,0,INTPART(ATAN5)),COLOR624AE8;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.1,0,'工作线角度：      °'),COLORWHITE;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.1,0,INTPART(ATAN13)),COLORWHITE;

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.01,0.17,0,'黄金线角度：      °'),COLORYELLOW;

DRAWNUMBER_FIX(CURRBARSCOUNT=1,0.19,0.17,0,INTPART(ATAN21)),COLORYELLOW;}

{区间涨幅}

VARX:=(CONST(C)-CONST(LLV(L,55+1)))/CONST(LLV(L,55+1))*100;

DRAWTEXT_FIX(CURRBARSCOUNT=1,1,0,0,STRCAT(STRCAT('涨',VAR2STR(VARX,1)),'﹪')),COLORYELLOW;

{离5日线高度}

DRAWTEXT_FIX(CURRBARSCOUNT=1,0.8,0,0,STRCAT(STRCAT('五日乖离',VAR2STR((C-MA(C,5))/MA(C,5)*100,1)),'﹪')),COLORYELLOW;

{高量量能平台

高量:=VOL>=REF(V,1)*1.91 AND C>REF(C,1)*1.01;

量能:=FILTERX(高量,BARSCOUNT(高量));

NOTEXT量能:IF(CURRBARSCOUNT<=CONST(BARSLAST(量能)+1),REF(C,高量-1),DRAWNULL),COLORWHITE,LINETHICK1;};

SZ1:=REF(XS1,1)=REF(XS2,1) AND XS1>XS2 AND CLOSE>XS1;

SZ2:=XS1>XS2 AND XS1>REF(XS1,1) AND XS2>REF(XS2,1)

AND H/XS1<1.1 AND L>XS2 AND CLOSE>XS1;

SZ3:=XS1>XS2 AND XS1>REF(XS1,1) AND XS2>=REF(XS2,1) AND H/XS1>1.1;

SZ4:=XS1>XS2 AND XS1>REF(XS1,1) AND XS2>REF(XS2,1)

AND CLOSE>XS2 AND CLOSE<XS1;

SZ5:=(XS1>XS2 AND XS2>REF(XS2,1) AND XS1<>REF(XS1,1)

AND CLOSE<XS2) OR (XS1>XS2 AND XS1<REF(XS1,1)

AND XS2<REF(XS2,1) AND CLOSE<XS2);

SZ6:=REF(XS1,1)>REF(XS2,1) AND XS1=XS2 AND CLOSE<XS2;

XD1:=XS1=XS2 AND CLOSE<XS2 OR (XS1<REF(XS1,1) AND XS2<REF(XS2,1)

AND REF(XS1,1)=REF(XS2,1) AND CLOSE<XS2);

XD2:=XS1=XS2 AND CLOSE>XS1;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ1,0.01,0,0,'调整结束短线介入'),COLORRED;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ2,0.01,0,0,'上升通道走势良好'),COLORRED;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ3,0.01,0,0,'股价偏离注意调整'),COLORYELLOW;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ4,0.01,0,0,'上升通道调整洗盘'),COLORYELLOW;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ5,0.01,0,0,'转向特征注意离场'),COLORYELLOW;

DRAWTEXT_FIX(BARSTATUS=2 AND SZ6,0.01,0,0,'通道改变坚决离场'),COLORGREEN;

DRAWTEXT_FIX(BARSTATUS=2 AND XD1,0.01,0,0,'下跌通道只宜观望'),COLORGREEN;

DRAWTEXT_FIX(BARSTATUS=2 AND XD2,0.01,0,0,'短期底部准备进入'),COLORYELLOW;

{根据量比判断放量情况}

缩量:=(DYNAINFO(17)<0.8);

正常量:=(DYNAINFO(17)>=0.8 AND DYNAINFO(17)<1.5);

温和量:=(DYNAINFO(17)>=1.5 AND DYNAINFO(17)<2.5);

明显量:=(DYNAINFO(17)>=2.5 AND DYNAINFO(17)<5);

剧烈量:=(DYNAINFO(17)>=5 AND DYNAINFO(17)<10);

异动:=(DYNAINFO(17)>=10);

DRAWTEXT_FIX(缩量,0.35,0,0,'缩量'),COLORGREEN;

DRAWTEXT_FIX(正常量,0.35,0,0,'正常量'),COLORWHITE;

DRAWTEXT_FIX(温和量,0.35,0,0,'温和量'),COLORLIRED;

DRAWTEXT_FIX(明显量,0.35,0,0,'明显量'),COLORYELLOW;

DRAWTEXT_FIX(剧烈量,0.35,0,0,'剧烈量'),COLORRED;

DRAWTEXT_FIX(异动,0.35,0,0,'异动'),COLORMAGENTA;

{仓位管理}

X_1:=(2*CLOSE+HIGH+LOW+OPEN)/5;

X_2:=EMA(EMA(EMA(X_1,4),4),4);

X_3:=(X_2-REF(X_2,1))/REF(X_2,1)*100;

X_4:=MA(X_3,2);

X_5:=EMA(CLOSE,5)-EMA(CLOSE,55);

X_6:=EMA(X_5,10);

NOTEXT持五成仓:IF(X_3>X_4 AND X_5<X_6,底,DRAWNULL),LINETHICK4,COLORMAGENTA;

NOTEXT满仓:IF(X_3>X_4 AND X_5>X_6,底,DRAWNULL),LINETHICK4,COLORRED;

NOTEXT减五成仓:IF(X_3<X_4 AND X_5>X_6,底,DRAWNULL),LINETHICK4,COLORLICYAN;

NOTEXT空仓:IF(X_3<X_4 AND X_5<X_6,底,DRAWNULL),LINETHICK4,COLORGREEN;

{波段买底}

NOTEXTBTM:IF(RRD1 OR RRD2,NOTEXT底部,DRAWNULL),LINETHICK4,COLORYELLOW;

BUYBTM:=(FILTER(买=1,5) AND RRD1) OR RRD2;

DRAWTEXT(BUYBTM,L*0.99,'▲'),COLORYELLOW,DRAWABOVE;