1、某建筑地基的地層為淤泥質粘土,固結系數為Ch=Cv=1.810-3cm2/s,粘聚力c=18kPa,內摩擦角f=5,受壓土層厚20m,袋裝砂井直徑dw=700mm,袋裝砂井按等邊三角形布置,間距l1.4m,深度H=20m,砂井底部為不透水層,砂井打穿受壓土層。預壓荷載總壓力P=100kPa,分兩級等速加載,如圖所示,計算地基堆載120天后,地層的平均固結度(不考慮豎井井阻和涂抹的影響),并判斷在建筑荷載(假設為條形基礎,基礎埋深為0m)為150kPa時,地基中各點是否破壞?C程序如下:#include #includevoid main()double a,b,c,f,d,g,Fn,D,l,C
2、1,C2,B,m,n,w,x,temp1,temp2;int t,H;double T20,r10,Q10,p10,U10,o10;double sum=0;int q10;int i,j;printf(請輸入砂井直徑、間距、固結系數、深度n);scanf(%lf,%lf,%lf,%lf,%d,&w,&l,&C1,&C2,&H);D=1.05*l; x=D/w;a=x*x;b=x*x-1;c=a/b;f=log(x);d=c*f;g=(3*a-1)/(4*a);Fn=d-g;temp1=(3.14*3.14*C1)/(4*H*H);temp2=(8*C2)/(Fn*D*D);B=(temp1+
3、temp2)*86400; m=exp(-120*B); n=0.81/B*m;printf(請輸入加載次數n);scanf(%d,&t);printf(請輸入加載時間n);for(i=0;i=(2*t-1)break;printf(請輸入加載數n);for(j=0;j=(t-1)break;for(i=0,j=0;i20,j=t&i=2*t)break;rj=Ti+1-Ti;Qj=qj/rj;oj=exp(B*rj);pj=exp(B*Ti)*(oj-1);Uj=Qj/100*(rj-n*pj); sum=sum+Uj;printf(%lf,sum);i+;加載次數每次加載數及各次加載起止時
4、間固結度11000.9483020230700.916206304434030300.909808303650564303030100.890806303650567072530202020100.8523063034505470749092結論:固結度隨著加載次數的增大而減小。6040加載速率固結度053033.3120.93930103036.660.9361015304040.93250203043.330.92880253046.62.40.9248結論:固結度隨著加載速率的減小而減小。CvCh固結度0.00180.00010.30470.00110.82930.00210.95620.00310.98830.00410.9967結論:固結度隨著水平固結系數的增大而增大。間距固結度1000.99681300.95931500.90451700.83551900.7631結論:固結度隨著井間距的增大而減小。井徑固結度100.7976600.92371100.96311600.98192100.9914結論:固結度隨著井徑的增大而增大。