1 files changed, 23 insertions, 0 deletions
diff --git a/2858/CH5/EX5.3/Ex5_3.sce b/2858/CH5/EX5.3/Ex5_3.sce
new file mode 100755
index 000000000..74fee30f0
--- /dev/null
+++ b/2858/CH5/EX5.3/Ex5_3.sce
@@ -0,0 +1,23 @@
+//example 5.3
+clc; funcprot(0);
+H=7;
+Gamma=17.5;
+q0=Gamma*H
+disp(q0,"pressure change in kN/m^2");
+//part2
+//from figure
+Ileftside=0.445;
+Irightside=0.445;
+deltasigma=q0*(Ileftside+Irightside);
+disp(deltasigma,"change in stress in kN/m^2");
+//partc
+//from figure 5.11
+I=0.24;//I'
+Dsigma1=43.75*I;//deltasigma1
+I2=0.495;//I'
+Dsigma2=I2*q0;//deltasigma2
+I3=0.335;//I'
+Dsigma3=I3*78.75;//deltasigma3
+Dsigma=Dsigma1+Dsigma2-Dsigma3;
+disp(Dsigma,"total stress increase in A in kN/m^2");
+