【原】大智慧核心拉力指標(biāo)公式源碼編程思路破譯

編程思路破譯

V1賦值:上次1日前的"平滑異同平均線的DIFF"上穿"平滑異同平均線的DEA"距今天數(shù)

輸出MACD底背離:V1+1日前的收盤價(jià)>收盤價(jià) AND V1+1日前的"平滑異同平均線的DIFF"<"平滑異同平均線的DIFF" AND "平滑異同平均線的DIFF"上穿"平滑異同平均線的DEA"

V2賦值:上次1日前的"平滑異同平均線的DEA"上穿"平滑異同平均線的DIFF"距今天數(shù)

輸出MACD頂背離:V2+1日前的收盤價(jià)>收盤價(jià) AND V2+1日前的"平滑異同平均線的DIFF"<"平滑異同平均線的DIFF" AND "平滑異同平均線的DEA"上穿"平滑異同平均線的DIFF"

DP賦值:(大盤的收盤價(jià)-1日前的大盤的收盤價(jià))/1日前的大盤的收盤價(jià)

GG賦值:(收盤價(jià)-1日前的收盤價(jià))/1日前的收盤價(jià)

VAR1賦值:如果DP>0.01,返回0.9,否則返回如果DP<-0.05,返回1,否則返回1.2

VAR2賦值:VAR1*(GG-DP)*100

輸出核心拉力:VAR2的5日累和,COLORFF6666,線寬為2

-5,COLORFF33FF,POINTDOT

0,POINTDOT

6,POINTDOT

輸出R5:如果核心拉力>1日前的核心拉力ANDREF(核心拉力,1)<2日前的核心拉力ANDREF(核心拉力,1)<-6,返回5,否則返回0,畫紅色

程序源碼

V1:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1));

MACD底背離:REF(C,V1+1)>C AND REF("MACD.DIFF",V1+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA");

V2:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFF"),1));

MACD頂背離:REF(C,V2+1)>C AND REF("MACD.DIFF",V2+1)<"MACD.DIFF" AND CROSS("MACD.DEA","MACD.DIFF");DP:=(INDEXC-REF(INDEXC,1))/REF(INDEXC,1);

GG:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1);

VAR1:=IF(DP>0.01,0.9,IF(DP<-0.05,1,1.2));

VAR2:=VAR1*(GG-DP)*100;

核心拉力:SUM(VAR2,5),COLORFF6666,LINETHICK2;

-5,COLORFF33FF,POINTDOT;0,POINTDOT;6,POINTDOT;

R5:IF(核心拉力>REF(核心拉力,1) AND REF(核心拉力,1)<REF(核心拉力,2) AND REF(核心拉力,1)<-6,5,0),COLORRED;