551/CH2/EX2.17/17.sce


1
2
3
4
5
6
7
8
9
10
11
12
13

clc
T=1.25; //N.m
N=9500;
W1=2*%pi*N*T/1000; //kJ
p=101.3; //kPa
d=0.65; //m
A=%pi/4*d^2; //m^2
L=0.6; //m
W2=p*A*L; //kJ
Wnet=(-W1)+W2;
disp("The net work transfer for the system=")
disp(Wnet)
disp("kJ")