diff options
Diffstat (limited to '3831/CH4/EX4.4')
-rw-r--r-- | 3831/CH4/EX4.4/Ex4_4.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/3831/CH4/EX4.4/Ex4_4.sce b/3831/CH4/EX4.4/Ex4_4.sce new file mode 100644 index 000000000..22d6af91d --- /dev/null +++ b/3831/CH4/EX4.4/Ex4_4.sce @@ -0,0 +1,10 @@ +// Example 4_4
+clc;funcprot(0);
+// Given data
+p=20.0;// Pressure in psia
+D_1=1.00;// Initial diameter in ft
+D_2=10.0;// Final diameter in ft
+
+// Solution
+W_12=p*144*(%pi/6)*(D_2^3-D_1^3);// ft.lbf
+printf('\nThe moving system boundary work,W_12=%1.2e ft.lbf',W_12);
|