1 files changed, 21 insertions, 0 deletions
diff --git a/1367/CH19/EX19.3/19_3.sce b/1367/CH19/EX19.3/19_3.sce
new file mode 100755
index 000000000..5e32a16e4
--- /dev/null
+++ b/1367/CH19/EX19.3/19_3.sce
@@ -0,0 +1,21 @@
+//Calculate fraction of load carried by fibres 
+//Ex:19.3
+clc;
+clear;
+close;
+ef=430;//in GPa
+e=3.6;//in GPa
+m=ef/e;
+vf=0.15;//by volume
+vm=1-vf;
+x=vm/vf;
+pf=m;
+pc=m+x;
+y=pf/pc;
+disp(y,"fraction of load carried by fibres (15 % by volume) = ");
+vf1=0.65
+vm1=1-vf1;
+z=vm1/vf1;
+pc1=m+z;
+zz=pf/pc1;
+disp(zz,"fraction of load carried by fibres (65 % by volume) = ")
+\ No newline at end of file