通达信黑牛（上市天数重要均线年季竖线高手买点底背黑马周K线托三角整理突破)未加密选股指标公式源码

SSTS1:=STRCAT('　上市天数: ',CON2STR(FInaNCE(42),0));
DRAWTEXT_FIX(CURRBARSCOUNT=1,0,0,0,SSTS1),COLORBLUE;

bbi:(ma(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4,COLORBLACK;
MA5:MA(CLOSE,5),COLORRED;
MA10:MA(CLOSE,10),COLORBLUE;
MA33:MA(CLOSE,33),COLORMAGENTA;
MA99:MA(CLOSE,99),COLORLIMAGENTA;
MA180:MA(CLOSE,180),COLORBLUE;
MA272:MA(CLOSE,272),COLORCYAN;
趋势反转线:MA(C,584.92),LINETHICK4,COLORFFCC66;
DRAWLINE(crOSS(MA99,MA180),MA99,REF(CROSS(MA99,MA180),1),REF(MA99,1),1),COLORBLUE,LINETHICK2;
DRAWLINE(CROSS(MA180,MA99),MA180,REF(CROSS(MA180,MA99),1),REF(MA180,1),1),COLORRED;
支撑线:(MA(CLOSE,20)+MA(CLOSE,40)+MA(CLOSE,60))/3,LINETHICK2,COLORBLUE;
十:MA(C,10),COLOR00FFFF,LINETHICK2;
涨:IF(MA(CLOSE,10)>REF(MA(CLOSE,10),1),MA(CLOSE,10),DRAWNULL),COLORWHITE,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),COLORYELLOW,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,COLORWHITE;

{高手买点}
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'),COLORBLUE;

{底背黑码}
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,COLORGREEN;

{周k线托}
MA6:=MA(CLOSE,6),COLORRED;
MA36:=MA(CLOSE,36),COLORMAGENTA,LINETHICK2;
MA72:=MA(CLOSE,72),COLORCYAN,LINETHICK2;

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

阻力4Y:REFDATE(REF(HHV(H,110),20),DATE),COLORCYAN;
阻力4S:REFDATE(REF(HHV(H,440),5),DATE),COLORBLUE;
{划线带三角整理突破主图}
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) COLORCYAN,LINETHICK2;