#                                        Ren-Cang Li, June 1, 1996
#                                        na.rcli@na-net.ornl.gov

delta0:=vector(17):
delta0[1]:=c0[1]:
for i from 2 to 16 do delta0[i]:=c0[i]-c0[i-1]: od:
delta0[17]:=1-2*c0[16]:

writeln():
write(`Delta's:`): writeln():
write(`=======`): writeln():
for i from 1 to 17 do
    write(evalf(delta0[i],DumpDigits)); writeln();
od:
writeln():
write(`C's:`): writeln():
write(`===`): writeln():
for i from 1 to 16 do
    write(evalf(c0[i],DumpDigits)); writeln();
od:
