MateWiki - Contribuciones del usuario [es]

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-07T21:56:46Z

2025-12-04T18:05:45Z

David.santafe: /* Fuerza total agua sobre columna: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g z
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:07:45Z

David.santafe: /* Campo de concentración de contaminantes en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:07:35Z

David.santafe: /* Campo de concentración de contaminantes en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico de C_"agua" (z)muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:06:50Z

David.santafe: /* Decantación y distribución de contaminantes */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico de C_{\mathrm{agua}}(z) muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:05:39Z

David.santafe: /* Campo de concentración de contaminantes en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico de C_{\text{agua}}(z) muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:05:03Z

David.santafe: /* Campo de concentración de contaminantes en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico de C_{\text{agua}}(z) muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:03:54Z

David.santafe: /* Decantación y distribución de contaminantes */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.

Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico de C_"agua"(z) muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T18:03:34Z

David.santafe: /* Campo de concentración de contaminantes en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. Como consecuencia, la concentración solo depende de la profundidad z, y viene dada por:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
Esta relación es lineal y creciente con la profundidad. El gráfico de C_"agua"(z) muestra una recta que aumenta desde la superficie hasta el fondo, reflejando el mecanismo físico de sedimentación: los contaminantes más pesados tienden a concentrarse en la parte inferior.
En una representación espacial, esto se observa como:
colores más intensos o densos cerca del fondo (mayor concentración),
colores más suaves cerca de la superficie (menor concentración).
Por tanto, la distribución forma capas horizontales de igual concentración, coherentes con un proceso de sedimentación estratificada dentro del tanque.
[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T17:56:41Z

David.santafe: /* Superficies de isoconcentración dentro de una columna: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
Las isosuperficies de concentración son superficies tridimensionales dentro del agua o del hormigón de las columnas que unen todos los puntos donde la concentración del contaminante tiene un mismo valor constante.
En el Tanque de Tormentas de Arroyofresno describen las zonas del volumen (tanto del agua como del hormigón) donde la concentración es igual a un cierto nivel, lo que permite identificar regiones con igual grado de contaminación.

[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T17:54:11Z

David.santafe: /* Campo de concentración infiltrada: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T17:53:30Z

David.santafe: /* Campo de concentración infiltrada: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas) un valor de concentración de contaminantes.

Su formula es:
<center><math>
C_{\text{col}}(r,z) = C_{0}\left(1 + \alpha \frac{|z|}{H}\right)\exp\!\left[-\lambda(\rho_{c}-r)\right]
</math></center>
[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T17:52:34Z

David.santafe: /* Campo de concentración infiltrada: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas)un valor de concentración de contaminantes.

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T17:52:16Z

David.santafe: /* Campo de concentración infiltrada: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

El campo de concentración infiltrada describe cómo los contaminantes presentes en el agua del tanque penetran a través del hormigón de las columnas y cómo su concentración varía dentro del material, desde la superficie externa hasta llegar a la armadura de acero situada en el interior.
Es, por tanto, un campo escalar que asigna a cada punto del hormigón de la columna (definido por sus coordenadas)
un valor de concentración de contaminantes.

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:58:58Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''SUPERFICIES DE ISOCONCENTRACIÓN EN EL AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:57:10Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:13TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

Archivo:13TanqueTormentasGrupo71.png

2025-12-03T15:56:35Z

David.santafe:

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:55:26Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:54:53Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:54:01Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;
}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:53:16Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 80;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis tight
axis vis3d;
daspect([1 1 0.1])

hold off;

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:45:34Z

David.santafe: /* Superficies de isoconcentración en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:18:33Z

David.santafe: /* Gradiente de concentración de contaminante en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:12TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-03T15:18:05Z

David.santafe: /* Gradiente de concentración de contaminante en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para la fuerza total trabajamos con presiones manométricas:

 <center><math>
p(z) = P(z) - P_0 = \rho_{\text{agua}} g |z|
= -\rho_{\text{agua}} g z,\qquad z\in[-H,0].
</math></center>

En la superficie lateral de la columna de radio \(r_c\) el elemento de área es
\(dA = r_c\,d\theta\,dz\). La fuerza total normal (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^{0}(-z)\,dz
= \pi r_c \rho_{\text{agua}} g H^2.
</math></center>

Con \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\),
\(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y
\(g = 9{,}81\ \text{m/s}^2\):

 <center><math>
F \approx 1{,}12\cdot 10^7\ \text{N}
= 1{,}12\cdot 10^4\ \text{kN}
\approx 1{,}14\cdot 10^3\ \text{toneladas-fuerza}.
</math></center>

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''PARED DEL TANQUE''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''CONCENTRACIÓN CONTAMINANTE DEL AGUA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''GRADIENTE CONCENTRACIÓN CONTAMINANTES EN AGUA''' ]]

{{matlab|codigo= %– Gradiente del campo de concentración

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Consideramos que el fondo del tanque está en la cota \(z = -22\ \text{m}\) y que el nivel del agua alcanza la cota
\(z = -7\ \text{m}\). Por tanto, el agua ocupa la región

 <center><math>
-22 \le z \le -7,
</math></center>

es decir, una columna de agua de espesor \(15\ \text{m}\).

La concentración de contaminantes en el agua viene dada por

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}.
</math></center>

Como en todo el agua se cumple \(z \le 0\), tenemos \(|z| = -z\) y, por tanto,

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right),\qquad z\in[-22,-7].
</math></center>

En planta, el tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\).
Hay aproximadamente

 <center><math>
N \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

columnas cilíndricas de radio \(r_c = 0{,}75\ \text{m}\), que restan volumen al agua. El área efectiva ocupada por agua en planta es

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2.
</math></center>

La masa total de contaminantes en el agua se obtiene integrando la concentración en el volumen ocupado por el agua:

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= A_{\text{fondo}} \int_{-22}^{-7} C_0\left(1 - \alpha \frac{z}{H}\right)\,dz.
</math></center>

Evaluando la integral:

 <center><math>
\int_{-22}^{-7} \left(1 - \alpha \frac{z}{H}\right)\,dz
= \left[\, z - \frac{\alpha}{2H}z^2 \right]_{-22}^{-7}
\approx 44{,}66,
</math></center>

de modo que

 <center><math>
M_{\text{tot}} = A_{\text{fondo}}\,C_0\cdot 44{,}66.
</math></center>

Sustituyendo los valores numéricos \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), \(r_c = 0{,}75\ \text{m}\), \(C_0 = 0{,}3\ \text{kg/m}^3\), \(\alpha = 3\), \(H = 22\ \text{m}\), se obtiene:

 <center><math>
A_{\text{fondo}} \approx 4{,}03\cdot 10^4\ \text{m}^2,
</math></center>

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

Por tanto, la masa total de contaminantes en el agua del tanque es aproximadamente

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}
\;\approx\; 5{,}4\cdot 10^2\ \text{toneladas}.
</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo. El lodo tiene densidad aparente

 <center><math>
\rho_{\text{lodo}} = 1400\ \text{kg/m}^3.
</math></center>

Partimos de la masa total de contaminantes calculada en el apartado anterior:

 <center><math>
M_{\text{tot}} \approx 5{,}40\cdot 10^5\ \text{kg}.
</math></center>

(a) Masa de contaminantes depositados

Se deposita el 60% de la masa total:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
\approx 3{,}24\cdot 10^5\ \text{kg}.
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
\approx \frac{3{,}24\cdot 10^5}{1400}
\approx 2{,}31\cdot 10^2\ \text{m}^3.
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

El área efectiva del fondo donde se deposita el lodo es la misma que en el apartado (14):

 <center><math>
A_{\text{fondo}} = LW - N\,\pi r_c^2 \approx 4{,}03\cdot 10^4\ \text{m}^2.
</math></center>

El espesor medio de lodo por evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
\approx \frac{2{,}31\cdot 10^2}{4{,}03\cdot 10^4}
\approx 5{,}7\cdot 10^{-3}\ \text{m}
\;\approx\; 5{,}7\ \text{mm}.
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se usa de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
\approx 8\cdot 5{,}7\cdot 10^{-3}
\approx 4{,}6\cdot 10^{-2}\ \text{m}
\;\approx\; 4{,}6\ \text{cm}.
</math></center>

Como

 <center><math>
e_{\text{año}} \approx 4{,}6\ \text{cm} < 30\ \text{cm},
</math></center>

una limpieza anual del tanque sería suficiente con este modelo.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE (USANDO M_tot DEL APARTADO 14)

% Datos geométricos
L = 290; % [m]
W = 140; % [m]
rc = 0.75; % [m]
sep = 15; % [m]

% Área efectiva del fondo (igual que en el apartado 14)
Ncol = (L/sep)*(W/sep);
A_cols = Ncol * pi*rc^2;
A_fondo = L*W - A_cols; % [m^2]

% Masa total de contaminantes (resultado del 14)
M_tot = 5.3968e5; % [kg] ≈ 5,40·10^5 kg

% (a) Masa depositada
M_dep = 0.60 * M_tot; % [kg]

% (b) Volumen de lodo
rho_lodo = 1400; % [kg/m^3]
V_lodo = M_dep / rho_lodo; % [m^3]

% (c) Espesor por evento
e1 = V_lodo / A_fondo; % [m]

% (d) Espesor anual (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

fprintf('Masa total (14): M_tot = %.2f kg\n', M_tot);
fprintf('(a) Masa depositada: M_dep = %.2f kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);
if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual.\n');
else
fprintf('-> Una limpieza anual es suficiente.\n');
end
}}

Archivo:12TanqueTormentasGrupo71.png

David.santafe:

Archivo:111TanqueTormentasGrupo71.png

2025-12-02T19:07:10Z

David.santafe:

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-02T19:06:48Z

David.santafe: /* Decantación y distribución de contaminantes */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para calcular la fuerza total se va a trabajar con la presiones manométricas. Se debe saber que la presión atmosférica cuando se trabaja en manométricas tiene valor 0, por tanto se tomará <math> P_0 = 0 </math> .

 <center><math>p(z) = P(z) - P_0 = \rho_{\text{agua}}\,g\,|z| = -\rho_{\text{agua}} g z,\qquad z\in[-H,0]</math></center>

