[EquisMetaStock Group] CCI Standard Color Coded

[formulapri...@yahoo.com [equismetastock]]

{CCI Standard Color Coded}

 {For personal use only by FP}
 prd:=Input("MA Periods",1,1000,21);

 base:= CCI(prd) ;
 Value:=base;
 Strength:= If(Value>0 AND Value > Ref(Value,-1),1,If(Value<0 AND Value < 
Ref(Value,-1),-1,0));
 GrnLine:=If(Strength=1,Value,0);
 RedLine:=If(Strength=-1,Value,0);
 YlwLine:=If(Strength=0,Value,0);
 GrnLine;
 RedLine;
 YlwLine;
 {plot as histogram}