TYP:=(HIGH+LOW+CLOSE)/3;
CCI:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));
KK:=MA(CCI,10);
KKK:=MA(CCI,20);
PP:=CCI-REF(CCI,1);
AAA:=PP-CCI,COLORBLUE;
A:=CCI<AAA AND PP;
AD1:=CROSS(CCI,AAA) AND C>MA(C,20) AND C<MA(C,60) AND MA(C,20)-0.01>REF(MA(C,20),1);
AAAA:AD1*50,COLORRED;