diff options
Diffstat (limited to '3428/CH5')
| -rw-r--r-- | 3428/CH5/EX1.5.1/Ex1_5_1.sce | 16 | ||||
| -rw-r--r-- | 3428/CH5/EX1.5.2/Ex1_5_2.sce | 36 | ||||
| -rw-r--r-- | 3428/CH5/EX1.5.3/Ex1_5_3.sce | 14 | ||||
| -rw-r--r-- | 3428/CH5/EX1.5.4/Ex1_5_4.sce | 14 | ||||
| -rw-r--r-- | 3428/CH5/EX1.5.5/Ex1_5_5.sce | 18 | ||||
| -rw-r--r-- | 3428/CH5/EX1.5.6/Ex1_5_6.sce | 28 |
6 files changed, 126 insertions, 0 deletions
diff --git a/3428/CH5/EX1.5.1/Ex1_5_1.sce b/3428/CH5/EX1.5.1/Ex1_5_1.sce new file mode 100644 index 000000000..cf8548058 --- /dev/null +++ b/3428/CH5/EX1.5.1/Ex1_5_1.sce @@ -0,0 +1,16 @@ +//Section-1,Example-1,Page no.-AC.437
+//To calculate the fraction of load carried by the fibres in two composites of glass fibres and epoxy matrix
+clc;
+E_f=72
+E_m=3.6
+Vm_20=1-0.2
+Vf_20=0.2
+Vm_60=1-0.6
+Vf_60=0.6
+E=E_f/E_m
+V_20=Vm_20/Vf_20
+P_20=(E/(E+V_20))//P_20=(P_f/P_c)=((E_f/E_m)/((E_f/E_m)+(V_m/V_f)))
+disp (P_20,'Fraction of load for 20% fibres by volume')
+V_60=Vm_60/Vf_60
+P_60=(E/(E+V_60))//P_20=(P_f/P_c)=((E_f/E_m)/((E_f/E_m)+(V_m/V_f)))
+disp (P_60,'Fraction of load for 60% fibres by volume')
diff --git a/3428/CH5/EX1.5.2/Ex1_5_2.sce b/3428/CH5/EX1.5.2/Ex1_5_2.sce new file mode 100644 index 000000000..460fbe1bd --- /dev/null +++ b/3428/CH5/EX1.5.2/Ex1_5_2.sce @@ -0,0 +1,36 @@ +//Section-1,Example-2,Page no.-AC.437
+clc;
+E_m=3.4
+V_m=0.7
+E_f=69
+V_f=0.3
+A_c=250*10^-6
+E_c=((E_m*V_m)+(E_f*V_f))
+disp (E_c,'longitudinal modulus of elasticity(GPa)')
+Q_c=60*10^6
+A_c=250*10^-6
+P_c=Q_c*A_c //P_c=P_f+P_m
+disp(P_c,'Load carried by composite phases(P_c)')
+P=((E_f*V_f)/(E_m*V_m))
+//disp P,where P=P_f/P_m
+P_m=15000/9.7
+disp(P_m,'Load carried by matrix phases(P_m)')
+P_f=8.7*(P_m)
+disp (P_f,'Load carried by fibres phases(P_f)')
+//V_m=A_m/A_c
+A_m=V_m*A_c
+A_f=V_f*A_c
+Q_m=(P_m/A_m)*10^-6
+Q_f=(P_f/A_f)*10^-6
+e_m=(Q_m/(E_m*10^3))
+disp(e_m,'The strain sustained by phase when the stress of 60 MPa is applied')
+e_f=(Q_f/(E_f*10^3))
+disp(e_f,'The strain sustained by phase when the stress of 60 MPa is applied')
+
+
+
+
+
+
+
+
diff --git a/3428/CH5/EX1.5.3/Ex1_5_3.sce b/3428/CH5/EX1.5.3/Ex1_5_3.sce new file mode 100644 index 000000000..ec5a92ca8 --- /dev/null +++ b/3428/CH5/EX1.5.3/Ex1_5_3.sce @@ -0,0 +1,14 @@ +//Section-1,Example-3,Page no.-AC.440
+//To predict tensile strength parallel to fibres.
+clc;
+Q_f=3200*10^6
+E_f=230*10^9
+Q_m=60*10^6
+E_m=2.4*10^9
+V_f=0.4
+Q_fu=3.20
+e_f=Q_f/E_f //faliure strains of fibres
+e_m=Q_m/E_m //faliure strains of matrix
+Q_m=E_m*e_f
+Q_cu =((Q_fu*V_f)+((Q_m*(1-V_f)))
+disp(Q_cu,'stress carried by composite at failure(GPa)')
diff --git a/3428/CH5/EX1.5.4/Ex1_5_4.sce b/3428/CH5/EX1.5.4/Ex1_5_4.sce new file mode 100644 index 000000000..1d2a056ce --- /dev/null +++ b/3428/CH5/EX1.5.4/Ex1_5_4.sce @@ -0,0 +1,14 @@ +//Section-1,Example-4,Page no.-AC.441
+//To predict the tensile strength parallel to fibres.
+clc;
+E_f=76
+e_f=((1800*10^6)/(76*10^6)) //faliure strains of fibres
+e_m=((55*10^6)/(3*10^9)) //faliure strains of matrix
+Q_f=1.8
+V_f=0.4
+Q_mu=0.055
+Q_f1=E_f*e_m
+Q_c1=((Q_f1*V_f) +(Q_mu*(1-V_f)))
+disp(Q_c1,'stress carried by composite assuming parallel coupling between fibres and matrix(GPa)')
+Q_c2=Q_f*V_f
+disp(Q_c2,'max. stress carried by composite when only fibres are contributing(GPa)')
diff --git a/3428/CH5/EX1.5.5/Ex1_5_5.sce b/3428/CH5/EX1.5.5/Ex1_5_5.sce new file mode 100644 index 000000000..1197589e6 --- /dev/null +++ b/3428/CH5/EX1.5.5/Ex1_5_5.sce @@ -0,0 +1,18 @@ +//Section-1,Example-5,Page no.-AC.442
+//To find the minimum volume fraction of carbon fibres needed.
+clc;
+E_m=3.5
+e_f=0.01
+Q_fu=700
+V=1.5 //V=V_m/V_f=1.5
+V1=V+1
+V_f=1/2.5
+V_m=(1-V_f)
+Q_m=E_m*e_f
+Q_cu=((Q_fu*V_f)+((Q_m*10^3)*(1-V_f)))
+disp (Q_cu,'the ultimate strength of the composite(MPa)')
+//Q_m=E_c*e_f=(E_f*V_f(glass)+E_m*V_m(epoxy))*(Q_f/E_f(carbon-fiber))
+Q_m=((((70*10^9)*0.4)+((3.5*10^9)*0.6))*((700*10^6)/(350*10^9)))*10^-6
+ disp(Q_m,'stress of matrix(MPa)')
+V_crit=((Q_cu-Q_m)/(Q_fu-Q_m))
+disp(V_crit,'V_minimum')
diff --git a/3428/CH5/EX1.5.6/Ex1_5_6.sce b/3428/CH5/EX1.5.6/Ex1_5_6.sce new file mode 100644 index 000000000..0830e8829 --- /dev/null +++ b/3428/CH5/EX1.5.6/Ex1_5_6.sce @@ -0,0 +1,28 @@ +//Section-1,Example-6,Page no.-AC.443
+//To find the percentage reduction in the density of the given composite.
+clc;
+V_m=0.3
+V_f=1-V_m
+E_m=3.5
+V_m=0.3
+E_f=70
+E_c=((E_m*V_m)+(E_f*V_f))
+d_f=2.5
+d_m=1.2 //disp E_c(modulus of glass-epoxy composite)
+E_cbar=(2*E_c) //E_cbar=((E_c*(1-V_f))+(E_f*V_f)
+V_f1=(50.05/299.95) // V_f1=V_c fiber
+//since V_m=0.3 has to be maintained V_f=0.7
+//V_f=V_glass+V_c fiber
+V_glass=0.7-0.16686
+d_c=((d_f*V_f)+(d_m*V_m))
+//d_cbar=d_f*V_f(glass fibres)+d_fbar*V_fbar(C-fibers)+d_m*V_m(epoxy)
+d_cbar=(2.5*0.533)+(1.8*0.16686)+(1.2*0.3)
+P_r=((d_c - d_cbar)/d_c)*100
+disp(P_r,'Percentage reduction in density')
+
+
+
+
+
+
+
|