summaryrefslogtreecommitdiff
path: root/3594/CH13/EX13.3/Ex13_3.sce
diff options
context:
space:
mode:
Diffstat (limited to '3594/CH13/EX13.3/Ex13_3.sce')
-rw-r--r--3594/CH13/EX13.3/Ex13_3.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/3594/CH13/EX13.3/Ex13_3.sce b/3594/CH13/EX13.3/Ex13_3.sce
new file mode 100644
index 000000000..1c8100f87
--- /dev/null
+++ b/3594/CH13/EX13.3/Ex13_3.sce
@@ -0,0 +1,20 @@
+
+clc
+//given
+w=3//lb
+g=32.2
+N2=300
+w2=(N2*%pi/30)
+r2=3/12//ft
+N1=1.06*N2
+r1=4.5/12//ft
+a=4//in
+b=2//in
+ro=3.5/12//ft
+F2=w*w2^2*r2/g
+F1=F2*N1^2*r1/(N2^2*r2)
+p=2*a^2*(F1-F2)/(b^2*(r1-r2))
+Fc=F2+(F1-F2)*(.5/1.5)
+N=(Fc*g/(ro*w))^(1/2)*30/%pi
+Ns=ceil(N)
+printf("N = %.f rpm",Ns)