diff options
Diffstat (limited to '1325/CH14/EX14.12/14_12.sce')
| -rw-r--r-- | 1325/CH14/EX14.12/14_12.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1325/CH14/EX14.12/14_12.sce b/1325/CH14/EX14.12/14_12.sce new file mode 100644 index 000000000..b327e23cd --- /dev/null +++ b/1325/CH14/EX14.12/14_12.sce @@ -0,0 +1,15 @@ +//To find the resultant primary and secondary force
+clc
+//given
+N=1500 //rpm
+R=4//lb
+g=32.2//ft/s^2
+w=%pi*N/30
+stroke=5//in
+r=stroke/2
+l=9//in
+b=3.5//in
+B=(3/2)*R*r/b//primary force
+n=l/r
+F=(3/2)*R*w^2*r/(g*12*n)//secondary force
+printf("\nResultant primary force = %.2f lb\nResultant secondary force = %.f lb",B,F)
|