1 files changed, 17 insertions, 0 deletions
diff --git a/3137/CH13/EX13.7/Ex13_7.sce b/3137/CH13/EX13.7/Ex13_7.sce
new file mode 100755
index 000000000..2ff14e58f
--- /dev/null
+++ b/3137/CH13/EX13.7/Ex13_7.sce
@@ -0,0 +1,17 @@
+//Initilization of variables
+W=10 //lb
+theta=30 //degrees
+l=2 //ft
+w=10 //rev/min
+g=32.2 //ft/s^2
+//Calculations
+r=l*cosd(theta) //ft
+a_n=r*(((w*2*%pi)/60)^2) //ft/s^2
+//Applying Newtons Principle
+//Solving by matrix method
+A=[cosd(theta),-sind(theta);sind(theta),cosd(theta)] 
+B=[(W*a_n)/g;W] 
+C=inv(A)*B //lb
+//Result
+clc
+printf('The value of T is %flb',C(1))