diff options
Diffstat (limited to '3392/CH7/EX7.9/Ex7_9.sce')
| -rwxr-xr-x | 3392/CH7/EX7.9/Ex7_9.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3392/CH7/EX7.9/Ex7_9.sce b/3392/CH7/EX7.9/Ex7_9.sce new file mode 100755 index 000000000..b9d20c2fd --- /dev/null +++ b/3392/CH7/EX7.9/Ex7_9.sce @@ -0,0 +1,20 @@ +clc
+// initialization of variables
+clear
+Y=280 //MPa
+AB=40 //mm
+BC=60 //mm
+//calculations
+Y=Y*10^6
+alpha=atan(BC/AB)
+C11=20/3 //mm
+C12=-10 //mm
+C21=-20/3 //mm
+C22=10 //mm
+Beta=atan((C11-C21)/(C22-C12))
+Phi=%pi/2+Beta
+d=sqrt((AB/2-C11)^2+(BC/2-C22)^2)
+d=d*10^-3 //m
+At=1/2*AB*BC/2*10^-6
+Mp=At*Y*d
+printf('Mp = %.3f kN.m',Mp/10^3)
|