見凌見的微分MACD指標源碼

作者：飛狐來源：cxh99.com 發布時間：2012年12月10日

相關標簽: macd二次金叉指標源碼、 macd頂底背離指標源碼、變色macd源碼、通達信macd實戰源碼、 macd在0軸附近源碼、纏論macd指標源碼、量價macd源碼、 macd指標源碼、 macd底必買指標源碼、

見凌見的微分MACD指標源碼

DIF12:=(EMA(CLOSE,12)-EMA(CLOSE,26))/((EMA(CLOSE,12)+EMA(CLOSE,26))/2)*1000;
DEA12:=EMA(DIF12,9);
相對MACD:2*(DIF12-DEA12),COLORSTICK,COLORRED;
KDIF12:=3*(DIF12-DEA12);{KDIF12:=2*(DIF12-DEA12)};
KDEA12:=SMA(KDIF12,5,2);
買賣力道:=2*(KDIF12-KDEA12),COLORLIRED,LINETHICK1;
相對DIF:=DIF12,COLORMAGENTA,LINETHICK2;
相對DEA:=DEA12,COLORGREEN,LINETHICK2;
微分DIF:KDIF12,COLORYELLOW,LINETHICK1;
微分DEA:=KDEA12,COLORLIGRAY,LINETHICK1;
STICKLINE(相對MACD<ref(相對MACD,1)AND 相對MACD>0,0,相對MACD,0,0 ),COLOR00BBFF;
STICKLINE(相對MACD>=ref(相對MACD,1)AND 相對MACD>0,0,相對MACD,0,0 ),COLOR0011BB;
STICKLINE(相對MACD>ref(相對MACD,1)AND 相對MACD<0,0,相對MACD,0,0),COLORBB11BB;
STICKLINE(相對MACD<=ref(相對MACD,1)AND 相對MACD<0,0,相對MACD,0,0),COLORFFBB11;
WR反向:(0-微分DIF)-100,COLORRED;
極近:IF(微分DIF-WR反向<=10,-150,-200),COLOR00FF00;
VAR4:=MA(CLOSE,5);
VAR5:=MA(CLOSE,10);
VAR6:=MA(CLOSE,30);
VAR7:=MA(CLOSE,60);
VAR8:=EMA(COST(85),7);
VAR9:=EMA(COST(15),7);
VARA:=(SUM(((CLOSE * VOL) * 10),4) / SUM((VOL * 200),4));
VARB:=(INTPART((VARA * 10)) / 10);
VARC:=(SUM(((CLOSE * VOL) * 10),7) / SUM((VOL * 200),7));
VARD:=(INTPART((VARC * 10)) / 10);
VARE:=(SUM(((CLOSE * VOL) * 10),28) / SUM((VOL * 200),28));
VARF:=(INTPART((VARE * 10)) / 10);
短線趨勢:=(EMA(CLOSE,5) - EMA(CLOSE,10)),COLORMAGENTA,LINETHICK2;
,9),COLORMAGENTA,LINETHICK3;
VAR10:=((0 - ((10 * (HHV(CLOSE,5) - CLOSE)) / (HHV(CLOSE,5) - LLV(LOW,5)))) + 10);
VAR11:=((0 - ((10 * (HHV(CLOSE,10) - CLOSE)) / (HHV(CLOSE,10) - LLV(LOW,10)))) + 10);
VAR12:=((0 - ((10 * (HHV(CLOSE,20) - CLOSE)) / (HHV(CLOSE,20) - LLV(LOW,20)))) + 10);
VAR13:=((0 - ((10 * (HHV(CLOSE,30) - CLOSE)) / (HHV(CLOSE,30) - LLV(LOW,30)))) + 10);
VAR14:=ref(中線趨勢,1);
VAR15:=中線趨勢;
VAR16:=(VAR15 - VAR14);
VAR17:=ref(短線趨勢,1);
VAR18:=短線趨勢;
VAR19:=(VAR18 - VAR17);

VAR1A:=OPEN;
VAR1B:=CLOSE;
莊家吸籌:IF((((((((VAR1A <= VAR4) AND (VAR1A <= VAR5)) AND (VAR1A <= VAR6)) AND (VAR1B >= VAR4)) AND (VAR1B >= VARF)) AND (VAR16 > 0)) AND (VAR19 > 0)),-50,-100),LINETHICK2,COLOR66FF00;

