diff options
Diffstat (limited to '1325/CH14/EX14.13/14_13.sce')
| -rw-r--r-- | 1325/CH14/EX14.13/14_13.sce | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/1325/CH14/EX14.13/14_13.sce b/1325/CH14/EX14.13/14_13.sce new file mode 100644 index 000000000..a2fa10375 --- /dev/null +++ b/1325/CH14/EX14.13/14_13.sce @@ -0,0 +1,17 @@ +//To find maximum and minimum secondary force
+clc
+//given
+g=32.2//ft/s^2
+n=2000//rpm
+R=6//lb
+r=3//in
+L=11//in
+w=%pi*n/30
+n=L/r
+//minimum secondary force
+F1=2*R*w^2*r/(g*n*12)
+a=floor(F1)
+//maximum secondary force
+F2=6*R*w^2*r/(g*n*12)
+b=floor(F2)
+printf("\nMinimum secondary force = %.f lb\nMaximum secondary force = %.f lb",a,b)
|