参数AA 2 120 6 N 2 120 26
{RSI顶底}
LC:=REF(CLOSE,1);
RSI01:=SMA(MAX(CLOSE-LC,0),AA,1)/SMA(ABS(CLOSE-LC),AA,1)*100;
DRAWTEXT(REF(RSI01,1)<=15 AND RSI01>REF(RSI01,1),L*0.95,'底');
DRAWTEXT(REF(RSI01,1)>=80 AND RSI01<REF(RSI01,1),H*1.04,'顶');
{短调提示}
NB:=5;
NB01:=4*SMA((CLOSE-LLV(LOW,NB))/(HHV(HIGH,NB)-LLV(LOW,NB))*100,5,1)-3*SMA(SMA((CLOSE-LLV(LOW,NB))/(HHV(HIGH,NB)-LLV(LOW,NB))*100,5,1),3.2,1);{趋势}
NB02:=8;
BL:=MA(CLOSE,N);
UP:=BL+2*STD(CLOSE,N);
LO:=BL-2*STD(CLOSE,N);
DRAWTEXT(REF(NB01,1)>100 AND NB01<REF(NB01,1),H*1.01,'T');
{阻力&压力}
PT:=REF(H,1)-REF(L,1);
CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;
AH:=CDP+PT;
AL:=CDP-PT;
NH:=CDP*2-REF(L,1);
NL:=CDP*2-REF(H,1);
强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW,COLORRED;
阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORFF00FF;
M:=IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL);
撑:IF(NL<M,CDP-(CDP-M)*0.618,NL)NODRAW,COLORFFFF00;
底:IF(AL<REF(C,1)/1.1,REF(C,1)/1.1,AL)NODRAW,COLORGREEN;
{顺势而为}
B1:=EMA((2*CLOSE+HIGH+LOW)/4,5);
A1:IF(EMA((2*CLOSE+HIGH+LOW)/4,6)>REF(EMA((2*CLOSE+HIGH+LOW)/4,6),1),B1,DRAWNULL),COLORWHITE;
A2:IF(EMA((2*CLOSE+HIGH+LOW)/4,6)<REF(EMA((2*CLOSE+HIGH+LOW)/4,6),1),B1,DRAWNULL),COLOR00FF00;
B2:=EMA((2*CLOSE+HIGH+LOW)/4,13);
A3:=IF(EMA((2*CLOSE+HIGH+LOW)/4,10)>REF(EMA((2*CLOSE+HIGH+LOW)/4,13),1),B2,DRAWNULL),COLOR0000FF;
A4:IF(EMA((2*CLOSE+HIGH+LOW)/4,10)<REF(EMA((2*CLOSE+HIGH+LOW)/4,13),1),B2,DRAWNULL),LINETHICK2,COLOR00FF00;
B3:=REF(EMA((LOW+CLOSE+OPEN)/3,25),1);
A5:IF(EMA((LOW+CLOSE+OPEN)/3,28)>REF(EMA((LOW+CLOSE+OPEN)/3,28),1),B3,DRAWNULL),LINETHICK3,COLOR0000FF;
A6:IF(EMA((LOW+CLOSE+OPEN)/3,28)<REF(EMA((LOW+CLOSE+OPEN)/3,28),1),B3,DRAWNULL),LINETHICK3,COLOR00FF00;
B4:=(EMA(LOW,125)+EMA((CLOSE+LOW)/2,125))/2;
{生命线:=MA(CLOSE,20),COLOR0000FF;}
取舍线:MA(CLOSE,10),COLORFF3300;
{通道}
金矿:=MA(C,15)*0.78,COLOR00FFFF;
银矿:=MA(C,15)*0.84,COLORCCCCCC;
铁矿:=MA(C,15)*0.9,COLOR999966;
玉石矿:=MA(C,15)*1.1,COLORCCCC00;
翡翠矿:=MA(C,15)*1.16,COLOR00FF00;
钻石矿:=MA(C,15)*1.22,COLORFFFFFF;
翡翠:IF(H>翡翠矿 AND C>H*0.94 AND (C=HHV(C,10) OR H=HHV(H,10)) AND C<REF(C,1)*
1.0985,H*1.02,DRAWNULL),LINETHICK9,POINTDOT,COLOR00FF00;
钻石:IF(H>钻石矿 AND C>H*0.94 AND (C=HHV(C,10) OR H=HHV(H,10)) AND C<REF(C,1)*
1.0985,H*1.02,DRAWNULL),LINETHICK7,CROSSDOT,COLORFFFFFF;
金币:IF(L<MA(C,15)*0.84 AND C<L*1.07 AND (C=LLV(C,10) OR L=LLV(L,10)) AND C>REF(C,1)*
0.9015,L*0.9,DRAWNULL),LINETHICK9,POINTDOT,COLORCCCC99;
银币:IF(L<MA(C,15)*0.78 AND C<L*1.07 AND (C=LLV(C,10) OR L=LLV(L,10)) AND C>REF(C,1)*
0.9015,L*0.9,DRAWNULL),LINETHICK9,POINTDOT,COLOR00CCFF;
