黑牛 （上市天数 重要均线 年季竖线 高手买点 底背黑马 周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
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)
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
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;