Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
ZZ3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0.01,0.07,0,STRCAT(ZZ3,GNBLOCK)),COLORRED;
MA1:MA(CLOSE,5);
MA2:MA(CLOSE,10);
MA3:MA(CLOSE,20);
MA4:MA(CLOSE,60);
MA5:MA(CLOSE,120);
MA6:MA(CLOSE,250);
VAR66:=REF(C,1);
VAR77:=SMA(MAX(C-VAR66,0),6,1)/SMA(Abs(C-VAR66),6,1)*100;
上:=(SMA(HIGH,21,2) * 1.05);
支撑:=HHV(EMA(((((OPEN + LOW) + HIGH) + CLOSE) / 4),5),60);
X6:=REF(CLOSE,1);
X7:=((SMA(MAX((CLOSE - X6),0),7,1) / SMA(ABS((CLOSE - X6)),7,1)) * 100);
X8:=crOSS(79,X7);
X9:=FILTER(X8,4);
VAR5:=(((HHV(HIGH,36) - CLOSE) / (HHV(HIGH,36) - LLV(LOW,36))) * 100);
VAR6:=SMA(VAR5,5,1);
VAR7:=SMA(VAR6,8,1);
VAR8:=(CROSS(VAR6,VAR7) AND (VAR7 < 16));
VAR9:=((CLOSE > (LLV(CLOSE,60) + (0.3 * LLV(CLOSE,60)))) AND VAR8);
VARA:=IF((CLOSE > 1000),VAR8,VAR9);
逃遁1:=VARA;
VVAR1:=(HIGH+LOW+OPEN+2*CLOSE)/5;
VVAR2:=REF(VVAR1,1);
VVAR3:=SMA(MAX(VVAR1-VVAR2,0),10,1)/SMA(ABS(VVAR1-VVAR2),10,1)*100;
HY3:=IF(COUNT(VVAR3< 20,5)>=1 AND COUNT(VVAR1=LLV(VVAR1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND vol>MA(VOL,5)*1.2,1,0);
DRAWTEXT(HY3,LOW*0.99,' ↖注意买入'),COLORRED;
逃遁:=(SMA(HIGH,21,2) * 1.05);
STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND ((C - REF(C,1)) > 0)),C,O,3.3,0),COLOR0077FF;
STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND ((C - REF(C,1)) > 0)),C,O,2.8,0),COLOR0099FF;
STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND ((C - REF(C,1)) > 0)),C,O,2.1,0),COLOR00AAFF;
STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND ((C - REF(C,1)) > 0)),C,O,1.3,0),COLOR00CCFF;
STICKLINE(((((C / O) > 1.04) AND (C < 逃遁)) AND ((C - REF(C,1)) > 0)),H,L,0.4,0),COLOR00FFFF;
现价:=C,NODRAW;
N:=5;
卖筹: COST(15*N),COLORGREEN,DOTLINE,NODRAW;
买筹: COST(6*N) ,COLORRED,DOTLINE,NODRAW;
底筹: COST(1*N),COLORYELLOW,NODRAW;
DRAWTEXT(CROSS(现价,卖筹) AND CROSS(现价,买筹),LOW*0.98,'双买'),COLORMAGENTA;
VAR1:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100)/3;
大顶:=VAR1>20 AND FILTER(VAR1< REF(VAR1,1),5);
短顶:=VAR1>9 AND FILTER(VAR1< REF(VAR1,1),5);
VAR2:=HHV(VAR1>20,10);
危险:=VAR2 AND CROSS((REF(HIGH,1)+REF(LOW,1))/2,MA(CLOSE,20)+2*STD(CLOSE,20));
DRAWTEXT(VAR1>9 AND FILTER(VAR1< REF(VAR1,1),5),H*1.04,'见顶'),COLOR00FF00;
DRAWTEXT(VAR1>20 AND FILTER(VAR1< REF(VAR1,1),5),H*1.07,'大顶'),COLORWHITE;
DRAWTEXT(危险,H*1.03,'危险'),COLORMAGENTA;
C1:=((MA(C,30)-L)/MA(C,60))*200;
M1:=REF(CLOSE,1);
M2:=SMA(MAX(CLOSE-M1,0),7,1)/SMA(ABS(CLOSE-M1),7,1)*100;
G1:=FILTER(REF(M2,1)< 20 AND M2>REF(M2,1),5);
TU:=C/MA(C,40)< 0.74;
PER1:=5;
MMA:=EMA(C,PER1);
SMMA:=EMA(MMA,PER1);
IMPETMMA:=MMA - REF(MMA,1);
IMPETSMMA:=SMMA - REF(SMMA,1);
DIVMA:= ABS(MMA - SMMA);
TDJ:=(H-L)/REF(C,1)>0.05;
AVERIMPET:= (IMPETMMA+IMPETSMMA)/2;
TDF:= POW(DIVMA,1)*POW(AVERIMPET,3);
NTDF:=TDF/HHV(ABS(TDF),PER1*3);
YUL:=COUNT(TDJ,5)>1;
启动:=TU AND TDJ AND YUL;
确定:=CROSS(NTDF,-0.9);
波段:=FILTER((G1 AND C1>20 OR C>REF(C,1)) AND REF(启动,1),10);
选股:=FILTER(REF(启动,1) AND (确定 OR C>REF(C,1)) AND 'macd.MACD'>-1.5,10);
擒底:=COUNT(选股,13)>=1 AND 波段;
信号后:=EXIST(擒底,13) AND C< O;
DRAWTEXT(擒底>0.1,L*0.95,' 智尊擒底'),COLORYELLOW;
DRAWICON(擒底>0.1,L*0.98,34),COLORRED;
DRAWTEXT(FILTER(信号后,13),L*0.97,'可能变盘'),COLORRED;
DRAWICON(FILTER(信号后,13),H*1.01,39),COLORRED;
AA1:=ABS(((3.48*CLOSE+HIGH+LOW)/4-EMA(CLOSE,20))/EMA(CLOSE,20));
AA2:=DMA(((2.15*CLOSE+LOW+HIGH)/4),AA1);
线上捉妖:=EMA(AA2,200)*1.118;
过线成妖:=(线上捉妖+MA(C,60)*1.075)/1.75*1.05,LINETHICK2,COLORCYAN;
托妖线:boll+2*STD(CLOSE,20)DOTLINE,COLORYELLOW,NODRAW;
强势线:(MA(CLOSE,2)+MA(CLOSE,3))/2,COLOR0077FF,NODRAW;
助攻2:=BOLL+2*STD(CLOSE,20)*0.4,COLORRED,,NODRAW;
龙头起飙:(助攻2*0.45+过线成妖*0.55),DOTLINE,COLORMAGENTA,,NODRAW;
六十专用线:(过线成妖+龙头起飙)/2*0.995,DOTLINE,COLORWHITE,NODRAW;
STICKLINE(O>六十专用线 AND C>过线成妖 AND 托妖线>L AND 托妖线< C AND 强势线>L AND 强势线< C,O,C,2,0),COLORMAGENTA;
