summaryrefslogtreecommitdiff
path: root/914/CH11/EX11.1/ex11_1.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /914/CH11/EX11.1/ex11_1.sce
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '914/CH11/EX11.1/ex11_1.sce')
-rwxr-xr-x914/CH11/EX11.1/ex11_1.sce29
1 files changed, 29 insertions, 0 deletions
diff --git a/914/CH11/EX11.1/ex11_1.sce b/914/CH11/EX11.1/ex11_1.sce
new file mode 100755
index 000000000..17592bd85
--- /dev/null
+++ b/914/CH11/EX11.1/ex11_1.sce
@@ -0,0 +1,29 @@
+clc;
+warning("off");
+printf("\n\n example11.1 - pg497");
+// given
+K_drywall=0.28; //[Btu/ft*degF] - thermal conductivity of dry wall
+K_fibreglass=0.024; //[Btu/ft*degF] - thermal conductivity of fibre glass
+K_concrete=0.5; //[Btu/ft*degF] - thermal conductivity of concrete
+T4=0; //[degF]
+T1=65; //[degF]
+deltaT=T4-T1; //[degF]
+a=1; //[ft^2] - assuming area of 1 ft^2
+deltax1=0.5/12; //[ft]
+deltax2=3.625/12; //[ft]
+deltax3=6/12; //[ft]
+R1=deltax1/(K_drywall*a); //[h*degF/Btu]
+R2=deltax2/(K_fibreglass*a); //[h*degF/Btu]
+R3=deltax3/(K_concrete*a); //[h*degF/Btu]
+qx=deltaT/(R1+R2+R3);
+q12=-qx;
+q23=-qx;
+q34=-qx;
+deltaT1=(-q12)*deltax1*(1/(K_drywall*a));
+T2=T1+deltaT1;
+deltaT2=(-q23)*deltax2*(1/(K_fibreglass*a));
+T3=T2+deltaT2;
+deltaT3=(-q34)*deltax3*(1/(K_concrete*a));
+T4=T3+deltaT3;
+printf("\n\n T1 = %f degF\n T2 = %f degF\n T3 = %f degF\n T4 = %f degF",T1,T2,T3,T4);
+