Brooke,
Was, as Sean said, just a couple of bad line wraps (at //s).
I have pasted the exported below--just make sure you fix any re-introduced wraps
Bob
PS BROTNOV took 8.25 min.
----------------------------------------
<SCAN EXPORTDATE=November 29, 1997 10:08:24 pm>
<TITLE>CCI13BBB</TITLE>
<DESCRIPTION>Bill R. via Brooke</DESCRIPTION>
<CODE>output = "ccibill.lst";
exchange nasdaq, nyse, amex;
integer i,N;
float CCIT, CCIY, DAT, DAY, AT, AY;
N:=13;
//Number of periods in CCI calculation
//Calculate simple MA of typical price for N periods
//for Today and Yesterday. AT/AY are running averages.
AT:= 0;
for i=1 to N-1 step 1 do AT := AT+close(-i)+high(-i)+low(-i);
next i;
AY:=(close(-N)+high(-N)+low(-N)+AT)/(3*N); //Make sure to calc AY first
AT:=(close(0)+high(0)+low(0)+AT)/(3*N);
//println "AT":4,AT:8:2,"AY":4, AY:8:2
//Calculate simple MA of absolute value of difference between
//current typical price and above AT/AY over N periods
DAT:=0;
DAY:=0;
//Must use dual calc below since subtracted value is different (AT vs AY)
for i=0 to N-1 step 1
do
DAT:=DAT+abs((close(-i)+high(-i)+low(-i))/3-AT);
DAY:= DAY+abs((close(-i-1)+high(-i-1)+low(-i-1))/3-AY);
next i;
if DAT=0 then
DAT:=0.0001;
else
DAT:=DAT/N;
endif;
if DAY=0 then
DAY:=0.0001;
else
DAY:=DAY/N;
endif;</CODE>
</SCAN> |
