summaryrefslogtreecommitdiff
path: root/2021/CH21/EX21.13/EX21_13.sce
blob: 5228cdc2695816f9c69914079d9026a57f411861 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Finding of Power delivered
//Given
L=(588600-(588600*4)/100);
d=35;
l=5;
q=0.008;
t1=2.5*60;
rho=1000;
g=9.81;
//To Find
A=(%pi/4)*d^2;
P=L/A;
P1=P*10^4;
H=P1/(rho*g);
W1=q*1000*g*H;
W2=L*l/t1;
W3=W1+W2;
W4=W3/1000;
disp("Power Delivered ="+string(W4)+" Kilo Watts");