修改，謝謝。

作者：文華財經來源：cxh99.com 發布時間：2023年11月02日

咨詢內容： 老師，請幫我僅保留MACD? KDJ? RSI 頂底背離的顯示，其它的都不要。
??? A:=MA(CLOSE,17)+ABS(MA(CLOSE,17)-REF(MA(CLOSE,17),1));?B:=MA(CLOSE,17)+MA(CLOSE,17)-REF(MA(CLOSE,17),1);?分水嶺:IF(MA(CLOSE,17)<B,B,MA(CLOSE,17)),COLORFF00FF,LINETHICK2;?操作線:分水嶺-(EMA(C,3)-分水嶺),COLOR00FFFF,LINETHICK2;?PM:MA(C,5),COLORWHITE,LINETHICK2;?IF(PM> REF(PM,1),PM,NULL),COLORRED,LINETHICK2;?IF(PM=REF(PM,1),PM,NULL),COLORRED;?IF(PM<REF(PM,1),PM,NULL),COLORFF9900,LINETHICK2;?S:=(PM> 操作線);?DD:=分水嶺<REF(分水嶺,1);?IF(DD,分水嶺,NULL),COLOR00FF00,LINETHICK2;?IF(S,分水嶺,NULL),COLOR00FF00,POINTDOT,LINETHICK4;?DIF :=EMA(CLOSE,12) - EMA(CLOSE,26);DEA? :=EMA(DIF,9);MACD:=2*(DIF-DEA),COLORSTICK;RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;RSI2:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;DRAWICON(CROSS(分水嶺,操作線),分水嶺-0.1,1);A1:=BARSLAST(REF(CROSS(DIF,DEA),1));?B1:=REF(C,A1+1)> C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);?DRAWTEXT(B1> 0,L-0.02,'ACD底背離',COLOR00FFFF;{MACD底背離}?A2:=BARSLAST(REF(CROSS(K,D),1));?B2:=REF(C,A2+1)> C AND REF(K,A2+1)<K AND CROSS(K,D);?DRAWTEXT(B2,L-0.10,'DJ底背離',COLORFF00FF;{KDJ底背離}?A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));?B3:=REF(C,A3+1)> C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);?DRAWTEXT(B3> 0,L-0.18,'SI底背離',COLOR0000FF;{RSI底背離}?C1:=BARSLAST(REF(CROSS(DEA,DIF),1));?D1:=REF(C,C1+1)<C AND REF(DIF,C1+1)> DIF AND CROSS(DEA,DIF);?DRAWTEXT(D1> 0,H+0.16,'ACD頂背離',COLOR00FF00;{MACD頂背離}?C2:=BARSLAST(REF(CROSS(D,K),1));?D2:=REF(C,C2+1)<C AND REF(K,C2+1)> K AND CROSS(D,K);?DRAWTEXT(D2> 0,H+0.08,'DJ頂背離',COLORFFFFCC;{KDJ頂背離}?C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));?D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)> RSI1 AND CROSS(RSI2,RSI1);?DRAWTEXT(D3>0,H+0.04,'SI頂背離',COLORFF9900;
?
?來源:程序化99
文華技術人員： ?
DIF :=EMA(CLOSE,12) - EMA(CLOSE,26); DEA? :=EMA(DIF,9); MACD:=2*(DIF-DEA),COLORSTICK; RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1); D:=SMA(K,3,1); J:=3*K-2*D; LC := REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100; RSI2:SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100; A1:=BARSLAST(REF(CROSS(DIF,DEA),1));? B1:=REF(C,A1+1)> C AND REF(DIF,A1+1)<DIF AND CROSS(DIF,DEA);? DRAWTEXT(B1> 0,L-0.02,'ACD底背離',COLOR00FFFF; {MACD底背離}? A2:=BARSLAST(REF(CROSS(K,D),1));? B2:=REF(C,A2+1)> C AND REF(K,A2+1)<K AND CROSS(K,D);? DRAWTEXT(B2,L-0.10,'DJ底背離',COLORFF00FF; {KDJ底背離}? A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));? B3:=REF(C,A3+1)> C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);? DRAWTEXT(B3> 0,L-0.18,'SI底背離',COLOR0000FF; {RSI底背離}? C1:=BARSLAST(REF(CROSS(DEA,DIF),1));? D1:=REF(C,C1+1)<C AND REF(DIF,C1+1)> DIF AND CROSS(DEA,DIF);? DRAWTEXT(D1> 0,H+0.16,'ACD頂背離',COLOR00FF00; {MACD頂背離}? C2:=BARSLAST(REF(CROSS(D,K),1));? D2:=REF(C,C2+1)<C AND REF(K,C2+1)> K AND CROSS(D,K);? DRAWTEXT(D2> 0,H+0.08,'DJ頂背離',COLORFFFFCC; {KDJ頂背離}? C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));? D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)> RSI1 AND CROSS(RSI2,RSI1);? DRAWTEXT(D3>0,H+0.04,'SI頂背離',COLORFF9900;