1 files changed, 18 insertions, 0 deletions
diff --git a/3647/CH6/EX6.3/ex6_3.sce b/3647/CH6/EX6.3/ex6_3.sce
new file mode 100644
index 000000000..5ddd8ab23
--- /dev/null
+++ b/3647/CH6/EX6.3/ex6_3.sce
@@ -0,0 +1,18 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear all;
+clc
+//initialisation of variables
+w=0.5//tonf/in^2
+w1=7//tonf/in^2
+w2=10//tonf/in^2
+t=12.4//tonf/in^2
+d1=1.5//in
+d2=1.24//in
+x=0.495//in
+d3=3.02//in
+//CALCULATIONS
+Y=sqrt((d3/2)^2-(d2/2)^2)//in
+S=(1/2*t/(2*Y*w))//tonf/in^2
+//RESULTS
+printf('the shear stress in fork end=% f tonf/in^2',S)