diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3685/CH18/EX18.12 | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3685/CH18/EX18.12')
| -rw-r--r-- | 3685/CH18/EX18.12/Ex18_12.sce | 37 | ||||
| -rw-r--r-- | 3685/CH18/EX18.12/Ex18_12.txt | 4 |
2 files changed, 41 insertions, 0 deletions
diff --git a/3685/CH18/EX18.12/Ex18_12.sce b/3685/CH18/EX18.12/Ex18_12.sce new file mode 100644 index 000000000..e7272b6b8 --- /dev/null +++ b/3685/CH18/EX18.12/Ex18_12.sce @@ -0,0 +1,37 @@ +clc
+d1 = 10 // Diameter of inner cylinder in cm
+d2 = 20 // Diameter of outer cylinder in cm
+e1 = 0.65 // emissivity of inner surface
+e2 = 0.4 // emissivity of outer surface
+T1 = 1000 // Inner surface temperature in K
+T2 = 500 // outer suface temperature in K
+sigma = 5.67e-8 // Constant
+printf("\n Example 18.12\n")
+A1 = %pi*d1*1e-2
+A2 = %pi*d2*1e-2
+R =(((1-e1)/(e1*A1))+((1-e2)/(e2*A2))+(1/(A1*1)))
+Eb1 = sigma*T1^4
+Eb2 = sigma*T2^4
+Q = (Eb1-Eb2)/R // Net heat transfer between two cylinders
+printf("\n Net heat transfer between two cylinders is %d W/m length",Q)
+
+//The answers vary due to round off error
+clc
+d1 = 10 // Diameter of inner cylinder in cm
+d2 = 20 // Diameter of outer cylinder in cm
+e1 = 0.65 // emissivity of inner surface
+e2 = 0.4 // emissivity of outer surface
+T1 = 1000 // Inner surface temperature in K
+T2 = 500 // outer surface temperature in K
+sigma = 5.67e-8 // Constant
+printf("\n Example 18.12\n")
+A1 = %pi*d1*1e-2
+A2 = %pi*d2*1e-2
+R =(((1-e1)/(e1*A1))+((1-e2)/(e2*A2))+(1/(A1*1)))
+Eb1 = sigma*T1^4
+Eb2 = sigma*T2^4
+Q = (Eb1-Eb2)/R // Net heat transfer between two cylinders
+printf("\n Net heat transfer between two cylinders is %d W/m length",Q)
+
+//The answers vary due to round off error
+
diff --git a/3685/CH18/EX18.12/Ex18_12.txt b/3685/CH18/EX18.12/Ex18_12.txt new file mode 100644 index 000000000..48c6cba5d --- /dev/null +++ b/3685/CH18/EX18.12/Ex18_12.txt @@ -0,0 +1,4 @@ +
+ Example 18.12
+
+ Net heat transfer between two cylinders is 7297 W/m length
\ No newline at end of file |