;修正剑桥模型
;cam-clay模型则不需定义弹性模量(E、G、K)等参数，自动计算
;cam-clay模型中需确定8个模型参数(①-⑧)和一个分组名称，手册property中的初始比体积cv(v0)和shear无须给定
def cam_prop
pnt=zone_head
loop while pnt # null
if z_group(pnt)=string(grpnam) then
abs_sxx=abs(z_sxx(pnt)) ;|sxx|
abs_syy=abs(z_syy(pnt)) ;|syy|
abs_szz=abs(z_szz(pnt)) ;|szz|
p0=(abs_sxx+abs_syy+abs_szz)/3.0