通达信黑牛 （上市天数 重要均线 年季竖线 高手买点 底背黑马 周K线托 三角整理突破)

以下通达信是黑牛 （上市天数 重要均线 年季竖线 高手买点 底背黑马 周K线托 三角整理突破)

SSTS1:=STRCAT('　上市天数: ',CON2STR(FINANCE(42),0));

DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,SSTS1),COLORYELLOW;

BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORLIGRAY;

MA5:MA(CLOSE,5),COLORWHITE;

MA10:MA(CLOSE,10),COLORYELLOW;

MA33:MA(CLOSE,33),COLORLIMAGENTA;

MA99:MA(CLOSE,99),COLORMAGENTA;

MA180:MA(CLOSE,180),COLORYELLOW;

MA272:MA(CLOSE,272),COLORGREEN;

趋势反转线:MA(C,584.92),LINETHICK4,COLORFFCC66;

DRAWLINE(CROSS(MA99,MA180),MA99,REF(CROSS(MA99,MA180),1),REF(MA99,1),1),COLORYELLOW,LINETHICK2;

DRAWLINE(CROSS(MA180,MA99),MA180,REF(CROSS(MA180,MA99),1),REF(MA180,1),1),COLORWHITE;

支撑线:(MA(CLOSE,20)+MA(CLOSE,40)+MA(CLOSE,60))/3,LINETHICK2,COLORYELLOW;

十:MA(C,10),COLOR00FFFF,LINETHICK2;

涨:IF(MA(CLOSE,10)>REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLORRED,LINETHICK2;

平:IF(MA(CLOSE,10)=REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLOR00FFFF,LINETHICK3;

跌:IF(MA(CLOSE,10)<REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLORBLUE,LINETHICK2;

{每个季度的最后一个交易日画竖线}

STICKLINE(REFX(CROSS(MOD(MONTH,3),0.5),1),CONST(HHV(H,120)),CONST(LLV(L,120)),0,-1),COLOR999999;

{每年的最后一个交易日画一根垂直线}

IF(CROSS(BACKSET(BARSLAST(MONTH<REF(MONTH,1))=0,2),0.5),HHV(H,0),DRAWNULL),STICK,COLORRED;

{高手买点}

NJ:=9;M1:=3;M2:=3;SHORT:=12;LONG:=26;M:=9;

RSV:=(CLOSE-LLV(LOW,NJ))/(HHV(HIGH,NJ)-LLV(LOW,NJ))*100;

K:=SMA(RSV,M1,1);

D:=SMA(K,M2,1);

T1J:=CROSS(K,D) AND D<20;

DIFF:=EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);

DEA:=EMA(DIFF,M);

MACD:=2*(DIFF-DEA);

T2:=MACD>=-0.02 AND MACD<=0.03;

T3J:=COUNT(T1J AND T2,10) AND COUNT(D<40 AND CLOSE>=MA(CLOSE,7),10) AND CLOSE>=MA(CLOSE,14) AND VOL/REF(VOL,1)>1.5;

DRAWTEXT(T3J,LOW*0.97,'B'),COLORYELLOW;

{底背黑码}

DIFFK:=EMA(DCLOSE,12)-EMA(DCLOSE,26);

DEAK:=EMA(DIFFK,9),COLORFFFF00;

A1K:=BARSLAST(REF(CROSS(DIFFK,DEAK),1));

底背离:=REF(CLOSE,A1K+1)>CLOSE AND DIFFK>REF(DIFFK,A1K+1) AND CROSS(DIFFK,DEAK);

DEA0:=EMA(DIFFK*100,9);

MACD0:=2*(DIFFK*100-DEA0);

黑码:=(MACD>REF(MACD0,1)*2.5 AND MACD0>15);

DRAWTEXT(底背离 AND 黑码,L*0.98,'红底'),LINETHICK2,COLORCYAN;

{周K线托}

MA6:=MA(CLOSE,6),COLORWHITE;

MA36:=MA(CLOSE,36),COLORLIMAGENTA,LINETHICK2;

MA72:=MA(CLOSE,72),COLORGREEN,LINETHICK2;

上穿72:=CROSS(MA6,MA72);

MA72托:DRAWLINE(上穿72,C, REF(上穿72,1), REF(C,1), 1),COLORGREEN,LINETHICK2;

上穿36:=CROSS(MA6,MA36);

MA36托:DRAWLINE(上穿36,C, REF(上穿36,1), REF(C,1), 1),COLORLIGREEN;

阻力4Y:REFDATE(REF(HHV(H,110),20),DATE),COLORGREEN;

阻力4S:REFDATE(REF(HHV(H,440),5),DATE),COLORYELLOW;

{划线带三角整理突破主图}

HIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;

AA5:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);

QY:=BACKSET(AA5,HIGHN+1);

CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);

DDD:=BARSLAST(CC);

GDTS:=IF(CC,CURRBARSCOUNT,0);

DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}

DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);

DINGBU1:=REF(DINGBU,DDD+1);

GDCS1:=CONST(DINGBUTS);

DINGBUTS1:=REF(DINGBUTS,DDD+1);

GDCS2:=CONST(DINGBUTS1);

高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK2;