湿密度\干密度\含水率\相对密度实验计算
function myyashidu ()
variable Wq,Wh,V,S,Px,mh1,mh2,stm1,stm2,st1,st2,gtm1,gtm2,gt1,gt2,w1,w2,Ws1,Ws2,W,Pg,Pmax,Pmin,Dr
while true
variable a=input("\n\n输入\"2\"进行湿密度计算\n输入\"3\"进行干密度计算\n输入\"4\"进行相对密度计算\n\n")
if a==2
print("湿密度计算\n")
Wq=input("灌水前水质量/g：")
Wh=input("灌水后水质量/g：")
V=Wq-Wh
print("坑体积="+V+" cm3\n")
S=input("取土质量/g：")
Px = round(S/V,2)
print("湿密度="+Px +" g/cm3")
elseif a ==3
print("干密度计算\n")
mh1=input("1# 皿盒重/g：")
mh2=input("2# 皿盒重/g：")
stm1=input("1# 皿盒+湿土重/g：")
stm2=input("2# 皿盒+湿土重/g：")
gtm1=input("1# 皿盒+干土重/g：")
gtm2=input("2# 皿盒+干土重/g：")
w1=stm1-gtm1
w2=stm2-gtm2
gt1=gtm1-mh1
gt2=gtm2-mh2
Ws1=round(w1/gt1,4)
Ws2=round(w2/gt2,4)
W=round(avg(Ws1,Ws2),4)
if Px==null
Px=input("湿密度 g/cm3：")
endif
Pg=round(PX/(1+W),2)
print("\n1
#盒 水重="+w1+" g\n2#
盒 水重="+w2+" g\n1
#盒 干土重="+gt1+" g\n2#
盒 干土重="+gt2+" g\n1
#盒 含水率="+ (Ws1*100)+"％\n2#
盒 含水率="+ (Ws2*100)+"%\n平均含水率="+(W*100)+"%\n干密度="+Pg+" g/cm3")
elseif a==4
print("相对密度计算\n")
if Pg==null
Pg=input("干密度 g/cm3：")
endif
Pmax=input("最大干密度 g/cm3：")
Pmin=input("最小干密度 g/cm3：")
Dr=round((Pmax*(Pg-Pmin))/(Pg*(Pmax-Pmin)),3)
print("相对密度"+Dr)
endif
loop
endf