diff options
Diffstat (limited to '3526/CH17/EX17.8/EX17_8.sce')
| -rw-r--r-- | 3526/CH17/EX17.8/EX17_8.sce | 12 |
1 files changed, 12 insertions, 0 deletions
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.")
|