Actividad 2
Actividad 2
Actividad 2
Cómputo Cientı́fico II
Generalidades
6 de febrero de 2024
Índice
1. Introducción II
2. Metodologı́a III
3. Desarrollo III
4. Resultados III
5. Conclusiones III
6. Referencias IV
Apéndices V
A. Código fuente V
B. Imágenes VI
I
Resumen
En la práctica de esta semana, se empleó el Método de Euler para resolver ecuaciones diferen-
ciales ordinarias, para modelar la transferencia de calor en un cuerpo de agua. Posteriormente, se
generó un conjunto de gráficas que mostraban tanto la solución exacta como la solución numérica
del modelo, junto con la radiación solar que afectaba al cuerpo de agua.
Es posible encontrarla solución analı́tica de la Tnum (k+1) = Tnum (k)+dt[aJs sin ωt(k)−q(Tnum (k)−Ti )]
ecuación (Ec. 1), la cual es (7)
donde t va en intervalos de dt dı́as.
aJs
T (t) = Ti +(To −Ti )e−qt + 2 (ωe−qt +ω cos ωt+q sin ωt).
ω + q2
(2) Es posible componer un script en software de
El método de Euler es el más simple de los programación para resolver las operaciones nece-
métodos numéricos para resolver un problema de sarias y graficar la función, tanto analı́tica, como
valor inicial (Hurtado y Sánchez, 2012, pp. 539- numérica.
541) como el que se planteó anteriormente. Este
consiste en dividir el intervalo que va de xo a xf
en n subintervalos de ancho h; o sea
xf − xo
h= (3)
n
de manera que se obtiene un conjunto discreto
de (n + 1) puntos del intervalo de interés [xo , xf ].
II
2. Metodologı́a 3. Desarrollo
Se siguieron los siguientes pasos para cons- Para la simulación presentada, se utilizaron
truir el script en Matlab: los siguientes parámetros:
III
6. Referencias
Referencias
Create Cartesian Axes - MATLAB Axes - MathWorks América Latina. (s.f.). https://la.mathworks.
com/help/matlab/ref/axes.html
Hurtado, A. N., & Sánchez, F. C. D. (2012, 1 de enero). Métodos numéricos aplicados a la ingenierı́a
(4.a ed.).
IV
Apéndices
A. Código fuente
Código MATLAB.
clc
clear a l l
% Constantes
A = 2 . 5 E6 ;
V = 5E8 ;
Q = 80 ∗ 8 6 4 0 0 ;
J s = 290 ∗ 8 6 4 0 0 ;
omega = ( 2 ∗ pi ) / ( 2 ∗ 3 6 5 ) ;
rho = 1 0 0 0 ;
C = 4182;
Ti = 1 0 ;
To = 1 5 ;
a = A/ (V∗ rho ∗C ) ;
q = Q/V;
dt = 6 0 ;
t = 0 : dt : 3 6 5 ;
% S o l u c i n Exacta
T e x a c t a = Ti + (To − Ti ) ∗ exp(−q . ∗ t ) +
( ( a ∗ J s ) / ( omega ˆ2 + q ˆ 2 ) ) ∗ ( omega ∗ exp(−q . ∗ t )
− omega ∗ cos ( omega . ∗ t ) + q ∗ sin ( omega . ∗ t ) ) ;
% S o l u c i n Num rica
T numerica ( 1 ) = To ;
for i = 1 : 6
T numerica ( i + 1 ) = T numerica ( i ) +
dt . ∗ ( a . ∗ J s . ∗ sin ( omega . ∗ t ( i ) ) − q . ∗ ( T numerica ( i ) − Ti ) ) ;
end
V
Código MATLAB
% Figura y p l o t t i n g
figure ( 1 ) , c l f (1)
ax1 = axes ( ’ P o s i t i o n ’ , [ 0 . 1 0 . 5 5 0 . 8 0 . 3 5 ] ) ;
hold on
hold o f f
ax2 = axes ( ’ P o s i t i o n ’ , [ 0 . 1 0 . 1 0 . 8 0 . 3 5 ] ) ;
plot ( ax2 , t , sin ( omega . ∗ t ) )
xlabel ( ’ Tiempo [ d a s ] ’ )
ylabel ( ’ R a d i a c i n S o l a r [W/mˆ 2 ] ’ )
s a v e a s ( 1 , ’ f i g u r a . png ’ )
B. Imágenes
VI
VII