summaryrefslogtreecommitdiff
path: root/51/CH5/EX5.24/5_24.sce
blob: 314cabf6e8b480deaa9d0ec33e184a33c78b4a87 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
clc;
clear;
p=0.4;//kW
dia=0.6;//m
v2=12;//m/s
v1=0;//m/s
//energy equation
Wuseful=(v2^2)/2;
//wshaftin= Wshaftin/m
wshaftin=(p*1000)/(1.23*%pi*(0.6^2)*12/4);
eff=Wuseful/wshaftin;
disp("N.m/kg",Wuseful,"The work to air which provides useful effect-=")
disp(eff,"Fluid mechanical efficiency of this fan=")