缠中说禅板块强弱指标的实现（具体代码）

关于该指标的说明详见：《缠中说禅板块强弱指标的实现》

简述：

选用以斐波那契数列5，13，21，34，55，89，144，233为参数的均线构成均线系统，用该系统建立一个完全的分类去判断走势的强弱与先后。股价位于所有均线之上为第9类，为最强走势[注：最强走势不一定完全在均线之上，这里进行了简化处理]；股价在所有均线之下为最弱走势，为第1类；之间根据站上均线的数量，依次为2-8类。

/*缠板强弱*/
CNT:=1;

IF (CLOSE > MA(CLOSE,5))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,13))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,21))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,34))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,55))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,89))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,144))
    CNT := CNT +1;
IF (CLOSE > MA(CLOSE,233))
    CNT := CNT +1;

CBQR: CNT;

/*2014/7/17 via tangyikejun*/

大智慧公式：

{缠板强弱}
VARIABLE: CNT=1;
VARIABLE: MOVA[10]=1;

MOVA[1]:=MA(CLOSE,5); {5日收盘均线}
MOVA[2]:=MA(CLOSE,13);
MOVA[3]:=MA(CLOSE,21);
MOVA[4]:=MA(CLOSE,34);
MOVA[5]:=MA(CLOSE,55);
MOVA[6]:=MA(CLOSE,89);
MOVA[7]:=MA(CLOSE,144);
MOVA[8]:=MA(CLOSE,233); 

BEGIN

CNT:=1;
FOR I = 1 TO 8 DO
IF(CLOSE>MOVA[I])
THEN CNT:=CNT+1;

END

CBQR: CNT;

{2014/7/16 via tangyikejun};

欢迎大家踊跃留言，友情互动！

转载请注明出处：http://www.cnblogs.com/tangyikejun/p/3854607.html

缠中说禅板块强弱指标的实现（具体代码）