1 files changed, 18 insertions, 0 deletions
diff --git a/2858/CH14/EX14.1/Ex14_1.sce b/2858/CH14/EX14.1/Ex14_1.sce
new file mode 100755
index 000000000..e4c184c1e
--- /dev/null
+++ b/2858/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,18 @@
+//example 14.1
+clc; funcprot(0);
+Cc=0.28;
+Hc=6;
+eo=0.9;
+Cv=0.36;
+H=3;
+t=9;
+sigmao=210;
+sigmap=115; //deltasigmap
+Sc=Cc*Hc/(1+eo)*log10((sigmao+sigmap)/sigmao);
+disp(Sc*1000,"primary consolidation in mm");
+Tv=Cv*t/H^2;
+//from table
+k=1.8; //constant
+sf=k*sigmap;
+disp(sf,"deltasigmaf in kN/m^2");
+