MateWiki - Contribuciones del usuario [es]

Archivo:Conductividad eléctrica placa 2D page-0001 (1).jpg

2025-11-16T21:31:06Z

Manuel Fernández:

Conductividad eléctrica placa 2D(AHM)

2025-11-16T17:40:35Z

Manuel Fernández:

{{ TrabajoED | Conductividad eléctrica de una placa en 2D (Grupo AHM) | [[:Categoría:MNEDP|MNEDP]]|[[:Categoría:MNEDP25/26|2025-26]] |
*Alfredo De Lorenzo Gracia,
*Hugo Sanz Cuenca,
*Manuel Fdez Suárez-B.}}

=Póster del Trabajo=

=Códigos de Matlab=
<source lang="matlab">
clc
clear all
close all

%% CONFIGURACIÓN DEL CASO
%% ========== Caso 1 ==========
alpha = 0;
u_exact_fun = @(x,y) sin(pi*x/3).*sin(pi*y/3);

sigma_1 = @(x,y) 1 + 0.5*sin(pi*x/3).*cos(pi*y/3);

du_dx_fun = @(x,y) (pi/3) * cos(pi*x/3) .* sin(pi*y/3);
du_dy_fun = @(x,y) (pi/3) * sin(pi*x/3) .* cos(pi*y/3);
d2u_dx2_fun = @(x,y) -(pi/3)^2 * sin(pi*x/3) .* sin(pi*y/3);
d2u_dy2_fun = @(x,y) -(pi/3)^2 * sin(pi*x/3) .* sin(pi*y/3);

dsigma_dx_fun = @(x,y) 0.5*(pi/3)*cos(pi*x/3).*cos(pi*y/3);
dsigma_dy_fun = @(x,y) -0.5*(pi/3)*sin(pi*x/3).*sin(pi*y/3);

f_fun = @(x,y) - ( ...
sigma_1(x,y).*(d2u_dx2_fun(x,y) + d2u_dy2_fun(x,y)) + ...
dsigma_dx_fun(x,y).*du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y).*du_dy_fun(x,y) );

g_fun = @(x,y) - sigma_1(x,0).*du_dy_fun(x,0); % ← ahora siempre g(x,y)

u0 = @(x,y) 0;

%% ========== Caso 2 ==========
alpha = 0;

% --- Solución exacta diseñada para ser 0 en x=0,x=3,y=3 ---
% u(x,y) = sin(pi*x/3) * y*(3-y)
u_exact_fun = @(x,y) sin(pi*x/3) .* ( y .* (3 - y) );

% --- Derivadas de u_exact ---
du_dx_fun = @(x,y) (pi/3) * cos(pi*x/3) .* ( y .* (3 - y) );
du_dy_fun = @(x,y) sin(pi*x/3) .* ( 3 - 2*y );
d2u_dx2_fun = @(x,y) -(pi/3)^2 * sin(pi*x/3) .* ( y .* (3 - y) );
d2u_dy2_fun = @(x,y) sin(pi*x/3) .* ( -2 );

% --- Usamos tu sigma (variable, positiva y suave) ---
sigma_1 = @(x,y) 1 + 0.5*sin(pi*x/3).*cos(pi*y/3);

% --- Derivadas de sigma (necesarias para f) ---
dsigma_dx_fun = @(x,y) 0.5*(pi/3)*cos(pi*x/3).*cos(pi*y/3);
dsigma_dy_fun = @(x,y) -0.5*(pi/3)*sin(pi*x/3).*sin(pi*y/3);

% --- Segundo miembro f(x,y) consistente con u_exact ---
f_fun = @(x,y) - ( ...
sigma_1(x,y) .* ( d2u_dx2_fun(x,y) + d2u_dy2_fun(x,y) ) + ...
dsigma_dx_fun(x,y) .* du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y) .* du_dy_fun(x,y) ...
);

% --- Condición de Neumann NO homogénea en y=0 ---
g_fun = @(x,y) - sigma_1(x,0) .* du_dy_fun(x,0);

% --- Condición de Dirichlet homogénea ---
u0 = @(x,y) 0;

%% Casos extra (Generalización del problema, Diferentes a nuestro problema original)
%% ========== Caso 3 ==========
alpha = 0;
u_exact_fun = @(x,y) sin(pi*x/3).*y;

sigma_1 = @(x,y) 1 + 0.5*sin(pi*x/3).*cos(pi*y/3);

du_dx_fun = @(x,y) (pi/3)*cos(pi*x/3).*y;
du_dy_fun = @(x,y) sin(pi*x/3);
d2u_dx2_fun = @(x,y) -(pi/3)^2*sin(pi*x/3).*y;
d2u_dy2_fun = @(x,y) 0;

dsigma_dx_fun = @(x,y) 0.5*(pi/3)*cos(pi*x/3).*cos(pi*y/3);
dsigma_dy_fun = @(x,y) -0.5*(pi/3)*sin(pi*x/3).*sin(pi*y/3);

f_fun = @(x,y) - ( ...
sigma_1(x,y).*d2u_dx2_fun(x,y) + ...
dsigma_dx_fun(x,y).*du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y).*du_dy_fun(x,y) );

g_fun = @(x,y) - sigma_1(x,0).*du_dy_fun(x,0);
u0 = @(x,y) u_exact_fun(x,y);

%% ========== Caso 4 ==========
alpha = 0;
u_exact_fun = @(x,y) exp(-(x/3).^2).*cos(pi*y/3);

sigma_1 = @(x,y) 1 + x.*y + sin(pi*x).*cos(pi*y);

du_dx_fun = @(x,y) (-2*x/9).*exp(-(x/3).^2).*cos(pi*y/3);
du_dy_fun = @(x,y) (-pi/3).*exp(-(x/3).^2).*sin(pi*y/3);
d2u_dx2_fun = @(x,y) (2/9*((4*x.^2)/9 - 1)).*exp(-(x/3).^2).*cos(pi*y/3);
d2u_dy2_fun = @(x,y) -(pi/3)^2.*exp(-(x/3).^2).*cos(pi*y/3);

dsigma_dx_fun = @(x,y) y + pi*cos(pi*x).*cos(pi*y);
dsigma_dy_fun = @(x,y) x - pi*sin(pi*x).*sin(pi*y);

f_fun = @(x,y) - ( ...
sigma_1(x,y).*(d2u_dx2_fun(x,y)+d2u_dy2_fun(x,y)) + ...
dsigma_dx_fun(x,y).*du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y).*du_dy_fun(x,y) );
g_fun = @(x,y) 0;
u0 = @(x,y) u_exact_fun(x,y);

%% Estructura Común
%% --- Configuración común ---
u_ex = u_exact_fun;
ux_ex = du_dx_fun;
uy_ex = du_dy_fun;

hs = [0.5, 0.25, 0.125, 0.0625];
RES = zeros(4,3);
tol = 1e-10;

% ===== BUCLE EN MALLAS =====
for k = 1:4
fprintf('--- Procesando Malla %d ---\n', k);

Vertices = load(sprintf('verticesPoligono4_malla%d.txt', k));
Elementos = load(sprintf('ElementosPoligono4_malla%d.txt', k));
Dirichlet = load(sprintf('DirichletPoligono4_malla%d.txt', k));

Dir = Dirichlet(:,1);
X = Vertices(:,2);
Y = Vertices(:,3);
TRI = Elementos(:,2:4);
M = length(X); Nel = size(TRI,1);

Neumann = find(abs(Y-0)<tol);
Neumann = setdiff(Neumann, Dir);

% ---- Ensamblado ----
A = sparse(M,M);
b = zeros(M,1);

Lxx = [1/2 -1/2 0; -1/2 1/2 0; 0 0 0];
Lyy = [1/2 0 -1/2; 0 0 0; -1/2 0 1/2];
Lxy = [1/2 0 -1/2; -1/2 0 1/2; 0 0 0];
l0 = [1/6;1/6;1/6];

for e = 1:Nel
nodes = TRI(e,:);
xK = X(nodes); yK = Y(nodes);
BK = [xK(2)-xK(1), xK(3)-xK(1); yK(2)-yK(1), yK(3)-yK(1)];
absdetB = abs(det(BK));
CK = inv(BK)*inv(BK)';

sigmaK = mean(sigma_1(xK,yK));

LK = absdetB * sigmaK * ( CK(1,1)*Lxx + CK(1,2)*(Lxy+Lxy') + CK(2,2)*Lyy );
fK = mean( f_fun(xK,yK) );
lK = fK * absdetB * l0;

A(nodes,nodes)=A(nodes,nodes)+LK;
b(nodes)=b(nodes)+lK;
end

% ---- Construcción Neu ----
edges = [TRI(:,[1 2]); TRI(:,[2 3]); TRI(:,[3 1])];
edges_sorted = sort(edges,2);
[u_edges,~,ic] = unique(edges_sorted,'rows');
counts = accumarray(ic,1);
boundary_edges = u_edges(counts==1,:);

Neu = [];
for e2 = 1:size(boundary_edges,1)
n1 = boundary_edges(e2,1);
n2 = boundary_edges(e2,2);
if abs(Y(n1))<tol && abs(Y(n2))<tol && ~ismember(n1,Dir) && ~ismember(n2,Dir)
Neu = [Neu; n1 n2];
end
end

% ---- Integral Parte Neumann ----
for e2 = 1:size(Neu,1)
n1 = Neu(e2,1);
n2 = Neu(e2,2);

Ledge = sqrt( (X(n2)-X(n1))^2 + (Y(n2)-Y(n1))^2 );

g1 = g_fun(X(n1),Y(n1));
g2 = g_fun(X(n2),Y(n2));

b_edge = (Ledge/6)*[2*g1+g2; g1+2*g2]; % ← fórmula CORRECTA

b([n1 n2]) = b([n1 n2]) + b_edge;
end

% ---- Imposición Condición Dirichlet ----
u = zeros(M,1);
u(Dir) = arrayfun(@(i)u0(X(i),Y(i)), Dir);

ind = setdiff(1:M, Dir);
b(ind) = b(ind) - A(ind,Dir)*u(Dir);
u(ind) = A(ind,ind)\b(ind);

% ---- Cálculo de errores ----
errL2_sq = 0; errH1_sq = 0;

for e = 1:Nel
nodes = TRI(e,:);
xloc = X(nodes); yloc = Y(nodes);

BK = [xloc(2)-xloc(1), xloc(3)-xloc(1); ...
yloc(2)-yloc(1), yloc(3)-yloc(1)];
detBK = abs(det(BK));
BinvT = inv(BK)';

ue = u_ex(xloc,yloc);
uhe = u(nodes);

errL2_sq = errL2_sq + detBK/3 * sum( (ue(:)-uhe(:)).^2 );

grad_uh = BinvT * [uhe(2)-uhe(1); uhe(3)-uhe(1)];

g1 = [ux_ex(xloc(1),yloc(1)); uy_ex(xloc(1),yloc(1))];
g2 = [ux_ex(xloc(2),yloc(2)); uy_ex(xloc(2),yloc(2))];
g3 = [ux_ex(xloc(3),yloc(3)); uy_ex(xloc(3),yloc(3))];
grad_u_avg = (g1+g2+g3)/3;

errH1_sq = errH1_sq + detBK * sum( (grad_u_avg-grad_uh).^2 );
end

RES(k,1) = sqrt(errL2_sq);
RES(k,2) = sqrt(errH1_sq);
RES(k,3) = condest(A(ind,ind));

% --- Visualización ---

% ---- Recalcular nodos Neumann para representación ----
Neumann = find(abs(Y - 0) < tol);
Neumann = setdiff(Neumann, Dir);

% ---- Calcular solución exacta para representar ----
u_exact = u_ex(X, Y);

% ---- Representación de la malla y los bordes ----
figure(1);
sgtitle('Evolución de Mallados y Condiciones de Contorno');
% Seleccionamos el subplot actual para la malla
subplot(2, 2, k);

% Trazado de la malla base (en z=0)
trisurf(TRI, X, Y, zeros(size(X)), ...
'FaceColor','cyan', 'EdgeColor','k', 'FaceAlpha',0.7);
hold on;

% Dirichlet en rojo (z=0)
plot3(X(Dir), Y(Dir), zeros(size(Dir)), ...
'r*', 'MarkerSize',8, 'LineWidth',1.5);

% Neumann en verde (z=0)
plot3(X(Neumann), Y(Neumann), zeros(size(Neumann)), ...
'g*', 'MarkerSize',8, 'LineWidth',1.5);

title(sprintf('Mallado %d (h=%.4f)', k, hs(k)));
xlabel('x'); ylabel('y'); zlabel('z=0');
axis equal; grid on; view(3);

% Añadimos una unica leyenda para claridad
if k == 1
legend('Malla','Dirichlet','Neumann', 'Location','best');
end
hold off;

% -------------------------------------------------------------------------
% VISUALIZACIÓN: SUBPLOTS (2x2)
% -------------------------------------------------------------------------

figure(2);
sgtitle('Comparación Solución Exacta vs. Solución FEM por Mallado');

% Dentro del bucle, seleccionamos el subplot actual
subplot(2, 2, k);

hold on; grid on; view(3);

% Sol exacta (Superficie oscura)
trisurf(TRI, X, Y, u_exact, ...
'FaceColor',[0.2 0.2 0.2], ...
'EdgeColor','none', 'FaceAlpha',0.8);

% FEM encima (Mallado claro)
trisurf(TRI, X, Y, u, ...
'FaceColor','none', ...
'EdgeColor',[0.5 1.0 1.0], ...
'LineWidth',1.5);

title(sprintf('Malla %d (h=%.4f)', k, hs(k))); % Usamos hs(k) para mostrar el tamaño de malla
xlabel('x'); ylabel('y'); zlabel('u');
axis equal;
colorbar;
legend('Sol. Exacta','Sol. FEM','Location','best');
hold off;
end
%% ---- Tabla final de errores ----

% Cálculo de EOC entre niveles
nlevels = length(hs);
EOC_L2 = nan(nlevels,1);
EOC_H1 = nan(nlevels,1);

for i = 1:nlevels-1
EOC_L2(i) = log( RES(i,1) / RES(i+1,1) ) / log(2);
EOC_H1(i) = log( RES(i,2) / RES(i+1,2) ) / log(2);
end

% Crear tabla con EOC incluidos
TRES = table( ...
hs.', ...
RES(:,1), ...
RES(:,2), ...
RES(:,3), ...
EOC_L2, ...
EOC_H1, ...
'VariableNames', {'h','L2_error','H1_error','condest_A','EOC_L2','EOC_H1'} ...
);

disp(' ');
disp('==================== TABLA FINAL (con EOC) ====================');
disp(TRES);
</source>

[[Categoría:MNEDP|MNEDP]]
[[Categoría:MNEDP25/26|2025-26]]

Conductividad eléctrica placa 2D(AHM)

2025-11-16T15:23:17Z

Manuel Fernández: /* Códigos de Matlab */

{{ TrabajoED | Conductividad eléctrica de una placa en 2D (Grupo AHM) | [[:Categoría:MNEDP|MNEDP]]|[[:Categoría:MNEDP25/26|2025-26]] |
*Alfredo De Lorenzo Gracia,
*Hugo Sanz Cuenca,
*Manuel Fdez Suárez-B.}}

=Póster del Trabajo=

=Códigos de Matlab=
<source lang="matlab">
clc
clear all
close all

%% CONFIGURACIÓN DEL CASO
%% ========== Caso 1 ==========
alpha = 0;
u_exact_fun = @(x,y) sin(pi*x/3).*sin(pi*y/3);

sigma_1 = @(x,y) 1 + 0.5*sin(pi*x/3).*cos(pi*y/3);

du_dx_fun = @(x,y) (pi/3) * cos(pi*x/3) .* sin(pi*y/3);
du_dy_fun = @(x,y) (pi/3) * sin(pi*x/3) .* cos(pi*y/3);
d2u_dx2_fun = @(x,y) -(pi/3)^2 * sin(pi*x/3) .* sin(pi*y/3);
d2u_dy2_fun = @(x,y) -(pi/3)^2 * sin(pi*x/3) .* sin(pi*y/3);

dsigma_dx_fun = @(x,y) 0.5*(pi/3)*cos(pi*x/3).*cos(pi*y/3);
dsigma_dy_fun = @(x,y) -0.5*(pi/3)*sin(pi*x/3).*sin(pi*y/3);

f_fun = @(x,y) - ( ...
sigma_1(x,y).*(d2u_dx2_fun(x,y) + d2u_dy2_fun(x,y)) + ...
dsigma_dx_fun(x,y).*du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y).*du_dy_fun(x,y) );

g_fun = @(x,y) - sigma_1(x,0).*du_dy_fun(x,0); % ← ahora siempre g(x,y)

u0 = @(x,y) 0;

%% ========== Caso 2 ==========
alpha = 0;

% --- Solución exacta diseñada para ser 0 en x=0,x=3,y=3 ---
% u(x,y) = sin(pi*x/3) * y*(3-y)
u_exact_fun = @(x,y) sin(pi*x/3) .* ( y .* (3 - y) );

% --- Derivadas de u_exact ---
du_dx_fun = @(x,y) (pi/3) * cos(pi*x/3) .* ( y .* (3 - y) );
du_dy_fun = @(x,y) sin(pi*x/3) .* ( 3 - 2*y );
d2u_dx2_fun = @(x,y) -(pi/3)^2 * sin(pi*x/3) .* ( y .* (3 - y) );
d2u_dy2_fun = @(x,y) sin(pi*x/3) .* ( -2 );

% --- Usamos tu sigma (variable, positiva y suave) ---
sigma_1 = @(x,y) 1 + 0.5*sin(pi*x/3).*cos(pi*y/3);

% --- Derivadas de sigma (necesarias para f) ---
dsigma_dx_fun = @(x,y) 0.5*(pi/3)*cos(pi*x/3).*cos(pi*y/3);
dsigma_dy_fun = @(x,y) -0.5*(pi/3)*sin(pi*x/3).*sin(pi*y/3);

% --- Segundo miembro f(x,y) consistente con u_exact ---
f_fun = @(x,y) - ( ...
sigma_1(x,y) .* ( d2u_dx2_fun(x,y) + d2u_dy2_fun(x,y) ) + ...
dsigma_dx_fun(x,y) .* du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y) .* du_dy_fun(x,y) ...
);

% --- Condición de Neumann NO homogénea en y=0 ---
g_fun = @(x,y) - sigma_1(x,0) .* du_dy_fun(x,0);

% --- Condición de Dirichlet homogénea ---
u0 = @(x,y) 0;

%% Casos extra (Generalización del problema, Diferentes a nuestro problema original)
%% ========== Caso 3 ==========
alpha = 0;
u_exact_fun = @(x,y) sin(pi*x/3).*y;

sigma_1 = @(x,y) 1 + 0.5*sin(pi*x/3).*cos(pi*y/3);

du_dx_fun = @(x,y) (pi/3)*cos(pi*x/3).*y;
du_dy_fun = @(x,y) sin(pi*x/3);
d2u_dx2_fun = @(x,y) -(pi/3)^2*sin(pi*x/3).*y;
d2u_dy2_fun = @(x,y) 0;

dsigma_dx_fun = @(x,y) 0.5*(pi/3)*cos(pi*x/3).*cos(pi*y/3);
dsigma_dy_fun = @(x,y) -0.5*(pi/3)*sin(pi*x/3).*sin(pi*y/3);

f_fun = @(x,y) - ( ...
sigma_1(x,y).*d2u_dx2_fun(x,y) + ...
dsigma_dx_fun(x,y).*du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y).*du_dy_fun(x,y) );

