diff options
Diffstat (limited to '551/CH2/EX2.17')
-rwxr-xr-x | 551/CH2/EX2.17/17.sce | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/551/CH2/EX2.17/17.sce b/551/CH2/EX2.17/17.sce new file mode 100755 index 000000000..22257a89b --- /dev/null +++ b/551/CH2/EX2.17/17.sce @@ -0,0 +1,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")
\ No newline at end of file |