summaryrefslogtreecommitdiff
path: root/3557/CH14/EX14.9/Ex14_9.sce
diff options
context:
space:
mode:
Diffstat (limited to '3557/CH14/EX14.9/Ex14_9.sce')
-rw-r--r--3557/CH14/EX14.9/Ex14_9.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/3557/CH14/EX14.9/Ex14_9.sce b/3557/CH14/EX14.9/Ex14_9.sce
new file mode 100644
index 000000000..cda4b6cdd
--- /dev/null
+++ b/3557/CH14/EX14.9/Ex14_9.sce
@@ -0,0 +1,14 @@
+//Example 14.9//
+
+vm=(1.000-0.733);// volume fractions of matrix //(The values of vm are taken from table 14.10 and 14.11)
+Em=6.9*10^3;//MPa //polymeric matrix modulus
+vf=0.733;//volume fractions of fibers // (The values of vf are taken from table 14.10 and 14.11)
+Ef=72.4*10^3;//MPa//E- glass -reinforced epoxy
+Ec=(vm*Em)+(vf*Ef)
+mprintf("Ec = %e MPa",Ec)
+//for this case Ec=56*10^3 MPa or
+a=56;//Mpa(The values are from table 14.12)
+b=54.9;//(The values are taken from table 14.12)
+e=((a-b)/a)*100
+mprintf("\n e = %f percent",e)
+mprintf("\n The calculated value comes within 2 percent of the measured value" )