编一个CCI的选股公式

编一个CCI的选股公式，祝新年快乐，财运滚滚来！
 条件1：股价连续下跌N日，CCI跌落到100以下拐头当日收红。
 条件2：股价在N日内下跌了N%，CCI跌落到100以下拐头当日收红。
 条件3：CCI背离，CCI跌落到100以下拐头当日收红。

M:=14;{CCI默认为14}
 N:=8;{可将N设为参数}
TYP:=(HIGH+LOW+CLOSE)/3;
 CCI:(TYP-MA(TYP,N))/(0.015*AVEDEV(TYP,M));

 {股价连续下跌N日，CCI跌落到100以下拐头当日收红。}

VAR1:=COUNT(C<REF(C,1),N)>=(N-2);{N-2或者用N。设为N表示连续阴线下跌，设为小于N是考虑了下跌中继因素}
VAR2:=CCI<100 AND CCI>=REF(CCI,1);
 VAR3:=C>REF(C,1);{或者VAR3:=C>O;}
 TJ1:VAR1 AND VAR2 AND VAR3;

 {条件2：股价在N日内下跌了N%，CCI跌落到100以下拐头当日收红。}

VAR4:=(C-REF(C,N))/REF(C,N)*-1*100>=20;{表示股价在N日内下跌了20%，可根据自己需要调整，或设为参数}
TJ2:VAR2 AND VAR3 AND VAR4;

 {条件3：CCI背离，CCI跌落到100以下拐头当日收红}

AA2:=REF(CCI,M)=LLV(CCI,2*M+1);
 BB2:=BACKSET(AA2,M+1);
 CC2:=FILTER(BB2,M) AND CCI=LLV(CCI,M+1);
 A2:=BARSLAST(REF(CC2,1));
 VAR5:=REF(C,A2+1)>C AND REF(CCI,A2+1)<CCI AND CC2;{底背离}
TJ3:VAR2 AND VAR3 AND VAR5;