summaryrefslogtreecommitdiff
path: root/3792/CH7/EX7.8/Ex7_8.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3792/CH7/EX7.8/Ex7_8.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3792/CH7/EX7.8/Ex7_8.sce')
-rw-r--r--3792/CH7/EX7.8/Ex7_8.sce25
1 files changed, 25 insertions, 0 deletions
diff --git a/3792/CH7/EX7.8/Ex7_8.sce b/3792/CH7/EX7.8/Ex7_8.sce
new file mode 100644
index 000000000..230175198
--- /dev/null
+++ b/3792/CH7/EX7.8/Ex7_8.sce
@@ -0,0 +1,25 @@
+// SAMPLE PROBLEM 7/8
+clc;funcprot(0);
+// Given data
+m=1000;// The mass of turbine rotor in kg
+k=0.200;// m
+N=500;// rev/min
+rho=400;// The radius of gyration in m
+v=25*0.514;// m/s
+d_AG=0.6;// m
+d_GB=0.9;// m
+d_AB=d_AG+d_GB;// m
+g=9.81;// The acceleration due to gravity in m/s^2
+
+// Calculation
+// The moment principle from statics easily gives
+W=m*g;// N
+R_1=(m*g)*d_AG;// N
+R_2=W-R_1;// N
+omega=(v/rho);// rad/s
+I=m*k^2;// kg-m^2
+deltaR=(I*omega*((2*%pi*N)/60))/d_AB;
+R_A=R_1-deltaR;// N
+R_B=R_2+deltaR;// N
+printf("\nThe vertical components of the bearing reactions at A and B,R_A=%4.0f N and R_B=%4.0f N",R_A,R_B);
+// The answer provided in the textbook is wrong