diff options
Diffstat (limited to '3526/CH17')
| -rw-r--r-- | 3526/CH17/EX17.1/EX17_1.sce | 13 | ||||
| -rw-r--r-- | 3526/CH17/EX17.10/EX17_10.sce | 28 | ||||
| -rw-r--r-- | 3526/CH17/EX17.2/EX17_2.sce | 18 | ||||
| -rw-r--r-- | 3526/CH17/EX17.3/EX17_3.sce | 10 | ||||
| -rw-r--r-- | 3526/CH17/EX17.4/EX17_4.sce | 25 | ||||
| -rw-r--r-- | 3526/CH17/EX17.7/EX17_7.sce | 20 | ||||
| -rw-r--r-- | 3526/CH17/EX17.8/EX17_8.sce | 12 | ||||
| -rw-r--r-- | 3526/CH17/EX17.9/EX17_9.sce | 19 |
8 files changed, 145 insertions, 0 deletions
diff --git a/3526/CH17/EX17.1/EX17_1.sce b/3526/CH17/EX17.1/EX17_1.sce new file mode 100644 index 000000000..a86653b48 --- /dev/null +++ b/3526/CH17/EX17.1/EX17_1.sce @@ -0,0 +1,13 @@ +clc;funcprot(0);//EXAMPLE 17.1
+//page 527
+// Initialisation of Variables
+per1=2;.............//Percent weight of ThO2
+per2=98;..............//Percentage weight of Nickle
+rho1=9.69;...........//Density of ThO2 in g/cm^3
+rho2=8.9;............//Density of Nickel in g/cm^3
+r=0.5*10^-5;........//Radius of ThO2 particle in cm
+//calculations
+f=(2/rho1)/((per1/rho1)+(per2/rho2));.........//Volume fraction of ThO2 per cm^3 of composite
+v=(4/3)*(%pi)*r^3;...........//Volume of ech ThO2 sphere in cm^3
+c=f/v;.................//Concentration of ThO2 particles in particles/cm^3
+disp(c,"Concentration of ThO2 in particles/cm^3:")
diff --git a/3526/CH17/EX17.10/EX17_10.sce b/3526/CH17/EX17.10/EX17_10.sce new file mode 100644 index 000000000..841a74820 --- /dev/null +++ b/3526/CH17/EX17.10/EX17_10.sce @@ -0,0 +1,28 @@ +clc;funcprot(0);//EXAMPLE 17.10
+//page 554
+// Initialisation of Variables
+psi=500000;...............//Modulus Elasticity of Epoxyin psi
+f=500;.....................//Force applied on Epoxy in pounds
+q=0.10;....................//Stretchable distence in in.
+rho=0.0451;..................//Density of Epoxy in lb/in^3
+d=1.24;....................//Diameter of Epoxy in in
+e=12000;....................//Yeild Strngth of Epoxy in psi
+E2=77*10^6;................//Modulus of high Carbon Fiber in psi
+Fc=0.817;..................//Volume fraction of Epoxy remaining
+Fc2=0.183;..................//Min volume Faction of Epoxy
+rho2=0.0686;...............//Density of high Carbon Fiber in lb/in^3
+emax=q/120;................//MAX. Strain of Epoxy
+E=psi*emax;................//Max Modulus of elasticity in psi
+A=f/E;....................//Area of Structure in in^2
+W=rho*%pi*((d/2)^2)*120;...........//Weight of Structure in ib
+c=W*0.80;..........................//Cost of Structure in Dollars
+Ec=e/emax;..................//Minimum Elasticity of composite in psi
+A2=f/e;....................//Area of Epoxy in in^2
+At=A2/Fc;................//Total Volume of Epoxy
+V=At*120;................//Volume of Structure in in^3
+W2=((rho2*Fc2)+(rho*Fc))*V;.............//Weight of Structure in lb
+Wf=(Fc2*1.9)/((Fc2*1.9)+(Fc*1.25));...........//Weight Fraction of Carbon
+Wc=Wf*W2;.....................//Weight of Carbon
+We=0.746*W2;.................//Weight of Epoxy
+c2=(Wc*30)+(We*0.80);.............//Cost of Each Struct.
+ disp(c2,"Cost of Each Struct.:")
diff --git a/3526/CH17/EX17.2/EX17_2.sce b/3526/CH17/EX17.2/EX17_2.sce new file mode 100644 index 000000000..9a852f14a --- /dev/null +++ b/3526/CH17/EX17.2/EX17_2.sce @@ -0,0 +1,18 @@ +clc;funcprot(0);//EXAMPLE 17.2
+//page 528
+// Initialisation of Variables
+per1=75;..............//Percent Weight of WC
+per2=15;..............//Percent Weight of TiC
+per3=5;...............//Percent Weight of TaC
+per4=5;...............//Percent Weight of Co
+rho1=15.77;...........//Density of WC in g/cm^3
+rho2=4.94;............//Density of TiC in g/cm^3
+rho3=14.5;............//Density of TaC in g/cm^3
+rho4=8.90;............//Density of Co in g/cm^3
+//Calculations
+f1=(per1/rho1)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.......//Volume fraction of WC
+f2=(per2/rho2)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.....//Volume fraction of Tic
+f3=(per3/rho3)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.....//Volume fraction of Tac
+f4=(per4/rho4)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.....//Volume fraction of Co
+rho=(f1*rho1)+(f2*rho2)+(f3*rho3)+(f4*rho4);........//Density of composite in g/cm^3
+disp(rho,"Density of composite in g/cm^3:")
diff --git a/3526/CH17/EX17.3/EX17_3.sce b/3526/CH17/EX17.3/EX17_3.sce new file mode 100644 index 000000000..b5bb51ba9 --- /dev/null +++ b/3526/CH17/EX17.3/EX17_3.sce @@ -0,0 +1,10 @@ +clc;funcprot(0);//EXAMPLE 17.3
+//page 530
+// Initialisation of Variables
+rho1=19.3;...........//Density of pure Tungsten in g/cm^3
+rho2=10.49;............//Density of pure Silver in g/cm^3
+f1=0.75;..............//Volume fraction of Tungsten
+f2=0.25;...........//Volume fraction of Silver and pores
+//Calculations
+per=((f2*rho2)/((f2*rho2)+(f1*rho1)))*100;.........//Percentage weight of silver
+disp(per,"Percentage Weight of Silver:")
diff --git a/3526/CH17/EX17.4/EX17_4.sce b/3526/CH17/EX17.4/EX17_4.sce new file mode 100644 index 000000000..a1709e71f --- /dev/null +++ b/3526/CH17/EX17.4/EX17_4.sce @@ -0,0 +1,25 @@ +clc;funcprot(0);//EXAMPLE 17.4
+//page 531
+// Initialisation of Variables
+rho1=0.95;...........//Density of polyethylene in g/cm^3
+rho2=2.4;...........//Density of clay in g/cm^3
+f1=0.65;...............//Volume fraction of Polyethylene
+f2=0.35;...............//Volume fraction of Clay
+f3=1.67;.............//Volume fraction of polyethylene after sacrifice
+f4=1.06;.............//Volume fraction of Clay after sacrifice
+pa1=650;............// No. of parts of polyethylene in 1000cm^3 composite in cm^3
+pa2=350;............// No. of parts of clay in 1000cm^3 composite in cm^3
+//Calculations
+pa3=(pa1*rho1)/454;.........//No. of parts of Polyethylene in 1000cm^3 composite in lb
+pa4=(pa2*rho2)/454;.........//No. of parts of clay in 1000cm^3 composite in lb
+co1=pa3* 0.05;................//Cost of material Polyethylenein Dollars
+co2=pa4* 0.05;................//Cost of materials clay in Dollars
+c0=co1+co2;...................//Cost of materials in Dollars
+rho3=(f1*rho1)+(f2*rho2);.........//Composite density in g/cm^3
+co3=f3* 0.05;................//Cost of material polyethylene after savings in Dollars
+co4=f4* 0.05;................//Cost of material clay after savings in Dollars
+c1=co3+co4;.................//Cost of materials after savings in Dollars
+rho4=(0.8*rho1)+(0.2*rho2);..............//Density of composite after saving in g/cm^3
+disp(rho3,"Composite density in g/cm^3:")
+disp(rho4,"Composite densityafter saving in g/cm^3:")
+
diff --git a/3526/CH17/EX17.7/EX17_7.sce b/3526/CH17/EX17.7/EX17_7.sce new file mode 100644 index 000000000..2683fa7d9 --- /dev/null +++ b/3526/CH17/EX17.7/EX17_7.sce @@ -0,0 +1,20 @@ +clc;funcprot(0);//EXAMPLE 17.7
+// Initialisation of Variables
+//page 536
+f1=0.4;...............//Volume fraction of Fiber
+f2=0.6;...............//Volume fraction of Aluminium
+rho1=2.36;...........//Density of Fibers in g/cm^3
+rho2=2.70;...........//Density of Aluminium in g/cm^3
+psi1=55*10^6;..............//Modulus of elasticity of Fiber in psi
+psi2=10*10^6;..............//Modulus of elasticity of Aluminium in psi
+ts1=400000;..............//Tensile strength of fiber in psi
+ts2=5000;..............//Tensile strength of Aluminium in psi
+//Calculations
+rho=(f1*rho1)+(f2*rho2);........//Density of mixture in g/cm^3
+Ec1=(f1*psi1)+(f2*psi2);........//Modulus of elasticity of mixture in psi
+TSc=(f1*ts1)+(f2*ts2);........//Tensile Strength of mixture in psi
+Ec2=1/((f1/psi1)+(f2/psi2));........//Modulus of elasticity perpendicular to fibers in psi
+disp(rho,"Density of mixture in g/cm^3:")
+disp(Ec1,"Modulus of elasticity of mixture in psi:")
+disp(TSc,"Tensile Strength of mixture in psi:")
+disp(Ec2,"Modulus of elasticity perpendicular to fibers in psi:")
diff --git a/3526/CH17/EX17.8/EX17_8.sce b/3526/CH17/EX17.8/EX17_8.sce new file mode 100644 index 000000000..1010d68cf --- /dev/null +++ b/3526/CH17/EX17.8/EX17_8.sce @@ -0,0 +1,12 @@ +clc;funcprot(0);//EXAMPLE 17.8
+//page 534
+// Initialisation of Variables
+psi1=10.5*10^6;..............//Modulus of elasticity of Glass in psi
+psi2=0.4*10^6;..............//Modulus of elasticity of Nylon in psi
+a1=0.3;.....................//area of glass in cm^3
+a2=0.7;.....................//area of Nylon in cm^3
+//Calculations
+psi=psi1/psi2;..............//Fraction of elasticity
+fo=a1/(a1+(a2*(1/psi)));..........//Fraction of applied force carried by Glass fiber
+disp(fo,"Fraction of applied force carried by Glass fiber :")
+printf(" Almost all of the load is carried by the glass fibers.")
diff --git a/3526/CH17/EX17.9/EX17_9.sce b/3526/CH17/EX17.9/EX17_9.sce new file mode 100644 index 000000000..1214dfb62 --- /dev/null +++ b/3526/CH17/EX17.9/EX17_9.sce @@ -0,0 +1,19 @@ +clc;funcprot(0);//EXAMPLE 17.9
+//page 542
+// Initialisation of Variables
+psi=10*10^6;..............//Modulus of elasticity of 7075-T6 in psi
+psi1=55*10^6;..............//Modulus of elasticity of Boron fiber in psi
+psi2=11*10^6;..............//Modulus of elasticity of Typical AL-LI in psi
+f1=0.6;...............//Volume fraction of Boron Fiber
+f2=0.4;...............//Volume fraction of typical AL-LI
+rho1=0.085;...........//Density of Boron Fibers in lb/in*3
+rho2=0.09;...........//Density of typical AL-LI in lb/in^3
+//Calculations
+sm1=psi/(((2.7*(2.54)^3))/454);..........//Specific Modulus of current alloy in in.
+rho=(f1*rho1)+(f2*rho2);........//Density of composite in lb/in^3
+Ec=(f1*psi1)+(f2*psi2);........//Modulus of elasticity of mixture in psi
+sm2=Ec/rho;..........//Specific Modulus of composite in in.
+disp(sm1,"Specific Modulus of current alloy in in.:")
+disp(rho,"Density of composite in lb/in^3:")
+disp(Ec,"Modulus of elasticity of mixture in psi:")
+disp(sm2,"Specific Modulus of composite in in.:")
|