Clc, clear all
disp(‘Curso: Transferencia de calor’)
disp('Prof.: Dr. Guillermo Evangelista Bonitos')
disp('Tema : Intercambiadores de calor')
disp(' ')
disp('Problema 11-16 - pág. 667)')
disp('Intercomunicaciones: 1)')
disp('Ingreso los siguientes datos:')
disp(' ')
disp('Intercombinador de calor:')
disp('---------------------------------------------')
k = input('Conductividad témica del cobre, W/m.°C: '); % ± 380
L = input('Longitud del tubo, m: '); % 1
Di = input('Diámetro interno, m: '); % 0.012
Do = input('Diámetro externo, m: '); % 0.016
disp(' ')
disp('Coeficientes de transferencia de calor por convección:')
disp('--------------------------------------------------------------------')
hi = input('Sobre la superficie interior del tubo, W/m².°C: '); % 800
ho = input(‘Sobre la superficie exterior del tubo W/m².°C: '); % 240
disp(' ')
disp(' Factores de Incrustación ')
disp('--------------------------------------------------------------------')
Rfi = input(‘Del lado del tubo, m^2, °C/W : ‘);%0.0005
Rfo = input(‘Del lado del tubo, m^2, °C/W : ‘);%0.0002
%Calculos
