{智能MACD}
{DRAWGBK(C 0, RGB(0,108,108),RGB(88,0,0),0,'11',0);}
SHORT:=12;LONG:=26;MID:=9;
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:EMA(DIF,MID);
MACD:(DIF-DEA)*2,COLORSTICK;
DRAWICON(REF(DIF,1) REF(DIF,2) AND DIF REF(DIF,1) AND DIF 0 AND DIF DEA,DIF*1.1,1),COLORRED;
HJ_2:=BARSLAST(REF(MACD,1) 0 AND MACD
HJ_3:=LLVBARS(MACD,HJ_2+20);
HJ_4:=IF(HJ_3 HJ_2,REF(MACD,HJ_3),0);
HJ_5:=MACD 0 AND MACD HJ_4 AND LOW=LLV(LOW,HJ_2+20) AND HJ_4
HJ_6:=REF(HJ_5,1)=1 AND MACD REF(MACD,1) AND REF(DIF,HJ_3) 0 AND MACD
底背:DRAWLINE(HJ_4=HJ_3,MACD,HJ_6,MACD,0),COLORRED,DOTLINE;
DRAWICON(HJ_6,MACD*1.2,9);
HJ_7:=HHVBARS(MACD,HJ_2+20);
HJ_8:=IF(HJ_7 HJ_2,REF(MACD,HJ_7),0);
HJ_9:=MACD 0 AND MACD HJ_8 AND HIGH=HHV(HIGH,HJ_2+20) AND HJ_8
HJ_10:=REF(HJ_9,1)=1 AND MACD REF(MACD,1) AND REF(DIF,HJ_7)
顶背:DRAWLINE(HJ_8=HJ_7,MACD,HJ_10,MACD,0),COLOR1D7300,DOTLINE;
DRAWICON(HJ_10,MACD*1.2,15);
HJ_11:=CLOSE/MA(CLOSE,40)*100
HJ_12:=CLOSE/MA(CLOSE,60)*100
HJ_13:=HIGH LOW*1.051;
HJ_14:=HJ_13 AND COUNT(HJ_13,5)
HJ_15:=IF(HJ_14 AND (HJ_11 OR HJ_12),2,0);
HJ_16:=CLOSE/REF(CLOSE,25) =1.1;
HJ_17:=SMA(MAX(CLOSE-REF(CLOSE,2),0),7,1)/SMA(ABS(CLOSE-REF(CLOSE,2)),7,1)*100
HJ_18:=(CLOSE-LLV(LOW,8))/(HHV(HIGH,8)-LLV(LOW,8))*100;
HJ_19:=SMA(HJ_18,2,1);
HJ_20:=SMA(HJ_19,2,1);
HJ_21:=IF(HJ_19 REF(HJ_19,1) AND REF(HJ_19,1) REF(HJ_19,2) AND HJ_19 23,1.5,0);
HJ_22:=100-100*(HHV(HIGH,5*8)-CLOSE)/(HHV(HIGH,5*8)-LLV(LOW,5*8));
HJ_23:=MA(CLOSE,5);
HJ_24:=IF(CLOSE SAR(10,2,20),1,0);
HJ_25:=IF(CLOSE SAR(10,2,20),(-1),0);
HJ_26:=ATAN((HJ_23/REF(HJ_23,1)-1)*100)*180/3.1416;
HJ_27:=IF(HJ_26 30,1,0);
HJ_28:=IF(HJ_26 (-30),(-1),0);
HJ_29:=HJ_24+HJ_27+HJ_25+HJ_28;
IF(HJ_29 (-1) OR HJ_22 25.01,DIF,DRAWNULL),COLOR1D7300;
IF(HJ_22 74.989998 OR HJ_29 0,DIF,DRAWNULL),COLORRED;
0,COLORBROWN,POINTDOT;
金叉:=CROSS(DIF,DEA);
死叉:=CROSS(DEA,DIF);
T金叉:=BARSLAST(金叉);
T死叉:=BARSLAST(死叉);
T金叉2:=SUMBARS(T金叉=0,2);
T死叉2:=SUMBARS(T死叉=0,2);
T高1:=HHVBARS(DIF,T金叉2);
T底1:=LLVBARS(DIF,T死叉2);
前高C:=HHV(C,T高1);
高C:=HHV(C,T金叉);
前低C:=LLV(C,T底1);
低C:=LLV(C,T死叉);
顶背1:=REF(C,1) REF(C,T高1) AND REF(DIF,1) REF(DIF,T高1) AND DIF DEA AND DEA 0 AND DIF REF(DIF,1);
DRAWTEXT(顶背1,DIF*1.02,'顶背'),COLOR00FF00;
底背1:=REF(C,1) REF(C,T底1)AND REF(DIF,1) REF(DIF,T底1) AND DIF DEA AND DEA 0 AND DIF REF(DIF,1);
DRAWTEXT(底背1,DIF/1.02,'底背'),COLORMAGENTA;
