[求助]幫忙轉換指標，感謝！

作者：文華財經來源：cxh99.com 發布時間：2021年10月07日

咨詢內容： 筆參數:=3;段參數:=3;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;筆低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;
?
?來源:程序化99
文華技術人員： ?不同軟件函數機制不同，加載起來有差異是正常的，
參考：
筆參數:=5;段參數:=1;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;筆低A:=LOW<=LLV(LOW,筆參數),NODRAW;筆高A:=HIGH>=HHV(HIGH,筆參數),NODRAW;筆低:=筆低A AND 筆高A=0,NODRAW;筆高:=筆高A AND 筆低A=0,NODRAW;上筆:=TRENDLINES(筆低,LOW,筆高,HIGH),COLOR0000FF;下筆:=TRENDLINES(筆高,HIGH,筆低,LOW),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 特殊底;DRAWLINE1(底背左點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 特殊底;DRAWLINE1(底背左點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 特殊頂;DRAWLINE1(頂背左點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 特殊頂;DRAWLINE1(頂背左點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;DRAWLINE1(XA_4=XA_3,MACD,柱背離1,MACD,0),COLORRED,LINETHICK1;DRAWICON(柱背離1,0,26);柱背離A:BARSLAST(柱背離1>0)+1,NODRAW;柱背離:BARSLAST(底背離2>0)+1,NODRAW;線背離:BARSLAST(底背離1>0)+1,NODRAW;