diff options
Diffstat (limited to '1985/CH17/EX17.6/Chapter17_example6.sce')
-rwxr-xr-x | 1985/CH17/EX17.6/Chapter17_example6.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1985/CH17/EX17.6/Chapter17_example6.sce b/1985/CH17/EX17.6/Chapter17_example6.sce new file mode 100755 index 000000000..921798695 --- /dev/null +++ b/1985/CH17/EX17.6/Chapter17_example6.sce @@ -0,0 +1,15 @@ +clc
+clear
+//Input data
+d1=0.04//Thickness of first layer in m
+d2=0.02//Thickness of second layer in m
+K1=226.8//Thermal conductivity of the first layer in W/m.K
+K2=151.2//Thermal conductivity of the second layer in W/m.K
+T1=100+273//Temperature of first layer in K
+T2=0+273//Temperature of second layer in K
+
+//Calculations
+T=((((K1*T1)/d1)-((K2*T2)/d2))/((K1/d1)+(K2/d2)))//The temperature at the interface in K. The formula and calculation is made wrong in the textbook.
+
+//Output
+printf('The temperature at the interface is %3.3f K',T)
|