diff options
Diffstat (limited to '1985/CH15/EX15.2/Chapter15_example2.sce')
| -rwxr-xr-x | 1985/CH15/EX15.2/Chapter15_example2.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/1985/CH15/EX15.2/Chapter15_example2.sce b/1985/CH15/EX15.2/Chapter15_example2.sce new file mode 100755 index 000000000..7991e3b42 --- /dev/null +++ b/1985/CH15/EX15.2/Chapter15_example2.sce @@ -0,0 +1,11 @@ +clc
+clear
+//Input data
+s1=(405*10^6)//Principal stress in N/m^2
+s2=(-105*10^6)//Principal stress in N/m^2
+
+//Calculations
+tmax=((s1-s2)/2)/10^6//Maximum shearing stress in N/m^2 *10^6
+
+//Output
+printf('The maximum shearing stress is %3.0f*10^6 N/m^2',tmax)
|