===============================================================

源碼解析:

DIF12賦值:(收盤價的12日指數移動平均-收盤價的26日指數移動平均)/((收盤價的12日指數移動平均+收盤價的26日指數移動平均)/2)*1000

DEA12賦值:DIF12的9日指數移動平均

輸出相對MACD:2*(DIF12-DEA12),COLORSTICK,畫紅色

KDIF12賦值:3*(DIF12-DEA12)

KDEA12賦值:KDIF12的5日[2日權重]移動平均

買賣力道賦值:2*(KDIF12-KDEA12),畫淡紅色,線寬為1

相對DIF賦值:DIF12,畫洋紅色,線寬為2

相對DEA賦值:DEA12,畫綠色,線寬為2

輸出微分DIF:KDIF12,畫黃色,線寬為1

微分DEA賦值:KDEA12,畫淡灰色,線寬為1

當滿足條件相對MACD<昨日相對MACDAND相對MACD>0時,在0和相對MACD位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR00BBFF

當滿足條件相對MACD>=昨日相對MACDAND相對MACD>0時,在0和相對MACD位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLOR0011BB

當滿足條件相對MACD>昨日相對MACDAND相對MACD<0時,在0和相對MACD位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORBB11BB

當滿足條件相對MACD<=昨日相對MACDAND相對MACD<0時,在0和相對MACD位置之間畫柱狀線,寬度為0,0不為0則畫空心柱.,COLORFFBB11

輸出WR反向:(0-微分DIF)-100,畫紅色

輸出極近:如果微分DIF-WR反向<=10,返回-150,否則返回-200,COLOR00FF00

VAR4賦值:收盤價的5日簡單移動平均

VAR5賦值:收盤價的10日簡單移動平均

VAR6賦值:收盤價的30日簡單移動平均

VAR7賦值:收盤價的60日簡單移動平均

VAR8賦值:獲利盤為85%的成本分布的7日指數移動平均

VAR9賦值:獲利盤為15%的成本分布的7日指數移動平均

VARA賦值:(((收盤價*成交量(手))*10)的4日累和 / (成交量(手)*200)的4日累和)

VARB賦值:((VARA*10)的整數部分 / 10)

VARC賦值:(((收盤價*成交量(手))*10)的7日累和 / (成交量(手)*200)的7日累和)

VARD賦值:((VARC*10)的整數部分 / 10)

VARE賦值:(((收盤價*成交量(手))*10)的28日累和 / (成交量(手)*200)的28日累和)

VARF賦值:((VARE*10)的整數部分 / 10)

短線趨勢賦值:(收盤價的5日指數移動平均 - 收盤價的10日指數移動平均),畫洋紅色,線寬為2

,9),畫洋紅色,線寬為3

VAR10賦值:((0 - ((10 * (5日內收盤價的最高值 - 收盤價)) / (5日內收盤價的最高值 - 5日內最低價的最低值))) + 10)

VAR11賦值:((0 - ((10 * (10日內收盤價的最高值 - 收盤價)) / (10日內收盤價的最高值 - 10日內最低價的最低值))) + 10)

VAR12賦值:((0 - ((10 * (20日內收盤價的最高值 - 收盤價)) / (20日內收盤價的最高值 - 20日內最低價的最低值))) + 10)

VAR13賦值:((0 - ((10 * (30日內收盤價的最高值 - 收盤價)) / (30日內收盤價的最高值 - 30日內最低價的最低值))) + 10)

VAR14賦值:昨日中線趨勢

VAR15賦值:中線趨勢

VAR16賦值:(VAR15 - VAR14)

VAR17賦值:昨日短線趨勢

VAR18賦值:短線趨勢

VAR19賦值:(VAR18 - VAR17)

VAR1A賦值:開盤價

VAR1B賦值:收盤價

輸出莊家吸籌:如果(((((((VAR1A<=VAR4)AND(VAR1A<=VAR5))AND(VAR1A<=VAR6))AND(VAR1B>=VAR4))AND(VAR1B>=VARF))AND(VAR16>0))AND(VAR19>0)),返回-50,否則返回-100,線寬為2,COLOR66FF00