summaryrefslogtreecommitdiff
path: root/3557/CH14
diff options
context:
space:
mode:
Diffstat (limited to '3557/CH14')
-rw-r--r--3557/CH14/EX14.1/Ex14_1.sce18
-rw-r--r--3557/CH14/EX14.10/Ex14_10.sce15
-rw-r--r--3557/CH14/EX14.11/Ex14_11.sce6
-rw-r--r--3557/CH14/EX14.2/Ex14_2.sce11
-rw-r--r--3557/CH14/EX14.3/Ex14_3.sce41
-rw-r--r--3557/CH14/EX14.4/Ex14_4.sce15
-rw-r--r--3557/CH14/EX14.5/Ex14_5.sce8
-rw-r--r--3557/CH14/EX14.6/Ex14_6.sce7
-rw-r--r--3557/CH14/EX14.7/Ex14_7.sce14
-rw-r--r--3557/CH14/EX14.8/Ex14_8.sce47
-rw-r--r--3557/CH14/EX14.9/Ex14_9.sce14
11 files changed, 196 insertions, 0 deletions
diff --git a/3557/CH14/EX14.1/Ex14_1.sce b/3557/CH14/EX14.1/Ex14_1.sce
new file mode 100644
index 000000000..1771639f2
--- /dev/null
+++ b/3557/CH14/EX14.1/Ex14_1.sce
@@ -0,0 +1,18 @@
+//Example 14.1//
+
+//(a)=The mass of each component will be
+a=1.00;//m^3 //composite
+b=0.70;//m^3 //Vol % E-glass fibers
+c=a-b
+mprintf("c = %f m^3",c)
+d=2.54;//Mg/m^3 //density Of E-glass
+mg=d*b
+mprintf("\nmg = %f Mg",mg)
+e=1.1;//Mg/m^3 //density of epoxy
+me=e*c
+mprintf("\nme = %f Mg",me)
+w=(mg/(mg+me))*100
+mprintf("\nw = %f percent",w)
+//(b)= The density will be given by
+p=mg+me
+mprintf("\np = %f Mg/m^3",p)
diff --git a/3557/CH14/EX14.10/Ex14_10.sce b/3557/CH14/EX14.10/Ex14_10.sce
new file mode 100644
index 000000000..68072e84a
--- /dev/null
+++ b/3557/CH14/EX14.10/Ex14_10.sce
@@ -0,0 +1,15 @@
+//Example 14.10//
+a=175;//Mpa //the tensile strength of pure aluminium
+b=1.02*10^-1;//kg/mm^2/Mpa
+c=2.70;//Mg/m^3 //density of aluminium
+d=10^3;//kg/Mg //given
+e=1;//m^3 //cubic meter
+f=10^9;//mm^3 //given
+sp=(a*b)/(c*d*(e/f))
+mprintf("sp = %e mm",sp)
+a1=350;//mm //the tensile strength of the dispersion strengthened aluminium
+b1=1.02*10^-1;//mm//given
+c1=2.83;//Mg/m^3// density of aluminium
+g=10^-6;//given
+s=(a1*b1)/(c1*g)
+mprintf("\ns = %e mm",s)
diff --git a/3557/CH14/EX14.11/Ex14_11.sce b/3557/CH14/EX14.11/Ex14_11.sce
new file mode 100644
index 000000000..d02829126
--- /dev/null
+++ b/3557/CH14/EX14.11/Ex14_11.sce
@@ -0,0 +1,6 @@
+//Example 14.11//
+
+a=4100;//strength (psi)
+b=3100;//strength (psi)
+i1=((a-b)/b)*100
+mprintf("i1 = %f percent",i1)
diff --git a/3557/CH14/EX14.2/Ex14_2.sce b/3557/CH14/EX14.2/Ex14_2.sce
new file mode 100644
index 000000000..f24a0de82
--- /dev/null
+++ b/3557/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,11 @@
+//Example 14.2//
+
+C=12.01;//amu // atomic mass of Carbon
+H=1.008;//amu //atomic mass of hydrogen
+O=16.00;//amu //atomic mass of oxygen
+a=200;//degree of polymerization
+b=6;//numbers of atoms
+e=10;//numbers of atoms
+d=5;//numbers of atoms
+mw=(a)*(b*C+e*H+d*O)
+mprintf("mw = %i g/mol (Answer calculated in the texbook is wrong)",mw)
diff --git a/3557/CH14/EX14.3/Ex14_3.sce b/3557/CH14/EX14.3/Ex14_3.sce
new file mode 100644
index 000000000..2e5c2bff5
--- /dev/null
+++ b/3557/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,41 @@
+//Example 14.3//
+Ca=40.08;//amu //atomic mass of Calcium
+O=16.00;//amu //atomic mass of oxygen
+Si=28.09;//amu //atomic mass of Silicon
+a=2;//Number of atoms
+f1=(3*(Ca+O))/(3*(Ca+O)+(Si+a*O))
+mprintf("f1 = %f",f1)
+b=1;//given
+f2=b-f1
+mprintf("\nf2= %f",f2)
+//Similarly
+f3=(2*(Ca+O))/(2*(Ca+O)+(Si+a*O))
+mprintf("\nf3= %f",f3)
+f4=b-f3
+mprintf("\nf4= %f",f4)
+Mg=26.98;//amu //atomic mass of magnesium
+c=3;//Number of atoms
+f5=(3*(Ca+O))/(3*(Ca+O)+(a*Mg+c*O))
+mprintf("\nf5= %f",f5)
+f6=b-f5
+mprintf("\nf6= %f",f6)
+Mn=55.85;//amu //atomic mas of Magnese
+f7=(4*(Ca+O))/((4*(Ca+O))+(a*Mg+c*O)+(a*Mn+c*O))
+mprintf("\nf7 = %f",f7)
+Al=26.98;//amu //atomic mass of aluminium
+f8=((a*Al)+(c*O))/(4*(Ca+O)+(a*Mg+c*O)+(a*Mn+c*O))
+mprintf("\nf8= %f",f8)
+//Total mass of CaO
+mcs=45;//kg
+mc2s=11;//kg
+i=8;//kg
+j=27;//kg
+mc=(f1*mcs)+(f3*j)+(f5*mc2s)+(f7*i)
+mprintf("\nmc = %f kg",mc)
+//Similarly
+ma=(f6*mc2s)+(f8*i)
+mprintf("\nma = %f kg",ma)
+ms=(f2*mcs)+(f4*j)
+mprintf("\nms = %f kg",ms)
+t=(mc+ma +ms)
+mprintf("\nt = %f percentage",t)
diff --git a/3557/CH14/EX14.4/Ex14_4.sce b/3557/CH14/EX14.4/Ex14_4.sce
new file mode 100644
index 000000000..dc1d69047
--- /dev/null
+++ b/3557/CH14/EX14.4/Ex14_4.sce
@@ -0,0 +1,15 @@
+//Example 14.4//
+
+a0=1.0;//m^3 // composite
+d=a0-a
+mprintf("d= %f m^3",d)
+pA=2.70;//Mg/m^3 //density of aluminium (at 20degree C)
+a1=3.97;//Mg/m^3 //density of Al2O3
+a=0.1;//m^3 //meter //For 1m^3 we shall have 0.1m^3 of Al2O3
+ma=a1*a
+mprintf("\nma = %f Mg",ma)
+b=0.9;//m^3 //cubic meter
+ma1=pA*b
+mprintf("\nma1 = %f Mg",ma1)
+pc=(ma+ma1)
+mprintf("\npc = %f Mg/m^3",pc)
diff --git a/3557/CH14/EX14.5/Ex14_5.sce b/3557/CH14/EX14.5/Ex14_5.sce
new file mode 100644
index 000000000..054a53c26
--- /dev/null
+++ b/3557/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,8 @@
+//Example 14.5//
+
+Em=6.9*10^3;//MPa //polymeric matrix modulus
+Ef=72.4*10^3;//MPa //E- glass -reinforced epoxy
+vm=0.4; //volume fractions of matrix and fibers
+vf=0.6; //volume fractions of matrix and fibers
+Ec=vm*Em+vf*Ef
+mprintf("Ec = %e MPa",Ec)
diff --git a/3557/CH14/EX14.6/Ex14_6.sce b/3557/CH14/EX14.6/Ex14_6.sce
new file mode 100644
index 000000000..01b8de13a
--- /dev/null
+++ b/3557/CH14/EX14.6/Ex14_6.sce
@@ -0,0 +1,7 @@
+//Example 14.6//
+vm=0.4;
+km=0.17;//W/(m.K)
+vf=0.6;
+kf=0.97;//W/(m.K)
+kc=vm*km+vf*kf
+mprintf("kc = %f W/(m.K)",kc)
diff --git a/3557/CH14/EX14.7/Ex14_7.sce b/3557/CH14/EX14.7/Ex14_7.sce
new file mode 100644
index 000000000..671c17615
--- /dev/null
+++ b/3557/CH14/EX14.7/Ex14_7.sce
@@ -0,0 +1,14 @@
+//Example 14.7//
+Em=6.9*10^3;//MPa
+Ef=72.4*10^3;//MPa
+vm=0.4;
+Ef=72.4*10^3;//MPa
+vf=0.6;
+km=0.17;//W/(m.k)
+kf=0.97;//W/(m.k)
+vm=0.4;
+vf=0.6;
+Ec=(Em*Ef)/((vm*Ef)+(vf*Em))
+mprintf("Ec = %e MPa",Ec)
+kc=(km*kf)/((vm*kf)+(vf*km))
+mprintf("\nkc = %f W/(m.k)",kc)
diff --git a/3557/CH14/EX14.8/Ex14_8.sce b/3557/CH14/EX14.8/Ex14_8.sce
new file mode 100644
index 000000000..fbda30df1
--- /dev/null
+++ b/3557/CH14/EX14.8/Ex14_8.sce
@@ -0,0 +1,47 @@
+//Example 14.8//
+Ec=366;//MPa // composite modulus
+El=207;//modulus for Co
+Eh=704;//modulus for WC Phase
+vl=0.5;//low modulus phase
+vh=0.5;// high modulus phase
+n=1; //given
+n1=(1/2);//given
+n2=0.01;//given
+n3=-0.01;//given
+n4=-1;//given
+A=(Ec)^n
+mprintf("A = %i ",A)
+B=(vl*(El)^n)+(vh*(Eh)^n)
+mprintf(" B = %f ",B)
+C=B/A
+mprintf(" C = %f ",C)
+A1=(Ec)^n1
+mprintf("\nA1 = %f ",A1)
+B1=(vl*(El)^n1)+(vh*(Eh)^n1)
+mprintf(" B1 = %f ",B1)
+C1=B1/A1
+mprintf(" C1 = %f ",C1)
+A2=(Ec)^n2
+mprintf("\nA2 = %f ",A2)
+B2=(vl*(El)^n2)+(vh*(Eh)^n2)
+mprintf(" B2 = %f ",B2)
+C2=B2/A2
+mprintf(" C2 = %i ",C2)
+A3=(Ec)^n3
+mprintf("\nA3 = %f ",A3)
+B3=(vl*(El)^n3)+(vh*(Eh)^n3)
+mprintf(" B3 = %f ",B3)
+C3=B3/A3
+mprintf(" C3 = %f ",C3)
+A4=(Ec)^n4
+mprintf("\nA4 = %e ",A4)
+B4=(vl*(El)^n4)+(vh*(Eh)^n4)
+mprintf(" B4 = %e ",B4)
+C4=B4/A4
+mprintf(" C4 = %f ",C4)
+x=[1 1/2 0.01 -0.01 -1];
+y=[1.24 1.07 1.00 0.999 1.15];
+plot2d(x,y, style=1)
+ylabel("B/A","fontsize",4)
+//Therefore
+mprintf("\n n=0")
diff --git a/3557/CH14/EX14.9/Ex14_9.sce b/3557/CH14/EX14.9/Ex14_9.sce
new file mode 100644
index 000000000..cda4b6cdd
--- /dev/null
+++ b/3557/CH14/EX14.9/Ex14_9.sce
@@ -0,0 +1,14 @@
+//Example 14.9//
+
+vm=(1.000-0.733);// volume fractions of matrix //(The values of vm are taken from table 14.10 and 14.11)
+Em=6.9*10^3;//MPa //polymeric matrix modulus
+vf=0.733;//volume fractions of fibers // (The values of vf are taken from table 14.10 and 14.11)
+Ef=72.4*10^3;//MPa//E- glass -reinforced epoxy
+Ec=(vm*Em)+(vf*Ef)
+mprintf("Ec = %e MPa",Ec)
+//for this case Ec=56*10^3 MPa or
+a=56;//Mpa(The values are from table 14.12)
+b=54.9;//(The values are taken from table 14.12)
+e=((a-b)/a)*100
+mprintf("\n e = %f percent",e)
+mprintf("\n The calculated value comes within 2 percent of the measured value" )
generated by cgit (git 2.34.1) at 2025-03-08 08:09:59 +0000