文华能量线威廉WR副图指标 源码

DRAWGBK(O>C,RGB(40,40,40),RGB(0,0,40),0);
能量线:=EMA(100*(C-LLV(L,34))/(HHV(H,34)-LLV(L,34)),3),NODRAW;
RSI:=SMA(MAX(CLOSE-REF(CLOSE,1),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1)*100,NODRAW;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100,NODRAW;
K:=SMA(RSV,3,1);{好股票WWW.GOODGUPIAO.COM}
D:=SMA(K,3,1);
J:=3*K-2*D,NODRAW;
威廉WR:=(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14))*100,NODRAW;
TYP := (HIGH + LOW + CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),NODRAW;
指A:EMA2((能量线+RSI+J-威廉WR+CCI)/5,5);
指B:EMA2((能量线+RSI+J-威廉WR+CCI)/5,13);
FILLRGN(指A>指B,指A,指B,RGB(255,155,0));
FILLRGN(指A<指B,指A,指B,RGB(0,40,255));
EMA2((能量线+RSI+J-威廉WR+CCI)/5,5),COLOR00FF00,LINETHICK3;
IF(指A>REF(指A,1),指A,NULL),COLOR0000FF,LINETHICK3;
KC:=FORCAST(((2*C+H+L)/4*0.618+C*0.382),3);
AAX:=(KC-MA(KC,9))/MA(KC,9)*100;
VAR0:=MIN(EXIST(KC,55),9);
AAX1:=EMA(AAX,VAR0)*VAR0;
AAX2:=MA(AAX1,3);
AAX3:=MA(AAX1,5);
卖:=AAX3>3 AND AAX1<REF(AAX1,1) AND CROSS(AAX2,AAX1);
VBA:=FILTER(卖,5);
DRAWTEXT(VBA,指A*1.08,'★卖出'),COLOR0044FF;
VB2:=EMA(EMA(C-REF(C,1),6),6)/EMA(EMA(ABS(C-REF(C,1)),6),6)*100;
VB3:=IF(LLV(VB2,3)=LLV(VB2,11) AND COUNT(VB2<0,2) AND CROSS(VB2,MA(VB2,2)),1,0);
VB4:=FILTER(VB3=1,5);
DRAWTEXT(VB4,指A*0.97,'★买入'),COLOR00FFFF;