diff options
Diffstat (limited to '1586/CH6/EX6.2/EXP6_2.sce')
| -rw-r--r-- | 1586/CH6/EX6.2/EXP6_2.sce | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/1586/CH6/EX6.2/EXP6_2.sce b/1586/CH6/EX6.2/EXP6_2.sce new file mode 100644 index 000000000..0c5253be1 --- /dev/null +++ b/1586/CH6/EX6.2/EXP6_2.sce @@ -0,0 +1,19 @@ +clc;funcprot(0);//EXAMPLE 6.2
+// Initialisation of Variables
+F=45000;.......//Force applied on an aluminum rod in lb
+e=25000;.......//the maximum allowable stress on the rod in psi
+l2=150;.......//the minimum length of the rod in in
+e1=0.0025;......//The strain appiled on rod
+sigma=16670;.........//Stress applied on rod in psi
+L=0.25;........//The maximum allowable elastic deformation in in
+//CALCULATIONS
+Ao1=F/e;........//The required crosssectional area of the rod
+d=sqrt((Ao1*4)/%pi);......//Diameter of rod in in
+l1=e1*L;...........//The maximum length of the rod in in
+e2=L/e1;...........//The minimum strain allowed on rod
+Ao2=F/sigma;........//The minimum cross-sectional area in in^2
+disp(Ao1,"The required crosssectional area of the rod in in^2:")
+disp(d,"Diameter of rod in in:")
+disp(l1,"The maximum length of the rod in in:")
+disp(e2,"The minimum strain allowed on rod:")
+disp(Ao2,"The minimum cross-sectional area in in^2:")
|