原码如下: CCI接力{CCI多周期} 0,pointdot,colorred; TYP := (HIGH + LOW + CLOSE)/3; 月:(TYP-MA(TYP,280))/(0.015*AVEDEV(TYP,280)),color000099; 周:(TYP-MA(TYP,70))/(0.015*AVEDEV(TYP,70)),color0066CC; 日:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),colormagenta; bb日:=日-ref(日,1); bb周:=周-ref(周,1); bb月:=月-ref(月,1); PARTLINE(bb月>0,月),color000099,LINETHICK2; PARTLINE(bb周>0,周),color0066CC,LINETHICK2; PARTLINE(bb日>0,日),colormagenta,LINETHICK2; [ 本帖最后由 yzstjb 于 2007-3-28 10:46 编辑 ] *********************************************************** CCI接力通达信 {CCI多周期} 0,POINTDOT,COLORRED; TYP := (HIGH + LOW + CLOSE)/3; 月:(TYP-MA(TYP,280))/(0.015*AVEDEV(TYP,280)),COLOR000099; 周:(TYP-MA(TYP,70))/(0.015*AVEDEV(TYP,70)),COLOR0066CC; 日:(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14)),COLORMAGENTA; BB日:=日-REF(日,1); BB周:=周-REF(周,1); BB月:=月-REF(月,1); IF(BB月>0,月,DRAWNULL),COLOR000099,LINETHICK2; IF(BB周>0,周,DRAWNULL),COLOR0066CC,LINETHICK2; IF(BB日>0,日,DRAWNULL),COLORMAGENTA,LINETHICK2; |
|