[转载]CCI日周月同图呈现的高级技巧

CCI指标不同周期的方法有三种：

第一种，通过切换K线周期的方法进行查阅，缺点，耗时长，无同图直观印象，切换时会忘记不同周期的线形状态。

第二种，采用小周期引用大周期的方法，缺点，同图观察时，图像存在大周期内的横线段，不利于敏锐获取大周期内每一个小周期的精确数值和线型图像。

第三种，采用编程计算法，利用该指标定义规则，直接获取小周期数据去计算大周期内的每一个数值，从而实现精确地图形呈现和数据显示。效果如下

源码如下：

{日级别}

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

日偏离:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)) LINETHICK2 COLORWHITE;

{周月转点定义}

年:=YEAR;月:=MONTH;日:=DAY;

同年同月:=年=REFX(年,1) AND 月=REFX(月,1);

同年增月:=年=REFX(年,1) AND 月;

跨年缩月:=年REFX(月,1);

星期变小:=WEEKDAY>=REFX(WEEKDAY,1);

停牌过七:=同年同月 AND REFX(日,1)>(日+7);

月转变大:=同年增月 AND (日-REFX(日,1))<=7;

跨年变小:=跨年缩月 AND (日-REFX(日,1))<=7;

周末:=星期变小 OR 停牌过七 OR 月转变大 OR 跨年变小;

月末:=同年增月 OR (年REFX(月,1));

 

{周级别}

S1:=SUMBARS(周末,1)-1;

S2:=SUMBARS(周末,2)-1;

S3:=SUMBARS(周末,3)-1;

S4:=SUMBARS(周末,4)-1;

S5:=SUMBARS(周末,5)-1;

S6:=SUMBARS(周末,6)-1;

S7:=SUMBARS(周末,7)-1;

S8:=SUMBARS(周末,8)-1;

S9:=SUMBARS(周末,9)-1;

S10:=SUMBARS(周末,10)-1;

S11:=SUMBARS(周末,11)-1;

S12:=SUMBARS(周末,12)-1;

S13:=SUMBARS(周末,13)-1;

S14:=SUMBARS(周末,14)-1;

MZTS:=REF(BARSLAST(周末),1)+1;

DQTYP:=(HHV(HIGH,MZTS)+CLOSE+LLV(LOW,MZTS))/3;

ZMTYP:=IF(周末,DQTYP,DRAWNULL) NODRAW;

周14均:=(DQTYP+REF(ZMTYP,S1)+REF(ZMTYP,S2)+REF(ZMTYP,S3)+REF(ZMTYP,S4)+REF(ZMTYP,S5)+REF(ZMTYP,S6)+REF(ZMTYP,S7)+REF(ZMTYP,S8)+REF(ZMTYP,S9)+REF(ZMTYP,S10)+REF(ZMTYP,S11)+REF(ZMTYP,S12)+REF(ZMTYP,S13))/14;

周14偏差:=(ABS(DQTYP-周14均)+ABS(REF(ZMTYP,S1)-周14均)+ABS(REF(ZMTYP,S2)-周14均)+ABS(REF(ZMTYP,S3)-周14均)+ABS(REF(ZMTYP,S4)-周14均)+ABS(REF(ZMTYP,S5)-周14均)+ABS(REF(ZMTYP,S6)-周14均)+ABS(REF(ZMTYP,S7)-周14均)+ABS(REF(ZMTYP,S8)-周14均)+ABS(REF(ZMTYP,S9)-周14均)+ABS(REF(ZMTYP,S10)-周14均)+ABS(REF(ZMTYP,S11)-周14均)+ABS(REF(ZMTYP,S12)-周14均)+ABS(REF(ZMTYP,S13)-周14均))/14;

周偏离:(DQTYP-周14均)/(0.015*周14偏差) LINETHICK2 COLORYELLOW;

{月级别}

YS1:=SUMBARS(月末,1)-1;

YS2:=SUMBARS(月末,2)-1;

YS3:=SUMBARS(月末,3)-1;

YS4:=SUMBARS(月末,4)-1;

YS5:=SUMBARS(月末,5)-1;

YS6:=SUMBARS(月末,6)-1;

YS7:=SUMBARS(月末,7)-1;

YS8:=SUMBARS(月末,8)-1;

YS9:=SUMBARS(月末,9)-1;

YS10:=SUMBARS(月末,10)-1;

YS11:=SUMBARS(月末,11)-1;

YS12:=SUMBARS(月末,12)-1;

YS13:=SUMBARS(月末,13)-1;

YMZTS:=REF(BARSLAST(月末),1)+1;

YDQTYP:=(HHV(HIGH,YMZTS)+CLOSE+LLV(LOW,YMZTS))/3;

YZMTYP:=IF(月末,YDQTYP,DRAWNULL);

Y周14均:=(YDQTYP+REF(YZMTYP,YS1)+REF(YZMTYP,YS2)+REF(YZMTYP,YS3)+REF(YZMTYP,YS4)+REF(YZMTYP,YS5)+REF(YZMTYP,YS6)+REF(YZMTYP,YS7)+REF(YZMTYP,YS8)+REF(YZMTYP,YS9)+REF(YZMTYP,YS10)+REF(YZMTYP,YS11)+REF(YZMTYP,YS12)+REF(YZMTYP,YS13))/14;

Y周14偏差:=(ABS(YDQTYP-Y周14均)+ABS(REF(YZMTYP,YS1)-Y周14均)+ABS(REF(YZMTYP,YS2)-Y周14均)+ABS(REF(YZMTYP,YS3)-Y周14均)+ABS(REF(YZMTYP,YS4)-Y周14均)+ABS(REF(YZMTYP,YS5)-Y周14均)+ABS(REF(YZMTYP,YS6)-Y周14均)+ABS(REF(YZMTYP,YS7)-Y周14均)+ABS(REF(YZMTYP,YS8)-Y周14均)+ABS(REF(YZMTYP,YS9)-Y周14均)+ABS(REF(YZMTYP,YS10)-Y周14均)+ABS(REF(YZMTYP,YS11)-Y周14均)+ABS(REF(YZMTYP,YS12)-Y周14均)+ABS(REF(YZMTYP,YS13)-Y周14均))/14;

月偏离:(YDQTYP-Y周14均)/(0.015*Y周14偏差) LINETHICK2 COLORRED;

100,POINTDOT,LINETHICK3;

-100,POINTDOT,LINETHICK3;

0,POINTDOT,LINETHICK3;