## Transcribed Text

Consider square copper plates of thickness
Conveyor
8 mm and Length 2m on a conveyer belt
that leave a furnace at 300C and are cooled
o
in air at 30C.
For conveyer velocities of 5m/s through
60m/s in increments of 5 m/s provide the
work and road map for the following:
T,
L
1. Plot surface temperature T(t) vs
time for 100 seconds.
2. Plot heat transfer rate q(t) vs time
for 100 seconds.
- - 8
3. Plot total energy transfer Q(t) vs
time for 100 seconds.
4. At time of 100 seconds, plot Drag
Air
Force (N) and Power to overcome
Drag (w) vs Velocity (m/s).
5. Over a 24-hour period if there are 100 plates on the conveyor line and if the power expense is
$0.15/kW-hour, what is the total cost per 24 hour period to overcome DRAG vs. conveyor velocity.
A 4m radius copper sphere is incased with a 3mm layer of aluminum assuming perfect interface
conditions. The composite sphere is originally at 800C and is exposed to air at 200C.
a. Plot the surface temperature T(t) vs time for 0-300 seconds for air velocity of 3m/s to 30 m/s in
steps of 3 m/s.
b. Plot the heat transfer rate q(t) VS time for 0-300 seconds for air velocity of 3m/s to 30 m/s in
steps of 3 m/s.
c. Plot the interface temperature between the copper and the aluminum at steady state for air
velocity of 3m/s to 30 m/s in steps of 3 m/s.

These solutions may offer step-by-step problem-solving explanations or good writing examples that include modern styles of formatting and construction
of bibliographies out of text citations and references. Students may use these solutions for personal skill-building and practice.
Unethical use is strictly forbidden.

%%%%%%%%%%%%%%%%%%

%PART A

Tp = 273 + 300;

Tinf = 273 + 30;

Tf = 0.5*(Tp + Tinf);

ni = 30.24e-6; %air kinematic viscosity at Tf

L = 2;

lambda = 0.03598; %air thermal conductivity at Tf

Pr = 0.69;

k = 385;

ro = 8960;

c = 377;

As = L^2;

delta = 6e-3;

V = As*delta;

Ti(12,100) = 0;

Ttemp = 273 + 300;

Q(12,100) = 0;

for u = 5:5:60

for t = 1:100

Ti(u/5,t) = Ttemp;

xc = ni*5e5/u;

Re = u*L/ni;

if xc < L

NUekv = 0.664*sqrt(Re)*Pr^(1/3);...