1 files changed, 24 insertions, 0 deletions
diff --git a/3594/CH13/EX13.1/Ex13_1.sce b/3594/CH13/EX13.1/Ex13_1.sce
new file mode 100644
index 000000000..69d8c5733
--- /dev/null
+++ b/3594/CH13/EX13.1/Ex13_1.sce
@@ -0,0 +1,24 @@
+
+clc
+//given
+//all lengths are in inches
+W=120//lb
+w=15//lb
+AB=12
+BF=8
+BC=12
+BE=6.5
+g=35230//inches rpm
+//at Minimum radius 
+AF=(AB^2-BF^2)^(1/2)
+CE=(BC^2-BE^2)^(1/2)
+k2=(BE*AF)/(CE*BF)
+N2=(((W/2)*(1+k2)+w)*g/(w*AF))^(1/2)
+//At MAximum radius 
+BF1=10
+BE1=8.5
+AF1=(AB^2-BF1^2)^(1/2)
+CE1=(BC^2-BE1^2)^(1/2)
+k1=(BE1*AF1)/(CE1*BF1)
+N1=(((W/2)*(1+k1)+w)*g/(w*AF1))^(1/2)
+printf("\nN1 (corresponding maximum radius) = %.1f rpm\nN2 (corresponding minimum radius) = %.1f rpm",N1,N2)