1 files changed, 16 insertions, 0 deletions
diff --git a/1793/CH14/EX14.2/14Q2.sce b/1793/CH14/EX14.2/14Q2.sce
new file mode 100755
index 000000000..79001ee8c
--- /dev/null
+++ b/1793/CH14/EX14.2/14Q2.sce
@@ -0,0 +1,16 @@
+clc
+G=16
+H=7
+c=30
+Ta=0.65*G*H*(tand(45-c/2))^2
+A=Ta*3*3/4
+B1=Ta*3-54.61
+C=Ta*4*4/4
+B2=Ta*4-97.08
+s=2
+As=A*s
+Bs=(B1+B2)*s
+Cs=C*s
+printf( 'The strut loads at level A = %f kN\n',As)
+printf( ' The strut loads at level B = %f kN\n',Bs)
+printf( ' The strut loads at level C = %f kN',Cs)