diff options
Diffstat (limited to '812/CH4/EX4.16')
| -rwxr-xr-x | 812/CH4/EX4.16/4_16.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/812/CH4/EX4.16/4_16.sce b/812/CH4/EX4.16/4_16.sce new file mode 100755 index 000000000..4feb7092b --- /dev/null +++ b/812/CH4/EX4.16/4_16.sce @@ -0,0 +1,11 @@ +//Rate of heat//
+pathname=get_absolute_file_path('4.16.sce')
+filename=pathname+filesep()+'4.16-data.sci'
+exec(filename)
+//Velocity at exit(in ft/sec):
+V2=m*R*(T2+460)/A2/p2/144
+//As power input is to CV, Ws=-600
+//Rate of heat transfer(in Btu/sec):
+Q=Ws*550/778+m*cp*(T2-T1)+m*V2^2/2/32.2/778
+printf("\n\nRESULTS\n\n")
+printf("\n\nRate of heat transfer: %.3f Btu/sec\n\n",Q)
|