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

delta0:=vector(8):
delta0[1]:=x0[1]:
for i from 2 to 7 do delta0[i]:=x0[i]-x0[i-1]: od:
delta0[8]:=1-2*x0[7]:

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