2 files changed, 20 insertions, 0 deletions
diff --git a/1085/CH18/EX18.1/ex18_1.sce b/1085/CH18/EX18.1/ex18_1.sce
new file mode 100755
index 000000000..cfdd1065e
--- /dev/null
+++ b/1085/CH18/EX18.1/ex18_1.sce
@@ -0,0 +1,10 @@
+//Exam:18.1
+clc;
+clear;
+close;
+E_f=69;//modulus of elasticity in GPa
+V_f=40/100;//Volume of glass fibres %
+E_m=3.4;//modulus (in GPa)
+V_m=60/100;//Volume of polyester resin %
+E_cl=E_m*V_m+E_f*V_f;//modulus of elasticity (in Gpa)
+disp(ceil(E_cl),'modulus of elasticity(in Gpa)=');
+\ No newline at end of file
diff --git a/1085/CH18/EX18.2/ex18_2.sce b/1085/CH18/EX18.2/ex18_2.sce
new file mode 100755
index 000000000..c7a4a950f
--- /dev/null
+++ b/1085/CH18/EX18.2/ex18_2.sce
@@ -0,0 +1,10 @@
+//Exam:18.2
+clc;
+clear;
+close;
+E_f=69;//modulus of elasticity in GPa
+V_f=40/100;//Volume of glass fibres %
+E_m=3.4;//modulus (in GPa)
+V_m=60/100;//Volume of polyester resin %
+E_cl=E_m*E_f/(E_m*V_f+E_f*V_m);//modulus of elasticity when the stress is applied perpendicular to the direction of the fibre alignment(in Gpa)
+disp(E_cl,'modulus of elasticity when the stress is applied perpendicular to the direction of the fibre alignment(in Gpa)=');
+\ No newline at end of file