summaryrefslogtreecommitdiff
path: root/3764/CH4/EX4.02/Ex4_02.sce
diff options
context:
space:
mode:
Diffstat (limited to '3764/CH4/EX4.02/Ex4_02.sce')
-rw-r--r--3764/CH4/EX4.02/Ex4_02.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/3764/CH4/EX4.02/Ex4_02.sce b/3764/CH4/EX4.02/Ex4_02.sce
new file mode 100644
index 000000000..1255e07d3
--- /dev/null
+++ b/3764/CH4/EX4.02/Ex4_02.sce
@@ -0,0 +1,19 @@
+clc
+//
+
+//Variable declaration
+r=12 // Radius(mm)
+p=2.5 // Mean radius(m)
+E=70 // Modulus of rigidity(GPa)
+n=-1
+
+//Calculation
+Y=(4*r)/(3*(%pi)) // Ordinate(mm)
+c=r-Y // Distance from the neutral axis to the point of crossection(mm)
+Em=(c*(10**-3))/p // Maximum absolute value of the strain
+Sm=((E*((10**9)))*Em)/((10**6)*(1.0)) // Maximum tensile stress(MPa)
+Scomp=(n)*(Y/c)*(Sm) // Maximum compressive stress(MPa)
+
+// Result
+printf("\n Maximum tensile stress = %0.3f MPa' ,Sm)
+printf("\n Maximum compressive stress = %0.3f MPa' ,Scomp)