summaryrefslogtreecommitdiff
path: root/3863/CH7
diff options
context:
space:
mode:
Diffstat (limited to '3863/CH7')
-rw-r--r--3863/CH7/EX7.1/Ex7_1.sce18
-rw-r--r--3863/CH7/EX7.8/Ex7_8.sce29
2 files changed, 47 insertions, 0 deletions
diff --git a/3863/CH7/EX7.1/Ex7_1.sce b/3863/CH7/EX7.1/Ex7_1.sce
new file mode 100644
index 000000000..38268b64a
--- /dev/null
+++ b/3863/CH7/EX7.1/Ex7_1.sce
@@ -0,0 +1,18 @@
+clear
+//Given
+//Variable declaration
+b=120 //Width of plate in mm
+t=20 //Thickness of plate in mm
+R=10*10**3 //Radius of curvature in mm
+E=2e5 //Youngs modulus in N/sq.mm
+
+//Calculation
+I=b*t**3/12 //Moment of inertia in mm^4
+y_max=t/2 //Maximum distance in mm
+sigma_max=int((E/R)*y_max) //Maximum stress in N/sq.mm
+M=((E/R*I)*(10**-6)) //Bending moment in kNm
+
+
+//Result
+printf("\n Maximum stress = %0.3f N/mm^2",sigma_max)
+printf("\n Bending moment = %0.3f kNm",M)
diff --git a/3863/CH7/EX7.8/Ex7_8.sce b/3863/CH7/EX7.8/Ex7_8.sce
new file mode 100644
index 000000000..97695e9bd
--- /dev/null
+++ b/3863/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,29 @@
+clear
+//
+//
+
+//Given
+//Variable declaration
+W=20*1000 //Total load in N
+L=3.6 //Span in m
+sigma_max=7 //Maximum stress in N/sq.mm
+
+//Calculation
+M1=W*L/8*1e3 //Maximum Bending moment in Nmm
+b1=((M1*3/(sigma_max*2))**(1/3)) //Breadth of the beam in mm
+
+d1=int((2*b1)) //depth of the beam in mm
+
+M2=W*L/4*1e3 //Maximum Bending moment in Nmm
+b2=(((M2*3/(sigma_max*2))**(1/3))) //Breadth of the beam in mm
+
+d2=2*b2 //depth of the beam in mm
+
+//Result
+printf("\n Dimensions of the cross-section:")
+printf("\n Breadth of beam = %0.3f mm",b1)
+printf("\n Depth of beam %0.3f mm",d1)
+
+printf("\n Dimensions of the cross-section when the beam carries a point load at the centre:")
+printf("\n Breadth of beam = %0.3f mm",b2)
+printf("\n Depth of beam %0.3f mm",d2)