老師您好 編寫指標
作者：文華財經 來源：cxh99.com 發布時間：2025年05月12日
-
咨詢內容：
?老師您好！
? ? ? ?麻煩您幫忙編寫一個MACD和KDJ疊加的指標，然后只顯示MACD柱和J值，然后提示J值上穿下穿MACD零軸。謝謝老師！
?
?來源:程序化99
-
文華技術人員：
參考：?
DIFF := EMA(CLOSE,12) - EMA(CLOSE,26);
DEA? := EMA(DIFF,9);
2*(DIFF-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;
DRAWICON(CROSS(J,0),0,1);
DRAWICON(CROSSDOWN(J,0),0,2);
?
?來源: www.weiqiv.net.cn
-
文華客服：
? 謝謝
?
-
網友回復：
?老師 感覺有點不對啊
? ?
不能依照這個改寫一下。謝謝
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K0:=SMA(RSV,3,1);
D0:=SMA(K0,3,1);
J0:=3*K0-2*D0;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORGREEN,NODRAW;
DEA:EMA(DIFF,9),COLORLIRED,NODRAW;
MACD:2*(DIFF-DEA),COLORMAGENTA,NODRAW;
{RSV1:=(HHV(H,9.8)-C)/(HHV(H,9.8)-LLV(L,9.8))*101;?
KK:=SMA(RSV1,3,1);?
DD:=SMA(KK,3,1);?
JJ:=3*KK-2*DD; }
KX:=250;?
KH:=HHV(K0,KX);?
DH:=HHV(D0,KX);?
JH:=HHV(J0,KX);?
KL:=LLV(K0,KX);?
DL:=LLV(D0,KX);?
JL:=LLV(J0,KX);?
HKMAX:=MAX(KH,MAX(DH,JH));?
LKMIN:=MIN(KL,MIN(DL,JL));?
KHLB:=(HKMAX+LKMIN)/2;?
KHLC:=HKMAX-LKMIN;?
MHF:=HHV(DIFF,KX);?
MHD:=HHV(DEA,KX);?
MHM:=HHV(MACD,KX);?
MLF:=LLV(DIFF,KX);?
MLD:=LLV(DEA,KX);?
MLM:=LLV(MACD,KX);?
HMAX:=MAX(MHF,MAX(MHD,MHM));?
LMIN:=MIN(MLF,MIN(MLD,MLM));?
FHLB:=(HMAX-LMIN)/100;?
FHLC:=HMAX-LMIN;?
SH:(0-FHLB)*(KHLC/FHLC)+KHLB,COLOR00AAAA;?
{DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;?
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;
DRAWBAND(DIFFA,RGB(255,110,150),DEAA,RGB(100,255,150));}
DRAWTEXT(ISLASTBAR=1,SH,'nbsp; 0 軸',COLOR00AAAA;
K:K0,LINETHICK2,COLORFF6600;
D:D0,LINETHICK2,COLOR99FF00;
J:J0,LINETHICK2,COLORRED;
MACDA:=(MACD-FHLB)*(KHLC/FHLC)+KHLB;?
CDA:=MACD<REF(MACD,1) AND MACD>0;
CDB:=MACD>=REF(MACD,1) AND MACD>0;
CDC:=MACD>REF(MACD,1) AND MACD<0;
CDD:=MACD<=REF(MACD,1) AND MACD<0;
STICKLINE(CDA,SH,MACDA,1.8,0),COLOR0066FF;{黃色段}
STICKLINE(CDA,SH,MACDA,1.5,0),COLOR0077FF;
STICKLINE(CDA,SH,MACDA,1.2,0),COLOR0088FF;
STICKLINE(CDA,SH,MACDA,1.0,0),COLOR0099FF;
STICKLINE(CDA,SH,MACDA,0.8,0),COLOR00AAFF;
STICKLINE(CDA,SH,MACDA,0.5,0),COLOR00EEFF;
STICKLINE(CDB,SH,MACDA,1.8,0),COLOR0000AA; {紅色段}
STICKLINE(CDB,SH,MACDA,1.5,0),COLOR0011BB;?
STICKLINE(CDB,SH,MACDA,1.2,0),COLOR0022CC;
STICKLINE(CDB,SH,MACDA,1.0,0),COLOR0033DD;?
STICKLINE(CDB,SH,MACDA,0.8,0),COLOR0044EE;?
STICKLINE(CDB,SH,MACDA,0.5,0),COLOR0055FF;
STICKLINE(CDC,SH,MACDA,1.8,0),COLORAA00BB;{向上粉紅}
STICKLINE(CDC,SH,MACDA,1.5,0),COLORBB11BB;
STICKLINE(CDC,SH,MACDA,1.2,0),COLORCC22BB;
STICKLINE(CDC,SH,MACDA,1.0,0),COLORDD33BB;?
STICKLINE(CDC,SH,MACDA,0.8,0),COLOREE44BB;?
STICKLINE(CDC,SH,MACDA,0.5,0),COLORFF55BB;
STICKLINE(CDD,SH,MACDA,1.8,0),COLOR007700;{青色}
STICKLINE(CDD,SH,MACDA,1.5,0),COLOR008811;?
STICKLINE(CDD,SH,MACDA,1.2,0),COLOR00AA22;
STICKLINE(CDD,SH,MACDA,1.0,0),COLOR00BB33;?
STICKLINE(CDD,SH,MACDA,0.8,0),COLOR00DD44;?
STICKLINE(CDD,SH,MACDA,0.5,0),COLOR00DD55;
{頂底信號}
VAR51:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
VAR52:=SMA(VAR51,4,1);
VAR53:=SMA(VAR52,6,1);
VAR54:=VOL/CAPITAL*34;
VAR55:=REF(VAR54,1);
STICKLINE(VAR53<7 AND VAR52<11,-3,0,3,0),LINETHICK2,COLORYELLOW;
STICKLINE(VAR53>89.5 AND VAR52>91,100,97,3,0),LINETHICK1,COLORFF8888;
STICKLINE(VAR53>88.5 AND VAR52>94.6,100,95,5,0),COLORRED;
?
-
網友回復：
不同軟件間函數機制不同，效果會存在差異
參考：?
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K0:=SMA(RSV,3,1);
D0:=SMA(K0,3,1);
J0:=3*K0-2*D0;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORGREEN,NODRAW;
DEA:EMA(DIFF,9),COLORLIGHTRED,NODRAW;
MACD:2*(DIFF-DEA),COLORMAGENTA,NODRAW;
RSV1:=(HHV(H,9.8)-C)/(HHV(H,9.8)-LLV(L,9.8))*101;?
KK:=SMA(RSV1,3,1);?
DD:=SMA(KK,3,1);?
JJ:=3*KK-2*DD;?
KX:=250;?
KH:=HHV(K0,KX);?
DH:=HHV(D0,KX);?
JH:=HHV(J0,KX);?
KL:=LLV(K0,KX);?
DL:=LLV(D0,KX);?
JL:=LLV(J0,KX);?
HKMAX:=MAX(KH,MAX(DH,JH));?
LKMIN:=MIN(KL,MIN(DL,JL));?
KHLB:=(HKMAX+LKMIN)/2;?
KHLC:=HKMAX-LKMIN;?
MHF:=HHV(DIFF,KX);?
MHD:=HHV(DEA,KX);?
MHM:=HHV(MACD,KX);?
MLF:=LLV(DIFF,KX);?
MLD:=LLV(DEA,KX);?
MLM:=LLV(MACD,KX);?
HMAX:=MAX(MHF,MAX(MHD,MHM));?
LMIN:=MIN(MLF,MIN(MLD,MLM));?
FHLB:=(HMAX-LMIN)/100;?
FHLC:=HMAX-LMIN;?
SH:(0-FHLB)*(KHLC/FHLC)+KHLB,COLOR00AAAA;?
DIFFA:=(DIFF-FHLB)*(KHLC/FHLC)+KHLB;?
DEAA:=(DEA-FHLB)*(KHLC/FHLC)+KHLB;
DRAWTEXT(ISLASTBAR=1,SH,'? 0 軸'),COLOR00AAAA;
K:K0,LINETHICK2,COLORFF6600;
D:D0,LINETHICK2,COLOR99FF00;
J:J0,LINETHICK2,COLORRED;
MACDA:=(MACD-FHLB)*(KHLC/FHLC)+KHLB;?
CDA:=MACD<REF(MACD,1) AND MACD>0;
CDB:=MACD>=REF(MACD,1) AND MACD>0;
CDC:=MACD>REF(MACD,1) AND MACD<0;
CDD:=MACD<=REF(MACD,1) AND MACD<0;
STICKLINE1(CDA,SH,MACDA,1.8,0),COLOR0066FF;
STICKLINE1(CDA,SH,MACDA,1.5,0),COLOR0077FF;
STICKLINE1(CDA,SH,MACDA,1.2,0),COLOR0088FF;
STICKLINE1(CDA,SH,MACDA,1.0,0),COLOR0099FF;
STICKLINE1(CDA,SH,MACDA,0.8,0),COLOR00AAFF;
STICKLINE1(CDA,SH,MACDA,0.5,0),COLOR00EEFF;
STICKLINE1(CDB,SH,MACDA,1.8,0),COLOR0000AA;?
STICKLINE1(CDB,SH,MACDA,1.5,0),COLOR0011BB;?
STICKLINE1(CDB,SH,MACDA,1.2,0),COLOR0022CC;
STICKLINE1(CDB,SH,MACDA,1.0,0),COLOR0033DD;?
STICKLINE1(CDB,SH,MACDA,0.8,0),COLOR0044EE;?
STICKLINE1(CDB,SH,MACDA,0.5,0),COLOR0055FF;
STICKLINE1(CDC,SH,MACDA,1.8,0),COLORAA00BB;
STICKLINE1(CDC,SH,MACDA,1.5,0),COLORBB11BB;
STICKLINE1(CDC,SH,MACDA,1.2,0),COLORCC22BB;
STICKLINE1(CDC,SH,MACDA,1.0,0),COLORDD33BB;?
STICKLINE1(CDC,SH,MACDA,0.8,0),COLOREE44BB;?
STICKLINE1(CDC,SH,MACDA,0.5,0),COLORFF55BB;
STICKLINE1(CDD,SH,MACDA,1.8,0),COLOR007700;
STICKLINE1(CDD,SH,MACDA,1.5,0),COLOR008811;?
STICKLINE1(CDD,SH,MACDA,1.2,0),COLOR00AA22;
STICKLINE1(CDD,SH,MACDA,1.0,0),COLOR00BB33;?
STICKLINE1(CDD,SH,MACDA,0.8,0),COLOR00DD44;?
STICKLINE1(CDD,SH,MACDA,0.5,0),COLOR00DD55;
VAR51:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*100;
VAR52:=SMA(VAR51,4,1);
VAR53:=SMA(VAR52,6,1);
AMOUNT:= AVPRICE*V;
CAPITAL:=GETPRICE1('流通股本');
VAR54:=VOL/CAPITAL*34;
VAR55:=REF(VAR54,1);
STICKLINE1(VAR53<7 AND VAR52<11,-3,0,3,0),LINETHICK2,COLORYELLOW;
STICKLINE1(VAR53>89.5 AND VAR52>91,100,97,3,0),LINETHICK1,COLORFF8888;
STICKLINE1(VAR53>88.5 AND VAR52>94.6,100,95,5,0),COLORRED;
打印本文
關閉窗口