2 files changed, 22 insertions, 0 deletions
diff --git a/3257/CH10/EX10.4/Ex10_4.sce b/3257/CH10/EX10.4/Ex10_4.sce
new file mode 100755
index 000000000..c183bd831
--- /dev/null
+++ b/3257/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,17 @@
+// properties of a graphite epoxy reinforce plastic
+clc
+x = 0.15
+Ef = 250 // elastic modulus of fiber in GPa
+Em = 80 // elastic modulus of resin in GPa
+sigma_f = 2000 // strength of fiber in MPa
+sigma_m = 100 // strength of resin in MPa
+Fc = 1 // let
+printf("\n Example 10.4")
+Ec = x*Ef+(1-x)*Em
+F_ratio = x*Ef/((1-x)*Em)
+printf("\n Part A:")
+printf("\n Elastic modulus of composite is %.1f GPa.",Ec)
+Fm = Fc/(1+F_ratio)
+Ff = Fc*(1-(1/(1+F_ratio)))
+printf("\n Fraction of load supported by fibers is %d%%.",Ff*100)
+
diff --git a/3257/CH10/EX10.4/Ex10_4.txt b/3257/CH10/EX10.4/Ex10_4.txt
new file mode 100755
index 000000000..87548259b
--- /dev/null
+++ b/3257/CH10/EX10.4/Ex10_4.txt
@@ -0,0 +1,5 @@
+ 
+ Example 10.4
+ Part A:
+ Elastic modulus of composite is 105.5 GPa.
+ Fraction of load supported by fibers is 35%. 
+\ No newline at end of file