summaryrefslogtreecommitdiff
path: root/3864/CH2/EX2.14
diff options
context:
space:
mode:
Diffstat (limited to '3864/CH2/EX2.14')
-rw-r--r--3864/CH2/EX2.14/Ex2_14.sce51
1 files changed, 51 insertions, 0 deletions
diff --git a/3864/CH2/EX2.14/Ex2_14.sce b/3864/CH2/EX2.14/Ex2_14.sce
new file mode 100644
index 000000000..b654e813d
--- /dev/null
+++ b/3864/CH2/EX2.14/Ex2_14.sce
@@ -0,0 +1,51 @@
+clear
+//
+//
+
+//Initilization of Variables
+
+//Portion AB
+L_AB=600 //mm //Length of AB
+A_AB=40*40 //mm**2 //Cross-section Area of AB
+
+//Portion BC
+L_BC=800 //mm //Length of BC
+A_BC=30*30 //mm //Length of BC
+
+//Portion CD
+L_CD=1000 //mm //Length of CD
+A_CD=20*20 //mm //Area of CD
+
+P1=80*10**3 //N //Load1
+P2=60*10**3 //N //Load2
+P3=40*10**3 //N //Load3
+
+E=2*10**5 //Modulus of Elasticity
+
+//Calculations
+
+P4=P1-P2+P3 //Load4
+
+//Now Force in AB
+F_AB=P1
+
+//Force in BC
+F_BC=P1-P2
+
+//Force in CD
+F_CD=P4
+
+//Extension of AB
+dell_l_AB=F_AB*L_AB*(A_AB*E)**-1
+
+//Extension of BC
+dell_l_BC=F_BC*L_BC*(A_BC*E)**-1
+
+//Extension of CD
+dell_l_CD=F_CD*L_CD*(A_CD*E)**-1
+
+//Total Extension
+dell_l=dell_l_AB+dell_l_BC+dell_l_CD
+
+//Result
+printf("\n The Total Extension in Bar is %0.2f mm",dell_l)