diff options
Diffstat (limited to '2510/CH4/EX4.1/Ex4_1.sce')
| -rwxr-xr-x | 2510/CH4/EX4.1/Ex4_1.sce | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/2510/CH4/EX4.1/Ex4_1.sce b/2510/CH4/EX4.1/Ex4_1.sce new file mode 100755 index 000000000..51f82ff30 --- /dev/null +++ b/2510/CH4/EX4.1/Ex4_1.sce @@ -0,0 +1,28 @@ +//Variable declaration: +Vx_in = 420 //Entry Velocity in X direction (m/s) +Vx_out = 0 //Exit Velocity in X direction (m/s) +Vy_in = 0 //Entry Velocity in Y direction (m/s) +Vy_out = 420 //Exit Velocity in Y direction (m/s) +m = 0.15 //Rate of water entrained by the steam (kg/s) +lb = 1.0/4.46 //Pound force in a newton force + +//Calculations: +Mx_out = m*Vx_out //Rate of change of momentum at entry in x-direction (kg.m) +Mx_in = m*Vx_in //Rate of change of momentum at exit in x-direction (kg.m) +My_out = m*Vy_out //Rate of change of momentum at entry in y-direction (kg.m) +My_in = m*Vy_in //Rate of change of momentum at exit in y-direction (kg.m) +Fxgc = (Mx_out - Mx_in)*lb //Force in X direction (lbf) +Fygc = (My_out - My_in)*lb //Force in X direction (lbf) + +//Results: +if Fxgc < 1 then + printf ("The x-direction supporting force acting on the 90° elbow is : %.1f lbf acting toward the left.",-Fxgc) +else + printf ("The x-direction supporting force acting on the 90° elbow is : %.1f lbf acting toward the right.",Fxgc) +end + +if Fygc < 1 then + printf ("The y-direction supporting force acting on the 90° elbow is : %.1f lbf acting downwards.",-Fygc) +else + printf ("The y-direction supporting force acting on the 90° elbow is : %.1f lbf acting upwards.",Fygc) +end |