1 files changed, 23 insertions, 0 deletions
diff --git a/1367/CH19/EX19.4/19_4.sce b/1367/CH19/EX19.4/19_4.sce
new file mode 100755
index 000000000..e28135acb
--- /dev/null
+++ b/1367/CH19/EX19.4/19_4.sce
@@ -0,0 +1,23 @@
+//Find longitudinal strength longitudianl modulous transverse modulous Poisson ratio Shear modulous
+//Ex:19.4
+clc;
+clear;
+close;
+vf=0.65;
+vm=1-vf;
+kts=2.8;//in Gpa
+ets=0.0025;//in GPa
+ac=(kts*vf)+(ets*vm);//in GPa
+disp(ac,"Longitudinal Strength (in GPa) = ");
+ktm=130;//in GPa
+etm=3.5;//in GPa
+ec=(ktm*vf)+(etm*vm);
+disp(ec,"Longitudianl Modulous (in GPa) = ");
+e_c=1/((vf/ktm)+(vm/etm));
+disp(e_c,"Transverse Modulous (in GPa) = ");
+kp=0.34;//in GPa
+ep=0.36;//in GPa
+vlt=(vf*kp)+(vm*vm);
+disp(vlt,"Poissons Ratio = ");
+glt=1/((vf/2.2)+(vm/1.2));//in GPa
+disp(glt,"Shear Modulous (in GPa) = ");
+\ No newline at end of file