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

SSTS1:=STRCAT(‘　上市天数: ‘,CON2STR(FINANCE(42),0));
rn DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,SSTS1),COLORYELLOW;

rn

BBI:(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORLIGRAY;
rn MA5:MA(CLOSE,5),COLORWHITE;
rn MA10:MA(CLOSE,10),COLORYELLOW;
rn MA33:MA(CLOSE,33),COLORLIMAGENTA;
rn MA99:MA(CLOSE,99),COLORMAGENTA;
rn MA180:MA(CLOSE,180),COLORYELLOW;
rn MA272:MA(CLOSE,272),COLORGREEN;
rn趋势反转线:MA(C,584.92),LINETHICK4,COLORFFCC66;
rn DRAWLINE(CROSS(MA99,MA180),MA99,REF(CROSS(MA99,MA180),1),REF(MA99,1),1),COLORYELLOW,LINETHICK2;
rn DRAWLINE(CROSS(MA180,MA99),MA180,REF(CROSS(MA180,MA99),1),REF(MA180,1),1),COLORWHITE;
rn支撑线:(MA(CLOSE,20)+MA(CLOSE,40)+MA(CLOSE,60))/3,LINETHICK2,COLORYELLOW;
rn十:MA(C,10),COLOR00FFFF,LINETHICK2;
rn涨:IF(MA(CLOSE,10)>REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLORRED,LINETHICK2;
rn平:IF(MA(CLOSE,10)=REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLOR00FFFF,LINETHICK3;
rn跌:IF(MA(CLOSE,10)<REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLORBLUE,LINETHICK2;
rn {每个季度的最后一个交易日画竖线} 
rn STICKLINE(REFX(CROSS(MOD(MONTH,3),0.5),1),CONST(HHV(H,120)),CONST(LLV(L,120)),0,-1),COLOR999999;
rn {每年的最后一个交易日画一根垂直线}
rnIF(CROSS(BACKSET(BARSLAST(MONTH<REF(MONTH,1))=0,2),0.5),HHV(H,0),DRAWNULL),STICK,COLORRED;

rn

rn {高手买点}
rnNJ:=9;M1:=3;M2:=3;SHORT:=12;LONG:=26;M:=9;
rn RSV:=(CLOSE-LLV(LOW,NJ))/(HHV(HIGH,NJ)-LLV(LOW,NJ))*100;
rn K:=SMA(RSV,M1,1);
rn D:=SMA(K,M2,1);
rn T1J:=CROSS(K,D) AND D<20;
rn DIFF:=EMA(CLOSE,SHORT) – EMA(CLOSE,LONG);
rn DEA:=EMA(DIFF,M);
rn MACD:=2*(DIFF-DEA);
rn T2:=MACD>=-0.02 AND MACD<=0.03;
rn 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;
rn DRAWTEXT(T3J,LOW*0.97,’B’),COLORYELLOW;

rn

{底背黑码}
rnDIFFK:=EMA(DCLOSE,12)-EMA(DCLOSE,26);
rn DEAK:=EMA(DIFFK,9),COLORFFFF00;
rn A1K:=BARSLAST(REF(CROSS(DIFFK,DEAK),1));
rn底背离:=REF(CLOSE,A1K+1)>CLOSE AND DIFFK>REF(DIFFK,A1K+1) AND CROSS(DIFFK,DEAK);
rn DEA0:=EMA(DIFFK*100,9);
rn MACD0:=2*(DIFFK*100-DEA0);
rn黑码:=(MACD>REF(MACD0,1)*2.5 AND MACD0>15);
rn DRAWTEXT(底背离 AND 黑码,L*0.98,’红底’),LINETHICK2,COLORCYAN;

rn

{周K线托}
rnMA6:=MA(CLOSE,6),COLORWHITE;
rn MA36:=MA(CLOSE,36),COLORLIMAGENTA,LINETHICK2;
rn MA72:=MA(CLOSE,72),COLORGREEN,LINETHICK2;

rn

上穿72:=CROSS(MA6,MA72);
rn MA72托:DRAWLINE(上穿72,C, REF(上穿72,1), REF(C,1), 1),COLORGREEN,LINETHICK2;
rn上穿36:=CROSS(MA6,MA36);
rn MA36托:DRAWLINE(上穿36,C, REF(上穿36,1), REF(C,1), 1),COLORLIGREEN;

rn

阻力4Y:REFDATE(REF(HHV(H,110),20),DATE),COLORGREEN;
rn阻力4S:REFDATE(REF(HHV(H,440),5),DATE),COLORYELLOW;
rn {划线带三角整理突破主图}
rnHIGHN:=10;LOWN:=10;HIGHDISPLAY:=0;LOWDISPLAY:=0;ZGDISPLAY:=0;MADISPLAY:=0;
rn AA5:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
rn QY:=BACKSET(AA5,HIGHN+1);
rn CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
rn DDD:=BARSLAST(CC);
rn GDTS:=IF(CC,CURRBARSCOUNT,0);
rn DINGBU:=IF(DDD,REF(H,DDD),H);{顶部}
rnDINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
rn DINGBU1:=REF(DINGBU,DDD+1);
rn GDCS1:=CONST(DINGBUTS);
rn DINGBUTS1:=REF(DINGBUTS,DDD+1);
rn GDCS2:=CONST(DINGBUTS1);
rn高点压力:DRAWLINE(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H,1) COLORGREEN,LINETHICK2;

rn

rn