1 files changed, 20 insertions, 0 deletions
diff --git a/3647/CH6/EX6.5/Ex6_5.sce b/3647/CH6/EX6.5/Ex6_5.sce
new file mode 100644
index 000000000..d58c3db57
--- /dev/null
+++ b/3647/CH6/EX6.5/Ex6_5.sce
@@ -0,0 +1,20 @@
+//Solutions to Problems In applied mechanics
+//A N Gobby
+clear;
+
+clc
+//initialisation of variables
+v=4//in
+w=20//tonf
+d=10//ft
+m=13400//tonf/in^2
+q=2//in
+l=120//in
+//CALCULATIONS
+Fmax=q*(w)/(%pi/v*v^2)//tonf/in^2
+M=Fmax*l/m//in
+P=w*M//in tonf
+//RESULTS
+printf('The maximum instantneous stress=% f tonf/in^2',Fmax)
+printf('The maximum elongation is=% f in',M)
+printf('the strain energy stored=% f in tonf',P)
+\ No newline at end of file