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