diff options
Diffstat (limited to '1309/CH4/EX4.1')
| -rwxr-xr-x | 1309/CH4/EX4.1/Result4_1.pdf | bin | 0 -> 87543 bytes | |||
| -rwxr-xr-x | 1309/CH4/EX4.1/ch4_1.sce | 19 |
2 files changed, 19 insertions, 0 deletions
diff --git a/1309/CH4/EX4.1/Result4_1.pdf b/1309/CH4/EX4.1/Result4_1.pdf Binary files differnew file mode 100755 index 000000000..4f011f37a --- /dev/null +++ b/1309/CH4/EX4.1/Result4_1.pdf diff --git a/1309/CH4/EX4.1/ch4_1.sce b/1309/CH4/EX4.1/ch4_1.sce new file mode 100755 index 000000000..8205a1f31 --- /dev/null +++ b/1309/CH4/EX4.1/ch4_1.sce @@ -0,0 +1,19 @@ +clc; +clear; +printf("\t\t\tChapter4_example1\n\n\n"); +// determination of response time +k=12; // thermal conductivity in BTU/(hr.ft.degree Rankine) +c=0.1; // specific heat in BTU/(lbm.degree Rankine) +D=0.025/12; // diameter in ft +density=525; // density in lbm/cu.ft +hc=80; // convective coefficient in BTU/(hr. sq.ft. degree Rankine) +T_i=65; // intial temperature in degree fahrenheit +T_inf=140; // fluid temperature in degree fahrenheit +As=3.14*D^2; // surface area in sq.ft +Vs=3.14*D^3/6; // volume in cu.ft +reciprocal_timeconstant=(hc*As)/(density*Vs*c); +printf("\nThe reciprocal of time constant is %.1f /hr",reciprocal_timeconstant); +// selecting T=139 degree fahrenheit as T=140 gives an infinite time through the equation (T-T_inf)/(T_i-T_inf)=exp(-hc*As/density*Vs*c)t +T=139; +t=log((T-T_inf)/(T_i-T_inf))/(-reciprocal_timeconstant); +printf('\n\nThe response time of the junction is %.1f s",t*3600); |