summaryrefslogtreecommitdiff
path: root/3526/CH17/EX17.8/EX17_8.sce
blob: 1010d68cffe0e48afbeba279616308194c17af28 (plain)
1
2
3
4
5
6
7
8
9
10
11
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.")