參數(shù)AA 2 120 6 N 2 120 26
{RSI頂?shù)讅
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,'頂');
{短調(diào)提示}
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);{趨勢(shì)}
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);
強(qiáng):IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW,COLORRED;
阻:IF(NH>強(qiáng),(強(qiáng)-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;
{順勢(shì)而為}
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;
{生命線(xiàn):=MA(CLOSE,20),COLOR0000FF;}
取舍線(xiàn):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;
