大智慧九全MACD指标公式程序源码编程思路破译

编程思路破译

输出INPUT:N(9,1,9)

TYP赋值: (最高价 + 最低价 + 收盘价)/3

CCI赋值:(TYP-TYP的14日简单移动平均)/(0.015*TYP的14日平均绝对偏差)

LC赋值: 1日前的收盘价

RSI赋值:收盘价-LC和0的较大值的12日[1日权重]移动平均/收盘价-LC的绝对值的12日[1日权重]移动平均*100

RSV赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100

BBI赋值:(收盘价的3日简单移动平均+收盘价的6日简单移动平均+收盘价的12日简单移动平均+收盘价的24日简单移动平均)/4

BIAS赋值:(收盘价-收盘价的12日简单移动平均)/收盘价的12日简单移动平均*100

OBV赋值:如果收盘价>1日前的收盘价,返回成交量(手),否则返回如果收盘价<1日前的收盘价,返回-成交量(手),否则返回0的历史累和

VARC赋值:如果N=1,返回CCI,否则返回如果N=2,返回RSI,否则返回如果N=3,返回RSV,否则返回如果N=4,返回BBI,否则返回如果N=5,返回BIAS,否则返回如果N=6,返回OBV,否则返回如果N=7,返回成交量(手),否则返回如果N=8,返回成交额(元),否则返回收盘价

输出DIFF:VARC的12日指数移动平均-VARC的26日指数移动平均

输出DEA: DIFF的9日指数移动平均

输出平滑异同平均线: 2*(DIFF-DEA),COLORSTICK

条件判断 N=1 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=2 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=3 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=4 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=5 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=6 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=7 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=8 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

条件判断 N=9 THEN BEGINDRAWTEXTRE最低价,COLOR00FF00

END

程序源码

INPUT:N(9,1,9);

{基本设定}

{CCI-14}

TYP:= (HIGH + LOW + CLOSE)/3;

CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));

{RSI-12}

LC:= REF(CLOSE,1);

RSI:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

{RSV-9}

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

{BBI}

BBI:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;

{BIAS-12}

BIAS:=(CLOSE-MA(CLOSE,12))/MA(CLOSE,12)*100;

{OBV}

OBV:=SUM(IF(CLOSE>REF(CLOSE,1),VOL,IF(CLOSE<REF(CLOSE,1),-VOL,0)),0);

{参数设定}

VARC:=IF(N=1,CCI,IF(N=2,RSI,IF(N=3,RSV,IF(N=4,BBI,IF(N=5,BIAS,IF(N=6,OBV,IF(N=7,VOL,IF(N=8,AMOUNT,C))))))));

{九全MACD}

DIFF:EMA(VARC,12)-EMA(VARC,26);

DEA: EMA(DIFF,9);

MACD: 2*(DIFF-DEA),COLORSTICK;

{提示}

IF N=1 THEN BEGIN

DRAWTEXTREL(15,40,'CCI-MACD'),COLOR00FF00;

END;

IF N=2 THEN BEGIN

DRAWTEXTREL(15,40,'RSI-MACD'),COLOR00FF00;

END;

IF N=3 THEN BEGIN

DRAWTEXTREL(15,40,'RSV-MACD'),COLOR00FF00;

END;

IF N=4 THEN BEGIN

DRAWTEXTREL(15,40,'BBI-MACD'),COLOR00FF00;

END;

IF N=5 THEN BEGIN

DRAWTEXTREL(15,40,'BIAS-MACD'),COLOR00FF00;

END;

IF N=6 THEN BEGIN

DRAWTEXTREL(15,40,'能量潮-MACD'),COLOR00FF00;

END;

IF N=7 THEN BEGIN

DRAWTEXTREL(15,40,'成交量-MACD'),COLOR00FF00;

END;

IF N=8 THEN BEGIN

DRAWTEXTREL(15,40,'成交额-MACD'),COLOR00FF00;

END;

IF N=9 THEN BEGIN

DRAWTEXTREL(15,40,'标准-MACD'),COLOR00FF00;

END;