g_fun = @(x,y) - sigma_1(x,0).*du_dy_fun(x,0);
u0 = @(x,y) u_exact_fun(x,y);

%% ========== Caso 4 ==========
alpha = 0;
u_exact_fun = @(x,y) exp(-(x/3).^2).*cos(pi*y/3);

sigma_1 = @(x,y) 1 + x.*y + sin(pi*x).*cos(pi*y);

du_dx_fun = @(x,y) (-2*x/9).*exp(-(x/3).^2).*cos(pi*y/3);
du_dy_fun = @(x,y) (-pi/3).*exp(-(x/3).^2).*sin(pi*y/3);
d2u_dx2_fun = @(x,y) (2/9*((4*x.^2)/9 - 1)).*exp(-(x/3).^2).*cos(pi*y/3);
d2u_dy2_fun = @(x,y) -(pi/3)^2.*exp(-(x/3).^2).*cos(pi*y/3);

dsigma_dx_fun = @(x,y) y + pi*cos(pi*x).*cos(pi*y);
dsigma_dy_fun = @(x,y) x - pi*sin(pi*x).*sin(pi*y);

f_fun = @(x,y) - ( ...
sigma_1(x,y).*(d2u_dx2_fun(x,y)+d2u_dy2_fun(x,y)) + ...
dsigma_dx_fun(x,y).*du_dx_fun(x,y) + ...
dsigma_dy_fun(x,y).*du_dy_fun(x,y) );
g_fun = @(x,y) 0;
u0 = @(x,y) u_exact_fun(x,y);

%% Estructura Común
%% --- Configuración común ---
u_ex = u_exact_fun;
ux_ex = du_dx_fun;
uy_ex = du_dy_fun;

hs = [0.5, 0.25, 0.125, 0.0625];
RES = zeros(4,3);
tol = 1e-10;

% ===== BUCLE EN MALLAS =====
for k = 1:4
fprintf('--- Procesando Malla %d ---\n', k);

Vertices = load(sprintf('verticesPoligono4_malla%d.txt', k));
Elementos = load(sprintf('ElementosPoligono4_malla%d.txt', k));
Dirichlet = load(sprintf('DirichletPoligono4_malla%d.txt', k));

Dir = Dirichlet(:,1);
X = Vertices(:,2);
Y = Vertices(:,3);
TRI = Elementos(:,2:4);
M = length(X); Nel = size(TRI,1);

Neumann = find(abs(Y-0)<tol);
Neumann = setdiff(Neumann, Dir);

% ---- Ensamblado ----
A = sparse(M,M);
b = zeros(M,1);

Lxx = [1/2 -1/2 0; -1/2 1/2 0; 0 0 0];
Lyy = [1/2 0 -1/2; 0 0 0; -1/2 0 1/2];
Lxy = [1/2 0 -1/2; -1/2 0 1/2; 0 0 0];
l0 = [1/6;1/6;1/6];

for e = 1:Nel
nodes = TRI(e,:);
xK = X(nodes); yK = Y(nodes);
BK = [xK(2)-xK(1), xK(3)-xK(1); yK(2)-yK(1), yK(3)-yK(1)];
absdetB = abs(det(BK));
CK = inv(BK)*inv(BK)';

sigmaK = mean(sigma_1(xK,yK));

