咨詢內容:
kd、布林、macd指標改寫
您好:我有幾個指標是在文華財經上使用的?,現在想改寫在博易大師上使用,請幫助改寫,非常感謝!
贏順云kd
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1),COLORRED;
D:SMA(K,M2,1),COLORBLUE;
J:3*K-2*D,COLORMAGENTA;
FILLRGN(K>D,K,D,RGB(255,0,0));
FILLRGN(K<D,D,K,RGB(0,255,0));
DRAWICON(CROSS(K,D),K,'ICO8');
DRAWICON(CROSS(D,K),D,'ICO9');
判:REF((D*3-K*2)*(HHV(H,(N-1))-LLV(L,(N-1)))/100+LLV(L,(N-1)),1),NODRAW,COLORRED;
預20:REF(LLV(L,(N-1))+(HHV(H,(N-1))-LLV(L,(N-1)))*(M1*20-(M1-1)*K)/100,1),NODRAW,COLORRED;
預50:REF(LLV(L,(N-1))+(HHV(H,(N-1))-LLV(L,(N-1)))*(M1*50-(M1-1)*K)/100,1),NODRAW,COLORBLUE;
預80:REF(LLV(L,(N-1))+(HHV(H,(N-1))-LLV(L,(N-1)))*(M1*80-(M1-1)*K)/100,1),NODRAW,COLORMAGENTA;
JC:=D>K;
SC:=K>D;
金叉天數:BARSLAST(JC),NODRAW,COLORBLUE;
死叉天數:BARSLAST(SC),NODRAW,COLORRED;
IF(COUNT(K>80,1)=1,90,NULL),CROSSDOT,COLORLIGHTRED;
IF(COUNT(K<20,1)=1,10,NULL),CROSSDOT,RGB(0,120,0);
IF(COUNT(K>80,3)=3,90,NULL),CIRCLEDOT,COLORLIGHTRED;
IF(COUNT(K<20,3)=3,10,NULL),CIRCLEDOT,RGB(0,120,0);
?
贏順云macd
DIFF:EMA(CLOSE,12) - EMA(CLOSE,26),COLORRED,LINETHICK1;
DEA:EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
STICKLINE(MACD>0&&MACD>REF(MACD,1),0,MACD,COLORRED,0);
STICKLINE(MACD>0&&MACD<=REF(MACD,1),0,MACD,COLORGREEN,0);
STICKLINE(MACD<0&&MACD>REF(MACD,1),0,MACD,COLORMAGENTA,0);
STICKLINE(MACD<0&&MACD<=REF(MACD,1),0,MACD,COLORBLUE,0);
?
贏順云布林軌道
MID:MA(CLOSE,N),LINETHICK2;
TMP2:-STD(CLOSE,N);
TOP:MID+(P/10)*TMP2,LINETHICK2,COLORBLACK;
BOTTOM:MID-(P/10)*TMP2,LINETHICK2,COLORBLUE;
MA5:MA(CLOSE,5),COLORMAGENTA;
MA13:MA(CLOSE,0),LINETHICK2,COLORBLUE;
MA60:MA(CLOSE,60),COLORLIGHTRED,LINETHICK1;
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
DRAWICON(CURRBARSCOUNT=5,H*1.001,1);
DRAWICON(CURRBARSCOUNT=20,H*1.001,1);
DRAWICON(CURRBARSCOUNT=60,H*1.001,'ICO1');
DRAWCOLORLINE(MID>REF(MID,1),MID,COLORRED,COLORGREEN),LINETHICK2;
下面我再上傳效果圖給您看看做參考。謝謝!
?
?來源:程序化99網( m.kzuj.com.cn )
博易技術人員:
沒人回復我的問題,真是可憐!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
N:=9;
M1:=3;
M2:=3;
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1),COLORRED;
D:SMA(K,M2,1),COLORBLUE;
J:3*K-2*D,COLORMAGENTA;
FILLRGN(K>D,K,D),COLOR0000FF;
FILLRGN(K<D,D,K),COLOR00FF00;
DRAWICON(CROSS(K,D),K,4);
DRAWICON(CROSS(D,K),D,5);
判:REF((D*3-K*2)*(HHV(H,(N-1))-LLV(L,(N-1)))/100+LLV(L,(N-1)),1),NODRAW,COLORRED;
預20:REF(LLV(L,(N-1))+(HHV(H,(N-1))-LLV(L,(N-1)))*(M1*20-(M1-1)*K)/100,1),NODRAW,COLORRED;
預50:REF(LLV(L,(N-1))+(HHV(H,(N-1))-LLV(L,(N-1)))*(M1*50-(M1-1)*K)/100,1),NODRAW,COLORBLUE;
預80:REF(LLV(L,(N-1))+(HHV(H,(N-1))-LLV(L,(N-1)))*(M1*80-(M1-1)*K)/100,1),NODRAW,COLORMAGENTA;
JC:=D>K;
SC:=K>D;
金叉天數:BARSLAST(JC),NODRAW,COLORBLUE;
死叉天數:BARSLAST(SC),NODRAW,COLORRED;
IF(COUNT(K>80,1)=1,90,DRAWNULL),CROSSDOT,COLORRED;
IF(COUNT(K<20,1)=1,10,DRAWNULL),CROSSDOT,COLOR007800;
IF(COUNT(K>80,3)=3,90,DRAWNULL),CIRCLEDOT,COLORRED;
IF(COUNT(K<20,3)=3,10,DRAWNULL),CIRCLEDOT,COLOR007800;
來源 程序化久久網