Investigacionmetodos II
Investigacionmetodos II
Investigacionmetodos II
TRABAJO DE INVESTIGACION
ALUMNO:
Quevedo Cavero Cristhofer Jhosue
CODIGO:
14130170
PROFESOR:
ING. CHAUCA NOLASCO WILLIAM
LIMA-2018
Introducción
Cuando se quiere enseñar métodos numéricos para la solución de ecuaciones diferenciales parciales
(EDP)en las áreas de matemáticas, física e ingeniería, existe una tendencia común a resolver
problemas sobre dominios simétricos con condiciones de frontera del tipo Dirichlet y Neumann. Las
EDP sobre las cuales se trabaja normalmente son la ecuación de Laplace y la ecuación de Poisson, las
cuales aparecen en áreas de la ciencia como la electricidad, conducción de calor y flujo de fluídos,
por lo que resolverlas a través de métodos numéricos reviste un interés importante. Los métodos
numéricos más comunes para la solución de estas EDP son el método de diferencias finitas y el
método de elementos finitos, aplicados sobre dominios rectangulares o circulares. Este trabajo está
dirigido a implementar el método de diferencias finitas para la solución de la ecuación de Laplace
sobre un dominio en forma de anillo circular o “dona”, que representa un reto adicional y que
permite mostrar una técnica del manejo de la frontera y sus condiciones
TRABAJO DE INVESTIGACION Y RESOLUCION DE PROBLEMAS
1.-MÉTODOS NUMÉRICOS PARA SOLUCIÓN DE ECUACIONES
DIFERENCIALES PARCIALES ELÍPTICAS
Las ecuaciones diferenciales parciales pueden no tener una solución explícita y tener alta dimensionalidad. Nuestro objetivo
es entonces, estudiar las propiedades de este tipo de ecuaciones, así como métodos numéricos y estrategias de
implementación para la solución de las mismas. Primero, presentaremos brevemente algunos aspectos teóricos importantes de
las Ecuaciones Elípticas tomando como primer caso de estudio a la ecuación de Poisson.
Presentaremos resultados obtenidos con el método de Diferencias Finitas.
Hablaremos con detalle del método de Elemento Finito aplicado a casos particulares de Ecuaciones Diferenciales Parciales
Elípticas.
Los problemas gobernados por ecuaciones diferenciales parciales (EDP) elípticas presentan curvas
características complejas. Físicamente, esto implica que no hay trayectorias preferidas en la propagación y que el
dominio de dependencia y el rango de influencia de cada punto es el dominio entero de la solución. Es decir, la
solución de cada punto depende e influye en la solución de todos los demás puntos, incluyendo la frontera. La
solución es continua y el dominio de solución es cerrado para una EDP elíptica, el cual es ilustrado
esquemáticamente por medio de la siguiente figura.
en R = {(x,y) / a ≤ x ≤ b y c ≤ y ≤ d}, con T(x,y) = g(x,y) para (x,y) Є S, donde S denota la frontera en R.
Para obtener la solución numérica de la ecuación de Laplace, se debe como primer paso seleccionar los
enteros Nx y Ny, y definir los tamaños de paso en ambas direcciones mediante las expresiones:
La división del intervalo [a,b] en Nx + 1 partes iguales de ancho hx, y del intervalo [c;d] en Ny + 1 partes
iguales de ancho hy, da como resultado una malla en el rectángulo R al trazar líneas verticales y horizontales a
través de los puntos con coordenadas (xi; yj), donde:
Las líneas x = xi e y = yj son líneas de la malla, y sus intersecciones son los nodos de la malla. En cada nodo
interior de la malla (xi; yj) con i= 1, 2, …, Nx y j= 1, 2, …, Ny, se utilizará el desarrollo de la serie de Taylor en la
variable x alrededor de xi y en la variable y alrededor de yj para generar las respectivas fórmulas de diferencias
centrales:
El uso de estas aproximaciones permite expresar la ecuación de Laplace en los puntos (x i; yj) como:
donde Eij es el error de truncamiento de la aproximación por diferencias finitas de la ecuación diferencial parcial:
El error de truncamiento Eij, es de segundo orden en hx y hy. Multiplicando la expresión en diferencias por
2
hx , resulta:
donde
Despreciando el error de discretización eij, la expresión que proporciona la ecuación de diferencias finitas
de cinco puntos para la ecuación de Laplace es:
Aunque no hay una ventaja matemática formal cuando β es la unidad, valores de β cercanos a la unidad
tienden a producir soluciones más aproximadas.
Por lo tanto, la solución de una ecuación diferencial parcial por diferencias finitas es obtenida cuando se
resuelven las ecuaciones de diferencias finitas para cada punto en el dominio de solución.
La ecuación de Laplace tratada anteriormente, cuya solución numérica fue obtenida por medio del método
de diferencias finitas, presentaba condiciones de Dirichlet en la frontera, es decir, se especificaban valores de
T(x,y) en los bordes. Ahora, se mostrará un procedimiento que se implementa cuando se conocen las derivadas en
los bordes, es decir, cuando las condiciones de frontera son de Neumann.
La aproximación que se aplicará es la ecuación de diferencias finitas del punto interior en el punto
frontera.
La EDF es:
donde el último término es el error de discretización.
El punto de la malla (i+1, j) está fuera del dominio de solución, por lo tanto T i+1j no está definido. Sin
embargo, un valor para Ti+1j puede ser determinado a partir de la condición de Neumann establecida sobre ese
borde del dominio.
Las aproximaciones por diferencias finitas empleadas para las derivadas espaciales son de segundo orden.
Por lo tanto, es aconsejable utilizar una aproximación de diferencias finitas centradas de segundo orden para la
condición de frontera de Neumann, para que el error de truncamiento sea del mismo orden que el de las
aproximaciones para las derivadas espaciales. Así,
para i= Nx + 1 y j= 1, 2, …, Ny.
2.-APLICACIONES EN LA INGENIERIA
La Ecuación de Laplace
Como se mencionó en la introducción de esta parte del libro, la ecuación de Laplace se utiliza para modelar
diversos problemas que tienen que ver con el potencial de una variable desconocida. Debido a su simplicidad y a
su relevancia en la mayoría de las áreas de la ingeniería, usaremos una placa calentada para deducir y resolver
esta EDP elíptica.
Se emplearán problemas académicos y problemas de la ingeniería (capítulo 32) para ilustrar la aplicabilidad del
modelo a otros problemas de ingeniería.
En la figura 29.1 se muestra un elemento sobre la cara de una placa rectangular delgada de espesor ∆z. La placa
está totalmente aislada excepto en sus extremos, donde la temperatura puede ajustarse a un nivel preestablecido.
El aislamiento y el espesor de la placa permiten que la transferencia de calor esté limitada solamente a las
dimensiones x y y. En estado estacionario, el flujo de calor hacia el elemento en una unidad de tiempo ∆t debe
ser igual al flujo de salida, es decir,
donde q(x) y q(y) = los flujos de calor en x y y, respectivamente [cal/(cm2 · s)]. Dividiendo entre z y ∆t, y
reagrupando términos, se obtiene
(29.3)
Esta ecuación diferencial parcial, que es una expresión de la conservación de la energía en la placa. Sin embargo,
la ecuación no puede resolverse, a menos que se especifiquen los flujos de calor en los extremos de la placa.
Debido a que se dan condiciones de frontera para la temperatura, la ecuación (29.3) debe reformularse en
términos de la temperatura. La relación entre flujo y temperatura está dada por la ley de Fourier de conducción
del calor, la cual se representa como:
donde qi = flujo de calor en la dirección de la dimensión i [cal/(cm2 · s)], k = coeficiente de difusividad térmica
(cm2/s), r = densidad del material (g/cm3), C = capacidad calorífica del material [cal/(g · °C)] y T = temperatura
(°C), que se define como:
donde:
H = calor (cal)
V = volumen (cm3).
Algunas veces, el término que está multiplicando
a la derivada parcial en la ecuación (29.4) se trata como un solo término
donde k’ se conoce como el coeficiente de conductividad térmica [cal/(s · cm · °C)]. En ambos casos, k y
k′ son parámetros que determinan qué tan bien conduce calor el material.
A la ley de Fourier algunas veces se le llama ecuación constitutiva. Esta connotación se le da porque proporciona
un mecanismo que define las interacciones internas del sistema. Una inspección de la ecuación (29.4) indica que
la ley de Fourier especifica que el flujo de calor perpendicular al eje i es proporcional al gradiente o pendiente de
la temperatura en la dirección i. El signo negativo asegura que un flujo positivo en la dirección i resulta de una
pendiente negativa de alta a baja temperatura (figura 29.2).
Sustituyendo la ecuación (29.4) en la ecuación (29.3), se obtiene
que es la ecuación de Laplace. Observe que en el caso donde hay fuentes o pérdidas de calor dentro del dominio
bidimensional, la ecuación se puede representar como:
donde f(x, y) es una función que describe las fuentes o pérdidas de calor. La ecuación (29.7) se conoce como
ecuación de Poisson.
TÉCNICA DE SOLUCIÓN
En la solución numérica, las representaciones por diferencias finitas basadas en tratar la placa como una malla de
puntos discretos (figura 29.3) se sustituyen por las derivadas parciales en la ecuación (29.6). Como se describe a
continuación, la EDP se transforma en una ecuación algebraica en diferencias.
El método de Liebmann
En la mayoría de las soluciones numéricas de la ecuación de Laplace se tienen sistemas que son mucho más
grandes que la ecuación (29.10). Por ejemplo, para una malla de 10 por 10 se tienen 100 ecuaciones algebraicas
lineales. En la parte tres se analizaron técnicas de solución para estos tipos de ecuaciones.
Observe que hay un máximo de cinco incógnitas por línea en la ecuación (29.10).
Para mallas grandes se encuentra que un número significativo de los términos será igual a cero. Cuando se
aplican los métodos de eliminación con toda la matriz a estos sistemas dispersos, se ocupa una gran cantidad de
memoria de la computadora, almacenando ceros. Por esta razón, los métodos aproximados representan un mejor
procedimiento para obtener soluciones de EDP elípticas. El método comúnmente empleado es el de Gauss-
Seidel, el cual, cuando se aplica a las EDP, también se conoce como el método de Liebmann. Con esta técnica, la
ecuación (29.8) se expresa como:
y se resuelve de manera iterativa para j = 1 hasta n e i = 1 hasta m. Como la ecuación (29.8) es diagonalmente
dominante, este procedimiento al final convergerá a una solución estable (recuerde la sección 11.2.1). Algunas
veces se utiliza la sobrerrelajación para acelerar la velocidad de convergencia, aplicando la siguiente fórmula
después de cada iteración:
donde Ti,jnuevo y Ti,janterior son los valores de Ti,j de la actual iteración y de la previa, respectivamente; l es un factor
de ponderación que está entre 1 y 2.
Como en el método convencional de Gauss-Seidel, las iteraciones se repiten hasta que los valores absolutos de
todos los errores relativos porcentuales (ea)i,j están por debajo de un criterio preespecificado de terminación es.
Dichos errores relativos porcentuales se estiman mediante
Variables secundarias
Como la distribución de temperatura está descrita por la ecuación de Laplace, ésta se considera la variable
principal en el problema de la placa calentada. En este caso, así como en otros problemas donde se tengan EDP,
las variables secundarias también pueden ser importantes.
En la placa calentada, una variable secundaria es el flujo de calor a través de la superficie de la placa. Esta
cantidad se calcula a partir de la ley de Fourier. Las aproximaciones por diferencias finitas centradas para las
primeras derivadas (recuerde la figura 23.3) se sustituyen en la ecuación (29.4) para obtener los siguientes
valores del flujo de calor en las dimensiones x y y:
Para qx > 0 y
para qx < 0. Recuerde que el ángulo puede expresarse en grados multiplicándolo por 180°/p. Si qx = 0, q es p/2
(90°) o 3p/2 (270°), según qy sea positivo o negativo, respectivamente.
La Ecuación de Poisson
El origen de las Ecuaciones Diferenciales Parciales (EDP) Elípticas en dos
dimensiones espaciales es la ecuación de Poisson:
uxx + uyy = f(x; y) …………………..(1)
Las EDP's con condiciones de frontera son llamados problemas de valores en la frontera.
En un contexto físico, la ecuación (1) describe el estado estable de distribución de temperatura de un
objeto ocupando el dominio . La solución u(x; y) representa la temperatura estable del dominio con
fuentes de calor y cuencas dados por f(x; y). La condición de Dirichlet representa una temperatura fija
en la frontera ƏΩ, mientras que la condición de tipo Newmann representa el flujo de calor. La
condición de Newmann con b2 = 0 representa una frontera perfectamente aislada.
Observación:
La EDP (1) con condición Newmann (4) debe de cumplir la condición de integrabilidad:
La condición de integrabilidad tiene la interpretación física de que las fuentes de calor en la región se
deben balancear con el flujo de calor en la frontera para que exista una temperatura estable.
Cabe señalar que la solución a (1) con condición Newmann está determinada hasta una constante
arbitraria. Esto significa, físicamente, que la temperatura promedio de un cuerpo no puede ser
determinada a partir de los flujos de calor en la frontera y las fuentes de calor y cuencas solamente.
Definición:
La ecuación diferencial elíptica general (cuasilineal) de segundo orden en dos dimensiones, es una
ecuación que puede ser escrita de la forma:
sea positiva para todos valores de (E;n) y todos los valores de (x; y) en .
Notemos que la solución a (1) tiene dos derivadas más que f. Esta propiedad (que la solución sea más
diferenciable que los datos y que esta ganancia en diferenciabilidad de la solución es igual al orden del
operador diferencial) caracteriza a una ecuación o sistema de EDP's elípticas.
Esta estimación es llamada estimación de regularidad. Enuncia que si todas una solución de (1) existe
en L2, i.e. si ||u||0 es finito y la función f tiene todas las derivadas de orden s en L2(R2), entonces la
función u tiene s + 2 derivadas en L2(R2).
4.-CONDICIONES EN LA FRONTERA
Fig(29.7)
En la figura 29.7 se muestra un nodo (0, j) en el extremo izquierdo de una placa calentada. Aplicando la ecuación
(29.8) en este punto, se obtiene:
Observe que para esta ecuación se necesita un punto imaginario (–1, j) que esté fuera de la placa. Aunque este
punto exterior ficticio podría parecer que representa un problema, realmente sirve para incorporar la derivada de
la condición de frontera en el problema, lo cual se logra representando la primera derivada en la dimensión x en
(0, j) por la diferencia dividida finita
donde se puede despejar
Ahora se tiene una relación para T–1,j que incluye la derivada. Esta relación se sustituye en la ecuación (29.19)
para obtener:
5.-FRONTERAS IRREGULARES
La figura 29.9 es un sistema útil para ilustrar cómo se pueden tratar las fronteras no rectangulares. Como se
muestra, la frontera inferior izquierda de la placa es circular.
Agrupando términos…
T11 = 58.8735805
T21 = 59.5067261
T31 = 58.8530438
T41 = 54.1416377
T51 = 29.7542501
T12 = 55.9875959
T52 = 44.8753626
T13 = 55.2425892
T53 = 49.1220233
T14 = 55.3558192
T54 = 50.2625611
T15 = 56.6398567
T25 = 81.2036076
T35 = 86.6454214
T45 = 80.2193424
T55 = 52.6204759
PROGRAMACION EN MATLAB
T=zeros(7,7,2000);
T(:,:,1)=[80 80 80 80 80 80 80;
10 0 0 0 0 0 0;
10 0 0 0 0 0 0;
20 20 20 20 20 20 20;];
for L=2:2000
T(1,:,L)=80;T(7,:,L)=20;
T(:,1,L)=10;T(:,7,L)=0;
T(3:5,3:5,L)=100;
for j=2:6
for i=2:6
if ( j == 2 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 2 && i == 3 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,2/1.5,2/1.5,2/1.5,2/1.5,0,1,1,1,1,1,0);
elseif ( j == 2 && i == 4 )
[T(j,i,L)] = Laplace(T,i,j,L,2,1.5,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 2 && i == 5 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,2/1.5,2/1.5,1,2/1.5,2/1.5,0,1,1,1,1,1,0);
elseif ( j == 2 && i == 6 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 3 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,1,2/1.5,2/1.5,2/1.5,2/1.5,0);
elseif ( j == 3 && i == 6 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,1,2/1.5,2/1.5,2/1.5,2/1.5,0);
elseif ( j == 4 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,2,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 4 && i == 6 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,2,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 5 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,2/1.5,2/1.5,1,2/1.5,2/1.5,0);
elseif ( j == 5 && i == 6 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,2/1.5,2/1.5,1,2/1.5,2/1.5,0);
elseif ( j == 6 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 6 && i == 3 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,2/1.5,2/1.5,2/1.5,2/1.5,0,1,1,1,1,1,0);
elseif ( j == 6 && i == 4 )
[T(j,i,L)] = Laplace(T,i,j,L,2,1.5,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 6 && i == 5 )
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,2/1.5,2/1.5,1,2/1.5,2/1.5,0,1,1,1,1,1,0);
[T(j,i,L)] = Laplace(T,i,j,L,1.5,1.5,1,1,1,1,1,0,1,1,1,1,1,0);
end
end
end
end
disp(T(:,:,2000))
T=zeros(6,6,3000);
T(:,:,1)=[100 0 0 0 0 10;
100 0 0 0 0 10;
100 0 0 0 0 10;
100 0 0 0 0 10;];
for L=2:3000
T(:,1,L)=100; T(:,6,L)=10;
T(6,:,L)=0; T(3:4,3:4,L)=200;
for j=1:5
for i=2:5
if j==1
T(j,i,L)=((T(j,i-1,L-1)+T(j,i+1,L-1)+2*T(j+1,i,L-1))/4);
elseif ( j == 2 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 2 && i == 3 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1,1.9/2,1.9/2,1.9/2,1.9/2,0);
elseif ( j == 2 && i == 4 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1,1.9/2,1.9/2,1.9/2,1.9/2,0);
elseif ( j == 2 && i == 5 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 3 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1.9/2,1.9/2,1.9/2,1.9/2,0,1,1,1,1,1,0);
elseif ( j == 3 && i == 5 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1.9/2,1.9/2,1,1.9/2,1.9/2,0,1,1,1,1,1,0);
elseif ( j == 4 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1.9/2,1.9/2,1.9/2,1.9/2,0,1,1,1,1,1,0);
elseif ( j == 4 && i == 5 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1.9/2,1.9/2,1,1.9/2,1.9/2,0,1,1,1,1,1,0);
elseif ( j == 5 && i == 2 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1,1,1,1,1,0);
elseif ( j == 5 && i == 3 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1.9/2,1.9/2,1,1.9/2,1.9/2,0);
elseif ( j == 5 && i == 4 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1.9/2,1.9/2,1,1.9/2,1.9/2,0);
elseif ( j == 5 && i == 5 )
[T(j,i,L)] = Laplace(T,i,j,L,2,2,1,1,1,1,1,0,1,1,1,1,1,0);
end
T(j,i,L)=1.5*T(j,i,L)-0.5*T(j,i,L);
end
end
end
disp(T(:,:,3000))
DIFERENCIAS FINITAS.
Se basa en la utilización de fórmulas para aproximar las derivadas de una función. Estas fórmulas de
aproximación de las derivadas de una función U pueden ser: centradas, progresivas o regresivas, con un orden de
la aproximación O(hn) n=1,2,3, … Como ejemplo se tienen las siguientes formulas:
Para la primera derivada de la función U(x y t), con respecto a x, utilizando un orden de aproximación O(h2) y
O(h)
Diferencias Centradas
Diferencias Progresivas
Diferencias Regresivas
Otro ejemplo es la fórmula de la segunda derivada de la función U(x,t), centrada y con respecto a x, con orden de
aproximación O(h2 )
8.-APLICACIÓN A LA INGENIERIA
• Las EDP’s del tipo parabólico son muy utilizadas en el estudio del crecimiento de tumores y la forma
en que se difunden sobre los tejidos que lo rodean. En la utilización de estas ecuaciones se supone un
sistema descrito bajo un comportamiento mecánico, donde el sistema puede ser un fluido o mezcla entre
liquido y solido( los fluidos son normalmente los nutrientes). Se presentan fenómenos de difusión y
transporte de nutrientes teniendo en cuenta efectos de concentración, tamaño y velocidad de células. En
este modelo se aplican condiciones iniciales y de frontera que están relacionadas con el tamaño, la
permeabilidad del medio, la geometría y las dimensiones del sistema. Para migraciones no estacionarias
debe satisfacer la EDP.
La solución aproximada se encontrará en cada nodo (j,n). Para ello, sustituimos (5) en (1) y
obtenemos
Con este esquema de discretización el problema se reduce a encontrar, en cada nivel (n+1) las
temperaturas dadas por
que se reduce a
clearall closeall
% ---Calculo del espaciamiento. nt=100; nx=51; dt=0.01; alpha=0.5; L=1; T0=100; Tl=100; dx= L/(nx-1);
x = linspace(0,L,nx);
s = alpha*dt/(dx^2)
𝜕𝑇 𝑇𝑖𝑙+1 − 𝑇𝑖𝑙
=
𝜕𝑡 ∆𝑡
la cual tiene un error de O(∆t)
Sustituyendo las ecuaciones en la ecuación (30.1), se obtiene:
𝑙
𝑇𝑖+1 + 2𝑇𝑖𝑙 + 𝑇𝑖−1
𝑙
𝑇𝑖𝑙+1 − 𝑇𝑖𝑙
𝑘( )=
∆𝑥 2 ∆𝑡
∆𝑡
𝑘 [𝑇 𝑙 + 2𝑇𝑖𝑙 + 𝑇𝑖−1
𝑙
] = 𝑇𝑖𝑙+1 − 𝑇𝑖𝑙
∆𝑥 2 𝑖+1
𝑇𝑖𝑙+1 = 𝑇𝑖𝑙 + 𝜆(𝑇𝑖+1
𝑙
+ 2𝑇𝑖𝑙 + 𝑇𝑖−1
𝑙
)
donde l = k ∆t/(∆x)2
Esta ecuación se puede escribir para todos los nodos interiores de la barra. Dicha ecuación
proporciona un medio explícito para calcular los valores en cada nodo para un tiempo
posterior, basándose en los valores presentes del nodo y de sus vecinos. Observe que este
método es una manifestación del método de Euler para resolver sistemas de EDO. Es decir,
si conocemos la distribución de temperatura como una función de la posición en un tiempo
inicial, es posible calcular la distribución en un tiempo futuro, basada en la ecuación. Una
molécula computacional para el método explícito se representa en la figura 30.3; ahí se
muestran los nodos que constituyen las aproximaciones espacial y temporal.
Molécula computacional para la forma explícita
Esta molécula se compara con otras de este capítulo para ilustrar las diferencias entre los
métodos.
Convergencia y estabilidad
Convergencia significa que contiene ∆𝑥 y ∆𝑡 tiende a cero, los resultados de la tecnica por
diferencias finitas se aproximaran a la solucion verdadera.
Estabilidad significa que los errores en cualquier etapa del cálculo no se amplifica, sino se
atenúan conforme avanza el cálculo (se van contrarrestando).
Para el método explicito es convergente y estable si el 𝜆 ≤ 1/2, pero mayores a ellos los
valores son inestables.
Así, se introdujo un imaginario punto en i = –1 (recuerde la figura 29.7). Sin embargo, como
en el caso elíptico, este punto ofrece un medio para incorporar en el análisis la derivada en
las condiciones de frontera.
MÉTODO IMPLÍCITO
Tener en cuenta:
Como ya se indicó, las formulaciones explícitas por diferencias finitas tienen problemas
relacionados con la estabilidad. Además, excluyen información de importancia para la
solución. Los métodos implícitos superan ambas dificultades a expensas de utilizar algoritmos
un poco más complicados.
La diferencia fundamental entre los métodos explícitos y los implícitos se ilustra en la figura
30.7. En la forma explícita, aproximamos la derivada espacial para un nivel de tiempo l (figura
30.7a). Recuerde que cuando sustituimos esta aproximación en la ecuación diferencial parcial,
obtuvimos una ecuación en diferencias con una sola incógnita T il +1 . Así, podemos despejar
“explícitamente” esta incógnita como en la ecuación.
En los métodos implícitos, la derivada espacial se aproxima en un nivel de tiempo posterior l
+ 1. Por ejemplo, la segunda derivada se aproximará mediante (figura 30.7b)
𝑙+1
𝜕 2 𝑇 𝑇𝑖+1 − 2𝑇𝑖𝑙+1 + 𝑇𝑖−1
𝑙+1
=
𝜕𝑥 2 ∆𝑥 2
que tiene una exactitud de segundo orden. Cuando esta relación se sustituye en la EDP
original, la ecuación en diferencias resultante contiene varias incógnitas. Así, no puede
resolverse explícitamente mediante simples manipulaciones algebraicas, como se hizo al
pasar de la ecuación (30.4) a la (30.5). En lugar de esto, el sistema completo de ecuaciones
debe resolverse simultáneamente. Esto es posible debido a que, junto con las condiciones de
frontera, las formulaciones implícitas dan como resultado un conjunto de ecuaciones lineales
algebraicas con el mismo número de incógnitas. Por lo tanto, el método se reduce a la solución
de un sistema de ecuaciones simultáneas en cada punto en el tiempo.
Para ilustrar cómo hacer lo anterior, sustituimos las ecuaciones en la ecuación (30.1), para
obtener
−𝜆𝑇𝑙+1 𝑙+1
𝑖−1 + (1 + 2𝜆)𝑇𝑖 − 𝜆𝑇𝑙+1
𝑖+1 = −𝑇𝑖
𝑙
donde l = k ∆t/(∆x)2. Esta ecuación se aplica a todos los nodos, excepto al primero y al último
de los nodos interiores, los cuales deben modificarse para considerar las condiciones de
frontera. En el caso donde están dados los niveles de temperatura en los extremos de la barra,
la condición de frontera en el extremo izquierdo de la barra (i = 0) se expresa como
𝑇0𝑙+1 = 𝑓0 (𝑡𝑙+1
0 )
Donde 𝑓0 (𝑇0𝑙+1 ) es una función que describe como cambia con el tiempo la temperatura de la
frontera.
Se obtiene la ecuación en diferencias para el primer nodo interno (i=1)
MÉTODO CRANK-NICOLSON
El método de Crank-Nicolson ofrece un esquema implícito alternativo que tiene una exactitud
de segundo orden, tanto para el espacio como para el tiempo. Para alcanzar tal exactitud, se
desarrollan aproximaciones por diferencias en el punto medio del incremento del tiempo
(figura 30.9). Entonces, la primera derivada temporal se aproxima en tl+1/2 por:
𝜕𝑇 𝑇𝑖𝑙+1 − 𝑇𝑖𝑙
=
𝜕𝑡 ∆𝑡
La segunda derivada en el espacio puede determinarse en el punto medio promediando las
aproximaciones por diferencias al principio (tl) y al final (tl+1) del incremento del tiempo
𝑙
𝜕 2 𝑇 𝑇𝑖+1 − 2𝑇𝑖𝑙 + 𝑇𝑖−1
𝑙
=
𝜕𝑥 2 ∆𝑥 2
Tenemos:
Resuelva la ecuación diferencial parcial por diferencias finitas usando el método de CRANK
NICOLSON según.
2T T T
k b
x 2
x t
Teniendo en cuenta las condiciones de frontera: T(0,t)=0 , T(1,1)=1
Condiciones iniciales: T(x,0)=0 , 0≤ 𝑥 ≤ 1
Asuma que es una varilla delgada y aislada, excepto en los extremos, donde k’=0.49cal/(s.cm.°C),
considere cinco intervalos en la varilla de 0.2174cal/(g.°c) y densidad del material igual a 2.7g/𝑐𝑚3
SOLUCION:
k' 0.49
k 0.83478
c 2.7 *0.2174
T Ti l 1 Ti l 1 Ti l 11 Ti l 11
x 2x 2x
Remplazando:
x 2k l 1 x 2k l 1 2k x l 2k x l
Ti 1 1 Ti Ti 1 Ti (1 )
l 1
Ti 1
l
Ti 1
2 2k 2 2k 2 2k 2 2k
De los datos:
k' 0.49
k 0.83478
c 2.7 *0.2174
t 0.1
k 2 0.83478* 2 2.086695
x 0.2
Remplazando en la ecuación:
NODO 1,0
0 0 0 0
0.91835T01 3.086695T11 1.16833T21 0.91836T10 1.08670T10 1.16833T20
3.086695T11 1.16833T21 0
NODO 2,0
0 0 0
0.91835T11 3.086695T21 1.16833T31 0.91836T10 1.08670T20 1.16833T30
NODO 3,0
0 0 0
0.91835T21 3.086695T31 1.16833T41 0.91836T20 1.08670T30 1.16833T40
NODO 4,0
0 0 0.5
0.91835T31 3.086695T41 1.16833T51 0.91836T30 1.08670T40 1.16833T51
0.91835T31 3.086695T41 1.16833T51 1.75272
Temperaturas:
T11 0.04563C
T21 0.12053C
T31 0.28262C
T41 0.65187C
NODO 1,1
0 0 0.04563 0.12053
0.91835T02 3.086695T12 1.16833T22 0.91836T01 1.08670T11 1.16833T21
NODO 2,1
0.04563 0.12053 0.65187
0.91835T22 3.086695T22 1.16833T32 0.91836T11 1.08670T21 1.16833T31
NODO 3,1
0.12053 0.28263 0.65187
0.91835T22 3.086695T32 1.16833T42 0.91836T21 1.08670T31 1.16833T41
NODO 3,4
1 0.28262 0.65187 1
0.91835T32 3.086695T42 1.16833T52 0.91836T31 1.08670T41 1.16833T51
Temperaturas
T11 0.16085C
T21 0.34684C
T31 0.58353C
T41 0.78522C
NODO 1,2
0 0 0.16085 0.34684
0.91835T03 3.086695T13 1.16833T23 0.91836T02 1.08670T12 1.16833T22
NODO 2,2
0.16085 0.34684 0.58353
0.91835T13 3.086695T23 1.16833T33 0.91836T12 1.08670T22 1.16833T32
NODO 3,2
0.34684 0.58353 0.78522
0.91835T23 3.086695T33 1.16833T43 0.91836T22 1.08670T32 1.16833T42
NODO 4,2
0 0.58353 0.78522 1
0.91835T33 3.086695T43 1.16833T53 0.91836T32 1.08670T42 1.16833T52
NODO 1,3
0 0 0.2222 0.3899
0.91835T04 3.086695T14 1.16833T24 0.91836T03 1.08670T13 1.16833T23
NODO 2,3
0.2222 0.3899 0.4680
0.91835T14 3.086695T24 1.16833T34 0.91836T13 1.08670T23 1.16833T33
NODO 3,3
0.3899 0.4680 0.4149
0.91835T24 3.086695T34 1.16833T44 0.91836T23 1.08670T33 1.16833T43
NODO 4,3
0 0.4680 0.4149 1
0.91835T34 3.086695T44 1.16833T54 0.91836T33 1.08670T43 1.16833T53
0 0 0.91848 3.086695 T44 0.14725
T14 0.15920C
T24 0.23737C
T34 0.22197C
T44 0.11375C
b) Elaboración del programa, su Fuente y ejecución
T=zeros(18000,6);T(1,:)=[0 0 0 0 0
0.5];E=ones(18000,6);tol=100;X=[0 0.2 0.4 0.6 0.8 1];
k=0.83478;dx=0.2;dt=0.1;Ga=(k*dt/(dx*dx));
A=[(1+Ga) (-(Ga/(4*k))*(2*k+dx)) 0 0;
(-(Ga/(4*k))*(2*k-dx)) (1+Ga) (-(Ga/(4*k))*(2*k+dx)) 0;
0 (-(Ga/(4*k))*(2*k-dx)) (1+Ga) (-(Ga/(4*k))*(2*k+dx));
0 0 (-(Ga/(4*k))*(2*k-dx)) (1+Ga)];
hold on
plot(X,T(1,:),'r')
for j=2:18000
T(j,1)=0;T(j,6)=1;
B=[((1-Ga)*T(j-1,2)+((Ga/(4*k))*(2*k-
dx))*T(j,1)+((Ga/(4*k))*(2*k-dx))*T(j-
1,1)+((Ga/(4*k))*(2*k+dx))*T(j-1,3));
((1-Ga)*T(j-1,3)+((Ga/(4*k))*(2*k-dx))*T(j-
1,2)+((Ga/(4*k))*(2*k+dx))*T(j-1,4));
((1-Ga)*T(j-1,4)+((Ga/(4*k))*(2*k-dx))*T(j-
1,3)+((Ga/(4*k))*(2*k+dx))*T(j-1,5));
((1-Ga)*T(j-
1,5)+((Ga/(4*k))*(2*k+dx))*T(j,6)+((Ga/(4*k))*(2*k-dx))*T(j-
1,4)+((Ga/(4*k))*(2*k+dx))*T(j-1,6))];
T(j,2:5)=(inv(A))*B;
plot(X,T(j,:),'b')
E(j,2:5)=(T(j,2:5)-T(j-1,2:5));
tol=max(E(j,2:5));
if tol<0.00001
break;
end
end
disp(T(1:j,:))
fprintf('\n La barra llegara al equilibrio en: %5.2f segundos\n',j*0.1)
plot(X,T(j,:),'r')F
c) Grafica generada
GRAFICA EN MATLAB
11.-RESOLUCION DEL POR EL METODO IDA
100°C
15°C 50°C
0°C
T11 = 3.01597383
T12 = 3.27084185
T13 = 6.86922718
Para el nodo 2,1
5 5
−0.0835 ∗ 0 + 2.167𝑇21 − 0.0835𝑇22 = 0.0835 ∗ 3.01597383 + 1.833 ∗ 0 + 0.0835 ∗ 0
5 5
2.167𝑇21 − 0.0835𝑇23 = 0.25183381
Para el nodo 2,2
5 5 5
−0.0835 ∗ 𝑇21 + 2.167𝑇22 − 0.0835𝑇23 = 0.0835 ∗ 3.27084185 + 1.833 ∗ 0 + 0.0835 ∗ 0
5 5 5
−0.0835 ∗ 𝑇21 + 2.167𝑇22 − 0.0835𝑇23 = 0.27311529
Para el nodo 2,3
5 5
−0.0835 ∗ 𝑇22 + 2.167𝑇23 − 0.0835 ∗ 100 = 0.0835 ∗ 6.8692271 + 1.833 ∗ 0 + 0.0835 ∗ 0
5 5
−0.0835 ∗ 𝑇22 + 2.167𝑇23 = 8.92358047
Por matrices
T21 = 0.12738939
T22 = 0.29004785
T23 = 4.12911835
Para el nodo 31
5 5
−0.0835 ∗ 0 + 2.167𝑇31 − 0.0835𝑇32 = 0.0835 ∗ 0.12738939 + 1.833 ∗ 0 + 0.0835 ∗ 0
5 5
2.167𝑇31 − 0.0835𝑇32 = 0.01063701
Para el nodo 3,2
5 5 5
−0.0835 ∗ 𝑇31 + 2.167𝑇32 − 0.0835𝑇33 = 0.0835 ∗ 0.29004 + 1.833 ∗ 0 + 0.0835 ∗ 0
5 5 5
−0.0835 ∗ 𝑇31 + 2.167𝑇32 − 0.0835𝑇33 = 0.024219
Para el nodo 3,3
5 5
−0.0835 ∗ 𝑇32 + 2.167𝑇33 − 0.0835 ∗ 100 = 0.0835 ∗ 4.129 + 1.833 ∗ 0 + 0.0835 ∗ 0
5 5
−0.0835 ∗ 𝑇22 + 2.167𝑇23 = 8.69478138
Por matrices
T31 = 0.011323
T32 = 0.16646609
T33 = 4.0187731
para el nodo 4,1
5 5
−0.0835 ∗ 0 + 2.167𝑇41 − 0.0835𝑇42 = 0.0835 ∗ 0.0113323 + 1.833 ∗ 0 + 0.0835 ∗ 50
5 5
2.167𝑇41 − 0.0835𝑇42 = 4.17594547
Para el nodo 4,2
5 5 5
−0.0835 ∗ 𝑇41 + 2.167𝑇42 − 0.0835𝑇43 = 0.0835 ∗ 0.16646609 + 1.833 ∗ 0 + 0.0835 ∗ 50
5 5 5
−0.0835 ∗ 𝑇31 + 2.167𝑇32 − 0.0835𝑇33 = 12.8605676
T41 = 2.0134774
T42 = 2.2426355
T43 = 6.02114795
T11 = 5.58021942
T21 = 0.34060054
T31 = 0.17256643
T41 = 3.72283038
10 10
2.167𝑇12 − 0.0835𝑇22 = 13.29
Para el nodo 2,2
10 10 10
−0.0835 ∗ 𝑇12 + 2.167𝑇22 − 0.0835𝑇32 = 0.0835 ∗ 0.34 + 1.833 ∗ 0.29 + 0.0835 ∗ 4.129
10 10 10
−0.0835 ∗ 𝑇12 + 2.167𝑇22 − 0.0835𝑇32 = 0.9048
Para el nodo 3,2
10 10 10
−0.0835 ∗ 𝑇22 + 2.167𝑇32 − 0.0835𝑇42
= 0.0835 ∗ 0.172566 + 1.833 ∗ 0.1666 + 0.0835 ∗ 4.01877
10 10 10
−0.0835 ∗ 𝑇21 + 2.167𝑇31 − 0.0835𝑇41 = 0.655109
Para el nodo 4,2
10 10
−0.0835 ∗ 𝑇31 + 2.167𝑇41 − 0.0835 ∗ 50 = 0.0835 ∗ 3.722 + 1.833 ∗ 2.2426 + 0.0835 ∗ 6.0211
10 10
−0.0835 ∗ 𝑇31 + 2.167𝑇41 = 9.099
Por matrices
T12 = 6.162323682
T22 = 0.673934398
T32 = 0.490809311
T42 = 4.217976764
T13 = 13.10654812
T23 = 8.186135835
T33 = 8.024097341
T43 = 11.34470576
T11 = 7.97571914
T12 = 9.14851543
T13 = 18.4975755
T21 = 0.95159004
T22 = 1.43495486
T23 = 11.8548987
Para el nodo 31
15 15
−0.0835 ∗ 0 + 2.167𝑇31 − 0.0835𝑇32 = 0.0835 ∗ 3.2747 + 1.833 ∗ 0.1725 + 0.0835 ∗ 3.722
15 15
2.167𝑇31 − 0.0835𝑇32 = 0.706628
Para el nodo 3,2
15 15 15
−0.0835 ∗ 𝑇31 + 2.167𝑇32 − 0.0835𝑇33 = 0.0835 ∗ 3.779 + 1.833 ∗ 0.5924 + 0.0835 ∗ 4.2218
15 15 15
−0.0835 ∗ 𝑇31 + 2.167𝑇32 − 0.0835𝑇33 = 1.37167326
Para el nodo 3,3
15 15
−0.0835 ∗ 𝑇32 + 2.167𝑇33 − 0.0835 ∗ 100
= 0.0835 ∗ 12.239 + 1.833 ∗ 10.9305 + 0.0835 ∗ 11.4568
15 15
−0.0835 ∗ 𝑇32 + 2.167𝑇33 = 24.99533
Por matrices
T31 = 0.36821165
T32 = 1.09324878
T33 = 11.5766607
T41 = 5.33496154
T42 = 6.36129202
T43 = 16.0672195
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,1); (2,1); (3,1);
(4,1).
T11 = 10.0379077
T21 = 1.2724762
T31 = 0.66116608
T41 = 6.70990298
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,2); (2,2); (3,2);
(4,2).
T12 = 11.8144145
T22 = 2.24424649
T32 = 1.80084409
T42 = 8.25450322
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,3); (2,3); (3,3);
(4,3).
T13 = 23.4403853
T23 = 15.4521613
T33 = 15.0914673
T43 = 20.2702362
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,1); (1,2); (1,3).
T11 = 11.9884621
T12 = 14.5001281
T13 = 27.7248465
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (2,1); (2,2); (2,3).
T21 = 2.55859577
T22 = 3.34570252
T23 = 18.7025104
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (3,1); (3,2); (3,3).
T31 = 1.02089379
T32 = 2.71185364
T33 = 18.224884
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (4,1); (4,2); (4,3).
T41 = 8.03657719
T42 = 10.2486943
T43 = 24.0230211
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,1); (2,1); (3,1);
(4,1).
T11 = 13.7001748
T21 = 2.87625347
T31 = 1.43238883
T41 = 9.17462687
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,2); (2,2); (3,2);
(4,2).
T12 = 16.9230593
T22 = 4.45563453
T32 = 3.6860487
T42 = 12.0169107
Realizando las ecuaciones y próximamente sus matrices quedaría para los nodos (1,3); (2,3); (3,3);
(4,3).
T13 = 31.6902576
T23 = 21.8870536
T33 = 21.3097199
T43 = 27.3843892
T=zeros(5,6,61);
T(:,:,1)=[100 100 100 100 100 100;75 0 0 0 0 50;75 0 0 0 0 50;75 0 0 0 0 50;0 0 0 0 0 0];
E=ones(5,6,61);tol=100;k=0.0835;
A2=[(2+2*k) (-k) 0 0 ;(-k) (2+2*k) (-k) 0 ;0 (-k) (2+2*k) (-k); 0 0 (-k) (2+2*k)];
for L=2:61
T(5,:,L)=[0 0 0 0 0 0];
if rem(L,2)==0
for i=2:5
B=[0;0;0];
for j=2:4
if j==2
B(1)=(2-2*k)*T(j,i,L-1)+k*(T(j,i-1,L-1)+T(j,i+1,L-1)+T(j-1,i,L));
elseif j==4
B(3)=(2-2*k)*T(j,i,L-1)+k*(T(j,i-1,L-1)+T(j,i+1,L-1)+T(j+1,i,L));
else
B(2)=(2-2*k)*T(j,i,L-1)+k*(T(j,i-1,L-1)+T(j,i+1,L-1));
end
end
T(2:4,i,L)=((inv(A1))*B);
end
else
for j=4:(-1):2
B=[0;0;0;0];
for i=2:5
if i==2
B(1)=(2-2*k)*T(j,i,L-1)+k*(T(j-1,i,L-1)+T(j+1,i,L-1)+T(j,i-1,L));
elseif i==5
B(4)=(2-2*k)*T(j,i,L-1)+k*(T(j-1,i,L-1)+T(j+1,i,L-1)+T(j,i+1,L));
elseif i==3
B(2)=(2-2*k)*T(j,i,L-1)+k*(T(j-1,i,L-1)+T(j+1,i,L-1));
else
B(3)=(2-2*k)*T(j,i,L-1)+k*(T(j-1,i,L-1)+T(j+1,i,L-1));
end
end
T(j,2:5,L)=(inv(A2))*B;
end
end
%E(2:4,2:4,L)=T(2:4,2:4,L)-T(2:4,2:4,L-1);
%tol=max(max(abs(E(2:4,2:4,L))));
%if tol<0.00001
% break
%end
end
disp(T(:,:,21))
disp(T(:,:,41))
disp(T(:,:,61))
disp((L-1)*5)