// 希尔排序之直接插入法:被希尔排序调用 ,该算法由直接插入排序改进而来。

///***********
// 希尔排序之直接插入法:被希尔排序调用 ,该算法由直接插入排序改进而来。
// 数据数组A[n], 增量数组dks[t];
Status ShellSort(ElemType A[],NumType n, NumType dks[],NumType t)
{
int i,j;
Status ShellInsert(ElemType A[], NumType n,NumType dk);
ElemType A0_REG=A[0];//A[0] 只是暂存单元，不是哨兵。 A[0],要做最后一次
for(i=0;i<t;++i)
{
ShellInsert(A,n,dks[i]);// 增量为dks[k]时的一趟增量排序
}

 // 收尾: 原A[0]参与排序
 // 找到 A[0] 要插入的位置
 
j=n-1;
A[0]=A0_REG;
while(A[0]<A[j])
{
j--; // 找到插入位置
} 

 if(j!=0)         // A[j]之前的数据全部前移动
 {
 for(i=0;i<j;i++)
 {
 A[i]=A[i+1]; // A[j]之前的数据全部前移动
 }
 }
 
A[j]=A0_REG;//插入数据A[0]

 return OK;
 }
 
Status ShellInsert(ElemType A[], NumType n,NumType dk)
{
// 对顺序表L做一次希尔插入排序（子排序）。算法由直接插入排序改进：
//(1) 前后记录位置的增量是dk,不再是1
//(2) A[0] 只是暂存单元，不是哨兵。没有哨兵之后，就不能再使用while()来判定了。当j<=0时，插入位置已经找到。算法10.4
int i,j;
for( i=dk+1;i<n;i++) // i=5+1=6   说明一下，这里(i<n)其实在i在后期已经没有什么用了。
{
A[0]=A[i]; // 暂存要插入数据A[6]

 // 组内排序
 for(j=i-dk;j>0 && A[0]<A[j];j-=dk) // A[6]<A[1]   // j>0 用于防止下标越界，说明了A[0]不再是哨兵了。
 {
 A[j+dk]=A[j];// 数据后移 A[6]=A[1];数据后移，A[6]已经被保护。
 }
 A[j+dk]=A[0]; // 找到插入位置。
 
}/// for

 return OK;
 
}///end Status InsertSort(ElemType A[], NumType n)

*/