summaryrefslogtreecommitdiff
path: root/2870/CH8/EX8.1/Ex8_1.sce
blob: 407bb67b2578c2cd51ca14fa955a30db00f4e568 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc;clear;
// Example 8.1

// given data
D=12;
V=10;

// density of air at 25C & 1atm
p=1.18;

//calculations
ke=(V^2)/2/1000;//factor of 1000 for converting J into kJ
m=p*%pi*[D ^2]*V/4; 
MP=m*(ke);
disp(MP,'Maximum power in kW')