LK = absdetB * sigmaK * ( CK(1,1)*Lxx + CK(1,2)*(Lxy+Lxy') + CK(2,2)*Lyy );
fK = mean( f_fun(xK,yK) );
lK = fK * absdetB * l0;

A(nodes,nodes)=A(nodes,nodes)+LK;
b(nodes)=b(nodes)+lK;
end

% ---- Construcción Neu ----
edges = [TRI(:,[1 2]); TRI(:,[2 3]); TRI(:,[3 1])];
edges_sorted = sort(edges,2);
[u_edges,~,ic] = unique(edges_sorted,'rows');
counts = accumarray(ic,1);
boundary_edges = u_edges(counts==1,:);

Neu = [];
for e2 = 1:size(boundary_edges,1)
n1 = boundary_edges(e2,1);
n2 = boundary_edges(e2,2);
if abs(Y(n1))<tol && abs(Y(n2))<tol && ~ismember(n1,Dir) && ~ismember(n2,Dir)
Neu = [Neu; n1 n2];
end
end

% ---- Integral Parte Neumann ----
for e2 = 1:size(Neu,1)
n1 = Neu(e2,1);
n2 = Neu(e2,2);

Ledge = sqrt( (X(n2)-X(n1))^2 + (Y(n2)-Y(n1))^2 );

g1 = g_fun(X(n1),Y(n1));
g2 = g_fun(X(n2),Y(n2));

b_edge = (Ledge/6)*[2*g1+g2; g1+2*g2]; % ← fórmula CORRECTA

b([n1 n2]) = b([n1 n2]) + b_edge;
end

% ---- Imposición Condición Dirichlet ----
u = zeros(M,1);
u(Dir) = arrayfun(@(i)u0(X(i),Y(i)), Dir);

ind = setdiff(1:M, Dir);
b(ind) = b(ind) - A(ind,Dir)*u(Dir);
u(ind) = A(ind,ind)\b(ind);

% ---- Cálculo de errores ----
errL2_sq = 0; errH1_sq = 0;

for e = 1:Nel
nodes = TRI(e,:);
xloc = X(nodes); yloc = Y(nodes);

BK = [xloc(2)-xloc(1), xloc(3)-xloc(1); ...
yloc(2)-yloc(1), yloc(3)-yloc(1)];
detBK = abs(det(BK));
BinvT = inv(BK)';

ue = u_ex(xloc,yloc);
uhe = u(nodes);

errL2_sq = errL2_sq + detBK/3 * sum( (ue(:)-uhe(:)).^2 );

grad_uh = BinvT * [uhe(2)-uhe(1); uhe(3)-uhe(1)];

g1 = [ux_ex(xloc(1),yloc(1)); uy_ex(xloc(1),yloc(1))];
g2 = [ux_ex(xloc(2),yloc(2)); uy_ex(xloc(2),yloc(2))];
g3 = [ux_ex(xloc(3),yloc(3)); uy_ex(xloc(3),yloc(3))];
grad_u_avg = (g1+g2+g3)/3;

errH1_sq = errH1_sq + detBK * sum( (grad_u_avg-grad_uh).^2 );
end

RES(k,1) = sqrt(errL2_sq);
RES(k,2) = sqrt(errH1_sq);
RES(k,3) = condest(A(ind,ind));

% --- Visualización ---

% ---- Recalcular nodos Neumann para representación ----
Neumann = find(abs(Y - 0) < tol);
Neumann = setdiff(Neumann, Dir);

% ---- Calcular solución exacta para representar ----
u_exact = u_ex(X, Y);

% ---- Representación de la malla y los bordes ----
figure(1);
sgtitle('Evolución de Mallados y Condiciones de Contorno');
% Seleccionamos el subplot actual para la malla
subplot(2, 2, k);

% Trazado de la malla base (en z=0)
trisurf(TRI, X, Y, zeros(size(X)), ...
'FaceColor','cyan', 'EdgeColor','k', 'FaceAlpha',0.7);
hold on;

% Dirichlet en rojo (z=0)
plot3(X(Dir), Y(Dir), zeros(size(Dir)), ...
'r*', 'MarkerSize',8, 'LineWidth',1.5);

% Neumann en verde (z=0)
plot3(X(Neumann), Y(Neumann), zeros(size(Neumann)), ...
'g*', 'MarkerSize',8, 'LineWidth',1.5);

title(sprintf('Mallado %d (h=%.4f)', k, hs(k)));
xlabel('x'); ylabel('y'); zlabel('z=0');
axis equal; grid on; view(3);

% Añadimos una unica leyenda para claridad
if k == 1
legend('Malla','Dirichlet','Neumann', 'Location','best');
end
hold off;

% -------------------------------------------------------------------------
% VISUALIZACIÓN: SUBPLOTS (2x2)
% -------------------------------------------------------------------------

figure(2);
sgtitle('Comparación Solución Exacta vs. Solución FEM por Mallado');

% Dentro del bucle, seleccionamos el subplot actual
subplot(2, 2, k);

hold on; grid on; view(3);

% Sol exacta (Superficie oscura)
trisurf(TRI, X, Y, u_exact, ...
'FaceColor',[0.2 0.2 0.2], ...
'EdgeColor','none', 'FaceAlpha',0.8);

% FEM encima (Mallado claro)
trisurf(TRI, X, Y, u, ...
'FaceColor','none', ...
'EdgeColor',[0.5 1.0 1.0], ...
'LineWidth',1.5);

title(sprintf('Malla %d (h=%.4f)', k, hs(k))); % Usamos hs(k) para mostrar el tamaño de malla
xlabel('x'); ylabel('y'); zlabel('u');
axis equal;
colorbar;
legend('Sol. Exacta','Sol. FEM','Location','best');
hold off;
end
% ---- Tabla final de errores ----
TRES = table(hs.', RES(:,1), RES(:,2), RES(:,3), ...
'VariableNames', {'h','L2_error','H1_error','condest_A'});
disp(TRES)

pL2 = polyfit(log(hs(:)), log(RES(:,1)), 1);
pH1 = polyfit(log(hs(:)), log(RES(:,2)), 1);

fprintf('Orden L2 ≈ %.3f\n', pL2(1));
fprintf('Orden H1 ≈ %.3f\n', pH1(1));
fprintf('Escalado esperado cond(A) ~ h^{-2}\n');
</source>

[[Categoría:MNEDP|MNEDP]]
[[Categoría:MNEDP25/26|2025-26]]

Conductividad eléctrica placa 2D(AHM)

2025-11-16T15:22:19Z

Manuel Fernández:

Conductividad eléctrica placa 2D(AHM)

2025-11-16T15:20:09Z

Manuel Fernández: Página creada con «{{ TrabajoED | Conductividad eléctrica de una placa en 2D (Grupo AHM) | MNEDP|2025-26 |»

{{ TrabajoED | Conductividad eléctrica de una placa en 2D (Grupo AHM) | [[:Categoría:MNEDP|MNEDP]]|[[:Categoría:MNEDP25/26|2025-26]] |

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T18:48:33Z

Manuel Fernández: /* Problema en dimensión 2 */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Introducción=

A lo largo de este trabajo se va a trabajar con diferentes soluciones de la ecuación de ondas, interpretando sus comportamientos. También se va a estudiar la solución fundamental en 1, 2 y 3 dimensiones aplicando un impulso inicial en 𝑥=0, gracias a lo cual se podrá interpretar el principio de Huygens. Donde este es:

'''Principio de Huygens''': Todo punto de un frente de onda inicial puede considerarse como una fuente de ondas esféricas secundarias que se extienden en todas las direcciones con la misma velocidad, frecuencia y longitud de onda que el frente de onda del que proceden.

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuelFdez.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.
[[Archivo:Ejercicio3aEc.OndasManuelFdez2.png|400px|thumb|center|Representación Solución Caso 1]]
Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo. Para ver esto más fácilmente se introduce el siguiente gif.
[[Archivo:Onda ejercicio 3 ManuelFdez.gif|800px|thumb|center|Representación Solución en función del tiempo Caso 1]]

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===
Se considera ahora que la onda viaja en un solo sentido, esto es que:
<center><math>
u(x,t)=f(x-t)
</math></center>
Donde para las condiciones iniciales en este caso se utilizará que <math> u_0 (x)=f(x) </math> y <math> u_1 (x)=-f'(x) </math>
y particularizando se utilizará la función:
<center><math>
f(x)=e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Derivando se obtiene:
<center><math>
f'(x)=-200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Por lo que con esto ya se tiene todo lo necesario, de tal forma que la ecuación en derivadas parciales es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>
Ahora se procede a resolver el ejercicio, que se hará de manera análoga a los apartados anteriores.
{{matlab|codigo=
clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')
}}
[[Archivo:Graficaejer1apar4.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Viendo la solución, se puede ver cómo la onda va con una velocidad constante de 1m/s, y tiene un periodo de 2 segundos. Cuando la onda llega a la frontera, cambia de dirección y es negativa. A continuación se ve una gráfica de la solución de perfil, donde se puede apreciar mejor la velocidad, y como cambia el comportamiento de la onda.
[[Archivo:Veloconda.jpeg|800px|thumb|center|Representación Solución de Perfil para apreciar la velocidad ]]

=== Caso 3. Condición frontera Neumann===
Por último se va a trabajar cambiando las condiciones a unas de tipo Neumann, esto es que <math> u_x(0,t)=u_x(1,t)=0 </math> como condiciones frontera. Con esto la ecuación en derivadas parciales es así:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u_x(0,t)=u_x(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>

Por ello, a lo hora de obtener coeficientes de Fourier para la solución, se calculan de forma distinta, haciendo separación de variables se obtiene:
<center><math>u(x, t) = \sum_{k=1}^{\infty} \left(c_k \cos(k \pi t) +d_k \cos(k\pi x )\sin(k \pi t) \right)
</math></center>
Donde los coeficientes <math> c_k</math> y <math> d_k </math> son:
<center><math>

c_k = \frac{\int_0^1 \cos(k\pi x) u_0(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
<center><math>

d_k = \frac{\int_0^1 \cos(k\pi x) u_1(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
Ahora se adapta el código cambiando los coeficientes, y el problema se resuelve de manera análoga
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*cos(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*cos(k*pi*x);
d(k) =2/(k*pi)*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*cos(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}
[[Archivo:Graficaejer1apar5.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Aquí se puede ver cómo la onda tiene una velocidad constante de 1 casi todo el tiempo, pero cuando la onda llega a la frontera la onda se dispara y disminuye su velocidad, y posteriormente pasa a ir en el sentido contrario.

= Ecuación de ondas II=
En este ejercicio se dibujará la solución fundamental de la ecuación de ondas en dimensiones 1, 2 y 3. De esta forma, se interpretará el
principio de Huygens.

==Solución fundamental==
La solución fundamental es la solución que se obtiene al dar un impulso inicial muy
localizado en <math>x = 0</math>.

El problema a resolver resulta el siguiente

<center><math>\left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^n, t>0, \\
u(x,0)=0, u_t(x,0)=\delta (x), \quad x \in \mathbb{R}^n,
\end{array} \right.

</math></center>

donde <math> \delta(x) </math> es la delta de Dirac.

La solución fundamental es:

En dimensión <math>n=1</math> :

<center><math> K_1(x,t) =\frac{1}{2c}[H(x+ct)-H(x-ct)], </math></center>

Donde H(s) es la función de Heaviside, que vale 0 para <math>s<0</math> y 1 para <math>s\geq0</math>

Como se puede observar en la expresión, esta es radial.

En dimensión <math>n=2</math>:

<center><math>
K_2(x,t)=\frac{1}{2\pi c \sqrt{c^2t^2-|x|^2}} \chi_{B(0,ct)}(x)

</math></center>

donde <math> \chi_{B(0,ct)}(x) </math> es la función característica en la bola de centro 0 y radio <math> ct </math>. Esta expresión vuelve a ser de radial ya que depende del módulo de x.

En dimensión <math>n=3</math>:
<center><math>
K_3(x,t)=\frac{\delta (|x|-ct)}{4\pi c|x|}, t>0.

</math></center>

La expresión vuelve a ser radial.

===Representación===
En dimensión 1:

[[Archivo:Dim1ondashsc.png|600px|thumb|center|Solución en dimensión 1 ]]

{{matlab|codigo=
% Limpieza del entorno de trabajo
clear;
clc;

% Configuración inicial
x_vals = -1:0.01:1; % Vector de valores de x
t_vals = 0:0.001:1; % Vector de valores de t

% Crear la rejilla de puntos
[X_grid, T_grid] = meshgrid(x_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_fun = (X_grid <= prop_speed * T_grid) & (X_grid >= -prop_speed * T_grid);
K_fun = K_fun / (2 * prop_speed);

% Visualización
figure;
surf(X_grid, T_grid, K_fun);
shading interp;
title('Solución fundamental en 1D');
xlabel('x');
ylabel('t');
}}

En dimensión 2:

En esta dimensión hay una singularidad en el origen por lo que donde se ha considerado la regularización:

<center><math> K^{\varepsilon}_2 (x,t) = \frac{1}{\varepsilon + 2 \pi c \sqrt{c^2t^2 -|x|^2}} \chi _{B(0,1/2)}(x), ~~~~~\varepsilon = 0.01 </math>.</center>

[[Archivo:Dim2ondashsc.png|600px|thumb|center|Solución en dimensión 2 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Configuración de los intervalos
r_vals = 0:0.01:1; % Vector de valores de r
t_vals = 0:0.001:1; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_func = (R_grid <= prop_speed * T_grid) ./ (eps + 2 * pi * prop_speed .* sqrt(prop_speed^2 * T_grid.^2 - R_grid.^2));

% Visualización
figure;
surf(R_grid, T_grid, K_func);
shading interp;
title('Solución fundamental en 2D');
xlabel('r');
ylabel('t');
}}

En dimensión 3:

Para poder representar la solución, se ha sustituido la delta de Dirac por su aproximación

<center><math> \delta (s) \sim \phi _k (s) = \sqrt{\frac{k}{\pi}}e^{-ks^2}, ~~~ k>>1, </math> </center>

con <math>k=1000</math>.

[[Archivo:Dim3ondashsc.png|600px|thumb|center|Solución en dimensión 3 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Definición de intervalos
% Configuración de los intervalos
r_vals = 0:0.01:1; % Vector de valores de r
t_vals = 0:0.001:1; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_values, t_values);

% Parámetros del modelo
prop_speed = 1; % Velocidad de propagación
kappa = 1000; % Parámetro para la aproximación de la delta de Dirac

% Cálculo de la función fundamental
K_function = sqrt(kappa / pi) .* exp(-kappa * (R_grid - prop_speed * T_grid).^2) ./ (4 * pi * prop_speed * R_grid);

% Visualización
figure;
surf(R_grid, T_grid, K_function);
shading interp;
title('Solución fundamental en 3D');
xlabel('r');
ylabel('t');

}}

==Problema en dimensión 2==

Se considera el problema en dimensión 2:

<center><math> \left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^2, t>0, \\
u(x,0)=0, u_t(x,0)=h (x) = \chi _{B(0,\frac{1}{2})}(x), \quad x \in \mathbb{R}^2
\end{array} \right.

</math></center>

La solución se obtene por la convolución siguiente

<center><math> u(x,t)=\int_{\mathbb{R}^2}K_2 (x-y, t)h(y) dy </math>. </center>

Dado que, como se ha visto anteriormente, <math>K_2</math> y <math>h</math> son funciones radiales, su convolución también es radial.

Se representa la solución para <math>t=0, 0'5,1,2</math>

[[Archivo:tondashsc.png|1300px|thumb|center|Solución en diferentes tiempos ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo y cerrar todas las figuras
clear;
clc;
close all;

% Parámetro de velocidad de propagación
prop_speed = 1;

% Definición de intervalos y sus discretizaciones
time_steps = [0, 0.5, 1, 2]; % Valores discretos de tiempo para evaluar
theta_vals = linspace(0, 2 * pi); % Discretización de theta
r_vals = linspace(0, 1, 50); % Discretización del radio

[Theta_grid, R_grid] = meshgrid(theta_vals, r_vals); % Crear la rejilla de puntos

% Inicializar la matriz de solución U
U = zeros(size(Theta_grid));

% Conversión a coordenadas cartesianas para la visualización
X_cartesian = R_grid .* cos(Theta_grid);
Y_cartesian = R_grid .* sin(Theta_grid);

% Función para la solución fundamental en coordenadas polares
K_fun = @(a, l, r, t) (sqrt(r.^2 + l.^2 - 2*r.*l.*cos(a)) < prop_speed * t) ./ ...
(0.01*(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a) < 10^-16) + ...
2 * pi * prop_speed * sqrt(abs(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a))));

% Cálculo de la solución para cada valor de tiempo en time_steps
for t_idx = 1:length(time_steps)
for r_idx = 1:length(r_vals)
U(r_idx, :) = integral2(@(a, l) K_fun(a, l, r_vals(r_idx), time_steps(t_idx)), ...
0, 2 * pi, 0, 0.5) * ones(1, length(theta_vals)); % Evaluar la integral
end

% Visualización de la solución
figure;
surf(X_cartesian, Y_cartesian, U);
shading interp;
title(['Solución en 2D, t = ', num2str(time_steps(t_idx))]);
xlabel('x');
ylabel('y');
end

}}

==Conclusión==

A medida que se ha ido observando las gráficas, se ha podido apreciar la propagación de las ondas. Esta, es una superficie continua que se propaga hacia afuera y cuya forma es radial. La gráfica muestra claramente cómo la onda se expande y cómo su forma se mantiene coherente con el paso del tiempo, ilustrando el principio de Huygens. Por lo que de esta forma, se ha podido obtener una mejor interpretación de la ecuación de ondas a lo largo de la sección.

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T18:46:19Z

Manuel Fernández: /* Representación */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Introducción=

A lo largo de este trabajo se va a trabajar con diferentes soluciones de la ecuación de ondas, interpretando sus comportamientos. También se va a estudiar la solución fundamental en 1, 2 y 3 dimensiones aplicando un impulso inicial en 𝑥=0, gracias a lo cual se podrá interpretar el principio de Huygens. Donde este es:

'''Principio de Huygens''': Todo punto de un frente de onda inicial puede considerarse como una fuente de ondas esféricas secundarias que se extienden en todas las direcciones con la misma velocidad, frecuencia y longitud de onda que el frente de onda del que proceden.

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuelFdez.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.
[[Archivo:Ejercicio3aEc.OndasManuelFdez2.png|400px|thumb|center|Representación Solución Caso 1]]
Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo. Para ver esto más fácilmente se introduce el siguiente gif.
[[Archivo:Onda ejercicio 3 ManuelFdez.gif|800px|thumb|center|Representación Solución en función del tiempo Caso 1]]

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===
Se considera ahora que la onda viaja en un solo sentido, esto es que:
<center><math>
u(x,t)=f(x-t)
</math></center>
Donde para las condiciones iniciales en este caso se utilizará que <math> u_0 (x)=f(x) </math> y <math> u_1 (x)=-f'(x) </math>
y particularizando se utilizará la función:
<center><math>
f(x)=e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Derivando se obtiene:
<center><math>
f'(x)=-200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Por lo que con esto ya se tiene todo lo necesario, de tal forma que la ecuación en derivadas parciales es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>
Ahora se procede a resolver el ejercicio, que se hará de manera análoga a los apartados anteriores.
{{matlab|codigo=
clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')
}}
[[Archivo:Graficaejer1apar4.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Viendo la solución, se puede ver cómo la onda va con una velocidad constante de 1m/s, y tiene un periodo de 2 segundos. Cuando la onda llega a la frontera, cambia de dirección y es negativa. A continuación se ve una gráfica de la solución de perfil, donde se puede apreciar mejor la velocidad, y como cambia el comportamiento de la onda.
[[Archivo:Veloconda.jpeg|800px|thumb|center|Representación Solución de Perfil para apreciar la velocidad ]]

=== Caso 3. Condición frontera Neumann===
Por último se va a trabajar cambiando las condiciones a unas de tipo Neumann, esto es que <math> u_x(0,t)=u_x(1,t)=0 </math> como condiciones frontera. Con esto la ecuación en derivadas parciales es así:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u_x(0,t)=u_x(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>

Por ello, a lo hora de obtener coeficientes de Fourier para la solución, se calculan de forma distinta, haciendo separación de variables se obtiene:
<center><math>u(x, t) = \sum_{k=1}^{\infty} \left(c_k \cos(k \pi t) +d_k \cos(k\pi x )\sin(k \pi t) \right)
</math></center>
Donde los coeficientes <math> c_k</math> y <math> d_k </math> son:
<center><math>

c_k = \frac{\int_0^1 \cos(k\pi x) u_0(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
<center><math>

d_k = \frac{\int_0^1 \cos(k\pi x) u_1(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
Ahora se adapta el código cambiando los coeficientes, y el problema se resuelve de manera análoga
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*cos(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*cos(k*pi*x);
d(k) =2/(k*pi)*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*cos(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}
[[Archivo:Graficaejer1apar5.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Aquí se puede ver cómo la onda tiene una velocidad constante de 1 casi todo el tiempo, pero cuando la onda llega a la frontera la onda se dispara y disminuye su velocidad, y posteriormente pasa a ir en el sentido contrario.

= Ecuación de ondas II=
En este ejercicio se dibujará la solución fundamental de la ecuación de ondas en dimensiones 1, 2 y 3. De esta forma, se interpretará el
principio de Huygens.

==Solución fundamental==
La solución fundamental es la solución que se obtiene al dar un impulso inicial muy
localizado en <math>x = 0</math>.

El problema a resolver resulta el siguiente

<center><math>\left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^n, t>0, \\
u(x,0)=0, u_t(x,0)=\delta (x), \quad x \in \mathbb{R}^n,
\end{array} \right.

</math></center>

donde <math> \delta(x) </math> es la delta de Dirac.

La solución fundamental es:

En dimensión <math>n=1</math> :

<center><math> K_1(x,t) =\frac{1}{2c}[H(x+ct)-H(x-ct)], </math></center>

Donde H(s) es la función de Heaviside, que vale 0 para <math>s<0</math> y 1 para <math>s\geq0</math>

Como se puede observar en la expresión, esta es radial.

En dimensión <math>n=2</math>:

<center><math>
K_2(x,t)=\frac{1}{2\pi c \sqrt{c^2t^2-|x|^2}} \chi_{B(0,ct)}(x)

</math></center>

donde <math> \chi_{B(0,ct)}(x) </math> es la función característica en la bola de centro 0 y radio <math> ct </math>. Esta expresión vuelve a ser de radial ya que depende del módulo de x.

En dimensión <math>n=3</math>:
<center><math>
K_3(x,t)=\frac{\delta (|x|-ct)}{4\pi c|x|}, t>0.

</math></center>

La expresión vuelve a ser radial.

===Representación===
En dimensión 1:

[[Archivo:Dim1ondashsc.png|600px|thumb|center|Solución en dimensión 1 ]]

{{matlab|codigo=
% Limpieza del entorno de trabajo
clear;
clc;

% Configuración inicial
x_vals = -1:0.01:1; % Vector de valores de x
t_vals = 0:0.001:1; % Vector de valores de t

% Crear la rejilla de puntos
[X_grid, T_grid] = meshgrid(x_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_fun = (X_grid <= prop_speed * T_grid) & (X_grid >= -prop_speed * T_grid);
K_fun = K_fun / (2 * prop_speed);

% Visualización
figure;
surf(X_grid, T_grid, K_fun);
shading interp;
title('Solución fundamental en 1D');
xlabel('x');
ylabel('t');
}}

En dimensión 2:

En esta dimensión hay una singularidad en el origen por lo que donde se ha considerado la regularización:

<center><math> K^{\varepsilon}_2 (x,t) = \frac{1}{\varepsilon + 2 \pi c \sqrt{c^2t^2 -|x|^2}} \chi _{B(0,1/2)}(x), ~~~~~\varepsilon = 0.01 </math>.</center>

[[Archivo:Dim2ondashsc.png|600px|thumb|center|Solución en dimensión 2 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Configuración de los intervalos
r_vals = 0:0.01:1; % Vector de valores de r
t_vals = 0:0.001:1; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_func = (R_grid <= prop_speed * T_grid) ./ (eps + 2 * pi * prop_speed .* sqrt(prop_speed^2 * T_grid.^2 - R_grid.^2));

% Visualización
figure;
surf(R_grid, T_grid, K_func);
shading interp;
title('Solución fundamental en 2D');
xlabel('r');
ylabel('t');
}}

En dimensión 3:

Para poder representar la solución, se ha sustituido la delta de Dirac por su aproximación

<center><math> \delta (s) \sim \phi _k (s) = \sqrt{\frac{k}{\pi}}e^{-ks^2}, ~~~ k>>1, </math> </center>

con <math>k=1000</math>.

[[Archivo:Dim3ondashsc.png|600px|thumb|center|Solución en dimensión 3 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Definición de intervalos
% Configuración de los intervalos
r_vals = 0:0.01:1; % Vector de valores de r
t_vals = 0:0.001:1; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_values, t_values);

% Parámetros del modelo
prop_speed = 1; % Velocidad de propagación
kappa = 1000; % Parámetro para la aproximación de la delta de Dirac

% Cálculo de la función fundamental
K_function = sqrt(kappa / pi) .* exp(-kappa * (R_grid - prop_speed * T_grid).^2) ./ (4 * pi * prop_speed * R_grid);

% Visualización
figure;
surf(R_grid, T_grid, K_function);
shading interp;
title('Solución fundamental en 3D');
xlabel('r');
ylabel('t');

}}

==Problema en dimensión 2==

Se considera el problema en dimensión 2:

<center><math> \left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^2, t>0, \\
u(x,0)=0, u_t(x,0)=h (x) = \chi _{B(0,\frac{1}{2})}(x), \quad x \in \mathbb{R}^2
\end{array} \right.

</math></center>

La solución se obtene por la convolución siguiente

<center><math> u(x,t)=\int_{\mathbb{R}^2}K_2 (x-y, t)h(y) dy </math>. </center>

Dado que, como se ha visto anteriormente, <math>K_2</math> y <math>h</math> son funciones radiales, su convolución también es radial.

Se representa la solución para <math>t=0, 0'5,1,2</math>

[[Archivo:tondashsc.png|1300px|thumb|center|Solución en diferentes tiempos ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo y cerrar todas las figuras
clear;
clc;
close all;

% Parámetro de velocidad de propagación
prop_speed = 1;

% Definición de intervalos y sus discretizaciones
r_start = 0; r_end = 1; % Límites del intervalo radial
t_start = 0; t_end = 1; % Límites del intervalo temporal
theta_start = 0; theta_end = 2 * pi; % Límites del intervalo angular

time_steps = [0, 0.5, 1, 2]; % Valores discretos de tiempo para evaluar
theta_vals = linspace(theta_start, theta_end); % Discretización de theta
r_vals = linspace(r_start, r_end, 50); % Discretización del radio

[Theta_grid, R_grid] = meshgrid(theta_vals, r_vals); % Crear la rejilla de puntos

% Inicializar la matriz de solución U
U = zeros(size(Theta_grid));

% Conversión a coordenadas cartesianas para la visualización
X_cartesian = R_grid .* cos(Theta_grid);
Y_cartesian = R_grid .* sin(Theta_grid);

% Función para la solución fundamental en coordenadas polares
K_fun = @(a, l, r, t) (sqrt(r.^2 + l.^2 - 2*r.*l.*cos(a)) < prop_speed * t) ./ ...
(0.01*(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a) < 10^-16) + ...
2 * pi * prop_speed * sqrt(abs(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a))));

% Cálculo de la solución para cada valor de tiempo en time_steps
for t_idx = 1:length(time_steps)
for r_idx = 1:length(r_vals)
U(r_idx, :) = integral2(@(a, l) K_fun(a, l, r_vals(r_idx), time_steps(t_idx)), ...
0, 2 * pi, 0, 0.5) * ones(1, length(theta_vals)); % Evaluar la integral
end

% Visualización de la solución
figure;
surf(X_cartesian, Y_cartesian, U);
shading interp;
title(['Solución en 2D, t = ', num2str(time_steps(t_idx))]);
xlabel('x');
ylabel('y');
end

}}

==Conclusión==

A medida que se ha ido observando las gráficas, se ha podido apreciar la propagación de las ondas. Esta, es una superficie continua que se propaga hacia afuera y cuya forma es radial. La gráfica muestra claramente cómo la onda se expande y cómo su forma se mantiene coherente con el paso del tiempo, ilustrando el principio de Huygens. Por lo que de esta forma, se ha podido obtener una mejor interpretación de la ecuación de ondas a lo largo de la sección.

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T18:42:45Z

Manuel Fernández: /* Caso 3. Condición frontera Neumann */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Introducción=

A lo largo de este trabajo se va a trabajar con diferentes soluciones de la ecuación de ondas, interpretando sus comportamientos. También se va a estudiar la solución fundamental en 1, 2 y 3 dimensiones aplicando un impulso inicial en 𝑥=0, gracias a lo cual se podrá interpretar el principio de Huygens. Donde este es:

'''Principio de Huygens''': Todo punto de un frente de onda inicial puede considerarse como una fuente de ondas esféricas secundarias que se extienden en todas las direcciones con la misma velocidad, frecuencia y longitud de onda que el frente de onda del que proceden.

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuelFdez.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.
[[Archivo:Ejercicio3aEc.OndasManuelFdez2.png|400px|thumb|center|Representación Solución Caso 1]]
Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo. Para ver esto más fácilmente se introduce el siguiente gif.
[[Archivo:Onda ejercicio 3 ManuelFdez.gif|800px|thumb|center|Representación Solución en función del tiempo Caso 1]]

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===
Se considera ahora que la onda viaja en un solo sentido, esto es que:
<center><math>
u(x,t)=f(x-t)
</math></center>
Donde para las condiciones iniciales en este caso se utilizará que <math> u_0 (x)=f(x) </math> y <math> u_1 (x)=-f'(x) </math>
y particularizando se utilizará la función:
<center><math>
f(x)=e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Derivando se obtiene:
<center><math>
f'(x)=-200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Por lo que con esto ya se tiene todo lo necesario, de tal forma que la ecuación en derivadas parciales es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>
Ahora se procede a resolver el ejercicio, que se hará de manera análoga a los apartados anteriores.
{{matlab|codigo=
clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')
}}
[[Archivo:Graficaejer1apar4.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Viendo la solución, se puede ver cómo la onda va con una velocidad constante de 1m/s, y tiene un periodo de 2 segundos. Cuando la onda llega a la frontera, cambia de dirección y es negativa. A continuación se ve una gráfica de la solución de perfil, donde se puede apreciar mejor la velocidad, y como cambia el comportamiento de la onda.
[[Archivo:Veloconda.jpeg|800px|thumb|center|Representación Solución de Perfil para apreciar la velocidad ]]

=== Caso 3. Condición frontera Neumann===
Por último se va a trabajar cambiando las condiciones a unas de tipo Neumann, esto es que <math> u_x(0,t)=u_x(1,t)=0 </math> como condiciones frontera. Con esto la ecuación en derivadas parciales es así:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u_x(0,t)=u_x(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>

Por ello, a lo hora de obtener coeficientes de Fourier para la solución, se calculan de forma distinta, haciendo separación de variables se obtiene:
<center><math>u(x, t) = \sum_{k=1}^{\infty} \left(c_k \cos(k \pi t) +d_k \cos(k\pi x )\sin(k \pi t) \right)
</math></center>
Donde los coeficientes <math> c_k</math> y <math> d_k </math> son:
<center><math>

c_k = \frac{\int_0^1 \cos(k\pi x) u_0(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
<center><math>

d_k = \frac{\int_0^1 \cos(k\pi x) u_1(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
Ahora se adapta el código cambiando los coeficientes, y el problema se resuelve de manera análoga
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*cos(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*cos(k*pi*x);
d(k) =2/(k*pi)*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*cos(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}
[[Archivo:Graficaejer1apar5.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Aquí se puede ver cómo la onda tiene una velocidad constante de 1 casi todo el tiempo, pero cuando la onda llega a la frontera la onda se dispara y disminuye su velocidad, y posteriormente pasa a ir en el sentido contrario.

= Ecuación de ondas II=
En este ejercicio se dibujará la solución fundamental de la ecuación de ondas en dimensiones 1, 2 y 3. De esta forma, se interpretará el
principio de Huygens.

==Solución fundamental==
La solución fundamental es la solución que se obtiene al dar un impulso inicial muy
localizado en <math>x = 0</math>.

El problema a resolver resulta el siguiente

<center><math>\left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^n, t>0, \\
u(x,0)=0, u_t(x,0)=\delta (x), \quad x \in \mathbb{R}^n,
\end{array} \right.

</math></center>

donde <math> \delta(x) </math> es la delta de Dirac.

La solución fundamental es:

En dimensión <math>n=1</math> :

<center><math> K_1(x,t) =\frac{1}{2c}[H(x+ct)-H(x-ct)], </math></center>

Donde H(s) es la función de Heaviside, que vale 0 para <math>s<0</math> y 1 para <math>s\geq0</math>

Como se puede observar en la expresión, esta es radial.

En dimensión <math>n=2</math>:

<center><math>
K_2(x,t)=\frac{1}{2\pi c \sqrt{c^2t^2-|x|^2}} \chi_{B(0,ct)}(x)

</math></center>

donde <math> \chi_{B(0,ct)}(x) </math> es la función característica en la bola de centro 0 y radio <math> ct </math>. Esta expresión vuelve a ser de radial ya que depende del módulo de x.

En dimensión <math>n=3</math>:
<center><math>
K_3(x,t)=\frac{\delta (|x|-ct)}{4\pi c|x|}, t>0.

</math></center>

La expresión vuelve a ser radial.

===Representación===
En dimensión 1:

[[Archivo:Dim1ondashsc.png|600px|thumb|center|Solución en dimensión 1 ]]

{{matlab|codigo=
% Limpieza del entorno de trabajo
clear;
clc;

% Configuración inicial
x_start = -1; x_end = 1; % Límites del intervalo en x
t_start = 0; t_end = 1; % Límites del intervalo en t
dx = 0.01; dt = 0.001; % Tamaños de paso para x y t
x_vals = x_start:dx:x_end; % Vector de valores de x
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[X_grid, T_grid] = meshgrid(x_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_fun = (X_grid <= prop_speed * T_grid) & (X_grid >= -prop_speed * T_grid);
K_fun = K_fun / (2 * prop_speed);

% Visualización
figure;
surf(X_grid, T_grid, K_fun);
shading interp;
title('Solución fundamental en 1D');
xlabel('x');
ylabel('t');
}}

En dimensión 2:

En esta dimensión hay una singularidad en el origen por lo que donde se ha considerado la regularización:

<center><math> K^{\varepsilon}_2 (x,t) = \frac{1}{\varepsilon + 2 \pi c \sqrt{c^2t^2 -|x|^2}} \chi _{B(0,1/2)}(x), ~~~~~\varepsilon = 0.01 </math>.</center>

[[Archivo:Dim2ondashsc.png|600px|thumb|center|Solución en dimensión 2 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Configuración de los intervalos
r_start = 0; r_end = 1; % Límites del intervalo en r
t_start = 0; t_end = 1; % Límites del intervalo en t
dr = 0.01; dt = 0.001; % Tamaños de paso para r y t
r_vals = r_start:dr:r_end; % Vector de valores de r
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_func = (R_grid <= prop_speed * T_grid) ./ (eps + 2 * pi * prop_speed .* sqrt(prop_speed^2 * T_grid.^2 - R_grid.^2));

% Visualización
figure;
surf(R_grid, T_grid, K_func);
shading interp;
title('Solución fundamental en 2D');
xlabel('r');
ylabel('t');
}}

En dimensión 3:

Para poder representar la solución, se ha sustituido la delta de Dirac por su aproximación

<center><math> \delta (s) \sim \phi _k (s) = \sqrt{\frac{k}{\pi}}e^{-ks^2}, ~~~ k>>1, </math> </center>

con <math>k=1000</math>.

[[Archivo:Dim3ondashsc.png|600px|thumb|center|Solución en dimensión 3 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Definición de intervalos
r_start = 0; r_end = 1; % Límites inicial y final para r
t_start = 0; t_end = 1; % Límites inicial y final para t
delta_r = 0.01; delta_t = 0.001; % Tamaños de paso para r y t
r_values = r_start:delta_r:r_end; % Vector de valores para r
t_values = t_start:delta_t:t_end; % Vector de valores para t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_values, t_values);

% Parámetros del modelo
prop_speed = 1; % Velocidad de propagación
kappa = 1000; % Parámetro para la aproximación de la delta de Dirac

% Cálculo de la función fundamental
K_function = sqrt(kappa / pi) .* exp(-kappa * (R_grid - prop_speed * T_grid).^2) ./ (4 * pi * prop_speed * R_grid);

% Visualización
figure;
surf(R_grid, T_grid, K_function);
shading interp;
title('Solución fundamental en 3D');
xlabel('r');
ylabel('t');

}}

==Problema en dimensión 2==

Se considera el problema en dimensión 2:

<center><math> \left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^2, t>0, \\
u(x,0)=0, u_t(x,0)=h (x) = \chi _{B(0,\frac{1}{2})}(x), \quad x \in \mathbb{R}^2
\end{array} \right.

</math></center>

La solución se obtene por la convolución siguiente

<center><math> u(x,t)=\int_{\mathbb{R}^2}K_2 (x-y, t)h(y) dy </math>. </center>

Dado que, como se ha visto anteriormente, <math>K_2</math> y <math>h</math> son funciones radiales, su convolución también es radial.

Se representa la solución para <math>t=0, 0'5,1,2</math>

[[Archivo:tondashsc.png|1300px|thumb|center|Solución en diferentes tiempos ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo y cerrar todas las figuras
clear;
clc;
close all;

% Parámetro de velocidad de propagación
prop_speed = 1;

% Definición de intervalos y sus discretizaciones
r_start = 0; r_end = 1; % Límites del intervalo radial
t_start = 0; t_end = 1; % Límites del intervalo temporal
theta_start = 0; theta_end = 2 * pi; % Límites del intervalo angular

time_steps = [0, 0.5, 1, 2]; % Valores discretos de tiempo para evaluar
theta_vals = linspace(theta_start, theta_end); % Discretización de theta
r_vals = linspace(r_start, r_end, 50); % Discretización del radio

[Theta_grid, R_grid] = meshgrid(theta_vals, r_vals); % Crear la rejilla de puntos

% Inicializar la matriz de solución U
U = zeros(size(Theta_grid));

% Conversión a coordenadas cartesianas para la visualización
X_cartesian = R_grid .* cos(Theta_grid);
Y_cartesian = R_grid .* sin(Theta_grid);

% Función para la solución fundamental en coordenadas polares
K_fun = @(a, l, r, t) (sqrt(r.^2 + l.^2 - 2*r.*l.*cos(a)) < prop_speed * t) ./ ...
(0.01*(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a) < 10^-16) + ...
2 * pi * prop_speed * sqrt(abs(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a))));

% Cálculo de la solución para cada valor de tiempo en time_steps
for t_idx = 1:length(time_steps)
for r_idx = 1:length(r_vals)
U(r_idx, :) = integral2(@(a, l) K_fun(a, l, r_vals(r_idx), time_steps(t_idx)), ...
0, 2 * pi, 0, 0.5) * ones(1, length(theta_vals)); % Evaluar la integral
end

% Visualización de la solución
figure;
surf(X_cartesian, Y_cartesian, U);
shading interp;
title(['Solución en 2D, t = ', num2str(time_steps(t_idx))]);
xlabel('x');
ylabel('y');
end

}}

==Conclusión==

A medida que se ha ido observando las gráficas, se ha podido apreciar la propagación de las ondas. Esta, es una superficie continua que se propaga hacia afuera y cuya forma es radial. La gráfica muestra claramente cómo la onda se expande y cómo su forma se mantiene coherente con el paso del tiempo, ilustrando el principio de Huygens. Por lo que de esta forma, se ha podido obtener una mejor interpretación de la ecuación de ondas a lo largo de la sección.

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T18:41:10Z

Manuel Fernández: /* Caso 2. Onda viajera */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Introducción=

A lo largo de este trabajo se va a trabajar con diferentes soluciones de la ecuación de ondas, interpretando sus comportamientos. También se va a estudiar la solución fundamental en 1, 2 y 3 dimensiones aplicando un impulso inicial en 𝑥=0, gracias a lo cual se podrá interpretar el principio de Huygens. Donde este es:

'''Principio de Huygens''': Todo punto de un frente de onda inicial puede considerarse como una fuente de ondas esféricas secundarias que se extienden en todas las direcciones con la misma velocidad, frecuencia y longitud de onda que el frente de onda del que proceden.

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuelFdez.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.
[[Archivo:Ejercicio3aEc.OndasManuelFdez2.png|400px|thumb|center|Representación Solución Caso 1]]
Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo. Para ver esto más fácilmente se introduce el siguiente gif.
[[Archivo:Onda ejercicio 3 ManuelFdez.gif|800px|thumb|center|Representación Solución en función del tiempo Caso 1]]

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===
Se considera ahora que la onda viaja en un solo sentido, esto es que:
<center><math>
u(x,t)=f(x-t)
</math></center>
Donde para las condiciones iniciales en este caso se utilizará que <math> u_0 (x)=f(x) </math> y <math> u_1 (x)=-f'(x) </math>
y particularizando se utilizará la función:
<center><math>
f(x)=e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Derivando se obtiene:
<center><math>
f'(x)=-200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Por lo que con esto ya se tiene todo lo necesario, de tal forma que la ecuación en derivadas parciales es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>
Ahora se procede a resolver el ejercicio, que se hará de manera análoga a los apartados anteriores.
{{matlab|codigo=
clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)).*sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')
}}
[[Archivo:Graficaejer1apar4.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Viendo la solución, se puede ver cómo la onda va con una velocidad constante de 1m/s, y tiene un periodo de 2 segundos. Cuando la onda llega a la frontera, cambia de dirección y es negativa. A continuación se ve una gráfica de la solución de perfil, donde se puede apreciar mejor la velocidad, y como cambia el comportamiento de la onda.
[[Archivo:Veloconda.jpeg|800px|thumb|center|Representación Solución de Perfil para apreciar la velocidad ]]

=== Caso 3. Condición frontera Neumann===
Por último se va a trabajar cambiando las condiciones a unas de tipo Neumann, esto es que <math> u_x(0,t)=u_x(1,t)=0 </math> como condiciones frontera. Con esto la ecuación en derivadas parciales es así:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u_x(0,t)=u_x(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>

Por ello, a lo hora de obtener coeficientes de Fourier para la solución, se calculan de forma distinta, haciendo separación de variables se obtiene:
<center><math>u(x, t) = \sum_{k=1}^{\infty} \left(c_k \cos(k \pi t) +d_k \cos(k\pi x )\sin(k \pi t) \right)
</math></center>
Donde los coeficientes <math> c_k</math> y <math> d_k </math> son:
<center><math>

c_k = \frac{\int_0^1 \cos(k\pi x) u_0(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
<center><math>

d_k = \frac{\int_0^1 \cos(k\pi x) u_1(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
Ahora se adapta el código cambiando los coeficientes, y el problema se resuelve de manera análoga
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

dk_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);

ck_0(k) = 2*trapz(x, f_cos_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);

dk_1(k) =2/(k*pi)*trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ck_0(i)*cos(i*pi*tt) + dk_1(i)*sin(i*pi*tt)).*cos(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}
[[Archivo:Graficaejer1apar5.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Aquí se puede ver cómo la onda tiene una velocidad constante de 1 casi todo el tiempo, pero cuando la onda llega a la frontera la onda se dispara y disminuye su velocidad, y posteriormente pasa a ir en el sentido contrario.

= Ecuación de ondas II=
En este ejercicio se dibujará la solución fundamental de la ecuación de ondas en dimensiones 1, 2 y 3. De esta forma, se interpretará el
principio de Huygens.

==Solución fundamental==
La solución fundamental es la solución que se obtiene al dar un impulso inicial muy
localizado en <math>x = 0</math>.

El problema a resolver resulta el siguiente

<center><math>\left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^n, t>0, \\
u(x,0)=0, u_t(x,0)=\delta (x), \quad x \in \mathbb{R}^n,
\end{array} \right.

</math></center>

donde <math> \delta(x) </math> es la delta de Dirac.

La solución fundamental es:

En dimensión <math>n=1</math> :

<center><math> K_1(x,t) =\frac{1}{2c}[H(x+ct)-H(x-ct)], </math></center>

Donde H(s) es la función de Heaviside, que vale 0 para <math>s<0</math> y 1 para <math>s\geq0</math>

Como se puede observar en la expresión, esta es radial.

En dimensión <math>n=2</math>:

<center><math>
K_2(x,t)=\frac{1}{2\pi c \sqrt{c^2t^2-|x|^2}} \chi_{B(0,ct)}(x)

</math></center>

donde <math> \chi_{B(0,ct)}(x) </math> es la función característica en la bola de centro 0 y radio <math> ct </math>. Esta expresión vuelve a ser de radial ya que depende del módulo de x.

En dimensión <math>n=3</math>:
<center><math>
K_3(x,t)=\frac{\delta (|x|-ct)}{4\pi c|x|}, t>0.

</math></center>

La expresión vuelve a ser radial.

===Representación===
En dimensión 1:

[[Archivo:Dim1ondashsc.png|600px|thumb|center|Solución en dimensión 1 ]]

{{matlab|codigo=
% Limpieza del entorno de trabajo
clear;
clc;

% Configuración inicial
x_start = -1; x_end = 1; % Límites del intervalo en x
t_start = 0; t_end = 1; % Límites del intervalo en t
dx = 0.01; dt = 0.001; % Tamaños de paso para x y t
x_vals = x_start:dx:x_end; % Vector de valores de x
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[X_grid, T_grid] = meshgrid(x_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_fun = (X_grid <= prop_speed * T_grid) & (X_grid >= -prop_speed * T_grid);
K_fun = K_fun / (2 * prop_speed);

% Visualización
figure;
surf(X_grid, T_grid, K_fun);
shading interp;
title('Solución fundamental en 1D');
xlabel('x');
ylabel('t');
}}

En dimensión 2:

En esta dimensión hay una singularidad en el origen por lo que donde se ha considerado la regularización:

<center><math> K^{\varepsilon}_2 (x,t) = \frac{1}{\varepsilon + 2 \pi c \sqrt{c^2t^2 -|x|^2}} \chi _{B(0,1/2)}(x), ~~~~~\varepsilon = 0.01 </math>.</center>

[[Archivo:Dim2ondashsc.png|600px|thumb|center|Solución en dimensión 2 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Configuración de los intervalos
r_start = 0; r_end = 1; % Límites del intervalo en r
t_start = 0; t_end = 1; % Límites del intervalo en t
dr = 0.01; dt = 0.001; % Tamaños de paso para r y t
r_vals = r_start:dr:r_end; % Vector de valores de r
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_func = (R_grid <= prop_speed * T_grid) ./ (eps + 2 * pi * prop_speed .* sqrt(prop_speed^2 * T_grid.^2 - R_grid.^2));

% Visualización
figure;
surf(R_grid, T_grid, K_func);
shading interp;
title('Solución fundamental en 2D');
xlabel('r');
ylabel('t');
}}

En dimensión 3:

Para poder representar la solución, se ha sustituido la delta de Dirac por su aproximación

<center><math> \delta (s) \sim \phi _k (s) = \sqrt{\frac{k}{\pi}}e^{-ks^2}, ~~~ k>>1, </math> </center>

con <math>k=1000</math>.

[[Archivo:Dim3ondashsc.png|600px|thumb|center|Solución en dimensión 3 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Definición de intervalos
r_start = 0; r_end = 1; % Límites inicial y final para r
t_start = 0; t_end = 1; % Límites inicial y final para t
delta_r = 0.01; delta_t = 0.001; % Tamaños de paso para r y t
r_values = r_start:delta_r:r_end; % Vector de valores para r
t_values = t_start:delta_t:t_end; % Vector de valores para t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_values, t_values);

% Parámetros del modelo
prop_speed = 1; % Velocidad de propagación
kappa = 1000; % Parámetro para la aproximación de la delta de Dirac

% Cálculo de la función fundamental
K_function = sqrt(kappa / pi) .* exp(-kappa * (R_grid - prop_speed * T_grid).^2) ./ (4 * pi * prop_speed * R_grid);

% Visualización
figure;
surf(R_grid, T_grid, K_function);
shading interp;
title('Solución fundamental en 3D');
xlabel('r');
ylabel('t');

}}

==Problema en dimensión 2==

Se considera el problema en dimensión 2:

<center><math> \left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^2, t>0, \\
u(x,0)=0, u_t(x,0)=h (x) = \chi _{B(0,\frac{1}{2})}(x), \quad x \in \mathbb{R}^2
\end{array} \right.

</math></center>

La solución se obtene por la convolución siguiente

<center><math> u(x,t)=\int_{\mathbb{R}^2}K_2 (x-y, t)h(y) dy </math>. </center>

Dado que, como se ha visto anteriormente, <math>K_2</math> y <math>h</math> son funciones radiales, su convolución también es radial.

Se representa la solución para <math>t=0, 0'5,1,2</math>

[[Archivo:tondashsc.png|1300px|thumb|center|Solución en diferentes tiempos ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo y cerrar todas las figuras
clear;
clc;
close all;

% Parámetro de velocidad de propagación
prop_speed = 1;

% Definición de intervalos y sus discretizaciones
r_start = 0; r_end = 1; % Límites del intervalo radial
t_start = 0; t_end = 1; % Límites del intervalo temporal
theta_start = 0; theta_end = 2 * pi; % Límites del intervalo angular

time_steps = [0, 0.5, 1, 2]; % Valores discretos de tiempo para evaluar
theta_vals = linspace(theta_start, theta_end); % Discretización de theta
r_vals = linspace(r_start, r_end, 50); % Discretización del radio

[Theta_grid, R_grid] = meshgrid(theta_vals, r_vals); % Crear la rejilla de puntos

% Inicializar la matriz de solución U
U = zeros(size(Theta_grid));

% Conversión a coordenadas cartesianas para la visualización
X_cartesian = R_grid .* cos(Theta_grid);
Y_cartesian = R_grid .* sin(Theta_grid);

% Función para la solución fundamental en coordenadas polares
K_fun = @(a, l, r, t) (sqrt(r.^2 + l.^2 - 2*r.*l.*cos(a)) < prop_speed * t) ./ ...
(0.01*(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a) < 10^-16) + ...
2 * pi * prop_speed * sqrt(abs(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a))));

% Cálculo de la solución para cada valor de tiempo en time_steps
for t_idx = 1:length(time_steps)
for r_idx = 1:length(r_vals)
U(r_idx, :) = integral2(@(a, l) K_fun(a, l, r_vals(r_idx), time_steps(t_idx)), ...
0, 2 * pi, 0, 0.5) * ones(1, length(theta_vals)); % Evaluar la integral
end

% Visualización de la solución
figure;
surf(X_cartesian, Y_cartesian, U);
shading interp;
title(['Solución en 2D, t = ', num2str(time_steps(t_idx))]);
xlabel('x');
ylabel('y');
end

}}

==Conclusión==

A medida que se ha ido observando las gráficas, se ha podido apreciar la propagación de las ondas. Esta, es una superficie continua que se propaga hacia afuera y cuya forma es radial. La gráfica muestra claramente cómo la onda se expande y cómo su forma se mantiene coherente con el paso del tiempo, ilustrando el principio de Huygens. Por lo que de esta forma, se ha podido obtener una mejor interpretación de la ecuación de ondas a lo largo de la sección.

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T18:39:28Z

Manuel Fernández: /* Caso 1. Solución periódica */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Introducción=

A lo largo de este trabajo se va a trabajar con diferentes soluciones de la ecuación de ondas, interpretando sus comportamientos. También se va a estudiar la solución fundamental en 1, 2 y 3 dimensiones aplicando un impulso inicial en 𝑥=0, gracias a lo cual se podrá interpretar el principio de Huygens. Donde este es:

'''Principio de Huygens''': Todo punto de un frente de onda inicial puede considerarse como una fuente de ondas esféricas secundarias que se extienden en todas las direcciones con la misma velocidad, frecuencia y longitud de onda que el frente de onda del que proceden.

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuelFdez.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.
[[Archivo:Ejercicio3aEc.OndasManuelFdez2.png|400px|thumb|center|Representación Solución Caso 1]]
Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo. Para ver esto más fácilmente se introduce el siguiente gif.
[[Archivo:Onda ejercicio 3 ManuelFdez.gif|800px|thumb|center|Representación Solución en función del tiempo Caso 1]]

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
c = zeros(n,1);
d = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_0 = @(x) u_0(x).*sin(k*pi*x);
c(k) = 2*trapz(x, f_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_1 = @(x) u_1(x).*sin(k*pi*x);
d(k) =(2/(k*pi))*trapz(x, f_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (c(i)*cos(i*pi*tt) + d(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===
Se considera ahora que la onda viaja en un solo sentido, esto es que:
<center><math>
u(x,t)=f(x-t)
</math></center>
Donde para las condiciones iniciales en este caso se utilizará que <math> u_0 (x)=f(x) </math> y <math> u_1 (x)=-f'(x) </math>
y particularizando se utilizará la función:
<center><math>
f(x)=e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Derivando se obtiene:
<center><math>
f'(x)=-200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Por lo que con esto ya se tiene todo lo necesario, de tal forma que la ecuación en derivadas parciales es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>
Ahora se procede a resolver el ejercicio, que se hará de manera análoga a los apartados anteriores.
{{matlab|codigo=
clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

dk_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);

ck_0(k) = 2*trapz(x, f_sen_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);

dk_1(k) =(2/(k*pi))*trapz(x, f_sen_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ck_0(i)*cos(i*pi*tt) + dk_1(i)*sin(i*pi*tt)).*sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')
}}
[[Archivo:Graficaejer1apar4.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Viendo la solución, se puede ver cómo la onda va con una velocidad constante de 1m/s, y tiene un periodo de 2 segundos. Cuando la onda llega a la frontera, cambia de dirección y es negativa. A continuación se ve una gráfica de la solución de perfil, donde se puede apreciar mejor la velocidad, y como cambia el comportamiento de la onda.
[[Archivo:Veloconda.jpeg|800px|thumb|center|Representación Solución de Perfil para apreciar la velocidad ]]

=== Caso 3. Condición frontera Neumann===
Por último se va a trabajar cambiando las condiciones a unas de tipo Neumann, esto es que <math> u_x(0,t)=u_x(1,t)=0 </math> como condiciones frontera. Con esto la ecuación en derivadas parciales es así:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u_x(0,t)=u_x(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>

Por ello, a lo hora de obtener coeficientes de Fourier para la solución, se calculan de forma distinta, haciendo separación de variables se obtiene:
<center><math>u(x, t) = \sum_{k=1}^{\infty} \left(c_k \cos(k \pi t) +d_k \cos(k\pi x )\sin(k \pi t) \right)
</math></center>
Donde los coeficientes <math> c_k</math> y <math> d_k </math> son:
<center><math>

c_k = \frac{\int_0^1 \cos(k\pi x) u_0(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
<center><math>

d_k = \frac{\int_0^1 \cos(k\pi x) u_1(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
Ahora se adapta el código cambiando los coeficientes, y el problema se resuelve de manera análoga
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

dk_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);

ck_0(k) = 2*trapz(x, f_cos_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);

dk_1(k) =2/(k*pi)*trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ck_0(i)*cos(i*pi*tt) + dk_1(i)*sin(i*pi*tt)).*cos(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}
[[Archivo:Graficaejer1apar5.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Aquí se puede ver cómo la onda tiene una velocidad constante de 1 casi todo el tiempo, pero cuando la onda llega a la frontera la onda se dispara y disminuye su velocidad, y posteriormente pasa a ir en el sentido contrario.

= Ecuación de ondas II=
En este ejercicio se dibujará la solución fundamental de la ecuación de ondas en dimensiones 1, 2 y 3. De esta forma, se interpretará el
principio de Huygens.

==Solución fundamental==
La solución fundamental es la solución que se obtiene al dar un impulso inicial muy
localizado en <math>x = 0</math>.

El problema a resolver resulta el siguiente

<center><math>\left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^n, t>0, \\
u(x,0)=0, u_t(x,0)=\delta (x), \quad x \in \mathbb{R}^n,
\end{array} \right.

</math></center>

donde <math> \delta(x) </math> es la delta de Dirac.

La solución fundamental es:

En dimensión <math>n=1</math> :

<center><math> K_1(x,t) =\frac{1}{2c}[H(x+ct)-H(x-ct)], </math></center>

Donde H(s) es la función de Heaviside, que vale 0 para <math>s<0</math> y 1 para <math>s\geq0</math>

Como se puede observar en la expresión, esta es radial.

En dimensión <math>n=2</math>:

<center><math>
K_2(x,t)=\frac{1}{2\pi c \sqrt{c^2t^2-|x|^2}} \chi_{B(0,ct)}(x)

</math></center>

donde <math> \chi_{B(0,ct)}(x) </math> es la función característica en la bola de centro 0 y radio <math> ct </math>. Esta expresión vuelve a ser de radial ya que depende del módulo de x.

En dimensión <math>n=3</math>:
<center><math>
K_3(x,t)=\frac{\delta (|x|-ct)}{4\pi c|x|}, t>0.

</math></center>

La expresión vuelve a ser radial.

===Representación===
En dimensión 1:

[[Archivo:Dim1ondashsc.png|600px|thumb|center|Solución en dimensión 1 ]]

{{matlab|codigo=
% Limpieza del entorno de trabajo
clear;
clc;

% Configuración inicial
x_start = -1; x_end = 1; % Límites del intervalo en x
t_start = 0; t_end = 1; % Límites del intervalo en t
dx = 0.01; dt = 0.001; % Tamaños de paso para x y t
x_vals = x_start:dx:x_end; % Vector de valores de x
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[X_grid, T_grid] = meshgrid(x_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_fun = (X_grid <= prop_speed * T_grid) & (X_grid >= -prop_speed * T_grid);
K_fun = K_fun / (2 * prop_speed);

% Visualización
figure;
surf(X_grid, T_grid, K_fun);
shading interp;
title('Solución fundamental en 1D');
xlabel('x');
ylabel('t');
}}

En dimensión 2:

En esta dimensión hay una singularidad en el origen por lo que donde se ha considerado la regularización:

<center><math> K^{\varepsilon}_2 (x,t) = \frac{1}{\varepsilon + 2 \pi c \sqrt{c^2t^2 -|x|^2}} \chi _{B(0,1/2)}(x), ~~~~~\varepsilon = 0.01 </math>.</center>

[[Archivo:Dim2ondashsc.png|600px|thumb|center|Solución en dimensión 2 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Configuración de los intervalos
r_start = 0; r_end = 1; % Límites del intervalo en r
t_start = 0; t_end = 1; % Límites del intervalo en t
dr = 0.01; dt = 0.001; % Tamaños de paso para r y t
r_vals = r_start:dr:r_end; % Vector de valores de r
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_func = (R_grid <= prop_speed * T_grid) ./ (eps + 2 * pi * prop_speed .* sqrt(prop_speed^2 * T_grid.^2 - R_grid.^2));

% Visualización
figure;
surf(R_grid, T_grid, K_func);
shading interp;
title('Solución fundamental en 2D');
xlabel('r');
ylabel('t');
}}

En dimensión 3:

Para poder representar la solución, se ha sustituido la delta de Dirac por su aproximación

<center><math> \delta (s) \sim \phi _k (s) = \sqrt{\frac{k}{\pi}}e^{-ks^2}, ~~~ k>>1, </math> </center>

con <math>k=1000</math>.

[[Archivo:Dim3ondashsc.png|600px|thumb|center|Solución en dimensión 3 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Definición de intervalos
r_start = 0; r_end = 1; % Límites inicial y final para r
t_start = 0; t_end = 1; % Límites inicial y final para t
delta_r = 0.01; delta_t = 0.001; % Tamaños de paso para r y t
r_values = r_start:delta_r:r_end; % Vector de valores para r
t_values = t_start:delta_t:t_end; % Vector de valores para t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_values, t_values);

% Parámetros del modelo
prop_speed = 1; % Velocidad de propagación
kappa = 1000; % Parámetro para la aproximación de la delta de Dirac

% Cálculo de la función fundamental
K_function = sqrt(kappa / pi) .* exp(-kappa * (R_grid - prop_speed * T_grid).^2) ./ (4 * pi * prop_speed * R_grid);

% Visualización
figure;
surf(R_grid, T_grid, K_function);
shading interp;
title('Solución fundamental en 3D');
xlabel('r');
ylabel('t');

}}

==Problema en dimensión 2==

Se considera el problema en dimensión 2:

<center><math> \left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^2, t>0, \\
u(x,0)=0, u_t(x,0)=h (x) = \chi _{B(0,\frac{1}{2})}(x), \quad x \in \mathbb{R}^2
\end{array} \right.

</math></center>

La solución se obtene por la convolución siguiente

<center><math> u(x,t)=\int_{\mathbb{R}^2}K_2 (x-y, t)h(y) dy </math>. </center>

Dado que, como se ha visto anteriormente, <math>K_2</math> y <math>h</math> son funciones radiales, su convolución también es radial.

Se representa la solución para <math>t=0, 0'5,1,2</math>

[[Archivo:tondashsc.png|1300px|thumb|center|Solución en diferentes tiempos ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo y cerrar todas las figuras
clear;
clc;
close all;

% Parámetro de velocidad de propagación
prop_speed = 1;

% Definición de intervalos y sus discretizaciones
r_start = 0; r_end = 1; % Límites del intervalo radial
t_start = 0; t_end = 1; % Límites del intervalo temporal
theta_start = 0; theta_end = 2 * pi; % Límites del intervalo angular

time_steps = [0, 0.5, 1, 2]; % Valores discretos de tiempo para evaluar
theta_vals = linspace(theta_start, theta_end); % Discretización de theta
r_vals = linspace(r_start, r_end, 50); % Discretización del radio

[Theta_grid, R_grid] = meshgrid(theta_vals, r_vals); % Crear la rejilla de puntos

% Inicializar la matriz de solución U
U = zeros(size(Theta_grid));

% Conversión a coordenadas cartesianas para la visualización
X_cartesian = R_grid .* cos(Theta_grid);
Y_cartesian = R_grid .* sin(Theta_grid);

% Función para la solución fundamental en coordenadas polares
K_fun = @(a, l, r, t) (sqrt(r.^2 + l.^2 - 2*r.*l.*cos(a)) < prop_speed * t) ./ ...
(0.01*(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a) < 10^-16) + ...
2 * pi * prop_speed * sqrt(abs(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a))));

% Cálculo de la solución para cada valor de tiempo en time_steps
for t_idx = 1:length(time_steps)
for r_idx = 1:length(r_vals)
U(r_idx, :) = integral2(@(a, l) K_fun(a, l, r_vals(r_idx), time_steps(t_idx)), ...
0, 2 * pi, 0, 0.5) * ones(1, length(theta_vals)); % Evaluar la integral
end

% Visualización de la solución
figure;
surf(X_cartesian, Y_cartesian, U);
shading interp;
title(['Solución en 2D, t = ', num2str(time_steps(t_idx))]);
xlabel('x');
ylabel('y');
end

}}

==Conclusión==

A medida que se ha ido observando las gráficas, se ha podido apreciar la propagación de las ondas. Esta, es una superficie continua que se propaga hacia afuera y cuya forma es radial. La gráfica muestra claramente cómo la onda se expande y cómo su forma se mantiene coherente con el paso del tiempo, ilustrando el principio de Huygens. Por lo que de esta forma, se ha podido obtener una mejor interpretación de la ecuación de ondas a lo largo de la sección.

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T17:46:18Z

Manuel Fernández:

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Introducción=

A lo largo de este trabajo se va a trabajar con diferentes soluciones de la ecuación de ondas, interpretando sus comportamientos. También se va a estudiar la solución fundamental en 1, 2 y 3 dimensiones aplicando un impulso inicial en 𝑥=0, gracias a lo cual se podrá interpretar el principio de Huygens. Donde este es:

'''Principio de Huygens''': Todo punto de un frente de onda inicial puede considerarse como una fuente de ondas esféricas secundarias que se extienden en todas las direcciones con la misma velocidad, frecuencia y longitud de onda que el frente de onda del que proceden.

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuelFdez.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.
[[Archivo:Ejercicio3aEc.OndasManuelFdez2.png|400px|thumb|center|Representación Solución Caso 1]]
Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo. Para ver esto más fácilmente se introduce el siguiente gif.
[[Archivo:Onda ejercicio 3 ManuelFdez.gif|800px|thumb|center|Representación Solución en función del tiempo Caso 1]]

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

dk_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);

ck_0(k) = 2*trapz(x, f_sen_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);

dk_1(k) =(2/(k*pi))*trapz(x, f_sen_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ck_0(i)*cos(i*pi*tt) + dk_1(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===
Se considera ahora que la onda viaja en un solo sentido, esto es que:
<center><math>
u(x,t)=f(x-t)
</math></center>
Donde para las condiciones iniciales en este caso se utilizará que <math> u_0 (x)=f(x) </math> y <math> u_1 (x)=-f'(x) </math>
y particularizando se utilizará la función:
<center><math>
f(x)=e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Derivando se obtiene:
<center><math>
f'(x)=-200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}
</math></center>
Por lo que con esto ya se tiene todo lo necesario, de tal forma que la ecuación en derivadas parciales es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>
Ahora se procede a resolver el ejercicio, que se hará de manera análoga a los apartados anteriores.
{{matlab|codigo=
clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

dk_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);

ck_0(k) = 2*trapz(x, f_sen_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);

dk_1(k) =(2/(k*pi))*trapz(x, f_sen_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ck_0(i)*cos(i*pi*tt) + dk_1(i)*sin(i*pi*tt)).*sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')
}}
[[Archivo:Graficaejer1apar4.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Viendo la solución, se puede ver cómo la onda va con una velocidad constante de 1m/s, y tiene un periodo de 2 segundos. Cuando la onda llega a la frontera, cambia de dirección y es negativa. A continuación se ve una gráfica de la solución de perfil, donde se puede apreciar mejor la velocidad, y como cambia el comportamiento de la onda.
[[Archivo:Veloconda.jpeg|800px|thumb|center|Representación Solución de Perfil para apreciar la velocidad ]]

=== Caso 3. Condición frontera Neumann===
Por último se va a trabajar cambiando las condiciones a unas de tipo Neumann, esto es que <math> u_x(0,t)=u_x(1,t)=0 </math> como condiciones frontera. Con esto la ecuación en derivadas parciales es así:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u_x(0,t)=u_x(1,t)=0
\\

u(x,0)=e^{-100(x-\frac{1}{2})^{2}}
\\

u_t(x,0)=200(x-\frac{1}{2})e^{-100(x-\frac{1}{2})^{2}}

\end{array} \right.

</math></center>

Por ello, a lo hora de obtener coeficientes de Fourier para la solución, se calculan de forma distinta, haciendo separación de variables se obtiene:
<center><math>u(x, t) = \sum_{k=1}^{\infty} \left(c_k \cos(k \pi t) +d_k \cos(k\pi x )\sin(k \pi t) \right)
</math></center>
Donde los coeficientes <math> c_k</math> y <math> d_k </math> son:
<center><math>

c_k = \frac{\int_0^1 \cos(k\pi x) u_0(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
<center><math>

d_k = \frac{\int_0^1 \cos(k\pi x) u_1(x) \, dx}{\int_0^1 \cos^2(k\pi x) \, dx}

</math></center>
Ahora se adapta el código cambiando los coeficientes, y el problema se resuelve de manera análoga
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 200*(x-1/2).*exp(-100*(x-1/2).^2);

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

dk_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);

ck_0(k) = 2*trapz(x, f_cos_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);

dk_1(k) =2/(k*pi)*trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ck_0(i)*cos(i*pi*tt) + dk_1(i)*sin(i*pi*tt)).*cos(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Solución')
xlabel('x')
ylabel('t')

}}
[[Archivo:Graficaejer1apar5.jpeg|800px|thumb|center|Representación Solución en función del tiempo ]]
Aquí se puede ver cómo la onda tiene una velocidad constante de 1 casi todo el tiempo, pero cuando la onda llega a la frontera la onda se dispara y disminuye su velocidad, y posteriormente pasa a ir en el sentido contrario.

= Ecuación de ondas II=
En este ejercicio se dibujará la solución fundamental de la ecuación de ondas en dimensiones 1, 2 y 3. De esta forma, se interpretará el
principio de Huygens.

==Solución fundamental==
La solución fundamental es la solución que se obtiene al dar un impulso inicial muy
localizado en <math>x = 0</math>.

El problema a resolver resulta el siguiente

<center><math>\left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^n, t>0, \\
u(x,0)=0, u_t(x,0)=\delta (x), \quad x \in \mathbb{R}^n,
\end{array} \right.

</math></center>

donde <math> \delta(x) </math> es la delta de Dirac.

La solución fundamental es:

En dimensión <math>n=1</math> :

<center><math> K_1(x,t) =\frac{1}{2c}[H(x+ct)-H(x-ct)], </math></center>

Donde H(s) es la función de Heaviside, que vale 0 para <math>s<0</math> y 1 para <math>s\geq0</math>

Como se puede observar en la expresión, esta es radial.

En dimensión <math>n=2</math>:

<center><math>
K_2(x,t)=\frac{1}{2\pi c \sqrt{c^2t^2-|x|^2}} \chi_{B(0,ct)}(x)

</math></center>

donde <math> \chi_{B(0,ct)}(x) </math> es la función característica en la bola de centro 0 y radio <math> ct </math>. Esta expresión vuelve a ser de radial ya que depende del módulo de x.

En dimensión <math>n=3</math>:
<center><math>
K_3(x,t)=\frac{\delta (|x|-ct)}{4\pi c|x|}, t>0.

</math></center>

La expresión vuelve a ser radial.

===Representación===
En dimensión 1:

[[Archivo:Dim1ondashsc.png|600px|thumb|center|Solución en dimensión 1 ]]

{{matlab|codigo=
% Limpieza del entorno de trabajo
clear;
clc;

% Configuración inicial
x_start = -1; x_end = 1; % Límites del intervalo en x
t_start = 0; t_end = 1; % Límites del intervalo en t
dx = 0.01; dt = 0.001; % Tamaños de paso para x y t
x_vals = x_start:dx:x_end; % Vector de valores de x
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[X_grid, T_grid] = meshgrid(x_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_fun = (X_grid <= prop_speed * T_grid) & (X_grid >= -prop_speed * T_grid);
K_fun = K_fun / (2 * prop_speed);

% Visualización
figure;
surf(X_grid, T_grid, K_fun);
shading interp;
title('Solución fundamental en 1D');
xlabel('x');
ylabel('t');
}}

En dimensión 2:

En esta dimensión hay una singularidad en el origen por lo que donde se ha considerado la regularización:

<center><math> K^{\varepsilon}_2 (x,t) = \frac{1}{\varepsilon + 2 \pi c \sqrt{c^2t^2 -|x|^2}} \chi _{B(0,1/2)}(x), ~~~~~\varepsilon = 0.01 </math>.</center>

[[Archivo:Dim2ondashsc.png|600px|thumb|center|Solución en dimensión 2 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Configuración de los intervalos
r_start = 0; r_end = 1; % Límites del intervalo en r
t_start = 0; t_end = 1; % Límites del intervalo en t
dr = 0.01; dt = 0.001; % Tamaños de paso para r y t
r_vals = r_start:dr:r_end; % Vector de valores de r
t_vals = t_start:dt:t_end; % Vector de valores de t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_vals, t_vals);

% Parámetro de velocidad
prop_speed = 1;

% Cálculo de la función fundamental
K_func = (R_grid <= prop_speed * T_grid) ./ (eps + 2 * pi * prop_speed .* sqrt(prop_speed^2 * T_grid.^2 - R_grid.^2));

% Visualización
figure;
surf(R_grid, T_grid, K_func);
shading interp;
title('Solución fundamental en 2D');
xlabel('r');
ylabel('t');
}}

En dimensión 3:

Para poder representar la solución, se ha sustituido la delta de Dirac por su aproximación

<center><math> \delta (s) \sim \phi _k (s) = \sqrt{\frac{k}{\pi}}e^{-ks^2}, ~~~ k>>1, </math> </center>

con <math>k=1000</math>.

[[Archivo:Dim3ondashsc.png|600px|thumb|center|Solución en dimensión 3 ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo
clear;
clc;

% Definición de intervalos
r_start = 0; r_end = 1; % Límites inicial y final para r
t_start = 0; t_end = 1; % Límites inicial y final para t
delta_r = 0.01; delta_t = 0.001; % Tamaños de paso para r y t
r_values = r_start:delta_r:r_end; % Vector de valores para r
t_values = t_start:delta_t:t_end; % Vector de valores para t

% Crear la rejilla de puntos
[R_grid, T_grid] = meshgrid(r_values, t_values);

% Parámetros del modelo
prop_speed = 1; % Velocidad de propagación
kappa = 1000; % Parámetro para la aproximación de la delta de Dirac

% Cálculo de la función fundamental
K_function = sqrt(kappa / pi) .* exp(-kappa * (R_grid - prop_speed * T_grid).^2) ./ (4 * pi * prop_speed * R_grid);

% Visualización
figure;
surf(R_grid, T_grid, K_function);
shading interp;
title('Solución fundamental en 3D');
xlabel('r');
ylabel('t');

}}

==Problema en dimensión 2==

Se considera el problema en dimensión 2:

<center><math> \left \{ \begin{array}{ll}
u_{tt}-c^2\Delta u=0, \quad x \in \mathbb{R}^2, t>0, \\
u(x,0)=0, u_t(x,0)=h (x) = \chi _{B(0,\frac{1}{2})}(x), \quad x \in \mathbb{R}^2
\end{array} \right.

</math></center>

La solución se obtene por la convolución siguiente

<center><math> u(x,t)=\int_{\mathbb{R}^2}K_2 (x-y, t)h(y) dy </math>. </center>

Dado que, como se ha visto anteriormente, <math>K_2</math> y <math>h</math> son funciones radiales, su convolución también es radial.

Se representa la solución para <math>t=0, 0'5,1,2</math>

[[Archivo:tondashsc.png|1300px|thumb|center|Solución en diferentes tiempos ]]

{{matlab|codigo=
% Limpiar el entorno de trabajo y cerrar todas las figuras
clear;
clc;
close all;

% Parámetro de velocidad de propagación
prop_speed = 1;

% Definición de intervalos y sus discretizaciones
r_start = 0; r_end = 1; % Límites del intervalo radial
t_start = 0; t_end = 1; % Límites del intervalo temporal
theta_start = 0; theta_end = 2 * pi; % Límites del intervalo angular

time_steps = [0, 0.5, 1, 2]; % Valores discretos de tiempo para evaluar
theta_vals = linspace(theta_start, theta_end); % Discretización de theta
r_vals = linspace(r_start, r_end, 50); % Discretización del radio

[Theta_grid, R_grid] = meshgrid(theta_vals, r_vals); % Crear la rejilla de puntos

% Inicializar la matriz de solución U
U = zeros(size(Theta_grid));

% Conversión a coordenadas cartesianas para la visualización
X_cartesian = R_grid .* cos(Theta_grid);
Y_cartesian = R_grid .* sin(Theta_grid);

% Función para la solución fundamental en coordenadas polares
K_fun = @(a, l, r, t) (sqrt(r.^2 + l.^2 - 2*r.*l.*cos(a)) < prop_speed * t) ./ ...
(0.01*(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a) < 10^-16) + ...
2 * pi * prop_speed * sqrt(abs(prop_speed^2 * t.^2 - r.^2 - l.^2 + 2*r.*l.*cos(a))));

% Cálculo de la solución para cada valor de tiempo en time_steps
for t_idx = 1:length(time_steps)
for r_idx = 1:length(r_vals)
U(r_idx, :) = integral2(@(a, l) K_fun(a, l, r_vals(r_idx), time_steps(t_idx)), ...
0, 2 * pi, 0, 0.5) * ones(1, length(theta_vals)); % Evaluar la integral
end

% Visualización de la solución
figure;
surf(X_cartesian, Y_cartesian, U);
shading interp;
title(['Solución en 2D, t = ', num2str(time_steps(t_idx))]);
xlabel('x');
ylabel('y');
end

}}

==Conclusión==

A medida que se ha ido observando las gráficas, se ha podido apreciar la propagación de las ondas. Esta, es una superficie continua que se propaga hacia afuera y cuya forma es radial. La gráfica muestra claramente cómo la onda se expande y cómo su forma se mantiene coherente con el paso del tiempo, ilustrando el principio de Huygens. Por lo que de esta forma, se ha podido obtener una mejor interpretación de la ecuación de ondas a lo largo de la sección.

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T09:42:35Z

Manuel Fernández: /* Caso 1. Solución periódica */

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T09:41:01Z

Manuel Fernández: /* Caso 1. Solución periódica */

Archivo:Onda ejercicio 3 ManuelFdez.gif

2024-05-26T09:39:58Z

Manuel Fernández:

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T09:20:12Z

Manuel Fernández: /* Caso 1. Solución periódica */

Archivo:Ejercicio3aEc.OndasManuelFdez2.png

2024-05-26T09:19:17Z

Manuel Fernández:

Archivo:Ejercicio3Ec.OndasManuelFdez.png

2024-05-26T09:17:27Z

Manuel Fernández:

Archivo:Ejercicio3Ec.OndasManuelFdez2.png

2024-05-26T09:17:08Z

Manuel Fernández:

Ecuación de Ondas (Grupo 2 1/2)

2024-05-26T09:15:53Z

Manuel Fernández: /* Caso 1. Solución periódica */

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:24:40Z

Manuel Fernández:

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:23:57Z

Manuel Fernández:

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:18:26Z

Manuel Fernández:

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1. Solución periódica===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuel.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.

Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo.

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

ak_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);
f_medio_0 = @(x) u_0(x).*0.5;

ak_0(k) = trapz(x, f_sen_0(x));
bk_0(k) = trapz(x, f_cos_0(x));
ck_0(k) = trapz(x, f_medio_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);
f_medio_1 = @(x) u_1(x).*0.5;

ak_1(k) = trapz(x, f_sen_1(x));
bk_1(k) = trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ak_0(i)*cos(i*pi*tt) + bk_1(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Ecuación de ondas')
xlabel('x')
ylabel('t')

}}

=== Caso 2. Onda viajera===

=== Caso 3. Condición frontera Neumann===

= Ecuación de ondas II=
[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:14:35Z

Manuel Fernández: /* Caso 1 */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuel.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.

Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo.

Finalmente se muestra el código con el que se ha realizado dicha representación.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

ak_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);
f_medio_0 = @(x) u_0(x).*0.5;

ak_0(k) = trapz(x, f_sen_0(x));
bk_0(k) = trapz(x, f_cos_0(x));
ck_0(k) = trapz(x, f_medio_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);
f_medio_1 = @(x) u_1(x).*0.5;

ak_1(k) = trapz(x, f_sen_1(x));
bk_1(k) = trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ak_0(i)*cos(i*pi*tt) + bk_1(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Ecuación de ondas')
xlabel('x')
ylabel('t')

}}
[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:13:51Z

Manuel Fernández: /* Caso 1 */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuel.png|400px|thumb|center|Representación Solución Caso 1]]
Como se puede observar, la amplitud máxima de la onda es 1 y se alcanza para valores enteros del tiempo. Además, para x=0 y x=1 se tiene que u(x,t)=0, pues por hipótesis la cuerda está fijada en los extremos.

Además también se ve como la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

ak_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);
f_medio_0 = @(x) u_0(x).*0.5;

ak_0(k) = trapz(x, f_sen_0(x));
bk_0(k) = trapz(x, f_cos_0(x));
ck_0(k) = trapz(x, f_medio_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);
f_medio_1 = @(x) u_1(x).*0.5;

ak_1(k) = trapz(x, f_sen_1(x));
bk_1(k) = trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ak_0(i)*cos(i*pi*tt) + bk_1(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Ecuación de ondas')
xlabel('x')
ylabel('t')

}}
[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:11:59Z

Manuel Fernández: /* Caso 1 */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuel.png|400px|thumb|center|Representación Solución Caso 1]]
Como se observa en la imagen anterior la función muestra un comportamiento que se repite regularmente con el tiempo. A estas funciones se les denomina periódicas en tiempo.
{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

ak_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);
f_medio_0 = @(x) u_0(x).*0.5;

ak_0(k) = trapz(x, f_sen_0(x));
bk_0(k) = trapz(x, f_cos_0(x));
ck_0(k) = trapz(x, f_medio_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);
f_medio_1 = @(x) u_1(x).*0.5;

ak_1(k) = trapz(x, f_sen_1(x));
bk_1(k) = trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ak_0(i)*cos(i*pi*tt) + bk_1(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Ecuación de ondas')
xlabel('x')
ylabel('t')

}}
[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:06:42Z

Manuel Fernández: /* Caso 1 */

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

= Ecuación de ondas I=
En esta sección, se va a trabajar con la ecuación de ondas en una dimensión.
Para ello, se va a considerar una cuerda vibrante en el intervalo <math> [0,1]</math>, con densidad <math> d</math> y tensión <math> \tau_0 </math> constante. De modo que la velocidad de propagación es <math> c=1 ~~m/s</math> . Además, se va a suponer que la cuerda está fijada en los extremos y se denota como <math> u_0(x)</math> y <math> u_1(x)</math> su posición e impulso iniciales respectivamente.

==Planteamiento del problema ==
En primer lugar se plantea el sistema de EDP que modeliza el comportamiento de los desplazamientos transversales de la cuerda. Para ello, es suficiente considerar la ecuación de ondas <math> u_{tt} – c^2u_{xx}=0</math> y se establecen las condiciones iniciales mencionadas anteriormente.
De esta manera se obtiene que el sistema EDP a resolver es:
<center><math>\left \{ \begin{array}{ll}

u_{tt} – u_{xx} =0

\\

u(0,t)=u(1,t)=0
\\

u(x,0)=u_0(x)
\\

u_t(x,0)=u_1(x)

\end{array} \right.

</math></center>

== Resolución del sistema==
La resolución de la ecuación se va realizar mediante el método de separación de variables. Para ello, se considera que la solución es de la forma <math> u(x,t) = T(t) X(x)</math> .

Realizando el desarrollo correspondiente y aplicando el principio de superposición se obtiene que la solución del sistema es de la siguiente forma:
<center><math> u(x,t)= \sum _{k=1}^{\infty} \left(c_k cos (k \pi t) + d_k sin (k \pi x)\right) sin(k \pi t) </math></center>
siendo

<math> c_k= \frac{\int_0^1 sin (k \pi x) u_0 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

<math> d_k= \frac{\int_0^1 sin (k \pi x) u_1 (x) dx}{\int_0 ^1 sin^2(k \pi x) dx}</math>

Finalmente, si agrupamos todo, la solución de la ecuación de ondas es la siguiente:

<center><math>u(x, t) = \sum_{k=1}^{\infty} \left( \left(2 \int_0^1 u_0(x) \sin(k \pi x) \, dx \right) \cos(k \pi t) + \left(\frac{2}{k \pi} \int_0^1 u_1(x) \sin(k \pi x) \, dx \right) \sin(k \pi t) \right) \sin(k \pi x)
</math></center>
Esta expresión proporciona la solución completa de la ecuación de onda en función de las condiciones iniciales \( u_0(x) \) y \( u_1(x) \).

== Particularización del problema ==
En esta parte del documento se van a analizar una serie de ejemplos para comprender de manera precisa lo explicado en la sección anterior.
=== Caso 1===
El primero de ellos se trata de la representación gráfica de una solución periódica en tiempo. Esta viene dada suponiendo que los datos iniciales son <math>u_0(x)=e^{-100(x-\frac{1}{2})^2}</math> y <math>u_1(x)=0</math>. La solución de este problema se va a representar en el intervalo \(t ∈ [0, 2] \).

[[Archivo:Ejercicio3Ec.OndasManuel.png|400px|thumb|right|Representación Solución Caso 1]]

{{matlab|codigo=

clear
close all
clc

% Se definen las condiciones iniciales
u_0 = @(x) exp(-100*(x-1/2).^2);
u_1 = @(x) 0;

% Definición de los intervalos de tiempo y espacio
t = linspace(0,2,1000);
x = linspace(0,1,1000);

% Número de términos de la serie a dibuja
n = 50;

% definición de matrices para almacenar coeficientes de Fourier
ak_0 = zeros(n,1);
bk_0 = zeros(n,1);
ck_0 = zeros(n,1);

ak_1 = zeros(n,1);
bk_1 = zeros(n,1);
ck_1 = zeros(n,1);

% Cálculo de coeficientes de Fourier asociados a u_0
for k = 1:n
f_sen_0 = @(x) u_0(x).*sin(k*pi*x);
f_cos_0 = @(x) u_0(x).*cos(k*pi*x);
f_medio_0 = @(x) u_0(x).*0.5;

ak_0(k) = trapz(x, f_sen_0(x));
bk_0(k) = trapz(x, f_cos_0(x));
ck_0(k) = trapz(x, f_medio_0(x));
end

% Cálculo de coeficientes de Fourier asociados a u_1
for k = 1:n
f_sen_1 = @(x) u_1(x).*sin(k*pi*x);
f_cos_1 = @(x) u_1(x).*cos(k*pi*x);
f_medio_1 = @(x) u_1(x).*0.5;

ak_1(k) = trapz(x, f_sen_1(x));
bk_1(k) = trapz(x, f_cos_1(x));
end

% Sustituimos en la solución calculada por separación de variables
u = @(xx,tt) 0;
for i = 1:n
u = @(xx,tt) u(xx,tt) + (ak_0(i)*cos(i*pi*tt) + bk_1(i)*sin(i*pi*tt)) .* sin(i*pi*xx);
end

% Graficamos la solución
[X, T] = meshgrid(x, t);
surf(X, T, u(X, T), 'EdgeColor', 'flat')
title('Ecuación de ondas')
xlabel('x')
ylabel('t')

}}
[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Archivo:Ejercicio3Ec.OndasManuel.png

2024-05-25T17:06:26Z

Manuel Fernández:

Archivo:Ejercicio3Ec.Ondas.png

2024-05-25T17:06:12Z

Manuel Fernández:

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T17:01:21Z

Manuel Fernández: /* Ecuación de ondas I */

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T16:45:45Z

Manuel Fernández: /* Resolución del sistema */

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T16:44:13Z

Manuel Fernández: /* Resolución del sistema */

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T16:43:32Z

Manuel Fernández:

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T16:29:30Z

Manuel Fernández:

{{ TrabajoED | Ecuación de Ondas. | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Ondas (Grupo 2 1/2)

2024-05-25T16:28:37Z

Manuel Fernández: Página creada con «{{ TrabajoED | Series de Fourier. Grupo 6-A | EDP|2023-24 | Nuestros nombres }} Categoría:EDP Categoría:EDP23/24»

{{ TrabajoED | Series de Fourier. Grupo 6-A | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Nuestros nombres }}

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-05-06T05:26:46Z

Manuel Fernández: /* Resolución mediante fórmula de Poisson */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará la región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=- \frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

Representando entonces las regiones donde están definidas las soluciones armónicas para <math> n=2 </math> y <math> n=3 </math> en función de los radios se obtiene:
[[Archivo: HarnackRsNsU.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]
Y en estas gráficas se pueden observar las mismas condiciones que se han definido para el caso de <math> v(x)</math>.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{ B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-05-05T15:13:21Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará la región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=- \frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

Representando entonces las regiones donde están definidas las soluciones armónicas para <math> n=2 </math> y <math> n=3 </math> en función de los radios se obtiene:
[[Archivo: HarnackRsNsU.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]
Y en estas gráficas se pueden observar las mismas condiciones que se han definido para el caso de <math> v(x)</math>.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:54:21Z

Manuel Fernández:

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

Representando entonces las regiones donde están definidas las soluciones armónicas para <math> n=2 </math> y <math> n=3 </math> en función de los radios se obtiene:
[[Archivo: HarnackRsNsU.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]
Y en estas gráficas se pueden observar las mismas condiciones que se han definido para el caso de <math> v(x)</math>.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

[[Categoría:EDP]]
[[Categoría:EDP23/24]]

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:53:22Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

Representando entonces las regiones donde están definidas las soluciones armónicas para <math> n=2 </math> y <math> n=3 </math> en función de los radios se obtiene:
[[Archivo: HarnackRsNsU.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]
Y en estas gráficas se pueden observar las mismas condiciones que se han definido para el caso de <math> v(x)</math>.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:52:17Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.
Representando entonces las regiones donde están definidas las soluciones armónicas para <math> n=2 </math> y <math> n=3 </math> en función de los radios se obtiene:
[[Archivo: HarnackRsNsU.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:50:05Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.
[[Archivo: HarnackRsNsU.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Archivo:HarnackRsNsU.png

2024-04-19T17:49:06Z

Manuel Fernández:

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:48:14Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como la región para <math> n=3 </math> aumenta considerablemente, sobre todo en la cota superior.

Por tanto, aumenta el dominio total donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:32:35Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) - \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:25:22Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math>, sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) - \frac{R^2}{2}\right) + \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) - \frac{R^2}{2}\right)</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:15:11Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math> sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)</math></center>

Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) - \frac{R^2}{2}\right) + \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) - \frac{R^2}{2}\right)</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:12:39Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math> sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
\frac{R^{n-2} (R-r)}{(R+r)^{n-1}} (u(0) - M) \leq u(x)-M \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}(u(0) - M)
Finalmente, como se conoce el valor de <math> M </math>, se llega a:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right) + \frac{R^2}{2} \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}\left(u(0) + \frac{R^2}{2}\right)</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:10:20Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math> sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{1-r}{1+r} (u(0) - M) \leq u(x) - M \leq \frac{1+r}{1-r}(u(0) - M)</math></center>
Finalmente, como se conoce el valor de <math> M </math>, se llega a:

<center><math> \frac{1-r}{1+r} (u(0) + \frac{R^2}{2}) + \frac{R^2}{2} \leq u(x)\leq \frac{1+r}{1-r}(u(0) + \frac{R^2}{2}) + \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:09:43Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math> sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que:
<center><math> \frac{1-r}{1+r} (u(0) - M) \leq u(x) - M \leq \frac{1+r}{1-r}(u(0) - M)</math></center>
Finalmente, como se conoce el valor de <math> M </math>, se llega a:

<center><math> \frac{1-r}{1+r} (u(0) + \frac{R^2}{2}) + \frac{R^2}{2} \leq u(x)\leq \frac{1+r}{1-r}(u(0) + \frac{R^2}{2}) + \frac{R^2}{2}</math></center>
generalizando a cualquier grado y radio.

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:07:27Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}
Se ha realizado el estudio sobre <math> v(x)</math> sin embargo, se busca estudiar el comportamiento relacionado con las soluciones de <math> u(x)</math>. Por tanto, se debe deshacer el cambio de tal forma que
<center><math> \frac{1-r}{1+r} (u(0,0) - M) \leq u(x) - M \leq \frac{1+r}{1-r}(u(0,0) - M)</math></center>
Finalmente, como se conoce el valor de <math> M </math>, se llega a:

<center><math> \frac{1-r}{1+r} (u(0,0) + \frac{R^2}{2}) + \frac{R^2}{2} \leq u(x)\leq \frac{1+r}{1-r}(u(0,0) + \frac{R^2}{2}) + \frac{R^2}{2}</math></center>

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>

Ecuación de Laplace y ecuación de Poisson(Grupo 2 1/2)

2024-04-19T17:01:32Z

Manuel Fernández: /* Análisis de la Desigualdad de Harnack */

{{ TrabajoED | Ecuación de Laplace y ecuación de Poisson.(Grupo 2 1/2) | [[:Categoría:EDP|EDP]]|[[:Categoría:EDP23/24|2023-24]] | Alfredo de Lorenzo, Hugo Sanz, Manuel Fdez. }}
== Introducción ==
En este artículo se trabajará en la ecuación de Laplace y la ecuación de Poisson, calculando distintas soluciones en distintos escenarios, graficándolas y modificando parámetros con el objetivo de poder alcanzar una mayor comprensión sobre la teoría de estas ecuaciones en derivadas parciales y relacionarla directamente con los resultados teóricos.

En primer lugar, se resolverá un problema específico de Dirichlet en dos dimensiones por distintos métodos y comparándolos a través del error que se produce en cada uno de ellos. Además se investigará en el motivo de este error.

A continuación, se profundizará en el estudio del potencial Newtoniano en dos dimensiones, específicamente el potencial logarítmico. Explorando un ejemplo de su aplicación y analizando su comportamiento asintótico, que se caracteriza por una disminución logarítmica a medida que la distancia aumenta indefinidamente de la fuente de carga. Este comportamiento revela la manera en que las influencias se propagan a larga distancia en sistemas físicos, ofreciendo una perspectiva única sobre la distribución de carga y el flujo de campos en el espacio.

==Preliminares==

===Laplaciano de una función===

Sea una función <math>f:\mathbb{R}^n \rightarrow \mathbb{R}</math> (se tomará en todo el artículo el espacio bidimensional, es decir, <math>n=2</math>), se define el operador diferencial de segundo orden <math>\Delta f</math>, denominado laplaciano de <math>f</math> como:
Coordenadas cartesianas.
<math>\Delta f = \frac{\partial^2 f}{\partial x^2} + \frac{\partial^2 f}{\partial y^2}</math>

Coordenadas polares.
<math>\Delta f = \frac{\partial^2f}{\partial r^2}+ \frac{1}{r} \frac{\partial f}{\partial r} + \frac{1}{r^2} \frac{\partial^2 f}{\partial \theta^2} </math>

===Desigualdad de Harnack===
Sea u una función armónica (es decir, que <math> \Delta u = 0</math>) y no negativa en la bola <math> \overline{B_R (x_0)} \subset \mathbb {R^{n}}</math>, entonces para cualquier <math>x \in \overline{B_R(x_0)} </math> la desigualdad de Harnack establece que:
<center><math> \frac{R^{n-2} (R-r)}{(R+r)^{n-1}} u(x_0) \leq u(x) \leq \frac{R^{n-2} (R+r)}{(R-r)^{n-1}}u(x_0)</math></center>

===Método del trapecio ===
El método del trapecio es una técnica de integración numérica utilizada para aproximar el valor de una integral definida. Consiste en dividir el área bajo una curva en múltiples trapecios y sumar las áreas de estos trapecios para obtener una aproximación de la integral.

Para una función <math> f(x)</math> en el intervalo <math>[a, b]</math>, el método del trapecio aproxima la integral definida como:

<center><math>
\int_{a}^{b} f(x) \,dx \approx \frac{h}{2} \left[ f(a) + 2f(x_1) + 2f(x_2) + \ldots + 2f(x_{n-1}) + f(b) \right]
</math></center>

donde <math>h</math> es el ancho de cada subintervalo <math>(b - a) / n</math> y <math>x_i = a + i \cdot h</math> son los puntos donde se evalúa la función.

Este método es una aproximación simple pero efectiva de la integral y su precisión aumenta con el número de subintervalos utilizados (<math>n</math>).

<math>
E = -\frac{1}{12 n^{2}}f''(\xi)(b-a)^3
</math>

Donde:
* <math> E </math> es el error de aproximación,
*<math> a</math> y <math> b </math> son los límites de integración,
*<math> n </math> es el número de subintervalos utilizados en la aproximación,
*<math>f''(\xi) </math> es la segunda derivada de la función integrada evaluada en algún punto <math> \xi </math> dentro del intervalo <math> [a, b]</math>.

Esta fórmula explica que el error de aproximación es proporcional al cuadrado del ancho del intervalo de integración <math> (b-a)^2 </math> y disminuye proporcionalmente al cuadrado del número de subintervalos utilizados <math> n^2 </math>. Además, está multiplicado por el valor máximo de la segunda derivada de la función integrada en el intervalo <math> [a, b] </math>, lo que significa que el error aumentará si la función es más "curva" en ese intervalo.

== Contexto histórico==

Para intentar entender las ecuaciones de la mejor forma posible, se debe conocer las raíces de donde surgieron. Por ello, se explicará brevemente.

En primer lugar, <ref>[http://automata.cps.unizar.es/Biografias/Laplace.htm]</ref>Pierre-Simon Laplace fue un astrónomo, físico y matemático francés. Laplace trabajó en la teoría del calor y en el estudio de los campos gravitatorios. Fue al estudiar el potencial gravitacional y el potencial eléctrico, con la hipótesis de que estos no tuvieran fuentes ni sumideros, cuando ideó e investigó las propiedades de lo que se conoce hoy como ecuación de Laplace<ref>[https://en.wikipedia.org/wiki/Laplace%27s_equation Ecuación de Laplace]</ref>. Además posteriormente se utilizó en más campos como la hidrodinámica y otros aspectos de la física.

Posteriormente, el matemático y físico francés Siméon Denis Poisson<ref>[https://en.wikipedia.org/wiki/Sim%C3%A9on_Denis_Poisson Siméon Denis Poisson]</ref> , realizó una generalización significativa de la ecuación de Laplace y su correspondiente fórmula para resolverla. De esta forma, se le dio el nombre de ecuación de Poisson<ref>[https://en.wikipedia.org/wiki/Poisson%27s_equation Ecuación de Poisson]</ref> y fórmula de Poisson a su solución. Que ambos investigaran temas semejantes no es coincidencia, ya que Laplace fue profesor de Poisson en una escuela de París y, gracias a ello, desarrollaron una gran relación de amistad, profesional y académica.

== Ecuación de Laplace ==

===Planteamiento===

Una vez definido el laplaciano de una función, la ecuación de Laplace es:

<math> \Delta u = 0 </math> donde <math>u:\mathbb{R}^2 \rightarrow \mathbb{R}</math>

El problema de Dirichlet para la ecuación de Laplace, surge de manera inmediata al planteamiento de esta misma. De esta forma, se trata de encontrar una función que cumpla la ecuación de Laplace en un abierto <math>\Omega \subset \mathbb{R}^3</math> y además fijar lo que vale la solución en la frontera del abierto, <math>\partial \Omega</math>:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in \Omega \\
u = g, & \text{x} \in \partial \Omega
\end{cases}</math></center>

De este problema se conoce el siguiente resultado <ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

'''Teorema.''' Si <math> \Omega</math> es un dominio acotado y g es una función continua en su frontera, es decir <math>g \in C(\partial \Omega)</math>. Entonces, el problema tiene una única solución <math> u \in C^2(\Omega) \cap C(\overline{\Omega)} </math>. Además, sean <math> u_{g_1} \text{ y } u_{g_2} </math> las soluciones de los problemas correspondientes con <math> g_1, g_2 \in C(\partial\Omega) </math>. Entonces se tiene:

<math>
\text{(a) (Comparación). Si } g_1 \geq g_2 \text{ en } \partial\Omega \text{ y } g_1 \neq g_2 \text{ , entonces } u_{g_1} > u_{g_2} \text{ en } \Omega.</math>

<math>
\text{(b) (Estabilidad). } |u_{g_1}(x) - u_{g_2}(x)| \leq \max_{\partial\Omega} |g_1 - g_2| \text{ para todo } x \in \Omega. </math>

Por otro lado, si <math> \Omega </math> es la bola de centro <math> 0 </math> y radio <math> R </math>, <math> B_R(0) </math>. Entonces la solución <math> u \in C^2(B_R(0))</math> viene dada por la fórmula de Poisson:

En coordenadas cartesianas.

<math> u(x)=\frac{R^2-|x|^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{|x-y|^2} dy </math>

En coordenadas polares.

<math> u(r,\theta)=\frac{R^2-r^2}{2\pi}\int_{\partial B_R} \frac{g(y)}{R^2+r^2-2Rrcos(\theta-y)} dy </math>

No obstante, otra forma de obtener una solución para este problema es mediante series de Fourier. Tras realizar separación de variables sobre el problema modificado a coordenadas polares y aplicar el principio de superposición, se llega a la siguiente expresión de la solución<ref>[Partial Differential Equations in Action From Modelling
to Theory]</ref>:

<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
donde los coeficientes se obtienen de la siguiente forma:
<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} g(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

con <math>g(\theta) </math> la condición frontera en coordenadas polares.

===Ejemplo===

A continuación, se planteará un problema de Laplace y se estudiará la solución por los métodos de la fórmula de Poisson y desarrollo por series de Fourier. Además se analizará el error que se produce por las distintas formas de hallar la solución y por el método del trapecio. También se estudiará el región en el que están las soluciones, utilizando la desigualdad de Harnack.

Sea <math> B_1 ⊂ R^2 </math> la bola unidad centrada en <math>(0, 0)</math>. Se considera el siguiente problema.

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g, & \text{x} \in \partial B_1
\end{cases}</math></center>
donde la función <math>g</math> viene descrita en coordenadas polares y se define como <math> g(\theta)=max\{0, 1-\frac{2}{\pi} |\theta - \pi|\} </math>.

==== Resolución mediante fórmula de Poisson====

En este caso, la solución dada por la fórmula de Poisson es:

<math> u(r,\theta)=\frac{R-r^2}{2\pi}\int_{\partial B_1} \frac{g(y)}{R+r^2-2Rrcos(\theta-y)} dy </math>

donde <math>R=1</math>

Se debe apreciar que en la frontera de la bola <math>\partial B_1</math> el denominador de la integral se hace cero cuando el coseno se anula. Es decir, cuando <math>\theta=y</math> y <math>\theta-y=\pi</math>. Es por este motivo, que se obtienen los siguientes gráficos de la solución si se introduce la función. Además esto se ve reflejado en la teoría dado que la fórmula de Poisson asegura estar definida únicamente en el interior del dominio.

[[Archivo:Umalhsc.jpg|600px|thumb|center|Representación gráfica de la solución]]

Se puede observar como en la frontera, la superficie tiene singularidades por el motivo mencionado. Definiendo la función en la frontera, directamente como <math>g</math> y representando la solución en el disco unidad, mediante el código adjunto a continuación, se obtienen las siguientes imágenes.
[[Archivo:Upoissonhsc.png|600px|thumb|right|Representación gráfica de la solución]]
{{matlab|codigo=

g = @(y) max(0, 1 - (2/pi) * abs(y - pi)); % Definimos la función g

% Definimos el dominio de la superficie
R=1; % Radio de la bola
n = 2; % Número de puntos, 10^n
Xr = linspace(0, R, 10^n); % Valores de r
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
[r, omega] = meshgrid(Xr, Xomega);

% Calculamos los valores de u(r, omega) para cada par (r, omega)
u = zeros(size(r));
for i = 1:numel(Xr)
for j = 1:numel(Xomega)
if r(i,j)==R % Definimos la función en la frontera
u(i,j) = g(omega(i,j));
else % Definimos la función en el resto del dominio
y = linspace(0, 2*pi, 1000); % Discretizar el intervalo de integración
integral_func = g(y) ./ (R^2 + r(i, j)^2 - 2*R * r(i, j) * cos(omega(i, j) - y));
u(i, j) = (R^2 - r(i, j)^2) / (2 * pi) * trapz(y, integral_func);
end
end
end

% Representamos la superficie
surf(r .* cos(omega), r .* sin(omega), u);
xlabel('x');
ylabel('y');
zlabel('z');
title('Superficie de u');
}}

Se puede apreciar que la función cumple la proposición enunciada anteriormente. Ya que el máximo y el mínimo de la función se ubica en la frontera, y esta es estable, es decir, la superficie es suave.

==== Análisis del error de la solución por la fórmula de Poisson====

Para analizar el error, se tomará el siguiente problema específico:

<center><math> \begin{cases}
\Delta u = 0, & \text{x} \in B_1 \\
u = g_{2}, & \text{x} \in \partial B_1
\end{cases}</math></center>

donde <math> g_{2}(x,y)=xy</math>.

En este caso una solución es la propia función <math>g_{2}</math>, ya que es armónica. Aún así, se usará la solución por la fórmula de Poisson para hallar el error que se produce.

En primer lugar, se mide el error producido por la fórmula de Poisson en el punto <math>(r,\theta)=(0.9,\frac{\pi}{4})</math> variando la cantidad de puntos <math>10^n</math> del mallado usado para evaluar la integral mediante el método del trapecio.

Se representará la función <math>Error(n) = log_{10}(|g_{2}(r,\theta)-u(r,\theta)|)</math>, donde <math> u </math> es la solución por la fórmula de Poisson.

[[Archivo:Error2_1hschsc.png|400px|thumb|right|Representación gráfica del error]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola,
nmax = 7; % Número maximo de mallado, 10^namx
r = 0.9;
error = zeros(length(nmax));
for i = 1:nmax
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, g(r,Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
error(i) = log10(g(r,pi/4)-u(r,pi/4));
end
% Graficamos el resultado
plot(linspace(0,nmax,length(error)),error)
xlabel('n')
ylabel('Error')
}}

En la imagen se aprecia como el error decae bruscamente para los primeros valores de n y para los siguientes valores de n, decrece de manera más lenta. Esto se debe a que el error que se produce es debido a la forma de integrar con la regla del trapecio. Para mostrarlo, se estimará el máximo del error producido por la regla del trapecio para cada valor de n, en la malla de puntos en la que se integra en la fórmula de Poisson. De esta forma se obtendrá una cota superior.

Se debe mencionar el error producido por integrar con el método del trapecio. Este viene dado por la fórmula:

<math>
E = -\frac{1}{12(10^n)^2} f''(y)(2\pi)^3
</math>

donde <math>f(y) = \frac{g_{2}(r,y)}{1+r^2-2rcos(\theta-y)}</math> y <math>g_{2}</math> ha sido parametrizada en coordenadas polares, resultando <math>g_{2}(r,\theta)=r^2cos(\theta)sin(\theta)</math>

[[Archivo:Error2_22hsc.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 5; % Número máximo de n, 10^nmax
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y)); % Parte de la integral de la fórmula de Poisson
d = diff(f,y); % Derivamos una vez
df = diff(d,y); % Derivamos dos veces
r_value = 0.9; % Radio del punto que evaluamos
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(nmax));
for i = 1:nmax
Error_trapecio = zeros(10^i,1);
Y = linspace(0,2*pi,10^i); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^i); % Valores de omega
% Definimos la solución dada y la solución por la fórmula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^i
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/(12*(10^i)^2) * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio); %Seleccionamos el máximo del error del trapecio en la malla
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Se puede comprobar que, en efecto, el error de la regla del trapecio proporciona una cota que va disminuyendo a la vez que el error producido por la fórmula de Poisson. Por lo que queda reflejado la evidente relación entre ambos.

Ahora se fijan el número de puntos en los que se divide la malla, y variará el punto en el que se evalúa <math>(r,\theta)=(1-10^{-n},\frac{\pi}{4})</math> acercándose a la frontera de la bola.

[[Archivo:Error2_3HSC.png|500px|thumb|right|Representación gráfica de la comparación de errores]]
{{matlab|codigo=
% Definimos el dominio de la superficie
R = 1; % Radio de la bola
nmax = 10; % Número máximo de n para el radio
n = 3; % Número de n puntos
G = @(omega) R.^2.*cos(omega).*sin(omega); % Definimos la función en la frontera
% Definimos la función a integrar para hallar el error máximo que se
% produce en el método del trapecio
syms y r theta
f = r^2*cos(y)*sin(y)/(1+r^2-2*r*cos(theta-y));
df = diff(f,y,2); % Derivamos dos veces
theta_value = pi/4; % Ángulo del punto que evaluamos

Error_trapecio_total = zeros(length(nmax));
Error_funcion = zeros(length(n));
for i = 1:nmax
Error_trapecio = zeros(10^n,1);
Y = linspace(0,2*pi,10^n); % Espacio de valores donde se hace el máximo del error del trapecio
Xomega = linspace(0, 2*pi, 10^n); % Valores de omega
% Definimos la solución dada y la solución por la fómula de Poisson
g = @(r,omega) r.^2.*cos(omega).*sin(omega);
u = @(r,omega) (R^2 - r^2) / (2 * pi) * trapz(Xomega, G(Xomega) ./ (R^2 + r^2 - 2.*R .* r .* cos(omega - Xomega)));
r_value = 1-10^(-i);
Error_funcion(i) = log10(abs(g(r_value,pi/4)-u(r_value,theta_value)));
for j=1:10^n
y_value= Y(j);
Error_trapecio(j)= log10(abs(-1/12 * (2*pi)^3*subs(df, [y,r,theta], [y_value,r_value,theta_value])));
end
Error_trapecio_total(i) = max(Error_trapecio);
end

% Graficamos el resultado
plot(linspace(1,nmax,nmax),Error_funcion)
hold on
plot(linspace(1,nmax,nmax),Error_trapecio_total)
xlabel('n')
ylabel('Errores')
legend(["Error(n)","Error trapecio"])
}}

Como se puede apreciar, a medida que el punto se acerca a la frontera, el error crece. Esto se debe a que, como se ha visto anteriormente, la fórmula de Poisson en la frontera no está determinada. Respecto al error producido por la regla del trapecio, sucede lo mismo.

==== Resolución mediante Serie de Fourier====
A continuación, se va a resolver este problema mediante Serie de Fourier.

Como se ha mencionado anteriormente, la solución para los problemas con la ecuación de Laplace viene definida por
<center><math>
U(r, \theta) = \frac{\alpha_{0}}{2} + \sum_{k=1}^{n} \left( \alpha_{k} \left(\frac{r}{R} \right)^k cos(k\theta) + \beta_{k} \left(\frac{r}{R} \right)^k sin(k\theta)\right)
</math></center>
entonces se deben pasar los datos del problema a coordenadas polares, es decir,
<center><math>
g(x,y)= xy \longrightarrow g(r, \theta) = r^2 \cos(\theta) \sin(\theta) \hspace{0.1cm} \text{ cuando} \hspace{0.15cm}\begin{cases}
x= rcos(\theta) & \text{r} \in [0,1] \\
y= rsin(\theta)& \theta \in [0,2\pi]
\end{cases}
</math></center>
ya que se trabajará en la bola unidad. Entonces, en la frontera, donde <math>r=1</math>, la condición frontera será:
<center><math>
G(\theta)=g(1, \theta) = \cos(\theta) \sin(\theta) \hspace{0.5cm} \theta \in [0,2\pi]
</math></center>

Por tanto, para este problema concreto se tendrá que los coeficientes se obtienen de la siguiente forma:

<center><math>\alpha_{0} =\frac{1}{\pi}\int_{-\pi}^{\pi} \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\alpha_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \cos\Bigl(k \theta \Bigl) dx </math></center>

<center><math>\beta_{k} =\frac{1}{\pi}\int_{-\pi}^{\pi} cos(\theta) \sin(\theta) \sin\Bigl(k \theta \Bigl) dx </math></center>

La resolución de este problema se ha realizado por métodos numéricos, a continuación se mostrará el código empleado y los resultados obtenidos.

[[Archivo: GráficasEj4.3.png|750px|thumb|right|Representación de las solución en función de los términos]]
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración.
y = linspace(-pi, pi, 1000);
% Discretizar el dominio de la solución en polares.
X=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 50);
% Definimos el número de coeficientes.
terminos=[5,10,100];

%Creamos un bucle para que recorra la lista "terminos", y nos resuelva
%el problema en función del número de los términos de la serie.
for j=1:length(terminos)
for i=terminos(j)
% Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales el método del trapecio
for n = 1:i
h1= @(y) g(y).*sin(n.*y);
h2= @(y) g(y).*cos(n.*y);
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
a_k
b_k
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Definimos la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

%Mallado para la representación
[r, x] = meshgrid(Radio, X);
z=fn(r,x); % evaluamos la sol por serie de Fourier en la malla de puntos.
Z= h(r,x); % evaluamos la sol exacta en la malla de puntos.

% Representamos ambas en una misma gráfica.
subplot(2,2,j+1)
surf(r .* cos(x), r .* sin(x), z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución con ',num2str(terminos(j))], ' términos');
subplot(2,2,1)
surf(r .* cos(x), r .* sin(x), Z)
grid on; % Activar la cuadrícula
title(['Gráfico de la solución exacta']);
end
end
}}
Se puede observar en estas gráficas como el número de términos de la serie de Fourier no afecta a la representación de la solución. Esto se debe a que los coeficientes de la serie de Fourier son todos nulos excepto <math>\beta_2</math> ya que <math>\beta_2=\frac{1}{2}</math>, entonces el número de términos no afecta al desarrollo de la solución por Serie de Fourier.

En la siguiente sección se verá esto de forma más clara.

==== Análisis del error de la solución por Serie de Fourier====
A continuación, se va a estimar el error que se obtiene al aproximar la serie de Fourier pintando el máximo del error frente al número de términos en escala logarítmica.
Se va a estudiar error como el supremo del error entre la solución obtenida por serie de Fourier y la solución exacta.

Una vez calculado los errores de forma numérica, obtenemos la siguiente gráfica en función del número de términos.
[[Archivo: GráficasEj4.3error.png|550px|thumb|center|Representación del error con serie de Fourier]]

Se ha realizado en función del número de términos. A pesar de que se ha visto en la sección anterior que el único término de la serie de Fourier que afectaba era <math> \beta_{2}</math>, en la gráfica se ve como según se aumentan el número de términos el <math> \log_{10}(error(n)) </math> aumenta. Esto se puede deber a que, como se han empleado métodos numéricos, los coeficientes no son exactamente 0 cuando n suficientemente grande y estamos trabajando en escala logarítmica, por lo que el cambio en el orden del error se aprecia mas significativo.

A pesar de esto, se está hablando de errores de <math> 10^{-15} - 10^{-16} </math>, por ello, se está hablando de errores suficientemente bajos como para considerarlos significativos. Entonces se ve que la solución es suficientemente próxima a la exacta.

Por otro lado, destacar que para <math> n=1 </math>, la solución presenta un error considerable, aproximadamente <math> \frac{1}{2} </math>, ya que el único término de la serie de Fourier que se considerará para que la solución coincida con la exacta, no se ha calculado para esa solución.

Finalmente destacar, que en detrimento de la solución obtenida mediante la fórmula de Poisson el error es muy pequeño en todo punto de la superficie; por lo tanto, se "arregla" el problema que se tenía para la solución anterior en los puntos próximos a la frontera.

Se muestra el código empleado para el cálculo de errores y la representación de este.
{{matlab|codigo=
% Definimos el radio de la bola unidad.
R=1;
% Define la solución exacta.
h= @(r,x) r.^2.*cos(x).*sin(x);

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);

% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

% Discretizar el dominio de la solución en polares.
THETA=linspace(0, 2*pi, 100);
Radio=linspace(0,1, 100);

% Definimos el número de terminos de la serie.
terminos = 100;

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));

%definimos la matriz donde se almacenarán los errores.
error = zeros(length(terminos));
for i = 1:terminos
% Definimos el vector para almacenar los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);
% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

% Genera una malla de puntos en el dominio de interés
[x, r] = meshgrid(Radio, THETA);

% Evalúa ambas funciones en cada punto de la malla
Z_v = h(x, r);
Z_e = fn(x, r);

% Encuentra el máximo valor entre las dos funciones en cada punto
Z_sup = max(Z_v- Z_e);

% Encuentra el supremo de los valores máximos
supremo = max(Z_sup, [], 'all');

% Muestra el resultado
disp(['El supremo entre las dos funciones es: ', num2str(supremo)]);

% Encuentra el supremo de los valores máximos
error(i) = log10(max(Z_sup, [], 'all'));
end
%Representamos la cota superior del error para cada n.
plot(linspace(0,terminos,length(error)),error)
}}

==== Análisis de la Desigualdad de Harnack====
A continuación, mediante la desigualdad de Harnack se tratará de encontrar la región en la que deben estar todas las soluciones armónicas en la bola unidad que valgan lo mismo que nuestra solución del problema en el punto <math> (0,0)</math>, donde está centrada la bola.

En la '''sección 2.2''' se ha definido la desigualdad, por tanto a continuación, se aplicará para <math> n=2 </math> ya que <math> B_R=B_R (0) \subset \mathbb {R^{2}}</math>.

Para una fácil comprensión de esta desigualdad se ha realizado un código donde se representan ambos extremos de la desigualdad:
<center><math> \frac{1-r}{1+r} v(0,0) \leq v(x) \leq \frac{1+r}{1-r}v(0,0)</math></center>
donde va a depender del radio, con <math> r \in [0,1) </math> y <math> v= u - M</math> donde <math> M= min(g) \text{ en } B_1</math>.

Se calcula <math> M</math> en función del radio de la bola del dominio definido, tal que:

<center><math>M := \min_{(x, y) \in B_R} \{g(x,y)\} = \min_{\theta \in [0,2\pi)} \{g(\theta)\} = \min_{\theta \in [0,2\pi)} \{R^2 cos(\theta)sen(\theta)\}= \min_{\theta \in [0,2\pi)} \{R^2 \frac{\sin(2\theta)}{2}\} =\frac{R^2}{2} \min_{\theta \in [0,2\pi)} \{\sin(2\theta)\}= - \frac{R^2}{2} .</math></center>

Para <math> B_1</math>, <math> M=\frac{1}{2}</math>, se puede observar la región en la que deben estar todas las soluciones armónicas en la <math> B_1</math>, que valen lo mismo que v en el punto <math> (0,0)</math>.

[[Archivo: HarnackR1N2sinlogF.png|350px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math>]]

Para una mejor apreciación se utilizará la escala logarítmica, de esta manera obtenemos la siguiente región:

[[Archivo: HarnackR1N2F.png|300px|thumb|center|Representación de la desigualdad de Harnack para <math> B_1</math> en escala logarítmica]]

Por otro lado, se va a realizar este mismo proceso, en escala logarítmica, para los dominios <math> B_2 \text{ y } B_{10} </math>, entonces:
<center><math> \frac{R-r}{R+r} v(0,0) \leq v(x) \leq \frac{R+r}{R-r}v(0,0)</math></center>
y se compararán con la anterior.

[[Archivo: HarnackRsN2F.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

Se puede observar como las cotas presentan la misma estructuras independientes del radio de la bola, sin embargo, varía el valor de <math> v(0,0)</math>, es decir, se establece una traslación en la región donde están todas las soluciones armónicas en la respectiva bola y sean iguales a <math> v</math> en <math> (0,0)</math>.

Se debe destacar que en estas gráficas se observa como la región de estas gráficas disminuye considerablemente según se aumenta el radio, ya que si se comparan las gráficas para <math> R=1</math> y <math> R=2</math> y se restringe el intervalo observado al <math> [0,1] </math>, la región de las soluciones se ve reducida considerablemente. Esto ocurre de forma más significativa para el caso de <math> R=10</math>.

Finalmente, vamos a comparar estas cotas con las que se obtendrían para <math> n=3 </math>, donde la cota va a estar definida como:

<center><math> \frac{R(R-r)}{(R+r)^{2}} v(0,0) \leq v(x) \leq \frac{R(R+r)}{(R-r)^{2}}v(0,0) </math></center>

[[Archivo: HarnackRsNsF.png|650px|thumb|center|Representación de la desigualdad de Harnack para los diferentes radios en escala logarítmica]]

En estas gráficas, se puede observar como las cotas para <math> n=3 </math> se reduce la cota superior respecto de la cota de <math> n=2 </math>, sin embargo, la cota inferior se reduce de forma leve, por tanto, el dominio total para la forma del dominio donde se definen las soluciones armónicas que satisfagan la condición de <math> v(0,0) </math> cumple lo mencionado para las bolas en <math> n=2 </math>.

A continuación, se define el código empleado a lo largo de esta sección.
{{matlab|codigo=
% Definimos los diferentes radios con los que vamos a hacer el estudio.
Radios=[1,2,10];

% Creamos un bucle que varía en función de la dimensión (está definido para
% los casos n=2 y n=3).
for gr=2:3
% Una vez definido el grado, vamos a aplicar la desigualdad de
% Harnock para todos los radios.
for j=1:length(Radios)
for R=Radios(j)

% Definimos la función frontera en coordenadas polares.
g = @(y) R.^2.*cos(y).*sin(y);
% Discretizar el intervalo de integración
y = linspace(-pi, pi, 1000);

%Calculamos el coeficiente a0 de la serie de fourier.
a_0= (1/pi)*trapz(y, g(y));
% Definimos el número de coeficientes.
i=100;
% Definimos el vector para meter los coeficientes de Fourier.
a_k = zeros(i, 1);
b_k = zeros(i, 1);

% Calcular las integrales usando el método del trapecio
for n = 1:i
resultado_seno = (1/pi)*trapz(y,g(y).*sin(n*y));
resultado_cos = (1/pi)*trapz(y,g(y).*cos(n*y));

% Almacenar el resultado
a_k(n) = resultado_cos;
b_k(n) = resultado_seno;
end
% Obtenemos la solución final para el problema por serie de Fourier.
fn=@(r,x) a_0/2;
for n=1:i
fn = @(r,x) a_k(n) .* (r/R).^n.* cos(n.*x) + b_k(n) .* (r/R).^n.* sin(n.*x)+ fn(r,x);
end

%Calculamos el mínimo de la función- condición frontera.
x=fminbnd(g,0,2*pi);
M=g(x) %mínimo evaluado en la función.

% Se define v=u-M tq v>=0.
v= @(r,x) fn(r,x) - M;
%Se evalúa esa función en x_0 = 0.
p=v(0,0)

% Se define el extremo inferior de la desigualdad
f1=@(r) ((R).^(gr-2)*(R-r)./((R+r).^(gr-1)))*p;
% Se define el extremo superior de la desigualdad
f2=@(r) ((R).^(gr-2)*(R+r)./((R-r).^(gr-1)))*p;

% Defininimos el dominio del radio
r = linspace(0, R, 100);

%Represenación de ambas cotas en escala logarítmica.
figure(j)
hold on
plot(r, log10(f1(r)));
plot(r, log10(f2(r)));
xlabel('r');
ylabel('f(r)');
title('Gráfico de f(r)');
legend('Desigualdad inferior', 'Desigualdad superior')
end
end
end
}}

== Ecuación de Poisson ==
A continuación, se definirá la ecuación de Poisson:

<math> \Delta u = f </math>
donde <math>u:\mathbb{R}^n \rightarrow \mathbb{R}</math> y <math> f \in C^2(\mathbb{R})</math>.
Se va a trabajar con un ejemplo práctico, donde se verá el comportamiento del potencial logarítmico, y se verá cómo se vomporta cuando la norma del punto tiende a infinito, viendo la diferencia con dicha asíntota.
En primer lugar se debe definir la solución fundamental del laplaciano.

=== Solución fundamental del Laplaciano. ===
Se define como la solución fundamental a <math> \phi(x): \mathbb{R}^n \rightarrow \mathbb{R}</math> a:

<center><math> \phi(x) = \begin{cases}
-\frac{1}{2\pi} log(|x|) & \text{si n=2} \\
\frac{1}{4\pi |x| } & \text{si n=3}
\end{cases}</math></center>
=== Potencial newtoniano. ===
El potencial newtoniano, también conocido como potencial de Newton, es un operador en cálculo vectorial que sirve como el inverso del Laplaciano negativo. Se aplica a funciones suaves que disminuyen lo suficientemente rápido hacia cero en el infinito.
El potencial newtoniano es un operador integral singular que se define mediante la convolución con una función que presenta una singularidad en el origen. Esta función, es la solución fundamental del laplaciano, <math> \phi(x)</math>.

Se define el potencial newtoniano de la siguiente manera:

<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^n} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

Los resultados conocidos para la resolución de problemas con la ecuación de Poisson en función de la dimensión son los siguientes:

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^3)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^3</math> de <math>\Delta u = -f</math> que pertenece a <math>C^2(\mathbb{R}^3)</math> y se anula en el infinito. Es decir, dado:
<center><math> \begin{cases}
\Delta u = -f \\
u(x) \rightarrow 0 & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
su solución viene dada por el potencial newtoniano:
<center><math> u(\mathbf{x}) = \int_{\mathbb{R}^3} f(\mathbf{y}) \phi(\mathbf{x} - \mathbf{y}) d\mathbf{y} </math></center>

'''Teorema.''' Sea <math>f \in C^2(\mathbb{R}^2)</math> con soporte compacto. Sea <math>u</math> el potencial newtoniano de <math>f</math>, definido por el potencial Newtoniano. Entonces, <math>u</math> es la única solución en <math>\mathbb{R}^2</math> de:
<center><math> \begin{cases}
\Delta u = -f \\
u(x)=-\frac{M}{2\pi} log |x| + O\left(\frac{1}{|x|} \right) & \text{si } |x| \rightarrow \infty
\end{cases}</math></center>
donde <center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>
entonces, su solución <math> u(\mathbf{x}) </math> , que pertenece a <math>C^2(\mathbb{R}^2)</math>, viene dada por el potencial newtoniano.

=== Potencial logarítmico ===
El teorema visto en el caso anterior, se trata de un teorema general, en dimensión <math>n=2 </math> este potencial es el logarítmico, por lo que la solución en este caso se obtendría con :
<center><math> u(\mathbf{x}) = -\frac{1}{2\pi}\int_{\mathbb{R}^2} f(\mathbf{y}) log|\mathbf{x} - \mathbf{y}| d\mathbf{y} </math></center>
Donde x e y son puntos de <math>{R}^{2}</math>. Para ver como se emplea el potencial Newtoniano en este caso, se ilustra mediante un ejemplo, en el cual se tiene:
<center><math> \Delta u = f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center>
Donde f es la función característica de la bola de radio 1. Para resolver este ejemplo hay varias formas, en primer lugar uno al ver que la función f es la característica de la bola, lo puede plantear como una integral sobre dicha bola en vez de sobre <math>{\mathbb{R}^2}</math>. Para ello, al estar en una simetría radial es interesante realizar un cambio a coordenadas polares , ya que de dicha forma los límite de integración quedan de forma más sencilla. Otra forma, debido a que la integral no se puede resolver de forma analítica y que se hace de forma numérica, se puede resolver sin realizar dicho cambio. Una de las opciones puede ser definiendo la función característica de la bola, e integrando sobre un cuadrado, pero esto se puede omitir teniendo en cuenta que por la simetría de la función, la integral es proporcional al área en el que se integra, por lo que por facilidad a la hora de resolver el problema se queda:
<center><math> -\frac{1}{2\pi}\int_{\partial B_1 0} log|\mathbf{x} - \mathbf{y}| d\mathbf{y} = -\frac{\pi}{4}\frac{1}{2\pi}\int_{-1} ^1 \int_{-1} ^1 log|\mathbf{x} - \mathbf{y}| dx dy </math></center>
Ya que <math> \frac{\pi}{4} </math> es la razón entre el área de la bola unidad y el cuadrado de lado 1. Finalmente con ello se obtiene la solución <math>u(x)</math>, y para resolver el ejercicio se plantean dos mallas de puntos, una que represente <math>{\mathbb{R}^2}</math>, y otra que sea un cuadrado de lado 2 centrado en el (0,0). Una vez creadas dichas mallas se evalúa la función en los puntos de la primera malla, integrándolos de forma numérica con los puntos de la segunda.

Para este procedimiento se ha utilizado el siguiente código:

{{matlab|codigo=
% Definir la función f que es el potencial logarítmico, y la vamos a
% multiplicar por -pi/4, ya que es la razón entre el área del cuadrado de
% lado 2 y la bola de radio 1, y se necesita para corregir el dominio de integración
f = @(x1, y1, x2, y2) -pi/4*(1/(2*pi))*log(sqrt((x1-x2).^2 + (y1-y2).^2));

% Definir los límites del intervalo
%Definimos a y b los cuales están definidos entre -1 y 1 para optimizar, ya
%que cuando estos valores estén fuera de la bola unidad, la función será 0,
%por lo que podemos limitarnos a este caso.
a = linspace(-1,1,100);
b = linspace(-1,1,100);
%La función es en R^2, por lo que vamos a coger un dominio lo
%suficientemente grande como para ver como se comporta la función cuando
% la norma de x tiende a infinito. Con tener vectores de 200 puntos nos
% sirve para ver cómo es el comportamiento asintótico.
c = linspace(-10^3,10^3,100);
d = linspace(-10^3,10^3,100);

% Generar las mallas de puntos en las que vamos a representar la función.
% La primera malla se define para establecer el dominio en el que se va a
% integrar, en este caso un cuadrado
%lado 2 centrado en el (0,0)
[X, Y] = meshgrid(a, b);
%La segunda malla de puntos es en la que se representará el dominio de la
%función
[X2, Y2] = meshgrid(c,d);
% Inicializar la matriz de valores en la que se guardarán los valores de
% la función
values = zeros(size(X));
%Crear un bucle para evaluar la función de forma numérica. Como la función
%tiene 4 variables y se integra en 2, el bucle se emplea para que dos de
%las variables tengan un valor numérico, y los vamos cambiando con las
%iteraciones.
for i = 1:length(a)
for j = 1:length(b)
% Definir fnum para evaluar f en c(i) y d(j) las mallas de puntos
% definidas, de tal forma que se quede una función de 2 variables
% la cual ya se podrá integrar.
fnum = @(x, y) f(x, y, c(i), d(j));
%Una vez se han sustituido los valores, se integra de forma
%numérica en dos dimensiones en la malla de puntos [X,Y]
values(i, j) = trapz(b, trapz(a, fnum(X, Y), 2));
end
end
%Representamos nuestra función con la malla de puntos de R^2, y los valores
%obtenidos de evaluar de forma numérica la función en dicho punto.

surf(X2,Y2,values)

}}

[[Archivo: Grafica-1010.jpeg|550px|thumb|center|Representación de la solución ]]
[[Archivo: Grafica-10001000.jpeg|550px|thumb|center|Representación de la solución en un dominio más grande]]

Como se puede observar, la función no tiende a 0 a medida que la norma de la x aumenta, esto es porque el comportamiento asintótico del potencial logarítmico es:
<center><math> u(x)=-\frac{M}{2\pi} log |x| + O(\frac{1}{|x|})</math></center>

Cuando <math>|x| \rightarrow \infty</math>, y se ve cómo eso se corresponde con la gráfica, donde

<center><math> M= \int _{\mathbb{R}^2} f(\mathbf y) d\mathbf y</math></center>

Al estar integrando sobre la bola unidad, M es <math>\pi</math>, por lo que finalmente la función asintóticamente será:

<center><math> u(x)=-\frac{1}{2} log |x|</math></center>

para ver si se cumple, se coge un radio de la simetría radial, y se ven sus valores a medida que el radio crece, y se comparan sus valores en una gráfica.
{{matlab|codigo=
%Con el mismo planteamiento que antes se elige un radio de la solución para compararlo
repr=zeros(length(a));
ejexrepr=zeros(length(a));
for i = 1:length(a)
fnum = @(x, y) f(x, y, c(i), d(i));

repr(i) = trapz(b, trapz(a, fnum(X,Y), 2));
ejexrepr(i)=sqrt(2*(c(i)^2));
end

hold on
%Definimos la asíntota teórica
fasint= @(x) -1/2*log(x);
valores_y = fasint(ejexrepr);
% Crear el gráfico de las líneas y los puntos
hold on
plot(ejexrepr, valores_y, '-','DisplayName','Función asintótica'); % Línea
plot(ejexrepr, repr, '*','DisplayName','Función obtenida'); % Punto
legend('Función asintótica', 'Función obtenida')
xlabel('Eje x')
ylabel('Eje y')
title('Gráfico función asintótica y función obtenida')
}}
[[Archivo: Garficassint.jpeg|550px|thumb|center|Representación de la función teórica y la aproximación frente al radio]]
De esta forma, se puede comprobar que la función se comporta de forma correcta en el infinito, siendo en el infinito como la función asintótica, a continuación se muestra una gráfica del error frente al radio, donde se puede ver mejor cómo se aproxima a la asíntota.
{{matlab|codigo=
xlabel('radio')
ylabel('logaritmo del error')
title('Gráfico del logaritmo del error de la aproximación')
plot(ejexrepr,log(abs(valores_y-repr)))
}}
[[Archivo: GRlogerr.jpeg|550px|thumb|center|Representación del logaritmo del error frente al radio]]
De hecho, el potencial logarítmico es la única solución de <center><math> \Delta u = -f \hspace{0.4cm} x \in {\mathbb{R}^2} </math></center> que satisface dicho límite asintótico.

== Referencias ==
<references/>