blob: 2683fa7d97c5c69dfabc8ce605e04d41170d6146 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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:")
|