y la integramos sobre la superficie lateral de la columna de radio \(r_c\).
En coordenadas cilíndricas, sobre \(r = r_c\) el elemento de área es \(dA = r_c\,d\theta\,dz\). La **fuerza total normal** (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= \int_{z=-H}^0 \int_{\theta=0}^{2\pi} (-\rho_{\text{agua}} g z)\, r_c\,d\theta\,dz
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^0 (-z)\,dz
</math></center>

 <center><math>
\int_{-H}^0 (-z)\,dz = \left[-\frac{z^2}{2}\right]_{-H}^0 = \frac{H^2}{2}
\;\;\Rightarrow\;\;
F = \pi\,r_c\,\rho_{\text{agua}}\,g\,H^2
</math></center>

Con los datos \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\), \(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y \(g = 9{,}81\ \text{m/s}^2\):

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

[[Archivo:111TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
[[Archivo:112TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

{{matlab|codigo= %– Gradiente del campo de concentración

clear; close all; clc;

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Para estimar la masa total de contaminantes presentes en el agua del tanque, se divide la superficie horizontal en columnas de 15×15metros. El número aproximado de columnas viene dado por:
<center><math>N \approx \left(\frac{L}{15}\right)\left(\frac{W}{15}\right)</math></center>
Con las dimensiones del tanque L=290m y W=140m:
<center><math>N \approx \frac{290}{15} \cdot \frac{140}{15} \approx 180 \text{ columnas}</math></center>
Cada columna tiene un volumen:
V_"col"=15m×15m×7m=1575m^3
La concentración de contaminante en el nivel del agua z=-7m viene dada por:
<center><math>C(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right)</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo de densidad aparente
\(\rho_{\text{lodo}} = 1400\ \text{kg/m}^3\).

La concentración de contaminantes en el agua es

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}
</math></center>

El tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), por lo que su volumen es

 <center><math>
V_{\text{tanque}} = LWH
</math></center>

Recordando que para \(z\in[-H,0]\) se cumple \(|z|=-z\), podemos escribir

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)
</math></center>

(a) Masa de contaminantes depositados

La masa total de contaminantes en el agua antes de la decantación es

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= LW \int_{-H}^0 C_0\left(1 - \alpha \frac{z}{H}\right)\,dz
</math></center>

 <center><math>
M_{\text{tot}} = LW C_0 \left[z - \frac{\alpha}{2H}z^2\right]_{-H}^0
= LW C_0 H\left(1 + \frac{\alpha}{2}\right)
</math></center>

El 60% de esta masa se deposita en el fondo:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

Aproximamos el número de columnas como

 <center><math>
N_{\text{col}} \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

Cada columna tiene radio \(r_c = 0{,}75\ \text{m}\), de modo que el área ocupada por columnas es

 <center><math>
A_{\text{col}} = N_{\text{col}}\,\pi r_c^2
</math></center>

y el área efectiva del fondo donde se deposita el lodo:

 <center><math>
A_{\text{fondo}} = LW - A_{\text{col}}
</math></center>

El espesor medio tras un evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se utiliza de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
</math></center>

El criterio de limpieza es \(e_{\text{año}} > 0{,}30\ \text{m}\). Comparamos ambos valores para decidir si una limpieza anual es suficiente.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE

% Datos geométricos (SI)
L = 290; % [m] longitud del tanque
W = 140; % [m] anchura del tanque
H = 22; % [m] profundidad del tanque

% Concentración de contaminantes en el agua
C0 = 0.3; % [kg/m^3]
alpha = 3; % [-]

% Datos del lodo
rho_lodo = 1400; % [kg/m^3] densidad aparente del lodo

% Datos de las columnas
rc = 0.75; % [m] radio de cada columna
sep = 15; % [m] separación entre columnas en ambas direcciones

%% (a) Masa total de contaminantes y masa depositada
V_tanque = L*W*H; % [m^3] volumen del tanque
M_tot = V_tanque * C0*(1 + alpha/2); % [kg] masa total de contaminantes
M_dep = 0.60 * M_tot; % [kg] masa depositada (60 %)

%% (b) Volumen de lodo
V_lodo = M_dep / rho_lodo; % [m^3]

%% (c) Espesor promedio por evento (contando columnas)
Ncol = (L/sep)*(W/sep); % número aproximado de columnas
A_cols = Ncol * pi*rc^2; % [m^2] área ocupada por columnas
A_fondo = L*W - A_cols; % [m^2] área libre de fondo

e1 = V_lodo / A_fondo; % [m] espesor por evento

%% (d) Espesor acumulado en un año (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

% Impresión de resultados numéricos
fprintf('Volumen del tanque: V = %.0f m^3\n', V_tanque);
fprintf('(a) Masa total contamin.: M_tot = %.2e kg\n', M_tot);
fprintf(' Masa depositada (60%%): M_dep = %.2e kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev.): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);

if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual (se superan 30 cm).\n');
else
fprintf('-> Una limpieza anual es suficiente (no se superan 30 cm).\n');
end
}}

Resultados numéricos:

 <center><math>
V_{\text{tanque}} = 893200\ \text{m}^3
</math></center>

 <center><math>
M_{\text{tot}} = 6{,}70\cdot 10^5\ \text{kg}\;\;(\,M_{\text{tot}} = 669900\ \text{kg}\,)
</math></center>

 <center><math>
M_{\text{dep}} = 4{,}02\cdot 10^5\ \text{kg}\;\;(\,M_{\text{dep}} = 401940\ \text{kg}\,)
</math></center>

 <center><math>
V_{\text{lodo}} = 2{,}87\cdot 10^2\ \text{m}^3\;\;(\,V_{\text{lodo}} = 287{,}1\ \text{m}^3\,)
</math></center>

 <center><math>
e_1 = 7{,}13\cdot 10^{-3}\ \text{m} \;\approx\; 7{,}1\ \text{mm}
</math></center>

 <center><math>
e_{\text{año}} = 5{,}70\cdot 10^{-2}\ \text{m} \;\approx\; 5{,}7\ \text{cm} < 30\ \text{cm}
</math></center>

Por tanto, con estas hipótesis, una limpieza anual del tanque sería suficiente.

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-02T19:01:42Z

David.santafe: /* Decantación y distribución de contaminantes */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para calcular la fuerza total se va a trabajar con la presiones manométricas. Se debe saber que la presión atmosférica cuando se trabaja en manométricas tiene valor 0, por tanto se tomará <math> P_0 = 0 </math> .

 <center><math>p(z) = P(z) - P_0 = \rho_{\text{agua}}\,g\,|z| = -\rho_{\text{agua}} g z,\qquad z\in[-H,0]</math></center>

y la integramos sobre la superficie lateral de la columna de radio \(r_c\).
En coordenadas cilíndricas, sobre \(r = r_c\) el elemento de área es \(dA = r_c\,d\theta\,dz\). La **fuerza total normal** (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= \int_{z=-H}^0 \int_{\theta=0}^{2\pi} (-\rho_{\text{agua}} g z)\, r_c\,d\theta\,dz
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^0 (-z)\,dz
</math></center>

 <center><math>
\int_{-H}^0 (-z)\,dz = \left[-\frac{z^2}{2}\right]_{-H}^0 = \frac{H^2}{2}
\;\;\Rightarrow\;\;
F = \pi\,r_c\,\rho_{\text{agua}}\,g\,H^2
</math></center>

Con los datos \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\), \(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y \(g = 9{,}81\ \text{m/s}^2\):

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

{{matlab|codigo=

% Concentración de contaminantes en el agua

% Parámetros del enunciado
Csup = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % m

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = Csup * (1 + alpha * abs(z)/H);
figure;
plot(z, Cz,'r','LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 200;
nz = 200;
x = linspace(0, L, nx);
z2 = linspace(0, -H, nz);
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = Csup * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp;
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

{{matlab|codigo= %– Gradiente del campo de concentración

clear; close all; clc;

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Para estimar la masa total de contaminantes presentes en el agua del tanque, se divide la superficie horizontal en columnas de 15×15metros. El número aproximado de columnas viene dado por:
<center><math>N \approx \left(\frac{L}{15}\right)\left(\frac{W}{15}\right)</math></center>
Con las dimensiones del tanque L=290m y W=140m:
<center><math>N \approx \frac{290}{15} \cdot \frac{140}{15} \approx 180 \text{ columnas}</math></center>
Cada columna tiene un volumen:
V_"col"=15m×15m×7m=1575m^3
La concentración de contaminante en el nivel del agua z=-7m viene dada por:
<center><math>C(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right)</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo de densidad aparente
\(\rho_{\text{lodo}} = 1400\ \text{kg/m}^3\).

La concentración de contaminantes en el agua es

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}
</math></center>

El tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), por lo que su volumen es

 <center><math>
V_{\text{tanque}} = LWH
</math></center>

Recordando que para \(z\in[-H,0]\) se cumple \(|z|=-z\), podemos escribir

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)
</math></center>

(a) Masa de contaminantes depositados

La masa total de contaminantes en el agua antes de la decantación es

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= LW \int_{-H}^0 C_0\left(1 - \alpha \frac{z}{H}\right)\,dz
</math></center>

 <center><math>
M_{\text{tot}} = LW C_0 \left[z - \frac{\alpha}{2H}z^2\right]_{-H}^0
= LW C_0 H\left(1 + \frac{\alpha}{2}\right)
</math></center>

El 60% de esta masa se deposita en el fondo:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

Aproximamos el número de columnas como

 <center><math>
N_{\text{col}} \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

Cada columna tiene radio \(r_c = 0{,}75\ \text{m}\), de modo que el área ocupada por columnas es

 <center><math>
A_{\text{col}} = N_{\text{col}}\,\pi r_c^2
</math></center>

y el área efectiva del fondo donde se deposita el lodo:

 <center><math>
A_{\text{fondo}} = LW - A_{\text{col}}
</math></center>

El espesor medio tras un evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se utiliza de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
</math></center>

El criterio de limpieza es \(e_{\text{año}} > 0{,}30\ \text{m}\). Comparamos ambos valores para decidir si una limpieza anual es suficiente.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE

% Datos geométricos (SI)
L = 290; % [m] longitud del tanque
W = 140; % [m] anchura del tanque
H = 22; % [m] profundidad del tanque

% Concentración de contaminantes en el agua
C0 = 0.3; % [kg/m^3]
alpha = 3; % [-]

% Datos del lodo
rho_lodo = 1400; % [kg/m^3] densidad aparente del lodo

% Datos de las columnas
rc = 0.75; % [m] radio de cada columna
sep = 15; % [m] separación entre columnas en ambas direcciones

%% (a) Masa total de contaminantes y masa depositada
V_tanque = L*W*H; % [m^3] volumen del tanque
M_tot = V_tanque * C0*(1 + alpha/2); % [kg] masa total de contaminantes
M_dep = 0.60 * M_tot; % [kg] masa depositada (60 %)

%% (b) Volumen de lodo
V_lodo = M_dep / rho_lodo; % [m^3]

%% (c) Espesor promedio por evento (contando columnas)
Ncol = (L/sep)*(W/sep); % número aproximado de columnas
A_cols = Ncol * pi*rc^2; % [m^2] área ocupada por columnas
A_fondo = L*W - A_cols; % [m^2] área libre de fondo

e1 = V_lodo / A_fondo; % [m] espesor por evento

%% (d) Espesor acumulado en un año (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

% Impresión de resultados numéricos
fprintf('Volumen del tanque: V = %.0f m^3\n', V_tanque);
fprintf('(a) Masa total contamin.: M_tot = %.2e kg\n', M_tot);
fprintf(' Masa depositada (60%%): M_dep = %.2e kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev.): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);

if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual (se superan 30 cm).\n');
else
fprintf('-> Una limpieza anual es suficiente (no se superan 30 cm).\n');
end
}}

Resultados numéricos:

 <center><math>
V_{\text{tanque}} = 893200\ \text{m}^3
</math></center>

 <center><math>
M_{\text{tot}} = 6{,}70\cdot 10^5\ \text{kg}\;\;(\,M_{\text{tot}} = 669900\ \text{kg}\,)
</math></center>

 <center><math>
M_{\text{dep}} = 4{,}02\cdot 10^5\ \text{kg}\;\;(\,M_{\text{dep}} = 401940\ \text{kg}\,)
</math></center>

 <center><math>
V_{\text{lodo}} = 2{,}87\cdot 10^2\ \text{m}^3\;\;(\,V_{\text{lodo}} = 287{,}1\ \text{m}^3\,)
</math></center>

 <center><math>
e_1 = 7{,}13\cdot 10^{-3}\ \text{m} \;\approx\; 7{,}1\ \text{mm}
</math></center>

 <center><math>
e_{\text{año}} = 5{,}70\cdot 10^{-2}\ \text{m} \;\approx\; 5{,}7\ \text{cm} < 30\ \text{cm}
</math></center>

Por tanto, con estas hipótesis, una limpieza anual del tanque sería suficiente.

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-02T19:00:29Z

David.santafe: /* Campo de concentración de contaminantes en el agua: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para calcular la fuerza total se va a trabajar con la presiones manométricas. Se debe saber que la presión atmosférica cuando se trabaja en manométricas tiene valor 0, por tanto se tomará <math> P_0 = 0 </math> .

 <center><math>p(z) = P(z) - P_0 = \rho_{\text{agua}}\,g\,|z| = -\rho_{\text{agua}} g z,\qquad z\in[-H,0]</math></center>

y la integramos sobre la superficie lateral de la columna de radio \(r_c\).
En coordenadas cilíndricas, sobre \(r = r_c\) el elemento de área es \(dA = r_c\,d\theta\,dz\). La **fuerza total normal** (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= \int_{z=-H}^0 \int_{\theta=0}^{2\pi} (-\rho_{\text{agua}} g z)\, r_c\,d\theta\,dz
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^0 (-z)\,dz
</math></center>

 <center><math>
\int_{-H}^0 (-z)\,dz = \left[-\frac{z^2}{2}\right]_{-H}^0 = \frac{H^2}{2}
\;\;\Rightarrow\;\;
F = \pi\,r_c\,\rho_{\text{agua}}\,g\,H^2
</math></center>

Con los datos \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\), \(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y \(g = 9{,}81\ \text{m/s}^2\):

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

{{matlab|codigo=
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

{{matlab|codigo= %– Gradiente del campo de concentración

clear; close all; clc;

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Para estimar la masa total de contaminantes presentes en el agua del tanque, se divide la superficie horizontal en columnas de 15×15metros. El número aproximado de columnas viene dado por:
<center><math>N \approx \left(\frac{L}{15}\right)\left(\frac{W}{15}\right)</math></center>
Con las dimensiones del tanque L=290m y W=140m:
<center><math>N \approx \frac{290}{15} \cdot \frac{140}{15} \approx 180 \text{ columnas}</math></center>
Cada columna tiene un volumen:
V_"col"=15m×15m×7m=1575m^3
La concentración de contaminante en el nivel del agua z=-7m viene dada por:
<center><math>C(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right)</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo de densidad aparente
\(\rho_{\text{lodo}} = 1400\ \text{kg/m}^3\).

La concentración de contaminantes en el agua es

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}
</math></center>

El tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), por lo que su volumen es

 <center><math>
V_{\text{tanque}} = LWH
</math></center>

Recordando que para \(z\in[-H,0]\) se cumple \(|z|=-z\), podemos escribir

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)
</math></center>

(a) Masa de contaminantes depositados

La masa total de contaminantes en el agua antes de la decantación es

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= LW \int_{-H}^0 C_0\left(1 - \alpha \frac{z}{H}\right)\,dz
</math></center>

 <center><math>
M_{\text{tot}} = LW C_0 \left[z - \frac{\alpha}{2H}z^2\right]_{-H}^0
= LW C_0 H\left(1 + \frac{\alpha}{2}\right)
</math></center>

El 60% de esta masa se deposita en el fondo:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

Aproximamos el número de columnas como

 <center><math>
N_{\text{col}} \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

Cada columna tiene radio \(r_c = 0{,}75\ \text{m}\), de modo que el área ocupada por columnas es

 <center><math>
A_{\text{col}} = N_{\text{col}}\,\pi r_c^2
</math></center>

y el área efectiva del fondo donde se deposita el lodo:

 <center><math>
A_{\text{fondo}} = LW - A_{\text{col}}
</math></center>

El espesor medio tras un evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se utiliza de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
</math></center>

El criterio de limpieza es \(e_{\text{año}} > 0{,}30\ \text{m}\). Comparamos ambos valores para decidir si una limpieza anual es suficiente.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE

% Datos geométricos (SI)
L = 290; % [m] longitud del tanque
W = 140; % [m] anchura del tanque
H = 22; % [m] profundidad del tanque

% Concentración de contaminantes en el agua
C0 = 0.3; % [kg/m^3]
alpha = 3; % [-]

% Datos del lodo
rho_lodo = 1400; % [kg/m^3] densidad aparente del lodo

% Datos de las columnas
rc = 0.75; % [m] radio de cada columna
sep = 15; % [m] separación entre columnas en ambas direcciones

%% (a) Masa total de contaminantes y masa depositada
V_tanque = L*W*H; % [m^3] volumen del tanque
M_tot = V_tanque * C0*(1 + alpha/2); % [kg] masa total de contaminantes
M_dep = 0.60 * M_tot; % [kg] masa depositada (60 %)

%% (b) Volumen de lodo
V_lodo = M_dep / rho_lodo; % [m^3]

%% (c) Espesor promedio por evento (contando columnas)
Ncol = (L/sep)*(W/sep); % número aproximado de columnas
A_cols = Ncol * pi*rc^2; % [m^2] área ocupada por columnas
A_fondo = L*W - A_cols; % [m^2] área libre de fondo

e1 = V_lodo / A_fondo; % [m] espesor por evento

%% (d) Espesor acumulado en un año (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

% Impresión de resultados numéricos
fprintf('Volumen del tanque: V = %.0f m^3\n', V_tanque);
fprintf('(a) Masa total contamin.: M_tot = %.2e kg\n', M_tot);
fprintf(' Masa depositada (60%%): M_dep = %.2e kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev.): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);

if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual (se superan 30 cm).\n');
else
fprintf('-> Una limpieza anual es suficiente (no se superan 30 cm).\n');
end
}}

Resultados numéricos:

 <center><math>
V_{\text{tanque}} = 893200\ \text{m}^3
</math></center>

 <center><math>
M_{\text{tot}} = 6{,}70\cdot 10^5\ \text{kg}\;\;(\,M_{\text{tot}} = 669900\ \text{kg}\,)
</math></center>

 <center><math>
M_{\text{dep}} = 4{,}02\cdot 10^5\ \text{kg}\;\;(\,M_{\text{dep}} = 401940\ \text{kg}\,)
</math></center>

 <center><math>
V_{\text{lodo}} = 2{,}87\cdot 10^2\ \text{m}^3\;\;(\,V_{\text{lodo}} = 287{,}1\ \text{m}^3\,)
</math></center>

 <center><math>
e_1 = 7{,}13\cdot 10^{-3}\ \text{m} \;\approx\; 7{,}1\ \text{mm}
</math></center>

 <center><math>
e_{\text{año}} = 5{,}70\cdot 10^{-2}\ \text{m} \;\approx\; 5{,}7\ \text{cm} < 30\ \text{cm}
</math></center>

Por tanto, con estas hipótesis, una limpieza anual del tanque sería suficiente.

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-02T18:14:57Z

David.santafe: /* Decantación y distribución de contaminantes */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para calcular la fuerza total se va a trabajar con la presiones manométricas. Se debe saber que la presión atmosférica cuando se trabaja en manométricas tiene valor 0, por tanto se tomará <math> P_0 = 0 </math> .

 <center><math>p(z) = P(z) - P_0 = \rho_{\text{agua}}\,g\,|z| = -\rho_{\text{agua}} g z,\qquad z\in[-H,0]</math></center>

y la integramos sobre la superficie lateral de la columna de radio \(r_c\).
En coordenadas cilíndricas, sobre \(r = r_c\) el elemento de área es \(dA = r_c\,d\theta\,dz\). La **fuerza total normal** (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= \int_{z=-H}^0 \int_{\theta=0}^{2\pi} (-\rho_{\text{agua}} g z)\, r_c\,d\theta\,dz
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^0 (-z)\,dz
</math></center>

 <center><math>
\int_{-H}^0 (-z)\,dz = \left[-\frac{z^2}{2}\right]_{-H}^0 = \frac{H^2}{2}
\;\;\Rightarrow\;\;
F = \pi\,r_c\,\rho_{\text{agua}}\,g\,H^2
</math></center>

Con los datos \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\), \(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y \(g = 9{,}81\ \text{m/s}^2\):

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

{{matlab|codigo= % Concentración de contaminantes en el agua

% Parámetros del enunciado
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared del tanque (m)

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = C0 * (1 + alpha * abs(z)/H); % abs(z) = z
figure;
plot(z, Cz, 'LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 60;
nz = 60;
x = linspace(0, L, nx); % dirección horizontal de la pared
z2 = linspace(0, -H, nz); % z=0 superficie, z=-H fondo
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = C0 * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp; % suaviza el color
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

{{matlab|codigo= %– Gradiente del campo de concentración

clear; close all; clc;

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Para estimar la masa total de contaminantes presentes en el agua del tanque, se divide la superficie horizontal en columnas de 15×15metros. El número aproximado de columnas viene dado por:
<center><math>N \approx \left(\frac{L}{15}\right)\left(\frac{W}{15}\right)</math></center>
Con las dimensiones del tanque L=290m y W=140m:
<center><math>N \approx \frac{290}{15} \cdot \frac{140}{15} \approx 180 \text{ columnas}</math></center>
Cada columna tiene un volumen:
V_"col"=15m×15m×7m=1575m^3
La concentración de contaminante en el nivel del agua z=-7m viene dada por:
<center><math>C(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right)</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo de densidad aparente
\(\rho_{\text{lodo}} = 1400\ \text{kg/m}^3\).

La concentración de contaminantes en el agua es

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}
</math></center>

El tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), por lo que su volumen es

 <center><math>
V_{\text{tanque}} = LWH
</math></center>

Recordando que para \(z\in[-H,0]\) se cumple \(|z|=-z\), podemos escribir

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)
</math></center>

(a) Masa de contaminantes depositados

La masa total de contaminantes en el agua antes de la decantación es

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= LW \int_{-H}^0 C_0\left(1 - \alpha \frac{z}{H}\right)\,dz
</math></center>

 <center><math>
M_{\text{tot}} = LW C_0 \left[z - \frac{\alpha}{2H}z^2\right]_{-H}^0
= LW C_0 H\left(1 + \frac{\alpha}{2}\right)
</math></center>

El 60% de esta masa se deposita en el fondo:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

Aproximamos el número de columnas como

 <center><math>
N_{\text{col}} \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

Cada columna tiene radio \(r_c = 0{,}75\ \text{m}\), de modo que el área ocupada por columnas es

 <center><math>
A_{\text{col}} = N_{\text{col}}\,\pi r_c^2
</math></center>

y el área efectiva del fondo donde se deposita el lodo:

 <center><math>
A_{\text{fondo}} = LW - A_{\text{col}}
</math></center>

El espesor medio tras un evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se utiliza de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
</math></center>

El criterio de limpieza es \(e_{\text{año}} > 0{,}30\ \text{m}\). Comparamos ambos valores para decidir si una limpieza anual es suficiente.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE

% Datos geométricos (SI)
L = 290; % [m] longitud del tanque
W = 140; % [m] anchura del tanque
H = 22; % [m] profundidad del tanque

% Concentración de contaminantes en el agua
C0 = 0.3; % [kg/m^3]
alpha = 3; % [-]

% Datos del lodo
rho_lodo = 1400; % [kg/m^3] densidad aparente del lodo

% Datos de las columnas
rc = 0.75; % [m] radio de cada columna
sep = 15; % [m] separación entre columnas en ambas direcciones

%% (a) Masa total de contaminantes y masa depositada
V_tanque = L*W*H; % [m^3] volumen del tanque
M_tot = V_tanque * C0*(1 + alpha/2); % [kg] masa total de contaminantes
M_dep = 0.60 * M_tot; % [kg] masa depositada (60 %)

%% (b) Volumen de lodo
V_lodo = M_dep / rho_lodo; % [m^3]

%% (c) Espesor promedio por evento (contando columnas)
Ncol = (L/sep)*(W/sep); % número aproximado de columnas
A_cols = Ncol * pi*rc^2; % [m^2] área ocupada por columnas
A_fondo = L*W - A_cols; % [m^2] área libre de fondo

e1 = V_lodo / A_fondo; % [m] espesor por evento

%% (d) Espesor acumulado en un año (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

% Impresión de resultados numéricos
fprintf('Volumen del tanque: V = %.0f m^3\n', V_tanque);
fprintf('(a) Masa total contamin.: M_tot = %.2e kg\n', M_tot);
fprintf(' Masa depositada (60%%): M_dep = %.2e kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev.): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);

if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual (se superan 30 cm).\n');
else
fprintf('-> Una limpieza anual es suficiente (no se superan 30 cm).\n');
end
}}

Resultados numéricos:

 <center><math>
V_{\text{tanque}} = 893200\ \text{m}^3
</math></center>

 <center><math>
M_{\text{tot}} = 6{,}70\cdot 10^5\ \text{kg}\;\;(\,M_{\text{tot}} = 669900\ \text{kg}\,)
</math></center>

 <center><math>
M_{\text{dep}} = 4{,}02\cdot 10^5\ \text{kg}\;\;(\,M_{\text{dep}} = 401940\ \text{kg}\,)
</math></center>

 <center><math>
V_{\text{lodo}} = 2{,}87\cdot 10^2\ \text{m}^3\;\;(\,V_{\text{lodo}} = 287{,}1\ \text{m}^3\,)
</math></center>

 <center><math>
e_1 = 7{,}13\cdot 10^{-3}\ \text{m} \;\approx\; 7{,}1\ \text{mm}
</math></center>

 <center><math>
e_{\text{año}} = 5{,}70\cdot 10^{-2}\ \text{m} \;\approx\; 5{,}7\ \text{cm} < 30\ \text{cm}
</math></center>

Por tanto, con estas hipótesis, una limpieza anual del tanque sería suficiente.

El tanque de tormentas de Arroyofresno (Grupo 71)

2025-12-02T18:01:02Z

David.santafe: /* Superficies de isoconcentración dentro de una columna: */

{{ TrabajoED | El tanque de tormentas de Arroyofresno. Grupo 71| [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/71|2025-26]] |
*David Santafé Palacios
*Pedro Suñé Pérez
*Beatriz Bernal Castañeda
* Nicole Filip Palacios}}
[[Categoría:Teoría de Campos]]
[[Categoría:TC25/26]]

El Tanque de Tormentas de Arroyofresno es una gran infraestructura subterránea del sistema de saneamiento de Madrid diseñada para almacenar temporalmente el exceso de agua durante lluvias intensas. Su función principal es evitar inundaciones, proteger el medio ambiente y reducir la carga sobre la red de alcantarillado y las depuradoras, reteniendo el agua hasta que pueda ser tratada de forma segura.

=Funcionamiento del Tanque de Arroyofresno:=

[[Archivo:TanqueTormentasGrupo71.png|450 px||miniaturadeimagen|right|'''TANQUE TORMENTAS''' ]]

El Tanque de Tormentas de Arroyofresno forma parte del Plan de Saneamiento de Madrid. Su principal función es reducir el riesgo de inundaciones y proteger el medio ambiente durante lluvias intensas. El tanque se activa automáticamente cuando la red de alcantarillado unitaria, que transporta aguas pluviales y residuales conjuntamente, supera su capacidad máxima. Los contaminantes arrastrados al tanque de tormentas provienen principalmente de: sólidos en suspensión, materia orgánica; metales pesados (zinc, plomo, cobre), nutrientes (nitrógeno y fósforo) y agentes específicos críticos para el hormigón (cloruros y sulfatos).

El agua contaminada permanece en el tanque de tormentas de forma temporal, hasta que los contaminantes decantan, así como, la Estación Depuradora de Aguas Residuales pueda asumir el caudal restante para su posterior bombeo y tratamiento final. Los tanques de tormentas son comunes en grandes ciudades como: Barcelona (España): Cuenta con numerosos tanques de tormentas como el tanque de la Zona Franca, con objetivo de evitar inundaciones en las ciudades. Berlín (Alemania): Emplea un sistema mixto de tanques y canales de almacenamiento subterráneo. París (Francia): Posee grandes infraestructuras subterráneas "Grand Collecteur" de similar funcionamiento.

El almacenamiento de estas aguas sucias provoca que las columnas de hormigón estén expuestas a los agentes agresivos. Los principales mecanismos de degradación son: Corrosión de la armadura por cloruros que penetran el hormigón permitiendo la presencia de oxígeno y humedad provocando la oxidación. Ataque por sulfatos que reaccionan con los componentes del cemento dando lugar a agrietamientos internos y desintegrando la matriz del hormigón.

Para garantizar la vida útil de estas estructuras críticas, se adoptan rigurosas medidas de protección: Aumento de espesor del recubrimiento de hormigón para retrasar la llegada de contaminantes; hormigón de baja porosidad para reducir la permeabilidad; empleo de aceros inoxidables en la armadura; recubrimientos superficiales en las superficies del hormigón para crear una barrera física contra el agua contaminada.

=Presión y fuerzas estructurales sobre columnas=

===Representación del campo de presiones:===

Cuando el tanque está lleno, el campo escalar de presión en el agua viene dado por:

 <center><math>P(z) = P_0 - \rho_{\text{agua}} \, g \, z,\qquad z \in [-H,0]</math></center>

donde \(P_0\) es la presión atmosférica, \(\rho_{\text{agua}}\) la densidad del agua y \(g\) la aceleración de la gravedad.
Como \(P\) sólo depende de la coordenada vertical \(z\), en la superficie cilíndrica de una columna todos los puntos de una misma cota tienen la misma presión. A continuación representamos este campo como un mapa de colores sobre un cilindro de radio <math>r_c = 0{,}75 m</math>.

[[Archivo:2TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO DE PRESIONES''' ]]

{{matlab|codigo=
% Parámetros
rcolumna = 0.75; % en m
H = 22; % en m
Patm = 101325; % Pa
rhoagua = 1000; % kg/m^3
g = 9.81; % m/s^2

% Malla en coordenadas cilíndricas
ptostheta = 200;
ptosz = 200;
theta = linspace(0,2*pi,ptostheta);
z = linspace(-H,0,ptosz);
[Theta,Z] = meshgrid(theta,z);

% Coordenadas cartesianas de la superficie cilíndrica
R = rcolumna;
X = R*cos(Theta);
Y = R*sin(Theta);

% Campo de presión P(z)
P = Patm - rhoagua * g .* Z;

% Superficie con mapa de color según P
figure('Color','w','Position',[200 200 700 600]);
h = surf(X, Y, Z, P, 'EdgeColor','none');
colorbar_handle = colorbar;
colorbar_handle.Label.String = 'Presión (Pa)';

% Etiquetas
axis equal
xlabel('x (m)')
ylabel('y (m)')
zlabel('z (m)')
title('Campo de presión P(z) sobre la superficie cilíndrica de una columna')
view(40,20)
}}

===Gradiente de presión y representación como campo vectorial:===

El gradiente del campo de presión se define como:

 <center><math>\nabla P = \left( \frac{\partial P}{\partial x},\frac{\partial P}{\partial y},\frac{\partial P}{\partial z} \right)</math></center>

Para el campo hidrostático \(P(z) = P_0 - \rho_{\text{agua}} g z\) sólo hay dependencia en \(z\), de modo que:

 <center><math>\nabla P = (0,\,0,\,-\rho_{\text{agua}} g)</math></center>

Es un campo vectorial constante dirigido hacia abajo. A continuación lo representamos sobre la superficie cilíndrica de una columna.

[[Archivo:3TanqueTormentasGrupo71.png|300 px||miniaturadeimagen|right|'''REPRESENTACIÓN GRADIENTE DE PRESIONES''' ]]

{{matlab|codigo= % CAMPO DEL GRADIENTE DE PRESIÓN SOBRE UNA COLUMNA

% Datos
H = 22; % [m]
rcolumna = 0.75; % [m]
rhoagua = 1000; % [kg/m^3]
g = 9.81; % [m/s^2]

% Mallado cilíndrico
ptosTheta = 20;
ptosZ = 20;
theta = linspace(0, 2*pi, ptosTheta);
z = linspace(-H, 0, ptosZ);
[Theta, Z] = meshgrid(theta, z);
X = rcolumna*cos(Theta);
Y = rcolumna*sin(Theta);

% Gradiente de presión
Gx = zeros(size(X));
Gy = zeros(size(Y));
Gz = -ones(size(Z)); % en -z

% Representación
figure;
surf(X, Y, Z, 'FaceAlpha', 0.2, 'EdgeColor', 'none');
hold on;
quiver3(X, Y, Z, Gx, Gy, Gz, 0.7, 'k');
axis equal;
xlabel('x [m]');
ylabel('y [m]');
zlabel('z [m]');
title('Gradiente de presión sobre la superficie de una columna');
grid on;
hold off;

}}

===Fuerza total agua sobre columna:===

Para calcular la fuerza total se va a trabajar con la presiones manométricas. Se debe saber que la presión atmosférica cuando se trabaja en manométricas tiene valor 0, por tanto se tomará <math> P_0 = 0 </math> .

 <center><math>p(z) = P(z) - P_0 = \rho_{\text{agua}}\,g\,|z| = -\rho_{\text{agua}} g z,\qquad z\in[-H,0]</math></center>

y la integramos sobre la superficie lateral de la columna de radio \(r_c\).
En coordenadas cilíndricas, sobre \(r = r_c\) el elemento de área es \(dA = r_c\,d\theta\,dz\). La **fuerza total normal** (como magnitud escalar) es

 <center><math>
F = \int_{\text{superficie}} p(z)\,dA
= \int_{z=-H}^0 \int_{\theta=0}^{2\pi} (-\rho_{\text{agua}} g z)\, r_c\,d\theta\,dz
= 2\pi r_c \rho_{\text{agua}} g \int_{-H}^0 (-z)\,dz
</math></center>

 <center><math>
\int_{-H}^0 (-z)\,dz = \left[-\frac{z^2}{2}\right]_{-H}^0 = \frac{H^2}{2}
\;\;\Rightarrow\;\;
F = \pi\,r_c\,\rho_{\text{agua}}\,g\,H^2
</math></center>

Con los datos \(r_c = 0{,}75\ \text{m}\), \(H = 22\ \text{m}\), \(\rho_{\text{agua}} = 1000\ \text{kg/m}^3\) y \(g = 9{,}81\ \text{m/s}^2\):

=Infiltración y corrosión en columnas=

===Campo de concentración infiltrada:===

[[Archivo:51TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION VERTICAL''' ]]

[[Archivo:52TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''SECCION TRANSVERSAL''' ]]

{{matlab|codigo=% Parámetros del problema
H = 22;
radiocolumna = 0.75;
radioarmadura = 0.65;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;

% Mallado para la sección vertical (r,z)
nr = 300;
nz = 300;
r = linspace(0, radiocolumna, nr);
z = linspace(-H, 0, nz); % fondo a superficie
[R, Z] = meshgrid(r, z);

% Campo de concentración en agua
Cconagua = concentracionsup * (1 + alpha * abs(Z) / H);

% Campo infiltrado en columna
Cinfcol = Cconagua .* exp(-lambda * (radiocolumna - R));

% FIGURA 1: SECCIÓN VERTICAL
figure;
imagesc(r, z, Cinfcol); %muestra matriz como imagen
colorbar;
xlabel('r (m)');
ylabel('z (m)');
title('Campo de concentración infiltrada C_{col}(r,z) - Sección vertical');
% marcar la armadura
hold on;
plot([radioarmadura radioarmadura], [-H 0], 'k--', 'LineWidth', 2);
text(radioarmadura+0.02, -H+2, 'Armadura', 'Color','k');

% FIGURA 2: SECCIÓN TRANSVERSAL (x–y)
% malla en el plano transversal
nx = 300;
ny = 300;
x = linspace(-radiocolumna, radiocolumna, nx);
y = linspace(-radiocolumna, radiocolumna, ny);
[X, Y] = meshgrid(x, y);
R2 = sqrt(X.^2 + Y.^2); %distancia radial al eje de la columna

% seleccionamos una profundidad
profundidad = -H/2;
Conanguaenz = concentracionsup * (1 + alpha * abs(profundidad)/H); %concentracion del agua en z= -H/2 (profundidad)
Cinfcol_xy = Conanguaenz .* exp(-lambda * (radiocolumna - R2)); %concentración infiltrada dentro del hormigón en cada punto

% enmascarar puntos fuera del cilindro
Cinfcol_xy(R2 > radiocolumna) = NaN;

% figura
figure;
imagesc(x, y, Cinfcol_xy);
set(gca,'YDir','normal'); %en direccion normal
axis equal;
colorbar;
xlabel('x (m)');
ylabel('y (m)');
title(['C_{col}(x,y) a z = ' num2str(profundidad) ' m']);

% dibujar límite de la armadura
hold on;
th = linspace(0, 2*pi, 300);
plot(radioarmadura*cos(th), radioarmadura*sin(th), 'k--', 'LineWidth',2);
text(radioarmadura*1.1, 0, 'Armadura', 'Color','k');}}

===Campo del gradiente de concentración infiltrada:===
La concentración de contaminantes en el agua varía con la profundidad según

 <center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

donde '''<math>C₀ = 0{,}3 kg/m³</math>''' y '''<math>α = 3</math>'''.
En el interior del hormigón de la columna, la concentración infiltrada se modela como

 <center><math>C_{\text{col}}(r,z) = C_{\text{agua}}(z)\,\mathrm{e}^{-\lambda(\rho_a-r)},\qquad 0\le r\le \rho_a</math></center>

con '''<math>ρₐ = 0{,}65 m</math>''' (posición de la armadura) y '''<math>λ = 10 m⁻¹</math>''' (coeficiente de atenuación en el hormigón).

El gradiente de esta concentración en coordenadas cilíndricas \((r,z)\) es

 <center><math>\nabla C_{\text{col}}(r,z) =
\left(\frac{\partial C_{\text{col}}}{\partial r},\,\frac{\partial C_{\text{col}}}{\partial z}\right)
= \big(\lambda\,C_{\text{col}}(r,z),\, -\frac{C_0\alpha}{H}\,\mathrm{e}^{-\lambda(\rho_a-r)}\big)</math></center>

En una sección vertical que pasa por el eje de la columna (plano \(y=0\)), tomamos la coordenada horizontal \(x\) de manera que \(r = |x|\) y representamos el campo vectorial \(\nabla C_{\text{col}}(x,z)\).

[[Archivo:6TanqueTormentasGrupo71.png|500 px||miniaturadeimagen|right|'''CAMPO GRADIENTE CONCENTRACION INFILTRADA''' ]]

{{matlab|codigo= % GRADIENTE DE LA CONCENTRACIÓN INFILTRADA EN UNA SECCIÓN VERTICAL

% Parámetros en SI
H = 22;
concentracionsup = 0.3;
alpha = 3;
lambda = 10;
rarmadura = 0.65;

% Mallado en la sección vertical (plano y = 0)
nx = 41;
nz = 41;
x = linspace(-rarmadura, rarmadura, nx);
z = linspace(-H, 0, nz);
[X, Z] = meshgrid(x, z);
R = abs(X);

% Máscara (Todo lo que esté fuera del radio de la columna se marcará como NaN)
mask = (R <= rarmadura);

% Concentración en el agua
Concentracionagua = concentracionsup*(1 + alpha*abs(Z)/H); % [kg/m^3]

% Concentración infiltrada en el hormigón
concentracionhorm = Concentracionagua .* exp(-lambda*(rarmadura - R)); % [kg/m^3]

% Derivadas analíticas en (r,z)
dC_dr = lambda .* concentracionhorm; %derivada parcial respecto de r
dC_dz = -(concentracionsup*alpha/H) .* exp(-lambda*(rarmadura - R)); %derivada parcial respecto de z

% Paso de componente radial a componente en x (en y=0)(ahora esta en
% direccion radial, para poder usar quiver necesitamos que este en
% coordenadas cartesianas)
signX = sign(X);
signX(signX == 0) = 1;
dC_dx = dC_dr .* signX;

% Aplicar máscara
dC_dx(~mask) = NaN;
dC_dz(~mask) = NaN;

% Representación del campo vectorial en la sección (x,z)
figure;
quiver(X, Z, dC_dx, dC_dz, 0.5, 'filled');
axis equal;
xlabel('x [m]');
ylabel('z [m]');
title('Gradiente de concentración \nabla C_{col}(x,z) en una sección vertical');
set(gca,'YDir','normal'); %coloca el z=0 mas arriba que z=-H
grid on;
}}

===Función de concentración en la armadura en función de la profundidad:===

En la armadura de la columna (radio \(r = \rho_a\)), la concentración infiltrada coincide con la concentración del agua, ya que el factor exponencial vale 1:

 <center><math>C_{\text{acero}}(z) = C_{\text{col}}(\rho_a,z)
= C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>

Tomamos '''<math>C₀ = 0{,}3 kg/m³</math>''', '''<math>α = 3</math>''' y '''<math>H = 22 m</math>'''. El umbral crítico para el inicio de la corrosión es

 <center><math>C_{\text{crit}} = 0{,}05\ \text{kg/m}^3</math></center>

Dibujamos \(C_{\text{acero}}(z)\) en función de la profundidad \(|z|\) y añadimos la línea horizontal \(C_{\text{crit}}\). En este caso, como \(C_{\text{acero}}(z) > C_{\text{crit}}\) para toda la profundidad, toda la armadura se encuentra en zona de riesgo de corrosión.

[[Archivo:7TanqueTormentas.png|500 px||miniaturadeimagen|right|'''CONCENTRACION ARMADURA Y UMBRAL CRITICO''' ]]

{{matlab|codigo= % CONCENTRACIÓN EN LA ARMADURA Y UMBRAL CRÍTICO
% Parámetros (SI)
H = 22;
concentracionsup = 0.3;
alpha = 3;
umbralcritico= 0.05;

% Profundidad positiva desde la superficie hasta el fondo
nPts = 200;
p = linspace(0, H, nPts);
cacero = concentracionsup*(1 + alpha*p/H);

% Representación
figure;
plot(p, cacero, 'LineWidth', 2);
hold on;
yline(umbralcritico, 'r--', 'C_{crit}', 'LineWidth', 1.5);

xlabel('Profundidad [m]');
ylabel('C_{acero} [kg/m^3]');
title('Concentración en la armadura C_{acero}(z) y umbral crítico C_{crit}');
grid on;

% Comentario en la consola sobre la zona de riesgo
if all(cacero > umbralcritico)
disp('Toda la armadura está en zona de riesgo de corrosión (C_acero > C_crit para toda la profundidad).');
else
disp('Solo la parte de la armadura donde C_acero > C_crit está en zona de riesgo de corrosión.');
end
hold off; }}

===Superficies de isoconcentración dentro de una columna:===
[[Archivo:8TanqueTormentasGrupo71.png|400 px||miniaturadeimagen|right|'''ISOSUPERFICIE DE CONCENTRACION DE UNA COLUMNA ''' ]]
{{matlab|codigo= % Isosuperficies 3D de C_col dentro de la columna
% Parámetros del enunciado
rcol = 0.75; % m (radio de la columna)
rarmd = 0.65; % m (radio de la armadura)
H = 22; % m (profundidad)
ConSup = 0.3; % kg/m3
alpha = 3;
lambda = 10; % 1/m

% Resolución del mallado
Nx = 80; Ny = 80; Nz = 120;

% Mallado cartesiano
x = linspace(-rcol, rcol, Nx);
y = linspace(-rcol, rcol, Ny);
z = linspace(-H, 0, Nz);

[X, Y, Z] = meshgrid(x, y, z);

% Coordenada radial
R = sqrt(X.^2 + Y.^2);

% Concentración en el agua: Cagua(z)
Cagua = ConSup * (1 + alpha * abs(Z) / H);

% Concentración infiltrada en columna: Ccol(r,z)
Ccol = Cagua .* exp(-lambda * (rcol - R));

% Fuera del cilindro no se representa
Ccol(R > rcol) = NaN;

% Valores de isosuperficies a mostrar
isoSup = [0.1 0.2 0.3 0.4];

% Colores (RGBA)
colores = [ ...
0.2 0.5 1.0 0.35; % azul
0.3 0.9 0.3 0.35; % verde
1.0 0.6 0.1 0.35; % naranja
0.7 0.2 0.7 0.35]; % morado

figure; hold on;

% Crear cada isosuperficie
for i = 1:length(isoSup)
val = isoSup(i);

% Extraer la isosuperficie
p = patch(isosurface(X, Y, Z, Ccol, val));

% Estética de la superficie
p.FaceColor = colores(i,1:3);
p.FaceAlpha = colores(i,4); %controla la opacidad
p.EdgeColor = 'none';
end

% Dibujar el cilindro de la armadura (rho = rho_a)
theta = linspace(0, 2*pi, 120);
z_cyl = linspace(-H, 0, 80);
[TH, ZZ] = meshgrid(theta, z_cyl);

Xc = rarmd * cos(TH);
Yc = rarmd * sin(TH);
Zc = ZZ;

surf(Xc, Yc, Zc, 'FaceColor', 'y', 'FaceAlpha', 0.95, 'EdgeColor', 'none');

% Ajustes de gráfico
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Isosuperficies 3D de C_{col} dentro de la columna');
axis equal;
view(3);
grid on;

}}

===Vida útil de la columna en la zona crítica:===

Se tiene que el diámetro de las barras de armadura es <math> d_0 = 20 mm </math> . Se considera como pérdida crítica cuando la barra pierde el 25% de su diámetro original.
Calculamos la pérdida crítica debida a la corrosión:
 <center><math>Δd_0 = 0.25 * 20 = 5 mm </math></center>
Estos 5 mm son material total perdido respectó al diámetro de la barra y como la corrosión actua del exterior hacia el interior, se obtiene un radio de material corroído de 2.5 mm. La velocidad de corrosión dada es <math> v_c = 0.1 \frac{mm}{año} </math>. Por último, calculamos el tiempo (t) que tarda en alcanzar esa perdida crítica del 25%.
 <center><math>tiempo = t = \frac{Δd_0}{v_c} = \frac{5}{0.1} = 50 años </math></center>

===Masa total de contaminantes infiltrados en una columna:===

Para calcular la masa de contaminantes infiltrados en una columna se ha usado código matlab debido a la ayuda que ofrece para cálculos mas complejos como en este caso.

Tras ejecutar el código, se obtiene una masa de contaminantes infiltrados por columna de 6.74 kg (6.739290 kg).
Así mismo obtenemos que la masa infiltrada para el mismo volumen de la columna pero en el agua es de 29.16 kg (29.157907 kg).
Si se comparan se observa que es bastante mayor la masa infiltrada en agua que en la columna.
<math> \frac{MasaColumna}{MasaAguaEquiv}= \frac{6.74}{29.16} </math>

{{matlab|codigo=

% Datos
rcolumna = 0.75; % m
H = 22.0; % m
C0 = 0.3; % kg/m^3
alpha = 3.0;
lambda = 10.0; % 1/m

% I_rho = rho_c/lambda - (1 - exp(-lambda*rho_c))/lambda^2
I_rho = rcolumna./lambda - (1 - exp(-lambda.*rcolumna))./(lambda.^2);

% J_z = C0 * H * (1 + alpha/2)
J_z = C0 .* H .* (1 + alpha./2);

% Masa contaminantes infiltrados en la columna
M_col = 2 * pi .* I_rho .* J_z; % [kg]

% Masa contaminantes en volumen equivalente de agua
M_agua_eq = pi .* rcolumna.^2 .* J_z; % [kg]

% Relacion contaminantes columna y contaminantes vol agua equiv
fraction = M_col ./ M_agua_eq;
percentage = fraction * 100;

% Resultados
fprintf('I_rho = %.12g (unidad: m^2)\n', I_rho);
fprintf('J_z = %.12g (unidad: kg/m^2 - resultado de int_z Cagua dz)\n', J_z);
fprintf('Masa infiltrada (M_col) = %.6f kg\n', M_col);
fprintf('Masa en agua equivalente (M_agua_eq) = %.6f kg\n', M_agua_eq);
fprintf('Fracción M_col / M_agua_eq = %.6f (%.3f%%)\n', fraction, percentage);

}}

=Decantación y distribución de contaminantes=

===Campo de concentración de contaminantes en el agua:===

La concentración de contaminantes en el agua está gobernada por el proceso de decantación: las partículas más densas descienden con el tiempo y se acumulan en el fondo del tanque. La concentración solo depende de la profundidad z, según:
<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
donde z=0 corresponde a la superficie y z=-H al fondo del tanque.
Dado que en esta región z≤0, se cumple ∣z∣=-z, por lo que la expresión se convierte en:
<center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
El gráfico de C_"agua" (z)muestra una recta ascendente desde la superficie hasta el fondo.
Esto refleja directamente el proceso de decantación: los contaminantes más pesados se acumulan abajo.
Al representar, se observa: Colores más claros o intensos cerca del fondo (mayor concentración) y colores más suaves cerca de la superficie.
Es decir, la concentración forma capas horizontales dentro del tanque, coherentes con un proceso de sedimentación estratificada.

{{matlab|codigo= % Concentración de contaminantes en el agua

clear; close all; clc;

% Parámetros del enunciado
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared del tanque (m)

% (a) Representación de la función Cagua(z)
z = linspace(-H, 0, 200);
Cz = C0 * (1 + alpha * abs(z)/H); % abs(z) = z
figure;
plot(z, Cz, 'LineWidth', 2);
xlabel('z (m)');
ylabel('C_{agua}(z) (kg/m^3)');
title('Concentración de contaminantes en el agua');
grid on;

% (b) Mapa de colores en una pared del tanque

% Mallado para pared vertical
nx = 60;
nz = 60;
x = linspace(0, L, nx); % dirección horizontal de la pared
z2 = linspace(0, -H, nz); % z=0 superficie, z=-H fondo
[X, Z] = meshgrid(x, z2);

% Concentración (solo depende de z)
C = C0 * (1 + alpha * abs(Z)/H);

figure;
pcolor(X, Z, C);
shading interp; % suaviza el color
colorbar;
xlabel('x (m)');
ylabel('z (m)');
title('Mapa de colores de la concentración C_{agua}(z)');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Gradiente de concentración de contaminante en el agua:===

El gradiente de un campo escalar indica la dirección en la que la magnitud crece más rápidamente. Para esta situación: <center><math>C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)</math></center>
solo depende de la coordenada vertical z, por lo que el gradiente tendrá únicamente una componente en esa dirección:
<center><math>\nabla C_{\text{agua}} = \left(0, 0, \frac{dC}{dz}\right)</math></center>

Al derivar obtenemos:
<center><math>\frac{dC}{dz} = -\frac{C_0 \alpha}{H}</math></center>
Este valor es constante y negativo, lo que significa:
La concentración aumenta hacia abajo. El gradiente apunta hacia la dirección donde la concentración crece, es decir, hacia el fondo del tanque. Físicamente, esto representa el flujo sedimentario de los contaminantes y la acumulación en zonas profundas.

{{matlab|codigo= %– Gradiente del campo de concentración

clear; close all; clc;

% Parámetros del problema
C0 = 0.3; % kg/m^3
alpha = 3;
H = 22; % m
L = 290; % longitud de la pared

% Gradiente analítico
dCdz = -C0*alpha/H; % constante

% Malla 2D para la pared vertical
nx = 60;
nz = 50;
x = linspace(0, L, nx);
z = linspace(0, -H, nz); % superficie 0 → fondo -H

[X, Z] = meshgrid(x, z);

% Campo de concentración (solo depende de z)
C = C0 * (1 + alpha*abs(Z)/H);

% Componentes del gradiente
U = zeros(size(X)); % dC/dx = 0
V = dCdz * ones(size(X)); % dC/dz = constante

% Representación gráfica
figure;
pcolor(X, Z, C);
shading interp;
colorbar;
hold on;

% Reducir densidad de flechas
skip = 3;

quiver(X(1:skip:end,1:skip:end), ...
Z(1:skip:end,1:skip:end), ...
U(1:skip:end,1:skip:end), ...
V(1:skip:end,1:skip:end), ...
'k', 'AutoScale', 'on');

xlabel('x (m)');
ylabel('z (m)');
title('Gradiente del campo de concentración \n \nabla C_{agua}');
set(gca,'YDir','normal'); % para que 0 esté arriba
}}

===Superficies de isoconcentración en el agua:===

Concentración en función de la profundidad:<center><math>C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad z\in[-H,0]</math></center>
α=3.
Despejando z de la ecuación de concentración:
<center><math>
\begin{aligned}
C_{\text{agua}} &= C_0\left(1 + \alpha \frac{|z|}{H}\right) \\
\frac{C_{\text{agua}}}{C_0} - 1 &= \alpha \frac{|z|}{H} \\
|z| &= \frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right) \\
z &= -\frac{H}{\alpha}\left(\frac{C_{\text{agua}}}{C_0} - 1\right)
\end{aligned}
</math></center>
Eso significa que:
C=0.4 aparecerá cerca de la superficie, C=1.0 aparecerá más cerca del fondo.

{{matlab|codigo= % Ejercicio 13 – Superficies de isoconcentración en el agua del tanque

clear; close all; clc;

% Dimensiones del tanque
L = 290; % longitud (m)
W = 140; % anchura (m)
H = 22; % profundidad (m)

% Parámetros de la concentración
C0 = 0.3; % concentración superficial (kg/m^3)
alpha = 3; % factor de incremento hacia el fondo

% Mallado 3D del tanque
Nx = 40; Ny = 40; Nz = 40;
x = linspace(-L/2, L/2, Nx);
y = linspace(-W/2, W/2, Ny);
z = linspace(-H, 0, Nz); % z va desde el fondo (-H) hasta superficie (0)

[X, Y, Z] = meshgrid(x, y, z);

% Campo de concentración Cagua(z)
Cagua = C0 .* (1 + alpha .* abs(Z) ./ H);

% Valores de isosuperficie
isoVals = [0.4, 0.6, 0.8, 1.0];

% Figura 3D
figure;
hold on;

colors = lines(length(isoVals));

for k = 1:length(isoVals)
p = patch(isosurface(X, Y, Z, Cagua, isoVals(k)));
isonormals(X, Y, Z, Cagua, p);
set(p, 'FaceColor', colors(k,:), 'EdgeColor', 'none', ...
'FaceAlpha', 0.35);
end

% Formato
xlabel('x (m)');
ylabel('y (m)');
zlabel('z (m)');
title('Superficies de isoconcentración en el tanque');
colormap turbo;
colorbar;
grid on;
view(45, 25);
camlight; lighting gouraud;
axis equal;

hold off;
}}

===Masa total de contaminantes en el agua del tanque:===

Para estimar la masa total de contaminantes presentes en el agua del tanque, se divide la superficie horizontal en columnas de 15×15metros. El número aproximado de columnas viene dado por:
<center><math>N \approx \left(\frac{L}{15}\right)\left(\frac{W}{15}\right)</math></center>
Con las dimensiones del tanque L=290m y W=140m:
<center><math>N \approx \frac{290}{15} \cdot \frac{140}{15} \approx 180 \text{ columnas}</math></center>
Cada columna tiene un volumen:
V_"col"=15m×15m×7m=1575m^3
La concentración de contaminante en el nivel del agua z=-7m viene dada por:
<center><math>C(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right)</math></center>

===Caso pasadas 24 horas:===
Después de 24 horas de decantación, el 60% de la masa total de contaminantes se deposita en el fondo formando una capa de lodo de densidad aparente
\(\rho_{\text{lodo}} = 1400\ \text{kg/m}^3\).

La concentración de contaminantes en el agua es

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 + \alpha \frac{|z|}{H}\right),\qquad
C_0 = 0{,}3\ \text{kg/m}^3,\quad \alpha = 3,\quad H = 22\ \text{m}
</math></center>

El tanque tiene dimensiones \(L = 290\ \text{m}\), \(W = 140\ \text{m}\), por lo que su volumen es

 <center><math>
V_{\text{tanque}} = LWH
</math></center>

Recordando que para \(z\in[-H,0]\) se cumple \(|z|=-z\), podemos escribir

 <center><math>
C_{\text{agua}}(z) = C_0\left(1 - \alpha \frac{z}{H}\right)
</math></center>

(a) Masa de contaminantes depositados

La masa total de contaminantes en el agua antes de la decantación es

 <center><math>
M_{\text{tot}} = \iiint C_{\text{agua}}(z)\,dV
= LW \int_{-H}^0 C_0\left(1 - \alpha \frac{z}{H}\right)\,dz
</math></center>

 <center><math>
M_{\text{tot}} = LW C_0 \left[z - \frac{\alpha}{2H}z^2\right]_{-H}^0
= LW C_0 H\left(1 + \frac{\alpha}{2}\right)
</math></center>

El 60% de esta masa se deposita en el fondo:

 <center><math>
M_{\text{dep}} = 0{,}60\,M_{\text{tot}}
</math></center>

(b) Volumen de lodo

El volumen de lodo se obtiene mediante

 <center><math>
V_{\text{lodo}} = \frac{M_{\text{dep}}}{\rho_{\text{lodo}}}
</math></center>

(c) Espesor promedio de la capa de lodo (teniendo en cuenta las columnas)

Aproximamos el número de columnas como

 <center><math>
N_{\text{col}} \approx \frac{L}{15}\,\frac{W}{15}
</math></center>

Cada columna tiene radio \(r_c = 0{,}75\ \text{m}\), de modo que el área ocupada por columnas es

 <center><math>
A_{\text{col}} = N_{\text{col}}\,\pi r_c^2
</math></center>

y el área efectiva del fondo donde se deposita el lodo:

 <center><math>
A_{\text{fondo}} = LW - A_{\text{col}}
</math></center>

El espesor medio tras un evento de lluvia es

 <center><math>
e_1 = \frac{V_{\text{lodo}}}{A_{\text{fondo}}}
</math></center>

(d) Espesor acumulado en un año y frecuencia de limpieza

Si el tanque se utiliza de media 8 veces al año y no se limpia entre eventos:

 <center><math>
e_{\text{año}} = 8\,e_1
</math></center>

El criterio de limpieza es \(e_{\text{año}} > 0{,}30\ \text{m}\). Comparamos ambos valores para decidir si una limpieza anual es suficiente.

{{matlab|codigo=
% EJERCICIO (15): LODO EN EL FONDO DEL TANQUE

% Datos geométricos (SI)
L = 290; % [m] longitud del tanque
W = 140; % [m] anchura del tanque
H = 22; % [m] profundidad del tanque

% Concentración de contaminantes en el agua
C0 = 0.3; % [kg/m^3]
alpha = 3; % [-]

% Datos del lodo
rho_lodo = 1400; % [kg/m^3] densidad aparente del lodo

% Datos de las columnas
rc = 0.75; % [m] radio de cada columna
sep = 15; % [m] separación entre columnas en ambas direcciones

%% (a) Masa total de contaminantes y masa depositada
V_tanque = L*W*H; % [m^3] volumen del tanque
M_tot = V_tanque * C0*(1 + alpha/2); % [kg] masa total de contaminantes
M_dep = 0.60 * M_tot; % [kg] masa depositada (60 %)

%% (b) Volumen de lodo
V_lodo = M_dep / rho_lodo; % [m^3]

%% (c) Espesor promedio por evento (contando columnas)
Ncol = (L/sep)*(W/sep); % número aproximado de columnas
A_cols = Ncol * pi*rc^2; % [m^2] área ocupada por columnas
A_fondo = L*W - A_cols; % [m^2] área libre de fondo

e1 = V_lodo / A_fondo; % [m] espesor por evento

%% (d) Espesor acumulado en un año (8 eventos)
nEventos = 8;
e_anual = nEventos * e1; % [m]
e_limite = 0.30; % [m] umbral de limpieza

% Impresión de resultados numéricos
fprintf('Volumen del tanque: V = %.0f m^3\n', V_tanque);
fprintf('(a) Masa total contamin.: M_tot = %.2e kg\n', M_tot);
fprintf(' Masa depositada (60%%): M_dep = %.2e kg\n', M_dep);
fprintf('(b) Volumen de lodo: V_lodo = %.2f m^3\n', V_lodo);
fprintf('(c) Espesor por evento: e1 = %.4f m (%.2f mm)\n', ...
e1, e1*1000);
fprintf('(d) Espesor anual (8 ev.): e_anual = %.4f m (%.2f cm)\n', ...
e_anual, e_anual*100);

if e_anual > e_limite
fprintf('-> No es suficiente una limpieza anual (se superan 30 cm).\n');
else
fprintf('-> Una limpieza anual es suficiente (no se superan 30 cm).\n');
end
}}

Resultados numéricos:

 <center><math>
V_{\text{tanque}} = 893200\ \text{m}^3
</math></center>

 <center><math>
M_{\text{tot}} = 6{,}70\cdot 10^5\ \text{kg}\;\;(\,M_{\text{tot}} = 669900\ \text{kg}\,)
</math></center>

 <center><math>
M_{\text{dep}} = 4{,}02\cdot 10^5\ \text{kg}\;\;(\,M_{\text{dep}} = 401940\ \text{kg}\,)
</math></center>

 <center><math>
V_{\text{lodo}} = 2{,}87\cdot 10^2\ \text{m}^3\;\;(\,V_{\text{lodo}} = 287{,}1\ \text{m}^3\,)
</math></center>

 <center><math>
e_1 = 7{,}13\cdot 10^{-3}\ \text{m} \;\approx\; 7{,}1\ \text{mm}
</math></center>

 <center><math>
e_{\text{año}} = 5{,}70\cdot 10^{-2}\ \text{m} \;\approx\; 5{,}7\ \text{cm} < 30\ \text{cm}
</math></center>

Por tanto, con estas hipótesis, una limpieza anual del tanque sería suficiente.