summaryrefslogtreecommitdiff
path: root/3772/CH3/EX3.16/Ex3_16.sce
diff options
context:
space:
mode:
Diffstat (limited to '3772/CH3/EX3.16/Ex3_16.sce')
-rw-r--r--3772/CH3/EX3.16/Ex3_16.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/3772/CH3/EX3.16/Ex3_16.sce b/3772/CH3/EX3.16/Ex3_16.sce
new file mode 100644
index 000000000..54b9a1516
--- /dev/null
+++ b/3772/CH3/EX3.16/Ex3_16.sce
@@ -0,0 +1,33 @@
+// Problem 3.16,Page no.64
+
+clc;clear;
+close;
+
+E=200 //GN/m**2 //Modulus of elasticity
+alpha=11*10**-6 //per degree celsius //coeffecient o flinear expansion of steel bar
+L=6 //m //Length of rod
+
+
+//Calculations
+
+//(Part-1) //IF the walls do not yield
+
+t=58 //degree celsius //Fall in temperature //(t=80-22)
+dell=alpha*t //strain
+sigma=E*10**9*dell*10**-6 //MN/m**2 //Stress
+A=%pi*4**-1*6.25*10**-4 //mm**2 //Area of wall and rod
+P=sigma*10**6*A*10**-3 //KN //Pull Exerted
+
+//(Part-2) //IF the walls yield together at the two ends is 1.15 mm
+
+L_2=L*(1-alpha*t) //m //Length of rod at 22 degree celsius
+L_3=L-L_2 //m //Decrease in Length
+
+//As the walls yield by 1.5 mm, actual decrease in length is
+L_4=L_3-0.0015 //m
+dell_2=L_4*L**-1 //strain
+P_2=E*10**9*dell_2*A*10**-3 //KN
+
+//Result
+printf("Pull Exerted by the rod:when walls do not yield %.2f kN",P)
+printf("\n :when total yield together at two ends is 1.5 mm = %.2f kN",P_2)