diff options
Diffstat (limited to '3850/CH28/EX28.4/Ex28_4.sce')
| -rw-r--r-- | 3850/CH28/EX28.4/Ex28_4.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3850/CH28/EX28.4/Ex28_4.sce b/3850/CH28/EX28.4/Ex28_4.sce new file mode 100644 index 000000000..8bff3c869 --- /dev/null +++ b/3850/CH28/EX28.4/Ex28_4.sce @@ -0,0 +1,20 @@ + +//To calculate the Net Rate of Heat Loss
+
+//Example 28.4
+
+clear;
+
+clc;
+
+A=10*10^-4;//Surface Area of Blackbody in m^2
+
+T=400;//Initial Temperature in Kelvin
+
+T0=300;//Final Temperature in Kelvin
+
+Sigma=5.67*10^-8;//Stefan Constant
+
+delU=Sigma*A*(T^4-T0^4);//Net Rate of Heat Loss
+
+printf("The net rate of loss of heat is=%2f W",delU);
|