环刀法压实度自动计算程序2(1)