老師您好 編寫指標 [文華財經(jīng)]
-
咨詢內(nèi)容:
?老師您好!
? ? ? ?麻煩您幫忙編寫一個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.tumamayizhan.com
-
文華客服:
? 謝謝
?
-
網(wǎng)友回復:
?老師 感覺有點不對啊
? ?
不能依照這個改寫一下。謝謝
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; {頂?shù)仔盘杴 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;?
-
網(wǎng)友回復:
不同軟件間函數(shù)機制不同,效果會存在差異
參考:?
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;
有思路,想編寫各種指標公式,交易模型,選股公式,還原公式的朋友
可聯(lián)系技術人員 QQ: 262069696 或微信號:cxh99cxh99 進行 有償收費 編寫!
(注:由于人數(shù)限制,QQ或微信請選擇方便的一個聯(lián)系我們就行,加好友時請簡單備注下您的需求,否則無法通過。謝謝您!)
相關文章
-
沒有相關內(nèi)容