summaryrefslogtreecommitdiff
path: root/3456/CH7
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /3456/CH7
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '3456/CH7')
-rw-r--r--3456/CH7/EX7.1/Ex7_1.sce14
-rw-r--r--3456/CH7/EX7.2/Ex7_2.sce13
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);