2 files changed, 32 insertions, 0 deletions
diff --git a/1367/CH8/EX8.4/8_4.sce b/1367/CH8/EX8.4/8_4.sce
new file mode 100755
index 000000000..2292666b3
--- /dev/null
+++ b/1367/CH8/EX8.4/8_4.sce
@@ -0,0 +1,15 @@
+//Find Stress Ratio and range
+//Ex:8.4
+clc;
+clear;
+close;
+a_m=70;//mean stress in Mpa
+a_r=210;//stress amplitude in Mpa
+a_max=((2*a_m)+a_r)/2;//maximum stress in MPa
+disp(a_max,"Maximum Stress Level (in MPa) = ");
+a_min=2*a_m-a_max;//Minimum stress in MPa
+disp(a_min,"Minimum Stress Level (in MPa) = ");
+s=a_min/a_max;//stress ratio
+disp(s,"Stress Ratio = ");
+sr=a_max-a_min;//stress range in MPa
+disp(sr,"Stress Range (in MPa) = ");
diff --git a/1367/CH8/EX8.4/8_4r.txt b/1367/CH8/EX8.4/8_4r.txt
new file mode 100755
index 000000000..ddd940e3e
--- /dev/null
+++ b/1367/CH8/EX8.4/8_4r.txt
@@ -0,0 +1,17 @@
+  
+ Maximum Stress Level (in MPa) =    
+ 
+    175.  
+ 
+ Minimum Stress Level (in MPa) =    
+ 
+  - 35.  
+ 
+ Stress Ratio =    
+ 
+  - 0.2  
+ 
+ Stress Range (in MPa) =    
+ 
+    210.  
+ 
+\ No newline at end of file