调通程序的新一版

虽然调通了， s(i,k)和p 的值测试调试成功，但结果仍然有问题，待下午继续修改