麻煩老師幫忙改下,非常感謝! [博易POBO]
咨詢內(nèi)容:
DEAA:=EMA(DIFF,8);
MACDD:=8*(DIFF-DEAA);
MARDD:=SMA(MACDD,2,1);
STICKLINE(MACDD>MARDD,MACDD,MARDD,1.8,0),COLOR0000FF;
STICKLINE(MACDD<MARDD,MACDD,MARDD,1.8,0),COLOR008000;
MACD2:=2*("MACD.DIF"-"MACD.DEA");
STICKLINE(MACD2>=0,0,MACD2,0.5,0),COLORYELLOW;
STICKLINE(MACD2>=0 AND MACD2<REF(MACD2,1),0,MACD2,0.5,0),COLORLIBLUE;
STICKLINE(MACD2<0,0,MACD2,0.5,0),COLORLIBLUE;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,0.5,0),COLORYELLOW;
DIF:DEA(CLOSE,12)-EMA(CLOSE,26),COLORRED,LINETHICK2;
DEA:EMA(DIF,9),COLORBLUE,LINETHICK2;
DRAWTEXT(ISLASTBAR,DIF,'←DIF'),COLORRED;
DRAWTEXT(ISLASTBAR,DEA,'←DEA'),COLORBLUE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA*0.5,41);
DRAWTEXT(二次金叉,DEA*0.5,'二次金叉'),COLORWHITE;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
DRAWTEXT(底背離,DIF*1,'底背離'),COLORRED;
DRAWICON(底背離,DIF*1,38);
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWTEXT(頂背離,DIF*1,'頂背離'),COLORLIBLUE;
DRAWICON(頂背離,DIF*1,39);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:SMA(RSV,9,3),NODRAW;
D:=SMA(K,9,3)NODRAW;
J:3*K-2*D,NODRAW;
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
DRAWICON(A,DEA*1.2,25);
DRAWTEXT(A,DEA*1.2,'MACD&KDJ 共振'),COLORWHITE;
DEAA:=EMA(DIFF,8);
MACDD:=8*(DIFF-DEAA);
MARDD:=SMA(MACDD,2,1);
STICKLINE(MACDD>MARDD,MACDD,MARDD,1.8,0),COLOR0000FF;
STICKLINE(MACDD<MARDD,MACDD,MARDD,1.8,0),COLOR008000;
MACD2:=2*(DIFF-MACDD);
STICKLINE(MACD2>=0,0,MACD2,0.5,0),COLORYELLOW;
STICKLINE(MACD2>=0 AND MACD2<REF(MACD2,1),0,MACD2,0.5,0),COLORBLUE;
STICKLINE(MACD2<0,0,MACD2,0.5,0),COLORBLUE;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,0.5,0),COLORYELLOW;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORRED,LINETHICK2;
DEA:EMA(DIF,9),COLORBLUE,LINETHICK2;
DRAWTEXT(ISLASTBAR,DIF,'←DIF'),COLORRED;
DRAWTEXT(ISLASTBAR,DEA,'←DEA'),COLORBLUE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA*0.5,41);
DRAWTEXT(二次金叉,DEA*0.5,'二次金叉'),COLORWHITE;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
DRAWTEXT(底背離,DIF*1,'底背離'),COLORRED;
DRAWICON(底背離,DIF*1,38);
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWTEXT(頂背離,DIF*1,'頂背離'),COLORBLUE;
DRAWICON(頂背離,DIF*1,39);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:SMA(RSV,9,3),NODRAW;
D:=SMA(K,9,3),NODRAW;
J:3*K-2*D,NODRAW;
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
DRAWICON(A,DEA*1.2,25);
DRAWTEXT(A,DEA*1.2,'MACD&KDJ 共振'),COLORWHITE; 來源 程序化久久網(wǎng)
麻煩老師幫忙改下,非常感謝!
DIFF:=EMA(CLOSE,21)-EMA(CLOSE,34);DEAA:=EMA(DIFF,8);
MACDD:=8*(DIFF-DEAA);
MARDD:=SMA(MACDD,2,1);
STICKLINE(MACDD>MARDD,MACDD,MARDD,1.8,0),COLOR0000FF;
STICKLINE(MACDD<MARDD,MACDD,MARDD,1.8,0),COLOR008000;
MACD2:=2*("MACD.DIF"-"MACD.DEA");
STICKLINE(MACD2>=0,0,MACD2,0.5,0),COLORYELLOW;
STICKLINE(MACD2>=0 AND MACD2<REF(MACD2,1),0,MACD2,0.5,0),COLORLIBLUE;
STICKLINE(MACD2<0,0,MACD2,0.5,0),COLORLIBLUE;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,0.5,0),COLORYELLOW;
DIF:DEA(CLOSE,12)-EMA(CLOSE,26),COLORRED,LINETHICK2;
DEA:EMA(DIF,9),COLORBLUE,LINETHICK2;
DRAWTEXT(ISLASTBAR,DIF,'←DIF'),COLORRED;
DRAWTEXT(ISLASTBAR,DEA,'←DEA'),COLORBLUE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA*0.5,41);
DRAWTEXT(二次金叉,DEA*0.5,'二次金叉'),COLORWHITE;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
DRAWTEXT(底背離,DIF*1,'底背離'),COLORRED;
DRAWICON(底背離,DIF*1,38);
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWTEXT(頂背離,DIF*1,'頂背離'),COLORLIBLUE;
DRAWICON(頂背離,DIF*1,39);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:SMA(RSV,9,3),NODRAW;
D:=SMA(K,9,3)NODRAW;
J:3*K-2*D,NODRAW;
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
DRAWICON(A,DEA*1.2,25);
DRAWTEXT(A,DEA*1.2,'MACD&KDJ 共振'),COLORWHITE;
?
?來源:程序化99網(wǎng)( www.tumamayizhan.com )
博易技術(shù)人員: DIFF:=EMA(CLOSE,21)-EMA(CLOSE,34);DEAA:=EMA(DIFF,8);
MACDD:=8*(DIFF-DEAA);
MARDD:=SMA(MACDD,2,1);
STICKLINE(MACDD>MARDD,MACDD,MARDD,1.8,0),COLOR0000FF;
STICKLINE(MACDD<MARDD,MACDD,MARDD,1.8,0),COLOR008000;
MACD2:=2*(DIFF-MACDD);
STICKLINE(MACD2>=0,0,MACD2,0.5,0),COLORYELLOW;
STICKLINE(MACD2>=0 AND MACD2<REF(MACD2,1),0,MACD2,0.5,0),COLORBLUE;
STICKLINE(MACD2<0,0,MACD2,0.5,0),COLORBLUE;
STICKLINE(MACD2<0 AND MACD2>REF(MACD2,1),0,MACD2,0.5,0),COLORYELLOW;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORRED,LINETHICK2;
DEA:EMA(DIF,9),COLORBLUE,LINETHICK2;
DRAWTEXT(ISLASTBAR,DIF,'←DIF'),COLORRED;
DRAWTEXT(ISLASTBAR,DEA,'←DEA'),COLORBLUE;
JCCOUNT:=COUNT(CROSS(DIF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1;
DRAWICON(二次金叉,DEA*0.5,41);
DRAWTEXT(二次金叉,DEA*0.5,'二次金叉'),COLORWHITE;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背離:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
DRAWTEXT(底背離,DIF*1,'底背離'),COLORRED;
DRAWICON(底背離,DIF*1,38);
A2:=BARSLAST(REF(CROSS(DEA,DIF),1));
頂背離:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF,A2+1)>DIF AND CROSS(DEA,DIF);
DRAWTEXT(頂背離,DIF*1,'頂背離'),COLORBLUE;
DRAWICON(頂背離,DIF*1,39);
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9));
K:SMA(RSV,9,3),NODRAW;
D:=SMA(K,9,3),NODRAW;
J:3*K-2*D,NODRAW;
A:=CROSS(DIF,DEA) AND CROSS(K,D) AND CROSS(J,D);
DRAWICON(A,DEA*1.2,25);
DRAWTEXT(A,DEA*1.2,'MACD&KDJ 共振'),COLORWHITE; 來源 程序化久久網(wǎng)
有思路,想編寫各種指標(biāo)公式,交易模型,選股公式,還原公式的朋友
可聯(lián)系技術(shù)人員 QQ: 262069696 或微信號(hào):cxh99cxh99 進(jìn)行 有償收費(fèi) 編寫!
(怎么收費(fèi),代編流程等詳情請(qǐng)點(diǎn)擊閱讀!)
(注:由于人數(shù)限制,QQ或微信請(qǐng)選擇方便的一個(gè)聯(lián)系我們就行,加好友時(shí)請(qǐng)簡單備注下您的需求,否則無法通過。謝謝您!)
相關(guān)文章
-
沒有相關(guān)內(nèi)容