請老師能把這個幫忙改一下嗎？謝謝

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

咨詢內容： ?
DIF:EMA(CLOSE,12)-EMA(CLOSE,26)COLORRED,LINETHICK2;DEA:EMA(DIF,9);IF(DIF<DEA,DIF,DRAWNULL),COLORWHITE,LINETHICK2;MACD:(DIF-DEA)*2,COLORSTICK;VAR1:=TDXDLL5(1,H,L,C);筆低A:=LOW<=LLV(LOW,筆參數),NODRAW;筆高A:=HIGH>=HHV(HIGH,筆參數),NODRAW;筆低:=筆低A AND 筆高A=0,NODRAW;筆高:=筆高A AND 筆低A=0,NODRAW;上筆:=DRAWLINE(筆低,LOW,筆高,HIGH,0)COLOR0000FF;下筆:=DRAWLINE(筆高,HIGH,筆低,LOW,0),COLOR00FF00;拐下:=上筆>REF(上筆,1) AND 下筆>REFX(下筆,1),NODRAW;拐上:=下筆<REF(下筆,1) AND 上筆<REFX(上筆,1),NODRAW;段低A:=LOW<=LLV(LOW,段參數*筆參數),NODRAW;段高A:=HIGH>=HHV(HIGH,段參數*筆參數),NODRAW;段低:=段低A AND 段高A=0,NODRAW;段高:=段高A AND 段低A=0,NODRAW;上段:=DRAWLINE(段低,LOW,段高,HIGH,0),LINETHICK2,COLORMAGENTA;下段:=DRAWLINE(段高,HIGH,段低,LOW,0),LINETHICK2,COLORFF8000;特殊底:=下段=上段 AND? 段低 AND MACD<0,NODRAW;TTT:=REF(BARSLAST(特殊底),1)+1;
底背離1:=特殊底 AND LOW<REF(LOW,TTT) AND DIF>REF(DIF,TTT) AND LLV(DIF,BARSLASTCOUNT(MACD<0))>REF(DIF,TTT),NODRAW;底背左點1:=BACKSET(底背離1,TTT+1) AND REF(BACKSET(底背離1,TTT+1),1)=0 AND 特殊底;DRAWLINE(底背左點1,DIF,底背離1,DIF,0),COLORFF00FF,LINETHICK2;底背離2:=特殊底 AND LOW<REF(LOW,TTT) AND MACD>REF(MACD,TTT) AND LLV(MACD,BARSLASTCOUNT(MACD<0))>REF(MACD,TTT),NODRAW;底背左點2:=BACKSET(底背離2,TTT+1) AND REF(BACKSET(底背離2,TTT+1),1)=0 AND 特殊底;DRAWLINE(底背左點2,MACD,底背離2,MACD,0),COLORFF00FF,LINETHICK1;
特殊頂:=下段=上段 AND? 段高 AND MACD>0,NODRAW;TTTG:=REF(BARSLAST(特殊頂),1)+1;頂背離1:=特殊頂 AND HIGH>REF(HIGH,TTTG) AND DIF<REF(DIF,TTTG) AND HHV(DIF,BARSLASTCOUNT(MACD>0))<REF(DIF,TTTG),NODRAW;頂背左點1:=BACKSET(頂背離1,TTTG+1) AND REF(BACKSET(頂背離1,TTTG+1),1)=0 AND 特殊頂;DRAWLINE(頂背左點1,DIF,頂背離1,DIF,0),COLORGREEN,LINETHICK2;頂背離2:=特殊頂 AND HIGH>REF(HIGH,TTTG) AND MACD<REF(MACD,TTTG) AND HHV(MACD,BARSLASTCOUNT(MACD>0))<REF(MACD,TTTG),NODRAW;頂背左點2:=BACKSET(頂背離2,TTTG+1) AND REF(BACKSET(頂背離2,TTTG+1),1)=0 AND 特殊頂;DRAWLINE(頂背左點2,MACD,頂背離2,MACD,0),COLORGREEN,LINETHICK1;
DRAWTEXT(底背離2=1,MACD,'柱背離',COLORFF00FF;DRAWTEXT(底背離1=1,DIF,'線背離',COLORFF00FF;DRAWTEXT(頂背離2=1,MACD,'柱背離',COLORGREEN;DRAWTEXT(頂背離1=1,DIF,'線背離',COLORGREEN;
DRAWICON(REF(DIF,1)>REF(DIF,2) AND DIF<REF(DIF,1) AND DIF>0 AND DIF>DEA,DIF*1.1,2),COLORGREEN;DRAWICON(REF(DIF,1)<REF(DIF,2) AND DIF>REF(DIF,1) AND DIF<0 AND DIF<DEA,DIF*1.1,1),COLORRED;XA_2:=BARSLAST(REF(MACD,1)<0 AND MACD>0);XA_3:=LLVBARS(MACD,XA_2+20);XA_4:=IF(XA_3>XA_2,REF(MACD,XA_3),0);XA_5:=MACD<0 AND MACD>XA_4 AND LOW=LLV(LOW,XA_2+20) AND XA_4<0;柱背離1:=(REF(XA_5,1)=1 AND MACD>REF(MACD,1) AND REF(DIF,XA_3)<0 AND MACD<0),NODRAW;DRAWLINE(XA_4=XA_3,MACD,柱背離1,MACD,0),COLORRED,LINETHICK1;DRAWICON(柱背離1,0,26);柱背離A:BARSLAST(柱背離1>0)+1,COLORYELLOW,NODRAW;柱背離:BARSLAST(底背離2>0)+1,COLORMAGENTA,NODRAW;線背離:BARSLAST(底背離1>0)+1,COLORWHITE,NODRAW;
DRAWRECTREL(0,965,130,999,RGB(0,0,1)),NOFRAME;DRAWTEXT_FIX(1,0,1,0,'式源于教您炒股123社區WWW.JNCG123.COM',COLOR999999;
?
?來源:程序化99
文華技術人員： 不同軟件函數機制不同，該協會有差異，另外參數需要您根據需求手動調整：

DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORRED,LINETHICK2; DEA:EMA(DIF,9); IF(DIF<DEA,DIF,NULL),COLORWHITE,LINETHICK2; MACD:(DIF-DEA)*2,COLORSTICK;
段參數:=5; 筆參數:=20;
筆低A:=LOW<=LLV(LOW,筆參數),NODRAW; 筆高A:=HIGH>=HHV(HIGH,筆參數),NODRAW; 筆低:筆低A AND 筆高A=0,NODRAW; 筆高:筆高A AND 筆低A=0,NODRAW; DRAWLINE1(筆低,LOW,筆高,HIGH,0),COLOR0000FF; DRAWLINE1(筆高,HIGH,筆低,LOW,0),COLOR00FF00; //拐上:=上筆>REF(上筆,1) AND 下筆>REFX(下筆,1),NODRAW; //拐下:=下筆<REF(下筆,1) AND 上筆<REFX(上筆,1),NODRAW; 段低A:=LOW<=LLV(LOW,段參數*筆參數),NODRAW; 段高A:=HIGH>=HHV(HIGH,段參數*筆參數),NODRAW; 段低:=段低A AND 段高A=0,NODRAW; 段高:=段高A AND 段低A=0,NODRAW; 上段:=TRENDLINES(段低,LOW,段高,HIGH),LINETHICK2,COLORMAGENTA; 下段:=TRENDLINES(段高,HIGH,段低,LOW),LINETHICK2,COLORFF8000; 特殊底:=下段=上段 AND? 段低 AND MACD<0,NODRAW; TTT:=REF(BARSLAST(特殊底),1)+1;
底背離1:=特殊底 AND LOW<REF(LOW,TTT) AND DIF>REF(DIF,TTT) AND LLV(DIF,BARSLASTCOUNT(MACD<0))>REF(DIF,TTT),NODRAW; 底背左點1:=BACKSET(底背離1,TTT+1) AND REF(BACKSET(底背離1,TTT+1),1)=0 AND 特殊底; DRAWLINE(底背左點1,DIF,底背離1,DIF,0),COLORFF00FF,LINETHICK2; 底背離2:=特殊底 AND LOW<REF(LOW,TTT) AND MACD>REF(MACD,TTT) AND LLV(MACD,BARSLASTCOUNT(MACD<0))>REF(MACD,TTT),NODRAW; 底背左點2:=BACKSET(底背離2,TTT+1) AND REF(BACKSET(底背離2,TTT+1),1)=0 AND 特殊底; DRAWLINE(底背左點2,MACD,底背離2,MACD,0),COLORFF00FF,LINETHICK1;
特殊頂:=下段=上段 AND? 段高 AND MACD>0,NODRAW; TTTG:=REF(BARSLAST(特殊頂),1)+1; 頂背離1:=特殊頂 AND HIGH>REF(HIGH,TTTG) AND DIF<REF(DIF,TTTG) AND HHV(DIF,BARSLASTCOUNT(MACD>0))<REF(DIF,TTTG),NODRAW; 頂背左點1:=BACKSET(頂背離1,TTTG+1) AND REF(BACKSET(頂背離1,TTTG+1),1)=0 AND 特殊頂; DRAWLINE(頂背左點1,DIF,頂背離1,DIF,0),COLORGREEN,LINETHICK2; 頂背離2:=特殊頂 AND HIGH>REF(HIGH,TTTG) AND MACD<REF(MACD,TTTG) AND HHV(MACD,BARSLASTCOUNT(MACD>0))<REF(MACD,TTTG),NODRAW; 頂背左點2:=BACKSET(頂背離2,TTTG+1) AND REF(BACKSET(頂背離2,TTTG+1),1)=0 AND 特殊頂; DRAWLINE(頂背左點2,MACD,頂背離2,MACD,0),COLORGREEN,LINETHICK1;
DRAWTEXT(底背離2=1,MACD,'柱背離',COLORFF00FF; DRAWTEXT(底背離1=1,DIF,'線背離',COLORFF00FF; DRAWTEXT(頂背離2=1,MACD,'柱背離',COLORGREEN; DRAWTEXT(頂背離1=1,DIF,'線背離',COLORGREEN;
DRAWICON(REF(DIF,1)>REF(DIF,2) AND DIF<REF(DIF,1) AND DIF>0 AND DIF>DEA,DIF*1.1,2),COLORGREEN; DRAWICON(REF(DIF,1)<REF(DIF,2) AND DIF>REF(DIF,1) AND DIF<0 AND DIF<DEA,DIF*1.1,1),COLORRED; XA_2:=BARSLAST(REF(MACD,1)<0 AND MACD>0); XA_3:=LLVBARS(MACD,XA_2+20); XA_4:=IF(XA_3>XA_2,REF(MACD,XA_3),0); XA_5:=MACD<0 AND MACD>XA_4 AND LOW=LLV(LOW,XA_2+20) AND XA_4<0; 柱背離1:=(REF(XA_5,1)=1 AND MACD>REF(MACD,1) AND REF(DIF,XA_3)<0 AND MACD<0),NODRAW; DRAWLINE(XA_4=XA_3,MACD,柱背離1,MACD,0),COLORRED,LINETHICK1; DRAWICON(柱背離1,0,26); 柱背離A:=BARSLAST(柱背離1>0)+1,COLORYELLOW,NODRAW; 柱背離:BARSLAST(底背離2>0)+1,COLORMAGENTA,NODRAW; 線背離:BARSLAST(底背離1>0)+1,COLORWHITE,NODRAW;