diff options
Diffstat (limited to '3456/CH7')
| -rw-r--r-- | 3456/CH7/EX7.1/Ex7_1.sce | 14 | ||||
| -rw-r--r-- | 3456/CH7/EX7.2/Ex7_2.sce | 13 |
2 files changed, 27 insertions, 0 deletions
diff --git a/3456/CH7/EX7.1/Ex7_1.sce b/3456/CH7/EX7.1/Ex7_1.sce new file mode 100644 index 000000000..a29a42303 --- /dev/null +++ b/3456/CH7/EX7.1/Ex7_1.sce @@ -0,0 +1,14 @@ +//Example 7.1
+//Cohesive Strength
+//Page No. 245
+clc;clear;close;
+
+E=95; //in GPa
+E=E*10^9; //conversion to Pa
+Ys=1000; //erg/cm^2
+Ys=Ys*10^-3; //conversion to J/m^2
+a0=1.6; //in angstrom
+a0=a0*10^-10; //conversion to m
+sigma_max=(E*Ys/a0)^(1/2)
+sigma_max=sigma_max*10^-9;
+printf('Cohesive strength of a silica fiber = %g GPa',sigma_max);
diff --git a/3456/CH7/EX7.2/Ex7_2.sce b/3456/CH7/EX7.2/Ex7_2.sce new file mode 100644 index 000000000..3128075ab --- /dev/null +++ b/3456/CH7/EX7.2/Ex7_2.sce @@ -0,0 +1,13 @@ +//Example 7.2
+//Fracture Stress
+//Page No. 246
+clc;clear;close;
+
+E=100; //in GPa
+E=E*10^9; //conversion to Pa
+Ys=1; //J/m^2
+a0=2.5*10^-10; //in m
+c=10^4*a0;
+sigma_f=(E*Ys/(4*c))^(1/2);
+sigma_f=sigma_f*10^-6;
+printf('Fracture Stress = %g MPa',sigma_f);
|