通达信龙头定律指标公式源码副图

1;LH:=100-EMA((HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34))*100,34);
J:=EMA(LH,21);
DRAWTEXT(LH>J,1.6,'★'),COLORRED;
DRAWTEXT(LH<J,1.6,'★'),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.6,' LHJ'),COLORYELLOW;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
DRAWTEXT(DIF>DEA,1.5,'★'),COLORRED;
DRAWTEXT(DIF<DEA,1.5,'★'),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.5,' macd'),COLORYELLOW;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);DRAWTEXT(K>D,1.4,'★'),COLORRED;
DRAWTEXT(K<D,1.4,'★'),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.4,' kdj'),COLORYELLOW;
TYP:=(HIGH LOW CLOSE)/3;
cci:=(TYP-MA(TYP,14))*1000/(15*AVEDEV(TYP,14));
DRAWTEXT(CCI>100,1.3,'★'),COLORRED;
DRAWTEXT(CCI<100,1.3,'★'),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.3,' CCI'),COLORYELLOW;
DRAWTEXT(C>SAR.sar,1.2,'★'),COLORRED;
DRAWTEXT(C<SAR.SAR,1.2,'★'),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.2,' SAR'),COLORYELLOW;
DRAWTEXT(rsi.RSI1>50,1.1,'★'),COLORRED;
DRAWTEXT(RSI.RSI1<50,1.1,'★'),COLORGREEN;
DRAWTEXT(ISLASTBAR=1,1.1,' RSI'),COLORYELLOW;
X1:=LH>J;
X2:=DIF>DEA;
X3:=K>D;X4:=CCI>100;
X5:=C>SAR.SAR;
X6:=RSI.RSI1>50;
XJ:X1 AND X2 AND X3 AND X4 AND X5 AND X6,NODRAW;
STICKLINE(1,1.7,1.8,3,1),COLOR666666;
DRAWNUMBER(1,1.77,XJ),COLORLIGRAY;
DRAWNUMBER(XJ=6,1.77,XJ),COLORMAGENTA;
DRAWNUMBER(XJ=5,1.77,XJ),COLORRED;
DRAWTEXT(ISLASTBAR=1,1.75,' 龙头定律'),COLORYELLOW;
XG:X1 AND X2 AND X3 AND X4 AND X5 AND X6,NODRAW;