summaryrefslogtreecommitdiff
path: root/2858/CH1/EX1.2/Ex1_2.sce
blob: 1a7555227d05e96f37115ac3145ad8adf0c760af (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//example 1.2
clc; funcprot(0);
e=0.72;
w=12/100; //moisture content
Gs=2.72;
Gammaw=9.81;//kN/m^3
Gammad=Gs*Gammaw/(1+e);
disp(Gammad,"dry unit weight in kN/m^3");
Gamma=Gs*Gammaw*(1+w)/(1+e);
disp(Gamma,"moist unit weight in kN/m^3");
Gammasat=(Gs+e)*Gammaw/(1+e);
wa=Gammasat-Gamma;//water added
disp(wa,"water added in kN/m^3");