summaryrefslogtreecommitdiff
path: root/2021/CH17/EX17.11/EX17_11.sce
blob: a57589ca399646cc2066c7c2d302a350a287881a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Finding of Propelling Force,Work Done ,Efficiency
//Given
Cv=0.97;
g=9.81;
H=6;
rho=1000;
u=4;
d=0.15;
//To Find
V=Cv*sqrt(2*g*H);
A=(%pi/4)*d^2;
P=rho*A*(V+u)*V;
W=P*u;
E=(2*u*V)/(u+V)^2;
E1=E*100;
disp("Propelling Force ="+string(P)+" Newtons");
disp("Work Done ="+string(W)+" N-m");
disp("Efficiency ="+string(E1)+" Percentage");