a[1]=0;d[1]=3;k=1;z=10000;zz=120;
A[k_]:=表[A[i],{i,1,k}];diff[k_]:=表[d[i],{i,1,k}];
c[k_]:=补码[Range[-z,z],diff[k]];
T[k_]:=-a[k]+补码[Range[z],a[k]];
s[k_]:=交点[范围[-a[k],-1],c[k]、T[k]];
表[If[Length[s[k]]==0,{h=Min[Intersection[c[k],T[k]],a[k+1]=a[k]+h,d[k+1]=h,k=k+1},{h=Max[s[k]],a[k+1]=a[k]+h,d[k+1]=h,k=k+1}],{i,1,zz}];
|