MateWiki - Contribuciones del usuario [es]

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-04T17:42:04Z

Ernesto.irazabal: /* Cálculo de la potencia disipada */

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.

<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:

<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:

<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

== Análisis en profundidad de la presión del viento ==

=== Representación del campo escalar P(z) ===

El viento sopla en dirección del vector:
<center><span class="mathjax-wrapper"> v = [math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span></center>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|600px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);

}}
</div>
<br />

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|600px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

Queremos la fuerza total del viento sobre la mitad de la superficie lateral de un cilindro de radio R y altura H, y compararla con la torre hiperbólica, usando la dirección original del viento del enunciado:

<center><math>
\vec w = -\frac{1}{\sqrt2}(\vec i + \vec j),
\qquad
\lVert \vec w\rVert = 1.
</math></center>

Utilizamos el razonamiento del apartado anterior para calcular la fuerza del viento en lo que sería una torre cilindrica.
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

* Parametrizamos la superficie lateral del cilindro:

<center><math>
\vec r(\theta,z)
= \bigl(R\cos\theta,\;R\sin\theta,\;z\bigr),
\quad
0\le z\le H,
\quad
0\le\theta<2\pi.
</math></center>

Calculamos los vectores tangentes:

<center><math>
\vec r_\theta = \frac{\partial\vec r}{\partial\theta}
= \bigl(-R\sin\theta,\;R\cos\theta,\;0\bigr),
\qquad
\vec r_z = \frac{\partial\vec r}{\partial z}
= (0,0,1).
</math></center>

El producto vectorial da el vector normal (no unitario) y el elemento de superficie:

<center><math>
\vec r_\theta\times\vec r_z
= \bigl(R\cos\theta,\;R\sin\theta,\;0\bigr),
\qquad
\bigl\lvert\vec r_\theta\times\vec r_z\bigr\rvert = R,
</math></center>

por tanto

<center><math>
\mathrm dS = R\,\mathrm d\theta\,\mathrm dz,
\qquad
\vec n(\theta) = (\cos\theta,\;\sin\theta,\;0).
</math></center>

La fuerza elemental en la dirección del viento es

<center><math>
\mathrm dF_{\parallel}
= (-P(z)\,\vec n\cdot\vec w)\,\mathrm dS
= P(z)\,\frac{1}{\sqrt2}\bigl(\cos\theta+\sin\theta\bigr)\,R\,\mathrm d\theta\,\mathrm dz.
</math></center>

Integramos sobre la parte expuesta
<center><math>
F_{\parallel}
= \int_{z=0}^H\int_{\theta=-\pi/4}^{3\pi/4}
P(z)\,\frac{1}{\sqrt2}\bigl(\cos\theta+\sin\theta\bigr)\,R\,\mathrm d\theta\,\mathrm dz.
</math></center>

Sacamos las constantes respecto de \theta:

<center><math>
F_{\parallel}
= R\int_0^H P(z)\,\left[
\frac{1}{\sqrt2}
\int_{-\pi/4}^{3\pi/4}\bigl(\cos\theta+\sin\theta\bigr)\,\mathrm d\theta
\right]\mathrm dz.
</math></center>

Calculamos la integral angular:

<center><math>
\int\bigl(\cos\theta+\sin\theta\bigr)\,\mathrm d\theta
= \sin\theta - \cos\theta,
</math></center>

así que

<center><math>
\int_{-\pi/4}^{3\pi/4}\bigl(\cos\theta+\sin\theta\bigr)\,\mathrm d\theta
= \bigl[\sin\theta - \cos\theta\bigr]_{-\pi/4}^{3\pi/4}.
</math></center>

Evaluamos en los extremos:

<center><math>
\sin\bigl(3\pi/4\bigr) = \frac{\sqrt2}{2},
\quad
\cos\bigl(3\pi/4\bigr) = -\frac{\sqrt2}{2}
\;\Rightarrow\;
\sin\bigl(3\pi/4\bigr) - \cos\bigl(3\pi/4\bigr) = \sqrt2,
</math></center>

<center><math>
\sin\bigl(-\pi/4\bigr) = -\frac{\sqrt2}{2},
\quad
\cos\bigl(-\pi/4\bigr) = \frac{\sqrt2}{2}
\;\Rightarrow\;
\sin\bigl(-\pi/4\bigr) - \cos\bigl(-\pi/4\bigr) = -\sqrt2.
</math></center>

Por tanto

<center><math>
\int_{-\pi/4}^{3\pi/4}\bigl(\cos\theta+\sin\theta\bigr)\,\mathrm d\theta
= \sqrt2 - (-\sqrt2) = 2\sqrt2.
</math></center>

Sustituimos en la expresión de F_{\parallel}:

<center><math>
F_{\parallel}
= R\int_0^H P(z)\,
\frac{1}{\sqrt2}\,\bigl(2\sqrt2\bigr)\,\mathrm dz
= 2R\int_0^H P(z)\,\mathrm dz.
</math></center>

Llamamos a esta componente F_{\mathrm{cil}}; es la fuerza debida al viento (en la dirección de \vec w) sobre la mitad de la superficie cilíndrica:

<center><math>
F_{\mathrm{cil}}
= 2R\int_0^H P(z)\,\mathrm dz.
</math></center>

El área de la mitad de la superficie lateral del cilindro (la parte a barlovento) es

<center><math>
S_{\mathrm{cil},1/2}
= \int_0^H\int_{-\pi/4}^{3\pi/4} R\,\mathrm d\theta\,\mathrm dz
= RH\left(\frac{3\pi}{4} - \left(-\frac{\pi}{4}\right)\right)
= \pi R H.
</math></center>

Por tanto, la fuerza media por unidad de superficie sobre la mitad expuesta del cilindro es

<center><math>
\frac{F_{\mathrm{cil}}}{S_{\mathrm{cil},1/2}}
= \frac{2R\displaystyle\int_0^H P(z)\,\mathrm dz}{\pi R H}
= \frac{2}{\pi H}\int_0^H P(z)\,\mathrm dz.
</math></center>

Sustituimos la expresión de P(z). A partir de V(z):

<center><math>
P(z) = \frac12\,\rho\,V_0^2
\left(\frac{z}{z_{\mathrm{ref}}}\right)^{2\alpha}
= C\,z^{2\alpha},
\qquad
C = \frac12\,\rho\,V_0^2\,z_{\mathrm{ref}}^{-2\alpha}.
</math></center>

Entonces

<center><math>
\int_0^H P(z)\,\mathrm dz
= C\int_0^H z^{2\alpha}\,\mathrm dz
= C\,\frac{H^{2\alpha+1}}{2\alpha+1}.
</math></center>

En nuestro caso, con \alpha = \tfrac17, se tiene 2\alpha + 1 = \tfrac{9}{7}, y por tanto

<center><math>
\int_0^H P(z)\,\mathrm dz
= C\,\frac{7}{9}H^{9/7}.
</math></center>

Sustituyendo en la fuerza media por unidad de superficie del cilindro:

<center><math>
\frac{F_{\mathrm{cil}}}{S_{\mathrm{cil},1/2}}
= \frac{2}{\pi H}\,C\,\frac{7}{9}H^{9/7}
= \frac{14}{9\pi}\,C\,H^{2/7}.
</math></center>

Reponemos C:

<center><math>
\frac{F_{\mathrm{cil}}}{S_{\mathrm{cil},1/2}}
= \frac{14}{9\pi}\,\frac12\,\rho\,V_0^2\,z_{\mathrm{ref}}^{-2\alpha}\,H^{2/7}
= \frac{7}{9\pi}\,\rho\,V_0^2\left(\frac{H}{z_{\mathrm{ref}}}\right)^{2/7}.
</math></center>

Esta es la expresión de la fuerza media por unidad de superficie debida al viento sobre la mitad de la superficie lateral del cilindro de radio R_{\max} y altura H, usando la dirección original del viento \vec w.

----------------------------------------------------------------------
TORRE HIPERBÓLICA (SUPERFICIE DE REVOLUCIÓN r(z))
----------------------------------------------------------------------

Consideramos ahora la torre hiperbólica como una superficie de revolución de radio r(z) en torno al eje z, con la misma dirección de viento \vec w. La parametrización es

<center><math>
\vec R(\theta,z)
= \bigl(r(z)\cos\theta,\;r(z)\sin\theta,\;z\bigr).
</math></center>

Los vectores tangentes son

<center><math>
\vec R_\theta
= \bigl(-r(z)\sin\theta,\;r(z)\cos\theta,\;0\bigr),
\qquad
\vec R_z
= \bigl(r'(z)\cos\theta,\;r'(z)\sin\theta,\;1\bigr).
</math></center>

El producto vectorial da el vector normal (no unitario):

<center><math>
\vec R_\theta\times\vec R_z
= \bigl(r(z)\cos\theta,\;r(z)\sin\theta,\;-r(z)\,r'(z)\bigr),
</math></center>

con módulo

<center><math>
\bigl\lVert\vec R_\theta\times\vec R_z\bigr\rVert
= r(z)\sqrt{1+\bigl(r'(z)\bigr)^2},
</math></center>

y elemento de superficie

<center><math>
\mathrm dS
= r(z)\sqrt{1+\bigl(r'(z)\bigr)^2}\,\mathrm d\theta\,\mathrm dz.
</math></center>

La normal exterior unitaria es

<center><math>
\vec n(\theta,z)
= \frac{1}{\sqrt{1+\bigl(r'(z)\bigr)^2}}
\bigl(\cos\theta,\;\sin\theta,\;-r'(z)\bigr).
</math></center>

El producto escalar con la dirección original del viento es

<center><math>
\vec n(\theta,z)\cdot\vec w
= \frac{1}{\sqrt{1+\bigl(r'(z)\bigr)^2}}
(\cos\theta,\sin\theta,0)\cdot\left(-\tfrac1{\sqrt2},-\tfrac1{\sqrt2},0\right)
= -\frac{1}{\sqrt2\,\sqrt{1+\bigl(r'(z)\bigr)^2}}
\bigl(\cos\theta+\sin\theta\bigr).
</math></center>

Luego

<center><math>
-\vec n(\theta,z)\cdot\vec w
= \frac{1}{\sqrt2\,\sqrt{1+\bigl(r'(z)\bigr)^2}}
\bigl(\cos\theta+\sin\theta\bigr).
</math></center>

En la parte a barlovento se tiene, como antes,

<center><math>
\cos\theta + \sin\theta > 0
\quad\Longleftrightarrow\quad
-\frac{\pi}{4} < \theta < \frac{3\pi}{4}.
</math></center>

La fuerza elemental en la dirección del viento es

<center><math>
\mathrm dF_{\parallel}
= (-P(z)\,\vec n\cdot\vec w)\,\mathrm dS
= P(z)\,\frac{1}{\sqrt2\,\sqrt{1+\bigl(r'(z)\bigr)^2}}
\bigl(\cos\theta+\sin\theta\bigr)\,
r(z)\sqrt{1+\bigl(r'(z)\bigr)^2}\,\mathrm d\theta\,\mathrm dz,
</math></center>

y las raíces se simplifican:

<center><math>
\mathrm dF_{\parallel}
= P(z)\,\frac{r(z)}{\sqrt2}\bigl(\cos\theta+\sin\theta\bigr)\,
\mathrm d\theta\,\mathrm dz.
</math></center>

Integramos sobre la parte a barlovento:

<center><math>
F_{\mathrm{hip}}
= \int_{z=0}^H\int_{\theta=-\pi/4}^{3\pi/4}
P(z)\,\frac{r(z)}{\sqrt2}\bigl(\cos\theta+\sin\theta\bigr)\,
\mathrm d\theta\,\mathrm dz.
</math></center>

Sacamos los factores independientes de \theta:

<center><math>
F_{\mathrm{hip}}
= \int_0^H P(z)\,r(z)\,
\left[
\frac{1}{\sqrt2}
\int_{-\pi/4}^{3\pi/4}
\bigl(\cos\theta+\sin\theta\bigr)\,\mathrm d\theta
\right]\mathrm dz.
</math></center>

Ya hemos calculado

<center><math>
\int_{-\pi/4}^{3\pi/4}
\bigl(\cos\theta+\sin\theta\bigr)\,\mathrm d\theta
= 2\sqrt2,
</math></center>

por lo que

<center><math>
F_{\mathrm{hip}}
= \int_0^H P(z)\,r(z)\,
\frac{1}{\sqrt2}\bigl(2\sqrt2\bigr)\,\mathrm dz
= 2\int_0^H P(z)\,r(z)\,\mathrm dz.
</math></center>

Es decir, la fuerza debida al viento (en la dirección original \vec w) sobre la mitad de la superficie de la torre hiperbólica es

<center><math>
F_{\mathrm{hip}}
= 2\int_0^H P(z)\,r(z)\,\mathrm dz.
</math></center>

En el modelo geométrico de la torre hiperbólica se cumple

<center><math>
r(z)\le R_{\max}\quad\text{para todo }z\in[0,H],
</math></center>

y como P(z)\ge 0, se deduce

<center><math>
F_{\mathrm{hip}}
= 2\int_0^H P(z)\,r(z)\,\mathrm dz
\le 2\int_0^H P(z)\,R_{\max}\,\mathrm dz
= F_{\mathrm{cil}},
</math></center>

de modo que la torre hiperbólica está sometida a una fuerza total de viento menor que el cilindro de radio R_{\max} y misma altura H, usando en todo momento la dirección original del viento \vec w = -\tfrac1{\sqrt2}(\vec i + \vec j).

Finalmente, el área de la mitad de una superficie de revolución general r(z) es

<center><math>
S_{1/2}
= \int_0^H\int_{\theta=-\pi/4}^{3\pi/4}
r(z)\sqrt{1+\bigl(r'(z)\bigr)^2}\,\mathrm d\theta\,\mathrm dz
= \pi\int_0^H r(z)\sqrt{1+\bigl(r'(z)\bigr)^2}\,\mathrm dz.
</math></center>

Para el cilindro, r(z)\equiv R_{\max} y r'(z)=0, de modo que

<center><math>
S_{\mathrm{cil},1/2}
= \pi R_{\max} H.
</math></center>

Para la torre hiperbólica, al existir un estrechamiento (r(z) < R_{\max} en gran parte de la altura) se obtiene

<center><math>
S_{\mathrm{hip},1/2}
= \pi\int_0^H r(z)\sqrt{1+\bigl(r'(z)\bigr)^2}\,\mathrm dz
< \pi R_{\max} H
= S_{\mathrm{cil},1/2},
</math></center>

es decir, la torre hiperbólica utiliza menos material lateral y, además, soporta una fuerza total de viento menor que la torre cilíndrica equivalente, todo ello calculado explícitamente con la dirección original del viento dada en el enunciado.

== Flujo de aire y convección ==
=== ¿Cómo acelera el aire al subir? (Sección Vertical) ===

Para entender el comportamiento del aire, primero "cortamos" la torre por la mitad. Nuestro objetivo es visualizar dos fenómenos físicos: el <strong>perfil parabólico</strong> de la velocidad (más rápido en el centro) y la <strong>aceleración vertical</strong> debido al calentamiento.

<div style="display: flex; flex-wrap: wrap; gap: 30px; background-color: #ffffff; padding: 30px; border-radius: 15px; box-shadow: 0 8px 20px rgba(0,0,0,0.08); margin-bottom: 50px;">

<div style="flex: 1; min-width: 400px;">
<div style="font-weight: bold; color: #007acc; margin-bottom: 10px; text-transform: uppercase; font-size: 0.9em;">
</> Script de Modelado
</div>
{{matlab|codigo=
%% Sección vertical de la torre hiperboloidal y campo de velocidad v_z(x,z)
clear; close all; clc;

%% 1. Definimos la geometría de la torre (La "Piel")
H = 150;
Rmax = 55;
Rmin = 30;
z0 = 100;

% Calculamos la curvatura 'c' necesaria para unir los puntos
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% 2. Definimos la física del flujo (El "Aire")
vmax = 4;

% Fórmula de velocidad: Perfil parabólico * Aceleración vertical
vz_fun = @(x,z) vmax .* ( 1 - (abs(x).^2) ./ (rho_torre(z).^2) ) .* (z./H).^(0.6);

%% 3. Creamos la malla y calculamos
Nx = 161; Nz = 161;
x = linspace(-Rmax, Rmax, Nx);
z = linspace(0, H, Nz);
[X,Z] = meshgrid(x, z);

% Filtramos: ¿Qué puntos están DENTRO de la torre?
RHOz = rho_torre(Z);
inside = abs(X) <= RHOz;

Vz = vz_fun(X, Z);
Vz(~inside) = NaN; % Hacemos transparente lo de fuera

%% 4. Representación Gráfica
figure('Color','w');
% Mapa de calor
h = imagesc(x, z, Vz);
set(h, 'AlphaData', ~isnan(Vz));
set(gca,'YDir','normal');
colormap(turbo); colorbar;

hold on;
% Dibujamos las paredes
plot( rho_torre(z), z, 'k-', 'LineWidth', 2);
plot(-rho_torre(z), z, 'k-', 'LineWidth', 2);

% Añadimos flechas vectoriales
step = 8;
quiver(X(1:step:end, 1:step:end), Z(1:step:end, 1:step:end), ...
zeros(size(Vz(1:step:end, 1:step:end))), ...
Vz(1:step:end, 1:step:end), 'k', 'LineWidth', 1);

title('Perfil de Velocidad Vertical');
}}
</div>

<div style="flex: 0 0 400px; display: flex; flex-direction: column; gap: 20px;">

<div style="border: 1px solid #ddd; border-radius: 12px; overflow: hidden; box-shadow: 0 4px 10px rgba(0,0,0,0.05);">
[[Archivo:B1 4.png|400px|centro|Perfil vertical de velocidad]]
</div>

<div style="background-color: #eef6fc; border-left: 6px solid #2196F3; padding: 20px; border-radius: 0 8px 8px 0; color: #444;">
<h4 style="margin-top:0; color:#0d47a1;">🔍 Lo que nos dicen los datos:</h4>
<p style="margin-bottom: 10px;">Esta gráfica revela tres comportamientos clave del fluido:</p>
<ul style="padding-left: 20px; margin: 0;">
<li style="margin-bottom:8px;"><strong>Efecto Capa Límite:</strong> En las paredes (líneas negras), el color es azul oscuro (velocidad 0). El aire se frena por fricción.</li>
<li style="margin-bottom:8px;"><strong>Núcleo Rápido:</strong> En el centro es donde el aire viaja más rápido (colores rojos/naranjas).</li>
<li style="margin-bottom:8px;"><strong>Aceleración:</strong> A medida que subimos (eje vertical), los colores se vuelven más cálidos. El aire <em>gana velocidad</em> conforme asciende.</li>
</ul>
</div>
</div>
</div>

2. La geometría cambiante (Animación de Cortes)

Una imagen estática no hace justicia a la geometría hiperbólica. En esta simulación, recorremos la torre desde el suelo hasta la cima para observar cómo el <strong>estrangulamiento</strong> de la garganta afecta al área de paso del flujo.

<div style="display: flex; flex-wrap: wrap; gap: 30px; background-color: #ffffff; padding: 30px; border-radius: 15px; box-shadow: 0 8px 20px rgba(0,0,0,0.08);">

<div style="flex: 1; min-width: 400px;">
<div style="font-weight: bold; color: #e91e63; margin-bottom: 10px; text-transform: uppercase; font-size: 0.9em;">
</> Script de Animación
</div>
{{matlab|codigo=
%% Animación 3D del campo de velocidad
clear; close all; clc;

%% Configuración inicial
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
vmax = 4;

% Definimos funciones anónimas para geometría y velocidad
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Preparamos el escenario 3D
figure('Color','w');
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,25); grid on; hold on;
xlabel('x'); ylabel('y'); zlabel('z');

% Dibujamos la torre "fantasma" (transparente) para referencia
theta = linspace(0,2*pi,50);
zt = linspace(0,H,50);
[TH,ZT] = meshgrid(theta,zt);
RT = rho_torre(ZT);
surf(RT.*cos(TH), RT.*sin(TH), ZT, 'FaceAlpha',0.1, 'EdgeColor','none', 'FaceColor','k');

%% Bucle de Animación
frames = 50;
z_steps = linspace(0, H, frames);

% Creamos la malla base para el plano móvil
x = linspace(-Rmax,Rmax,80);
[X,Y] = meshgrid(x,x);
RHO = sqrt(X.^2 + Y.^2);

for k = 1:frames
current_z = z_steps(k);
current_R = rho_torre(current_z);

% Calculamos velocidad en este corte
V = vz_fun(RHO, current_z);
V(RHO > current_R) = NaN; % Recortamos forma circular

% Dibujamos el plano
h = surf(X, Y, current_z*ones(size(X)), V, 'EdgeColor','none');
caxis([0 vmax]); colormap(turbo);

title(sprintf('Altura Z = %.1f m', current_z));
drawnow;

% Borramos para el siguiente frame (creando efecto movimiento)
if k < frames
delete(h);
end
end
}}
</div>

<div style="flex: 0 0 400px; display: flex; flex-direction: column; gap: 20px;">

<div style="border: 1px solid #ddd; border-radius: 12px; overflow: hidden; box-shadow: 0 4px 10px rgba(0,0,0,0.05);">
[[Archivo:Torre_resizedMiguelC.gif|400px|centro|Animación de cortes horizontales]]
</div>

<div style="background-color: #fff0f5; border-left: 6px solid #e91e63; padding: 20px; border-radius: 0 8px 8px 0; color: #444;">
<h4 style="margin-top:0; color:#880e4f;">💡 Interpretación del movimiento:</h4>
<p>Esta animación es fundamental para entender el diseño de la torre:</p>
<ol style="padding-left: 20px; margin: 0;">
<li style="margin-bottom:10px;"><strong>La base (Inicio):</strong> El círculo es muy grande (55m de radio) y azul. El aire entra lento y tiene mucho espacio.</li>
<li style="margin-bottom:10px;"><strong>La garganta (Z=100m):</strong> Fíjate cómo el círculo se hace pequeño. El flujo se "estrangula".</li>
<li style="margin-bottom:10px;"><strong>La cima (Final):</strong> El círculo vuelve a crecer, pero ahora es rojo intenso. El aire sale a máxima potencia y temperatura.</li>
</ol>
</div>
</div>
</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
El siguiente script define el vector de alturas, modela la variación del radio <math>R(z)</math> y calcula el caudal acumulado en cada sección

<syntaxhighlight lang="matlab">
% --- Parámetros del modelo ---
Vmax = 10; % Velocidad máxima de diseño (m/s)
H = 150; % Altura total de la torre (m)
R0 = 30; % Radio en la base inferior (m)
Rmax = 55; % Radio en la apertura superior (m)

% --- Definición del dominio ---
% Creamos un vector de 200 puntos para tener resolución suave
z = linspace(0, H, 200);

% --- Geometría: Variación Lineal del Radio ---
% Modelamos el ensanchamiento progresivo de la torre
Rz = R0 + (Rmax - R0) * (z / H);

% --- Física: Cálculo del Caudal Q(z) ---
% Integra el perfil de velocidad sobre el área de sección variable
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% --- Visualización de Resultados ---
figure('Color','w');
plot(z, Q, 'LineWidth', 2, 'Color', '#D95319'); % Línea naranja
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Evolución del Caudal Volumétrico con la Altura');
grid on;

% --- Análisis de máximos ---
[maxQ, idx] = max(Q);
fprintf('El caudal alcanza su máximo de %.2f m^3/s en la cota z = %.2f m\n', maxQ, z(idx));
</syntaxhighlight>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

[[Archivo:Estrechamientovspotencia.png|500px|miniaturadeimagen|derecha|right|Gráfico del efecto del estrechamiento sobre el caudal y la potencia térmica disipada]]

Conclusiones sobre el estrangulamiento:
<br/>
* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-03T14:07:43Z

Ernesto.irazabal: Se ha deshecho la revisión 96293 de Ernesto.irazabal (disc.)

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.
<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:
<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:
<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

<br/>
<br/>

== Análisis en profundidad de la presión del viento ==

=== Representación del campo escalar P(z) ===

El viento sopla en dirección del vector:
<center><span class="mathjax-wrapper">[math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span></center>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>

<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);

}}
</div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

== Analisis del flujo de aire en el interior de la torre ==
=== Representación del campo vectorial de velocidad <span class='mathjax-wrapper'>[math]\vec{v}[/math]</span> ===
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:B1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);
}}</div>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:Torre_resizedMiguelC.gif|500px|miniaturadeimagen|derecha|Animación mostrando el mapa de velocidades en distintas secciones horizontales a distintas alturas]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Animación 3D del campo de velocidad en planos horizontales con la torre
clear; close all; clc;

%% Parámetros geométricos
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% Campo de velocidad
vmax = 4;
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Mallado XY para planos
Nx = 101; Ny = 101;
x = linspace(-Rmax,Rmax,Nx);
y = linspace(-Rmax,Rmax,Ny);
[X,Y] = meshgrid(x,y);
RHO = sqrt(X.^2 + Y.^2);

%% Mallado para la torre (hiperboloide)
theta = linspace(0,2*pi,100);
z_vals_torre = linspace(0,H,100);
[Theta,Zt] = meshgrid(theta,z_vals_torre);
Rt = rho_torre(Zt);
Xt = Rt .* cos(Theta);
Yt = Rt .* sin(Theta);

clf
%% Configuración de animación
% figure('Color','w')
% Establecer el color de fondo de la figura a blanco
set(gca, 'Color', 'w');
axis equal tight;
colormap(turbo);
axis([-Rmax Rmax -Rmax Rmax 0 H]);
xlabel('x (m)'); ylabel('y (m)'); zlabel('z (m)');
title('Animación 3D del campo de velocidad en planos horizontales');
view(45,25); % Vista con acimut 45° y cenit 25°
hold on

% Dibujar la torre como superficie transparente
surf(Xt,Yt,Zt,'FaceAlpha',0.1,'EdgeColor','none','FaceColor',[0.7 0.7 0.7]);

frames = 50;
z_vals = linspace(0,H,frames);
F(frames) = struct('cdata',[],'colormap',[]);

t=0;
while t<= frames
for k = 1:frames
t=k;
zc = z_vals(k);
Rz = rho_torre(zc);

% Campo de velocidad en este plano
Vz_plane = vz_fun(RHO,zc);
Vz_plane(RHO > Rz) = NaN; % fuera de la torre

% Dibujar plano horizontal en z = zc
h = surf(X,Y,zc*ones(size(X)),Vz_plane,'EdgeColor','none');

% Ajustes visuales
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,30);
colorbar; caxis([0 vmax]);

title(sprintf('Plano horizontal a z = %.1f m',zc));
drawnow;

% Capturar frame
F(k) = getframe(gcf);

% Eliminar el plano anterior para el siguiente frame
delete(h);
end

break
end

}}</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% Parámetros
Vmax = 10; % Velocidad máxima (m/s)
H = 150; % Altura total (m)
R0 = 30; % Radio mínimo en la base (m)
Rmax = 55; % Radio máximo en la parte superior (m)

% Vector de alturas
z = linspace(0, H, 200);

% Función del radio en función de z (lineal)
Rz = R0 + (Rmax - R0) * (z / H);

% Cálculo del caudal Q(z)
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% Gráfica
figure;
plot(z, Q, 'LineWidth', 2);
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Caudal volumétrico en función de la altura');
grid on;

% Mostrar el valor máximo y su posición
[maxQ, idx] = max(Q);
fprintf('Caudal máximo: %.2f m^3/s en z = %.2f m\n', maxQ, z(idx));

}}</div>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

Conclusiones sobre el estrangulamiento

* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-03T13:55:36Z

Ernesto.irazabal: /* Representación del campo escalar P(z) */

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.
<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:
<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:
<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

<br/>
<br/>

== Análisis en profundidad de la presión del viento ==

=== Representación del campo escalar P(z) ===

El viento sopla en dirección del vector:
<center><span class="mathjax-wrapper">[math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span></center>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>

<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Sección vertical de la torre hiperboloidal y campo de velocidad v_z(x,z)
clear; close all; clc;

%% Parámetros geométricos de la torre
H = 150; % altura total (m)
Rmax = 55; % radio en la base (m)
Rmin = 30; % radio mínimo (estrangulamiento) (m)
z0 = 100; % altura del estrangulamiento (m)

% Parámetro c del hiperboloide calculado a partir de la condición de la base:
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );

% Función radio de la torre a la altura z (sección vertical)
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 ); % a = Rmin

%% Parámetros del campo de velocidad
vmax = 4; % m/s, velocidad máxima en el eje central en el tope

% v_z(x,z) = vmax * (1 - rho^2 / rho_torre(z)^2) * (z/H)^0.6, con rho = |x|
vz_fun = @(x,z) vmax .* ( 1 - (abs(x).^2) ./ (rho_torre(z).^2) ) .* (z./H).^(0.6);

%% Mallado del plano x-z (sección que contiene el eje)
Nx = 161; Nz = 161;
x = linspace(-Rmax, Rmax, Nx);
z = linspace(0, H, Nz);
[X,Z] = meshgrid(x, z);

% Máscara: puntos dentro de la torre (|x| <= rho_torre(z))
RHOz = rho_torre(Z);
inside = abs(X) <= RHOz;

%% Campo de velocidad vertical
Vz = vz_fun(X, Z);
Vz(~inside) = NaN; % fuera de la torre, NaN para transparencia

% Componente horizontal (cero) para quiver
Ux = zeros(size(Vz));
Ux(~inside) = NaN;

%% Figura: mapa de color + contorno + flechas con fondo blanco
figure('Color','w');
h = imagesc(x, z, Vz);
set(h, 'AlphaData', ~isnan(Vz)); % Transparencia fuera de la torre
set(gca,'YDir','normal','Color','w'); % Fondo blanco en el área fuera de datos
axis equal tight;
colormap(turbo);
cb = colorbar;
cb.Label.String = 'v_z (m/s)';

hold on;
% Contorno de la sección de la torre
plot( rho_torre(z), z, 'k-', 'LineWidth', 2);
plot(-rho_torre(z), z, 'k-', 'LineWidth', 2);

% Flechas del campo (muestreo para no saturar)
stepX = 6; stepZ = 6;
Xq = X(1:stepZ:end, 1:stepX:end);
Zq = Z(1:stepZ:end, 1:stepX:end);
Uq = Ux(1:stepZ:end, 1:stepX:end);
Vq = Vz(1:stepZ:end, 1:stepX:end);

quiver(Xq, Zq, Uq, Vq, 'k', 'LineWidth', 1, 'AutoScale', 'on', 'AutoScaleFactor', 0.8);

xlabel('x (m)');
ylabel('z (m)');
title('Sección vertical (x-z) y campo de velocidad v_z dentro de la torre');
grid on;
}
</div>

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

== Analisis del flujo de aire en el interior de la torre ==
=== Representación del campo vectorial de velocidad <span class='mathjax-wrapper'>[math]\vec{v}[/math]</span> ===
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:B1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);
}}</div>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:Torre_resizedMiguelC.gif|500px|miniaturadeimagen|derecha|Animación mostrando el mapa de velocidades en distintas secciones horizontales a distintas alturas]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Animación 3D del campo de velocidad en planos horizontales con la torre
clear; close all; clc;

%% Parámetros geométricos
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% Campo de velocidad
vmax = 4;
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Mallado XY para planos
Nx = 101; Ny = 101;
x = linspace(-Rmax,Rmax,Nx);
y = linspace(-Rmax,Rmax,Ny);
[X,Y] = meshgrid(x,y);
RHO = sqrt(X.^2 + Y.^2);

%% Mallado para la torre (hiperboloide)
theta = linspace(0,2*pi,100);
z_vals_torre = linspace(0,H,100);
[Theta,Zt] = meshgrid(theta,z_vals_torre);
Rt = rho_torre(Zt);
Xt = Rt .* cos(Theta);
Yt = Rt .* sin(Theta);

clf
%% Configuración de animación
% figure('Color','w')
% Establecer el color de fondo de la figura a blanco
set(gca, 'Color', 'w');
axis equal tight;
colormap(turbo);
axis([-Rmax Rmax -Rmax Rmax 0 H]);
xlabel('x (m)'); ylabel('y (m)'); zlabel('z (m)');
title('Animación 3D del campo de velocidad en planos horizontales');
view(45,25); % Vista con acimut 45° y cenit 25°
hold on

% Dibujar la torre como superficie transparente
surf(Xt,Yt,Zt,'FaceAlpha',0.1,'EdgeColor','none','FaceColor',[0.7 0.7 0.7]);

frames = 50;
z_vals = linspace(0,H,frames);
F(frames) = struct('cdata',[],'colormap',[]);

t=0;
while t<= frames
for k = 1:frames
t=k;
zc = z_vals(k);
Rz = rho_torre(zc);

% Campo de velocidad en este plano
Vz_plane = vz_fun(RHO,zc);
Vz_plane(RHO > Rz) = NaN; % fuera de la torre

% Dibujar plano horizontal en z = zc
h = surf(X,Y,zc*ones(size(X)),Vz_plane,'EdgeColor','none');

% Ajustes visuales
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,30);
colorbar; caxis([0 vmax]);

title(sprintf('Plano horizontal a z = %.1f m',zc));
drawnow;

% Capturar frame
F(k) = getframe(gcf);

% Eliminar el plano anterior para el siguiente frame
delete(h);
end

break
end

}}</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% Parámetros
Vmax = 10; % Velocidad máxima (m/s)
H = 150; % Altura total (m)
R0 = 30; % Radio mínimo en la base (m)
Rmax = 55; % Radio máximo en la parte superior (m)

% Vector de alturas
z = linspace(0, H, 200);

% Función del radio en función de z (lineal)
Rz = R0 + (Rmax - R0) * (z / H);

% Cálculo del caudal Q(z)
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% Gráfica
figure;
plot(z, Q, 'LineWidth', 2);
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Caudal volumétrico en función de la altura');
grid on;

% Mostrar el valor máximo y su posición
[maxQ, idx] = max(Q);
fprintf('Caudal máximo: %.2f m^3/s en z = %.2f m\n', maxQ, z(idx));

}}</div>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

Conclusiones sobre el estrangulamiento

* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-03T13:54:49Z

Ernesto.irazabal: /* Análisis en profundidad de la presión del viento */

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.
<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:
<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:
<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

<br/>
<br/>

== Análisis en profundidad de la presión del viento ==

=== Representación del campo escalar P(z) ===

El viento sopla en dirección del vector:
<center><span class="mathjax-wrapper">[math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span></center>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>

<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Sección vertical de la torre hiperboloidal y campo de velocidad v_z(x,z)
clear; close all; clc;

%% Parámetros geométricos de la torre
H = 150; % altura total (m)
Rmax = 55; % radio en la base (m)
Rmin = 30; % radio mínimo (estrangulamiento) (m)
z0 = 100; % altura del estrangulamiento (m)

% Parámetro c del hiperboloide calculado a partir de la condición de la base:
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );

% Función radio de la torre a la altura z (sección vertical)
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 ); % a = Rmin

%% Parámetros del campo de velocidad
vmax = 4; % m/s, velocidad máxima en el eje central en el tope

% v_z(x,z) = vmax * (1 - rho^2 / rho_torre(z)^2) * (z/H)^0.6, con rho = |x|
vz_fun = @(x,z) vmax .* ( 1 - (abs(x).^2) ./ (rho_torre(z).^2) ) .* (z./H).^(0.6);

%% Mallado del plano x-z (sección que contiene el eje)
Nx = 161; Nz = 161;
x = linspace(-Rmax, Rmax, Nx);
z = linspace(0, H, Nz);
[X,Z] = meshgrid(x, z);

% Máscara: puntos dentro de la torre (|x| <= rho_torre(z))
RHOz = rho_torre(Z);
inside = abs(X) <= RHOz;

%% Campo de velocidad vertical
Vz = vz_fun(X, Z);
Vz(~inside) = NaN; % fuera de la torre, NaN para transparencia

% Componente horizontal (cero) para quiver
Ux = zeros(size(Vz));
Ux(~inside) = NaN;

%% Figura: mapa de color + contorno + flechas con fondo blanco
figure('Color','w');
h = imagesc(x, z, Vz);
set(h, 'AlphaData', ~isnan(Vz)); % Transparencia fuera de la torre
set(gca,'YDir','normal','Color','w'); % Fondo blanco en el área fuera de datos
axis equal tight;
colormap(turbo);
cb = colorbar;
cb.Label.String = 'v_z (m/s)';

hold on;
% Contorno de la sección de la torre
plot( rho_torre(z), z, 'k-', 'LineWidth', 2);
plot(-rho_torre(z), z, 'k-', 'LineWidth', 2);

% Flechas del campo (muestreo para no saturar)
stepX = 6; stepZ = 6;
Xq = X(1:stepZ:end, 1:stepX:end);
Zq = Z(1:stepZ:end, 1:stepX:end);
Uq = Ux(1:stepZ:end, 1:stepX:end);
Vq = Vz(1:stepZ:end, 1:stepX:end);

quiver(Xq, Zq, Uq, Vq, 'k', 'LineWidth', 1, 'AutoScale', 'on', 'AutoScaleFactor', 0.8);

xlabel('x (m)');
ylabel('z (m)');
title('Sección vertical (x-z) y campo de velocidad v_z dentro de la torre');
grid on;

</div>

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

== Analisis del flujo de aire en el interior de la torre ==
=== Representación del campo vectorial de velocidad <span class='mathjax-wrapper'>[math]\vec{v}[/math]</span> ===
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:B1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);
}}</div>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:Torre_resizedMiguelC.gif|500px|miniaturadeimagen|derecha|Animación mostrando el mapa de velocidades en distintas secciones horizontales a distintas alturas]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Animación 3D del campo de velocidad en planos horizontales con la torre
clear; close all; clc;

%% Parámetros geométricos
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% Campo de velocidad
vmax = 4;
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Mallado XY para planos
Nx = 101; Ny = 101;
x = linspace(-Rmax,Rmax,Nx);
y = linspace(-Rmax,Rmax,Ny);
[X,Y] = meshgrid(x,y);
RHO = sqrt(X.^2 + Y.^2);

%% Mallado para la torre (hiperboloide)
theta = linspace(0,2*pi,100);
z_vals_torre = linspace(0,H,100);
[Theta,Zt] = meshgrid(theta,z_vals_torre);
Rt = rho_torre(Zt);
Xt = Rt .* cos(Theta);
Yt = Rt .* sin(Theta);

clf
%% Configuración de animación
% figure('Color','w')
% Establecer el color de fondo de la figura a blanco
set(gca, 'Color', 'w');
axis equal tight;
colormap(turbo);
axis([-Rmax Rmax -Rmax Rmax 0 H]);
xlabel('x (m)'); ylabel('y (m)'); zlabel('z (m)');
title('Animación 3D del campo de velocidad en planos horizontales');
view(45,25); % Vista con acimut 45° y cenit 25°
hold on

% Dibujar la torre como superficie transparente
surf(Xt,Yt,Zt,'FaceAlpha',0.1,'EdgeColor','none','FaceColor',[0.7 0.7 0.7]);

frames = 50;
z_vals = linspace(0,H,frames);
F(frames) = struct('cdata',[],'colormap',[]);

t=0;
while t<= frames
for k = 1:frames
t=k;
zc = z_vals(k);
Rz = rho_torre(zc);

% Campo de velocidad en este plano
Vz_plane = vz_fun(RHO,zc);
Vz_plane(RHO > Rz) = NaN; % fuera de la torre

% Dibujar plano horizontal en z = zc
h = surf(X,Y,zc*ones(size(X)),Vz_plane,'EdgeColor','none');

% Ajustes visuales
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,30);
colorbar; caxis([0 vmax]);

title(sprintf('Plano horizontal a z = %.1f m',zc));
drawnow;

% Capturar frame
F(k) = getframe(gcf);

% Eliminar el plano anterior para el siguiente frame
delete(h);
end

break
end

}}</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% Parámetros
Vmax = 10; % Velocidad máxima (m/s)
H = 150; % Altura total (m)
R0 = 30; % Radio mínimo en la base (m)
Rmax = 55; % Radio máximo en la parte superior (m)

% Vector de alturas
z = linspace(0, H, 200);

% Función del radio en función de z (lineal)
Rz = R0 + (Rmax - R0) * (z / H);

% Cálculo del caudal Q(z)
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% Gráfica
figure;
plot(z, Q, 'LineWidth', 2);
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Caudal volumétrico en función de la altura');
grid on;

% Mostrar el valor máximo y su posición
[maxQ, idx] = max(Q);
fprintf('Caudal máximo: %.2f m^3/s en z = %.2f m\n', maxQ, z(idx));

}}</div>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

Conclusiones sobre el estrangulamiento

* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-03T13:53:48Z

Ernesto.irazabal: /* Análisis en profundidad de la presión del viento */

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.
<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:
<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:
<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

<br/>
<br/>

== Análisis en profundidad de la presión del viento ==

=== Representación del campo escalar P(z) ===

El viento sopla en dirección del vector:
<center><span class="mathjax-wrapper">[math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span></center>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>

<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Sección vertical de la torre hiperboloidal y campo de velocidad v_z(x,z)
clear; close all; clc;

%% Parámetros geométricos de la torre
H = 150; % altura total (m)
Rmax = 55; % radio en la base (m)
Rmin = 30; % radio mínimo (estrangulamiento) (m)
z0 = 100; % altura del estrangulamiento (m)

% Parámetro c del hiperboloide calculado a partir de la condición de la base:
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );

% Función radio de la torre a la altura z (sección vertical)
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 ); % a = Rmin

%% Parámetros del campo de velocidad
vmax = 4; % m/s, velocidad máxima en el eje central en el tope

% v_z(x,z) = vmax * (1 - rho^2 / rho_torre(z)^2) * (z/H)^0.6, con rho = |x|
vz_fun = @(x,z) vmax .* ( 1 - (abs(x).^2) ./ (rho_torre(z).^2) ) .* (z./H).^(0.6);

%% Mallado del plano x-z (sección que contiene el eje)
Nx = 161; Nz = 161;
x = linspace(-Rmax, Rmax, Nx);
z = linspace(0, H, Nz);
[X,Z] = meshgrid(x, z);

% Máscara: puntos dentro de la torre (|x| <= rho_torre(z))
RHOz = rho_torre(Z);
inside = abs(X) <= RHOz;

%% Campo de velocidad vertical
Vz = vz_fun(X, Z);
Vz(~inside) = NaN; % fuera de la torre, NaN para transparencia

% Componente horizontal (cero) para quiver
Ux = zeros(size(Vz));
Ux(~inside) = NaN;

%% Figura: mapa de color + contorno + flechas con fondo blanco
figure('Color','w');
h = imagesc(x, z, Vz);
set(h, 'AlphaData', ~isnan(Vz)); % Transparencia fuera de la torre
set(gca,'YDir','normal','Color','w'); % Fondo blanco en el área fuera de datos
axis equal tight;
colormap(turbo);
cb = colorbar;
cb.Label.String = 'v_z (m/s)';

hold on;
% Contorno de la sección de la torre
plot( rho_torre(z), z, 'k-', 'LineWidth', 2);
plot(-rho_torre(z), z, 'k-', 'LineWidth', 2);

% Flechas del campo (muestreo para no saturar)
stepX = 6; stepZ = 6;
Xq = X(1:stepZ:end, 1:stepX:end);
Zq = Z(1:stepZ:end, 1:stepX:end);
Uq = Ux(1:stepZ:end, 1:stepX:end);
Vq = Vz(1:stepZ:end, 1:stepX:end);

quiver(Xq, Zq, Uq, Vq, 'k', 'LineWidth', 1, 'AutoScale', 'on', 'AutoScaleFactor', 0.8);

xlabel('x (m)');
ylabel('z (m)');
title('Sección vertical (x-z) y campo de velocidad v_z dentro de la torre');
grid on;

}}
</div>
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

== Analisis del flujo de aire en el interior de la torre ==
=== Representación del campo vectorial de velocidad <span class='mathjax-wrapper'>[math]\vec{v}[/math]</span> ===
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:B1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);
}}</div>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:Torre_resizedMiguelC.gif|500px|miniaturadeimagen|derecha|Animación mostrando el mapa de velocidades en distintas secciones horizontales a distintas alturas]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Animación 3D del campo de velocidad en planos horizontales con la torre
clear; close all; clc;

%% Parámetros geométricos
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% Campo de velocidad
vmax = 4;
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Mallado XY para planos
Nx = 101; Ny = 101;
x = linspace(-Rmax,Rmax,Nx);
y = linspace(-Rmax,Rmax,Ny);
[X,Y] = meshgrid(x,y);
RHO = sqrt(X.^2 + Y.^2);

%% Mallado para la torre (hiperboloide)
theta = linspace(0,2*pi,100);
z_vals_torre = linspace(0,H,100);
[Theta,Zt] = meshgrid(theta,z_vals_torre);
Rt = rho_torre(Zt);
Xt = Rt .* cos(Theta);
Yt = Rt .* sin(Theta);

clf
%% Configuración de animación
% figure('Color','w')
% Establecer el color de fondo de la figura a blanco
set(gca, 'Color', 'w');
axis equal tight;
colormap(turbo);
axis([-Rmax Rmax -Rmax Rmax 0 H]);
xlabel('x (m)'); ylabel('y (m)'); zlabel('z (m)');
title('Animación 3D del campo de velocidad en planos horizontales');
view(45,25); % Vista con acimut 45° y cenit 25°
hold on

% Dibujar la torre como superficie transparente
surf(Xt,Yt,Zt,'FaceAlpha',0.1,'EdgeColor','none','FaceColor',[0.7 0.7 0.7]);

frames = 50;
z_vals = linspace(0,H,frames);
F(frames) = struct('cdata',[],'colormap',[]);

t=0;
while t<= frames
for k = 1:frames
t=k;
zc = z_vals(k);
Rz = rho_torre(zc);

% Campo de velocidad en este plano
Vz_plane = vz_fun(RHO,zc);
Vz_plane(RHO > Rz) = NaN; % fuera de la torre

% Dibujar plano horizontal en z = zc
h = surf(X,Y,zc*ones(size(X)),Vz_plane,'EdgeColor','none');

% Ajustes visuales
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,30);
colorbar; caxis([0 vmax]);

title(sprintf('Plano horizontal a z = %.1f m',zc));
drawnow;

% Capturar frame
F(k) = getframe(gcf);

% Eliminar el plano anterior para el siguiente frame
delete(h);
end

break
end

}}</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% Parámetros
Vmax = 10; % Velocidad máxima (m/s)
H = 150; % Altura total (m)
R0 = 30; % Radio mínimo en la base (m)
Rmax = 55; % Radio máximo en la parte superior (m)

% Vector de alturas
z = linspace(0, H, 200);

% Función del radio en función de z (lineal)
Rz = R0 + (Rmax - R0) * (z / H);

% Cálculo del caudal Q(z)
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% Gráfica
figure;
plot(z, Q, 'LineWidth', 2);
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Caudal volumétrico en función de la altura');
grid on;

% Mostrar el valor máximo y su posición
[maxQ, idx] = max(Q);
fprintf('Caudal máximo: %.2f m^3/s en z = %.2f m\n', maxQ, z(idx));

}}</div>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

Conclusiones sobre el estrangulamiento

* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-03T13:51:14Z

Ernesto.irazabal: /* Representación del campo escalar P(z) */

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.
<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:
<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:
<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

<br/>
<br/>

== Análisis en profundidad de la presión del viento ==

=== Representación del campo escalar P(z) ===

El viento sopla en dirección del vector:
<center><span class="mathjax-wrapper">[math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span></center>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>

<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Sección vertical de la torre hiperboloidal y campo de velocidad v_z(x,z)
clear; close all; clc;

%% Parámetros geométricos de la torre
H = 150; % altura total (m)
Rmax = 55; % radio en la base (m)
Rmin = 30; % radio mínimo (estrangulamiento) (m)
z0 = 100; % altura del estrangulamiento (m)

% Parámetro c del hiperboloide calculado a partir de la condición de la base:
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );

% Función radio de la torre a la altura z (sección vertical)
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 ); % a = Rmin

%% Parámetros del campo de velocidad
vmax = 4; % m/s, velocidad máxima en el eje central en el tope

% v_z(x,z) = vmax * (1 - rho^2 / rho_torre(z)^2) * (z/H)^0.6, con rho = |x|
vz_fun = @(x,z) vmax .* ( 1 - (abs(x).^2) ./ (rho_torre(z).^2) ) .* (z./H).^(0.6);

%% Mallado del plano x-z (sección que contiene el eje)
Nx = 161; Nz = 161;
x = linspace(-Rmax, Rmax, Nx);
z = linspace(0, H, Nz);
[X,Z] = meshgrid(x, z);

% Máscara: puntos dentro de la torre (|x| <= rho_torre(z))
RHOz = rho_torre(Z);
inside = abs(X) <= RHOz;

%% Campo de velocidad vertical
Vz = vz_fun(X, Z);
Vz(~inside) = NaN; % fuera de la torre, NaN para transparencia

% Componente horizontal (cero) para quiver
Ux = zeros(size(Vz));
Ux(~inside) = NaN;

%% Figura: mapa de color + contorno + flechas con fondo blanco
figure('Color','w');
h = imagesc(x, z, Vz);
set(h, 'AlphaData', ~isnan(Vz)); % Transparencia fuera de la torre
set(gca,'YDir','normal','Color','w'); % Fondo blanco en el área fuera de datos
axis equal tight;
colormap(turbo);
cb = colorbar;
cb.Label.String = 'v_z (m/s)';

hold on;
% Contorno de la sección de la torre
plot( rho_torre(z), z, 'k-', 'LineWidth', 2);
plot(-rho_torre(z), z, 'k-', 'LineWidth', 2);

% Flechas del campo (muestreo para no saturar)
stepX = 6; stepZ = 6;
Xq = X(1:stepZ:end, 1:stepX:end);
Zq = Z(1:stepZ:end, 1:stepX:end);
Uq = Ux(1:stepZ:end, 1:stepX:end);
Vq = Vz(1:stepZ:end, 1:stepX:end);

quiver(Xq, Zq, Uq, Vq, 'k', 'LineWidth', 1, 'AutoScale', 'on', 'AutoScaleFactor', 0.8);

xlabel('x (m)');
ylabel('z (m)');
title('Sección vertical (x-z) y campo de velocidad v_z dentro de la torre');
grid on;

}}
</div>

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

== Analisis del flujo de aire en el interior de la torre ==
=== Representación del campo vectorial de velocidad <span class='mathjax-wrapper'>[math]\vec{v}[/math]</span> ===
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:B1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);
}}</div>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:Torre_resizedMiguelC.gif|500px|miniaturadeimagen|derecha|Animación mostrando el mapa de velocidades en distintas secciones horizontales a distintas alturas]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Animación 3D del campo de velocidad en planos horizontales con la torre
clear; close all; clc;

%% Parámetros geométricos
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% Campo de velocidad
vmax = 4;
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Mallado XY para planos
Nx = 101; Ny = 101;
x = linspace(-Rmax,Rmax,Nx);
y = linspace(-Rmax,Rmax,Ny);
[X,Y] = meshgrid(x,y);
RHO = sqrt(X.^2 + Y.^2);

%% Mallado para la torre (hiperboloide)
theta = linspace(0,2*pi,100);
z_vals_torre = linspace(0,H,100);
[Theta,Zt] = meshgrid(theta,z_vals_torre);
Rt = rho_torre(Zt);
Xt = Rt .* cos(Theta);
Yt = Rt .* sin(Theta);

clf
%% Configuración de animación
% figure('Color','w')
% Establecer el color de fondo de la figura a blanco
set(gca, 'Color', 'w');
axis equal tight;
colormap(turbo);
axis([-Rmax Rmax -Rmax Rmax 0 H]);
xlabel('x (m)'); ylabel('y (m)'); zlabel('z (m)');
title('Animación 3D del campo de velocidad en planos horizontales');
view(45,25); % Vista con acimut 45° y cenit 25°
hold on

% Dibujar la torre como superficie transparente
surf(Xt,Yt,Zt,'FaceAlpha',0.1,'EdgeColor','none','FaceColor',[0.7 0.7 0.7]);

frames = 50;
z_vals = linspace(0,H,frames);
F(frames) = struct('cdata',[],'colormap',[]);

t=0;
while t<= frames
for k = 1:frames
t=k;
zc = z_vals(k);
Rz = rho_torre(zc);

% Campo de velocidad en este plano
Vz_plane = vz_fun(RHO,zc);
Vz_plane(RHO > Rz) = NaN; % fuera de la torre

% Dibujar plano horizontal en z = zc
h = surf(X,Y,zc*ones(size(X)),Vz_plane,'EdgeColor','none');

% Ajustes visuales
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,30);
colorbar; caxis([0 vmax]);

title(sprintf('Plano horizontal a z = %.1f m',zc));
drawnow;

% Capturar frame
F(k) = getframe(gcf);

% Eliminar el plano anterior para el siguiente frame
delete(h);
end

break
end

}}</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% Parámetros
Vmax = 10; % Velocidad máxima (m/s)
H = 150; % Altura total (m)
R0 = 30; % Radio mínimo en la base (m)
Rmax = 55; % Radio máximo en la parte superior (m)

% Vector de alturas
z = linspace(0, H, 200);

% Función del radio en función de z (lineal)
Rz = R0 + (Rmax - R0) * (z / H);

% Cálculo del caudal Q(z)
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% Gráfica
figure;
plot(z, Q, 'LineWidth', 2);
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Caudal volumétrico en función de la altura');
grid on;

% Mostrar el valor máximo y su posición
[maxQ, idx] = max(Q);
fprintf('Caudal máximo: %.2f m^3/s en z = %.2f m\n', maxQ, z(idx));

}}</div>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

Conclusiones sobre el estrangulamiento

* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-03T13:39:43Z

Ernesto.irazabal: /* Representación del campo escalar P(z) */

{{ TrabajoED | Torres de Enfriamiento Hiperbolicas Grupo 15| [[:Categoría:Teoría de Campos|Teoría de Campos]]| [[:Categoría:TC25/26|2025-26]] | Miguel Cervigón, Ernesto Irazabal, Alejandro Barranquero, Guillermo Monreal}}

[[Categoría:TC25/26]]

== Introducción a las torres de enfriamiento hiperbólicas ==
[[Archivo:OIP.png|miniaturadeimagen|derecha|Central Nuclear de Temelín, en la República Checa]]
Las torres de enfriamiento constituyen un elemento distintivo en el ámbito energético global, teniendo como principal objetivo la disipación de calor producido por centrales termoeléctricas y nucleares. La forma hiperbólica hace que la refrigeración se produzca mediante un tiro natural, aspirando el aire frio y expulsando el calor, sin necesidad de ventiladores, su geometría ofrece ademas una gran resistencia al viento.
<br/>
El diseño hiperbólico para torres de enfriamiento se introdujo en la década de 1950, cuando la industria energética buscaba soluciones más eficientes para la refrigeración en centrales térmicas y nucleares. Antes de esto, se utilizaban estructuras cilíndricas, que requerían grandes cantidades de material y ofrecían menor estabilidad frente al viento. Desde entonces, este diseño se convirtió en el estándar mundial, consolidándose como símbolo de la ingeniería moderna en el sector energético.

== Modelo geométrico del hiperboloide ==
<br/>Una torre de enfriamiento hiperbólica, se caracteriza por su altura máxima [math]H[/math], su radio
minimo [math]Rmin[/math], y su radio máximo [math]Rmax[/math] alcanzado en la base de la torre. La superficie de la torre sigue la forma de un hiperboloide hiperbólico con centro a la altura <span class='mathjax-wrapper'>[math]\dfrac{\scriptsize 2}{\scriptsize 3}H[/math]</span> , y se modela con la ecuación de un hiperboloide de revolución de una hoja:
<center><span class='mathjax-wrapper'>[math]\dfrac{x^2 + y^2}{a^2} - \dfrac{(z - z_0)^2}{c^2} = 1[/math]</span></center>
<p>Donde
</p>
<center><span class='mathjax-wrapper'>[math]Rmax=55m,\qquad Rmin=30m,\qquad H=150m[/math]</span></center>
y
<center><span class='mathjax-wrapper'>[math] a=Rmin,\qquad c= Parámetro \ de \ curvatura,\qquad z_0= Centro \ del \ hiperboloide[/math]</span></center>
=== Ecuación del hiperboloide y parámetros ===
Para poder definir el hiperboloide es imprescindible hallar los parámetros <b>a, c y z<sub>0</sub></b>, para ello nos apoyaremos en el cambio de coordenadas cilíndricas:
<center><span class='mathjax-wrapper'>[math]\begin{cases} x = \rho \cos\theta \\ y = \rho \sin\theta \\ z = z \end{cases}[/math]</span></center>
La ecuación de un hiperboloide en coordenadas cartesianas es:

<center><span class="mathjax-wrapper">[math]\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Sabiendo que en coordenadas cilíndricas <b>x<sup>2</sup> + y<sup>2</sup> = ρ<sup>2</sup></b>, la ecuación se reescribira de la siguiente manera:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

*Se conocen los siguientes datos:
Centro en z<sub>0</sub> = 100 m, altura total H = 150 m, radio mínimo ρ<sub>min</sub> = 30 m, radio máximo ρ<sub>max</sub> = 55 m.
<br />

* Empezaremos calculando el paremetro <b>a</b>:

Sabemos que en el plano <b>z = z<sub>0</sub></b>, el segundo término de la ecuación:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

se anula porque <b>(z - z<sub>0</sub>)</b> = 0, lo que implica que estamos en la sección más estrecha del hiperboloide.
Por tanto, la ecuación se simplifica a:

<center><span class="mathjax-wrapper">[math]\frac{\rho^2}{a^2} = 1[/math]</span></center>
Sustituimos ρ = 30 m:

<center><span class="mathjax-wrapper">[math]\frac{30^2}{a^2} = 1 \implies a = 30 \text{ m}[/math]</span></center>

Con el parámetro <b>a</b> ya calculado, el cálculo del parámetro <b>c</b> se facilita enormemente:
<br />
Con a = 30 m y ρ = 55 m:

<center><span class="mathjax-wrapper">[math]\frac{55^2}{30^2} - \frac{(z - z_0)^2}{c^2} = 1[/math]</span></center>

Despejamos:

<center><span class="mathjax-wrapper">[math]\frac{(z - z_0)^2}{c^2} = \frac{55^2}{30^2} - 1[/math]</span></center>

Calculamos con z - z<sub>0</sub> = 100 m:

<center><span class="mathjax-wrapper">[math]\frac{100^2}{c^2} = \frac{3025}{900} - 1 = 2.361[/math]</span></center>

<center><span class="mathjax-wrapper">[math]\frac{10000}{c^2} = 2.361 \implies c^2 = \frac{10000}{2.361} \approx 4236.7 \implies c \approx 65.079 \text{ m}[/math]</span></center>
<br />
* Los parametros obtenidos tras los calculos son los siguientes:
<center><span class="mathjax-wrapper">[math]a = 30 \text{ m}, \quad c \approx 65.079 \text{ m}, \quad z_0 = 100 \text{ m}[/math]</span></center>

=== Representación grafica de la superficie parametrizada ===
Primero se establecen los parámetros con sus distintos rangos (se define <math> v=\dfrac{z-z_0}{c} </math>) , después se definen las ecuaciones paramétricas (despejando el radio en la expresión en coordenadas cilíndricas) y por último se grafica la función.
[[Archivo:T.enfriamiento-2.png|miniaturadeimagen|413px|derecha|]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% 1
a = 30; % radio mínimo
c = 65.1; % parámetro vertical
z0 = 100; % centro del hiperboloide
H = 150; % altura total

% 2
u = linspace(0, 2*pi, 100); % ángulo
v_min = (0 - z0)/c; % para z = 0
v_max = (H - z0)/c; % para z = H
v = linspace(v_min, v_max, 100);

[U,V] = meshgrid(u,v);

% 3
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% 4
figure;
surf(X,Y,Z);
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Torre de Enfriamiento Hiperbólica');
shading faceted;
}}</div>

== Torres de enfriamiento hiperbólicas famosas en el mundo ==
A lo largo del mundo existen una serie de <b>famosas centrales nucleares con sus propias torres de enfriamiento hiperbólicas</b>, las más destacadas son las siguientes:
[[Archivo:torrecanton.jpg|190px|miniaturadeimagen|Torre de Cantón]]
<br />
* <b> Central nuclear de Cofrentes (España)</b>
Se sitúa en la confluencia de los ríos Juncar y Cabriel. Sus dos torres de enfriamiento de tiro natural son vitales porque la central opera en un ciclo cerrado para minimizar el impacto térmico en el río y permitir la vida en él su geometría está dictada por la necesidad de enfriamiento frente a las altas temperaturas de la zona.
<br />
*<b>Central nuclear de Kashiwazaki-Kariwa</b>:
La central nuclear más grande del mundo en capacidad instalada (unos 8000MW). La estructura hiperbólica de sus torres de enfriamiento han permitido que resista terremotos de magnitud 6.8 en la escala de Richter.
*<b>Central térmica de Niederaussem (Alemania)</b>:
La principal característica de dicha central es que alberga la torre de enfriamiento más alta del mundo (200 metros). La forma hiperbólica es la única viable para una estructura de tal magnitud, ya que una cilíndrica no aguantaría los momentos de vuelco. Esta torre también tiene funcionalidad como “chimenea”. Los gases de combustión desulfurados se inyectan en la atmósfera, de forma que la estructura se usa para dos cosas a la vez, enfriar y expulsar gases tratados.
* <b>Las torres de Didcot (Reino Unido)</b>:
La demolición de esta estructura mostró con claridad la superioridad de esta forma. Al detonar los explosivos en la base, las torres se derrumbaron sobre su propia planta, mostrando que no depende de los materiales sino de su forma.
<br />
<span class='mathjax-wrapper'>[math]\textbf{Otras estructuras hiperbólicas}[/math]</span>
<br />

1. <b>Torre Shabolovka (Moscú)</b><br>
Pese a la escasez de acero en la Rusia post revolucionaria, la gran eficiencia de las torres hiperbólicas a nivel de materiales permitió su construcción. La torre de comunicaciones de Shújov (coloquialmente conocida como torre Shabolovka) fue la primera torre hiperbólica en construirse.
<br />
2. <b>Torre de Cantón (Guangzhou, China):</b><br>
Con 600 metros de altura. Es un hiperboloide generado por columnas de acero rectas pero inclinadas, creando una cintura estrecha. Esta forma se utiliza para resistencia sísmica y de tifones.

== Superioridad de la forma hiperbólica ante la cilíndrica ==
<br />
Para abordar esto con la profundidad requerida, se contrastará desde los siguientes dos aspectos físicos: estabilidad estructural, resistencia al viento y termodinámica.
La carga crítica para una torre de enfriamiento no es su propio peso sino la presión dinámica del viento, cuya velocidad viene definida por la ley de potencia:
<br>
<center>[math]V(z) = V_0 \left( \dfrac{z}{z_{ref}} \right)^{\alpha}[/math]</center>
<br/>
Y la presión dinámica del viento:
<br>
<center>[math]P(z) = \dfrac{1}{2} \varrho_{aire} V(z)^2[/math]</center>
<br/>

<span class='mathjax-wrapper'>[math]\textbf{Problemas del cilindro}[/math]</span>
<br />
[[Archivo:Cilindro vs hiperbole.png|miniaturadeimagen|380px|derecha|La "doble curvatura" del hiperboloidele otorga mayor resistencia a esfuerzos. Nótese que el punto de mayor resistencia está en el estrechamiento, donde la curvatura es más pronunciada.]]
El cilindro tiene varias desventajas frente a cargas laterales. Al ser una superficie con curvatura nula, no aporta rigidez geométrica, por lo que depende del grosor del material para resistir esfuerzos. Cuando actúa el viento, la sección circular puede deformarse en una elipse, lo que obliga a usar paredes muy gruesas o refuerzos adicionales. Además, su diámetro constante limita la estabilidad frente al vuelco, ya que la base no ofrece una superficie amplia.
<br/>

El hiperboloide, en cambio, presenta curvatura negativa, lo que le da ventajas importantes. Su doble curvatura aporta rigidez, reduciendo esfuerzos de flexión sin aumentar el espesor. También desvía las fuerzas hacia las generatrices y la base, mejorando la resistencia al pandeo. La diferencia entre el radio mayor y el menor crea una base más amplia, aumentando la estabilidad y reduciendo el consumo de material.
<br/>

Desde el punto de vista aerodinámico, el hiperboloide reduce la presión del viento; los cálculos muestran que soporta hasta un 40 % menos carga lateral que un cilindro de igual altura y radio máximo. Además, su forma favorece corrientes ascendentes de aire, útiles para enfriamiento mediante el efecto Venturi y el principio de Bernoulli.
<br/>
<br/>
<br/>

<br/>
<br/>

== Análisis en profundidad de la presión del viento ==
=== Representación del campo escalar P(z) ===
El viento sopla en dirección del vector: <span class='mathjax-wrapper'>[math]-\dfrac{1}{\sqrt{2}} (\vec{i} + \vec{j})[/math]</span>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Sección vertical de la torre hiperboloidal y campo de velocidad v_z(x,z)
clear; close all; clc;

%% Parámetros geométricos de la torre
H = 150; % altura total (m)
Rmax = 55; % radio en la base (m)
Rmin = 30; % radio mínimo (estrangulamiento) (m)
z0 = 100; % altura del estrangulamiento (m)

% Parámetro c del hiperboloide calculado a partir de la condición de la base:
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );

% Función radio de la torre a la altura z (sección vertical)
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 ); % a = Rmin

%% Parámetros del campo de velocidad
vmax = 4; % m/s, velocidad máxima en el eje central en el tope

% v_z(x,z) = vmax * (1 - rho^2 / rho_torre(z)^2) * (z/H)^0.6, con rho = |x|
vz_fun = @(x,z) vmax .* ( 1 - (abs(x).^2) ./ (rho_torre(z).^2) ) .* (z./H).^(0.6);

%% Mallado del plano x-z (sección que contiene el eje)
Nx = 161; Nz = 161;
x = linspace(-Rmax, Rmax, Nx);
z = linspace(0, H, Nz);
[X,Z] = meshgrid(x, z);

% Máscara: puntos dentro de la torre (|x| <= rho_torre(z))
RHOz = rho_torre(Z);
inside = abs(X) <= RHOz;

%% Campo de velocidad vertical
Vz = vz_fun(X, Z);
Vz(~inside) = NaN; % fuera de la torre, NaN para transparencia

% Componente horizontal (cero) para quiver
Ux = zeros(size(Vz));
Ux(~inside) = NaN;

%% Figura: mapa de color + contorno + flechas con fondo blanco
figure('Color','w');
h = imagesc(x, z, Vz);
set(h, 'AlphaData', ~isnan(Vz)); % Transparencia fuera de la torre
set(gca,'YDir','normal','Color','w'); % Fondo blanco en el área fuera de datos
axis equal tight;
colormap(turbo);
cb = colorbar;
cb.Label.String = 'v_z (m/s)';

hold on;
% Contorno de la sección de la torre
plot( rho_torre(z), z, 'k-', 'LineWidth', 2);
plot(-rho_torre(z), z, 'k-', 'LineWidth', 2);

% Flechas del campo (muestreo para no saturar)
stepX = 6; stepZ = 6;
Xq = X(1:stepZ:end, 1:stepX:end);
Zq = Z(1:stepZ:end, 1:stepX:end);
Uq = Ux(1:stepZ:end, 1:stepX:end);
Vq = Vz(1:stepZ:end, 1:stepX:end);

quiver(Xq, Zq, Uq, Vq, 'k', 'LineWidth', 1, 'AutoScale', 'on', 'AutoScaleFactor', 0.8);

xlabel('x (m)');
ylabel('z (m)');
title('Sección vertical (x-z) y campo de velocidad v_z dentro de la torre');
grid on;

}}</div>

=== Representación del campo vectorial de fuerza sobre la superficie expuesta ===
La presión de viento genera cierta fuerza sobre la superficie expuesta su representación gráfica es la siguiente:
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:A1 5.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% --- Parámetros de la torre (ya calculados)
H = 150;
Rmax = 55; Rmin = 30;
h = 2/3*H; a = Rmin; z0 = h;
c = h / sqrt((Rmax^2 / a^2) - 1); % parámetro vertical del hiperboloide

% --- Definir V(z) y P(z)
V = @(z) 18*(z./10).^(1/7); % z > 0
rho = 1.204;
Pfun = @(z) 0.5*rho.*(V(z)).^2;

% --- Malla paramétrica (theta, z) COMPLETA (0..2pi)
nt = 120; nz = 200;
theta = linspace(0,2*pi,nt);
z = linspace(0, H, nz);
[TH, Z] = meshgrid(theta, z); % size nz x nt

% --- radio r(z)
r = a * sqrt(1 + (Z - z0).^2 ./ c^2); % nz x nt

% --- coordenadas cartesianas de la superficie (transpuestas para nt x nz)
X = (r .* cos(TH))'; % nt x nz
Y = (r .* sin(TH))';
Zt = Z'; % nt x nz

% --- valores P(z) (igual para todas las theta a una z dada)
Pz = Pfun(Zt); % nt x nz

% --- Gradiente de G: G = x^2/a^2 + y^2/a^2 - (z-z0)^2/c^2 - 1
% ∇G = [2x/a^2, 2y/a^2, -2(z-z0)/c^2]
Gx = 2*X./a^2;
Gy = 2*Y./a^2;
Gz = -2*(Zt - z0)./c^2;

% --- Normal unitario (hacia exterior)
Nmag = sqrt(Gx.^2 + Gy.^2 + Gz.^2);
Nx = Gx ./ Nmag;
Ny = Gy ./ Nmag;
Nz = Gz ./ Nmag;

% --- Fuerza: F = -P(z) * n
Fx = -Pz .* Nx;
Fy = -Pz .* Ny;
Fz = -Pz .* Nz;

% === Dirección del viento (horizontal) ===
% azimut en grados medido desde +X hacia +Y (sentido antihorario).
az_deg = 45; % ejemplo: viento del Suroeste hacia el Noreste (apunta a NE)
az = deg2rad(az_deg);
w_hat = [cos(az); sin(az); 0]; % vector unitario

% Producto escalar n·w_hat (usar la normal exterior)
dotNW = Nx*w_hat(1) + Ny*w_hat(2) + Nz*w_hat(3); % nt x nz

% --- Máscara de la mitad expuesta a barlovento:
% puntos donde la presión empuja hacia dentro: F = -P n (⇒ n·w_hat < 0)
mask = (dotNW < 0);

% Aplicar máscara (ocultamos la otra mitad con NaN)
X(~mask) = NaN; Y(~mask) = NaN; Zt(~mask) = NaN;
Fx(~mask) = NaN; Fy(~mask) = NaN; Fz(~mask) = NaN;

% Representación
figure('Color','w')
Fmag = sqrt(Fx.^2 + Fy.^2 + Fz.^2);
surf(X, Y, Zt, Fmag, 'EdgeColor','none', 'FaceAlpha',0.9)
axis equal
xlabel('x (m)'), ylabel('y (m)'), zlabel('z (m)')
title(sprintf('Campo F = -P(z)·n (mitad expuesta, azimut viento = %d°)', az_deg))
colormap(parula)
cb = colorbar; % evitar conflicto con 'c' geométrico
cb.Label.String = '||F|| (N)';

hold on
% muestreo para flechas (solo en la mitad expuesta, gracias a NaN)
step_t = 6; step_z = 7;
inds_t = 1:step_t:size(X,1);
inds_z = 1:step_z:size(X,2);
scale = 1;
quiver3( X(inds_t,inds_z), Y(inds_t,inds_z), Zt(inds_t,inds_z), ...
Fx(inds_t,inds_z), Fy(inds_t,inds_z), Fz(inds_t,inds_z), ...
scale, 'k', 'LineWidth', 1 )
view(185,25)
grid on
hold off
}}</div>

=== Cálculo de la fuerza total y la fuerza por unidad de superficie ===

Queremos la fuerza total debida al viento sobre la mitad de la superficie lateral expuesta de la torre.

* El viento genera una presión que solo depende de la altura:
<div style="text-align:center">
<math>
V(z) = V_0 \left(\frac{z}{z_{\text{ref}}}\right)^\alpha,
\quad V_0 = 18\,\text{m/s},\ z_{\text{ref}}=10\,\text{m},\ \alpha=\tfrac17.
</math>
</div>

* La presión dinámica del viento es:
<div style="text-align:center">
<math>
P(z) = \tfrac12\,\rho_{\text{aire}}\,V(z)^2,
</math>
</div>
Donde se toma como densidad del aire estandar, <math>\rho_{\text{aire}} \approx 1{,}204\ \text{kg/m}^3</math>

Como se pide “integrar la presión sobre la mitad de la superficie expuesta”, matemáticamente es una integral de superficie de un campo escalar:
<div style="text-align:center">
<math>
F_{\text{total}} = \iint_{S_{\text{media}}} P(z)\,dS.
</math>
</div>

A partir de la geometría y parametrización de la torre, un hiperboloide de revolución de una hoja, con ecuación:

<div style="text-align:center">
<math>
\frac{x^2 + y^2}{a^2} - \frac{(z - z_0)^2}{c^2} = 1,
</math>
</div>
y con:
* Altura total: <math>H = 150\,\text{m}</math>.
* Radio máximo en la base: <math>R_{\max} = 55\,\text{m}</math>.
* Radio mínimo (estrangulamiento): <math>R_{\min} = 30\,\text{m}</math>, a la altura
* Elegimos <math>z_0 = h = 100\,\text{m}</math> y <math>a = R_{\min} = 30\,\text{m}</math>.

Obtendremos el radio en función de la altura (coordenadas cilíndricas, <math>\rho</math>):
<div style="text-align:center">
<math>
\rho(z) = \sqrt{x^2 + y^2}
= a\,\sqrt{1 + \frac{(z - z_0)^2}{c^2}}.
</math>
</div>
Imponiendo que en la base <math>z=0</math> el radio sea <math>R_{\max} = 55\,\text{m}</math>:
<div style="text-align:center">
<math>
R_{\max}^2
= a^2\left(1 + \frac{z_0^2}{c^2}\right)
\;\Longrightarrow\;
c^2 = \frac{z_0^2}{\dfrac{R_{\max}^2}{a^2}-1}.
</math>
</div>
Con los valores numéricos:
<math>
H = 150,\quad z_0 = 100,\quad a = 30,\quad R_{\max} = 55,
</math>
se obtiene aproximadamente <math>c \approx 65{,}08\,\text{m}</math>.

Ahora parametrizamos la superficie de revolución usando <math>(\theta,z)</math> como parámetros:
<div style="text-align:center">
<math>
\mathbf r(\theta,z) =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ z\bigr).
</math>
</div>
* <math>z</math> recorre la altura: <math>0 \le z \le H</math>.
* <math>\theta</math> recorre el ángulo alrededor del eje. Para toda la torre <math>0 \le \theta < 2\pi</math>.
Para la mitad expuesta al viento tomamos un intervalo de longitud de media circunferencia por ejemplo:
<math>
-\frac{\pi}{2} \le \theta \le \frac{\pi}{2},
</math>
que corresponde a la “media circunferencia” que mira hacia el viento.

El elemento de área es:
<div style="text-align:center">
<math>
dS = \bigl|\mathbf r_\theta\times \mathbf r_z\bigr|\,d\theta\,dz.
</math>
</div>
Calculamos las derivadas parciales:

* Derivada respecto a <math>\theta</math>:
<div style="text-align:center">
<math>
\mathbf r_\theta =
\bigl(-\rho(z)\sin\theta,\ \rho(z)\cos\theta,\ 0\bigr).
</math>
</div>
* Derivada respecto a <math>z</math>:
<div style="text-align:center">
<math>
\mathbf r_z =
\bigl(\rho'(z)\cos\theta,\ \rho'(z)\sin\theta,\ 1\bigr),
</math>
</div>

El producto vectorial (simplificado) es:
<div style="text-align:center">
<math>
\mathbf r_\theta \times \mathbf r_z =
\bigl(\rho(z)\cos\theta,\ \rho(z)\sin\theta,\ -\rho(z)\rho'(z)\bigr).
</math>
</div>
Su módulo:
<div style="text-align:center">
<math>
\bigl|\mathbf r_\theta \times \mathbf r_z\bigr|
= \sqrt{\rho^2\cos^2\theta + \rho^2\sin^2\theta + \rho^2(\rho')^2}
= \rho(z)\sqrt{1 + \rho'(z)^2}.
</math>
</div>
Por lo tanto:
<div style="text-align:center">
<math>
dS = \rho(z)\,\sqrt{1 + \rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Esta es la fórmula general del área de una superficie de revolución.

La derivada de <math>\rho(z)</math> a partir de la fórmula del hiperboloide es:
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}}
\;\Longrightarrow\;
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Finalmente laIntegral de la fuerza total se define como:

<div style="text-align:center">
<math>
F_{\text{total}}
= \iint_{S_{\text{media}}} P(z)\,dS
= \int_{z=0}^{H} \int_{\theta=-\pi/2}^{\pi/2}
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz.
</math>
</div>
Como <math>P(z)</math> no depende de <math>\theta</math>, la integral en <math>\theta</math> se puede sacar:
<div style="text-align:center">
<math>
\int_{-\pi/2}^{\pi/2} d\theta = \pi.
</math>
</div>

Por tanto:

<div style="text-align:center">
<math>
F_{\text{total}}
= \pi \int_0^{H} P(z)\,\rho(z)\,\sqrt{1+\rho'(z)^2}\,dz,
</math>
</div>
<div style="text-align:center">
<math>
\rho(z) = a\sqrt{1 + \frac{(z-z_0)^2}{c^2}},\quad
\rho'(z) =
\frac{a(z-z_0)}{c^2\sqrt{1 + \dfrac{(z-z_0)^2}{c^2}}}.
</math>
</div>

Área de la mitad de la torre y fuerza por unidad de superficie
La superficie de la mitad de la torre expuesta al viento es la integral de <math>1</math> sobre esa superficie:

<div style="text-align:center">
<math>
A_{\text{media}}
= \iint_{S_{\text{media}}} dS
= \int_0^H \int_{-\pi/2}^{\pi/2}
\rho(z)\sqrt{1+\rho'(z)^2}\,d\theta\,dz
= \pi\int_0^H \rho(z)\sqrt{1+\rho'(z)^2}\,dz.
</math>
</div>

La fuerza media por unidad de superficie (presión media) es:

<div style="text-align:center">
<math>
P_{\text{media}}
= \frac{F_{\text{total}}}{A_{\text{media}}}
= \frac{\displaystyle \int_0^H
P(z)\,\rho(z)\sqrt{1+\rho'(z)^2}\,dz}
{\displaystyle \int_0^H
\rho(z)\sqrt{1+\rho'(z)^2}\,dz}.
</math>
</div>

Obsérvese que el factor <math>\pi</math> se simplifica.

Valor numérico aproximado si se evalúan las integrales numéricamente:

* <math>H = 150\,\text{m}</math>,
* <math>a = 30\,\text{m}</math>, <math>z_0 = 100\,\text{m}</math>,
* <math>c \approx 65{,}08\,\text{m}</math>,
* <math>\rho_{\text{aire}} = 1{,}204\,\text{kg/m}^3</math>,
* <math>V(z) = 18\,(z/10)^{1/7}</math>,

Se obtiene aproximadamente:

* Fuerza total sobre la mitad de la torre:
<math>
F_{\text{total}} \approx 5{,}7\times 10^6\ \text{N}.
</math>

* Área de la mitad de la torre:
<math>
A_{\text{media}} \approx 1{,}8\times 10^4\ \text{m}^2.
</math>

* Fuerza por unidad de superficie (presión media):
<math>
P_{\text{media}} \approx 3{,}1\times 10^2\ \text{Pa}.
</math>

=== Comparación de la fuerza total con una torre cilíndrica ===

== Analisis del flujo de aire en el interior de la torre ==
=== Representación del campo vectorial de velocidad <span class='mathjax-wrapper'>[math]\vec{v}[/math]</span> ===
<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:B1 4.png|500px|miniaturadeimagen|derecha|Mapa de presión sobre la torre]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Mapa de presión del viento sobre la torre hiperboloidal
clear; clc; close all;

% Parámetros del viento
V0 = 18; % velocidad a zref [m/s]
zref = 10; % altura de referencia [m]
alpha = 1/7; % exponente terreno abierto
rho_air = 1.2; % densidad aire [kg/m^3]

% Geometría de la torre
a = 30; % radio mínimo [m]
c = 65.1; % parámetro vertical [m]
z0 = 100; % centro del hiperboloide [m]
H = 150; % altura total [m]

% Mallado paramétrico (media torre)
u = linspace(0, pi, 100); % mitad expuesta
v_min = (0 - z0)/c;
v_max = (H - z0)/c;
v = linspace(v_min, v_max, 200);
[U,V] = meshgrid(u,v);

% Coordenadas
X = a * sqrt(1 + V.^2) .* cos(U);
Y = a * sqrt(1 + V.^2) .* sin(U);
Z = z0 + c * V;

% Calcular velocidad y presión en cada altura
Vwind = V0 * (Z / zref).^alpha; % ley de potencia
Pwind = 0.5 * rho_air .* Vwind.^2; % presión dinámica

% Encontrar punto de máxima presión
[maxP, idx] = max(Pwind(:));
[maxRow, maxCol] = ind2sub(size(Pwind), idx);
Xmax = X(maxRow, maxCol);
Ymax = Y(maxRow, maxCol);
Zmax = Z(maxRow, maxCol);

% Graficar superficie con mapa de presión
figure('Color','w');
surf(X,Y,Z,Pwind,'EdgeColor','none');
axis equal;
xlabel('X (m)'); ylabel('Y (m)'); zlabel('Z (m)');
title('Mapa de presión del viento sobre la torre hiperboloidal');
colormap(jet);
colorbar;

% Marcar punto de máxima presión
hold on;
plot3(Xmax,Ymax,Zmax,'ko','MarkerFaceColor','b','MarkerSize',10);
text(Xmax,Ymax,Zmax+5,sprintf('Max P = %.1f Pa',maxP),'Color','k','FontSize',10);
}}</div>

<div style="float:right; text-align:center; margin-left:20px;">
[[Archivo:Torre_resizedMiguelC.gif|500px|miniaturadeimagen|derecha|Animación mostrando el mapa de velocidades en distintas secciones horizontales a distintas alturas]]
<div style="width:500px; padding:10px; border:2px solid #333; border-radius:8px; background-color:#f9f9f9; font-family:Arial; color:#333; margin-top:10px;">
Este cuadro de texto está debajo de la imagen alineada a la derecha. Aquí puedes añadir una descripción o explicación adicional.
</div>
</div>
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
%% Animación 3D del campo de velocidad en planos horizontales con la torre
clear; close all; clc;

%% Parámetros geométricos
H = 150; Rmax = 55; Rmin = 30; z0 = 100;
c = sqrt( (z0^2) / ( (Rmax^2 / Rmin^2) - 1 ) );
rho_torre = @(z) Rmin .* sqrt( 1 + ((z - z0).^2) ./ c.^2 );

%% Campo de velocidad
vmax = 4;
vz_fun = @(rho,z) vmax .* (1 - (rho.^2) ./ (rho_torre(z).^2)) .* (z./H).^(0.6);

%% Mallado XY para planos
Nx = 101; Ny = 101;
x = linspace(-Rmax,Rmax,Nx);
y = linspace(-Rmax,Rmax,Ny);
[X,Y] = meshgrid(x,y);
RHO = sqrt(X.^2 + Y.^2);

%% Mallado para la torre (hiperboloide)
theta = linspace(0,2*pi,100);
z_vals_torre = linspace(0,H,100);
[Theta,Zt] = meshgrid(theta,z_vals_torre);
Rt = rho_torre(Zt);
Xt = Rt .* cos(Theta);
Yt = Rt .* sin(Theta);

clf
%% Configuración de animación
% figure('Color','w')
% Establecer el color de fondo de la figura a blanco
set(gca, 'Color', 'w');
axis equal tight;
colormap(turbo);
axis([-Rmax Rmax -Rmax Rmax 0 H]);
xlabel('x (m)'); ylabel('y (m)'); zlabel('z (m)');
title('Animación 3D del campo de velocidad en planos horizontales');
view(45,25); % Vista con acimut 45° y cenit 25°
hold on

% Dibujar la torre como superficie transparente
surf(Xt,Yt,Zt,'FaceAlpha',0.1,'EdgeColor','none','FaceColor',[0.7 0.7 0.7]);

frames = 50;
z_vals = linspace(0,H,frames);
F(frames) = struct('cdata',[],'colormap',[]);

t=0;
while t<= frames
for k = 1:frames
t=k;
zc = z_vals(k);
Rz = rho_torre(zc);

% Campo de velocidad en este plano
Vz_plane = vz_fun(RHO,zc);
Vz_plane(RHO > Rz) = NaN; % fuera de la torre

% Dibujar plano horizontal en z = zc
h = surf(X,Y,zc*ones(size(X)),Vz_plane,'EdgeColor','none');

% Ajustes visuales
axis([-Rmax Rmax -Rmax Rmax 0 H]);
view(45,30);
colorbar; caxis([0 vmax]);

title(sprintf('Plano horizontal a z = %.1f m',zc));
drawnow;

% Capturar frame
F(k) = getframe(gcf);

% Eliminar el plano anterior para el siguiente frame
delete(h);
end

break
end

}}</div>

=== Divergencia del campo de velocidades ===

'''Campo de velocidad:'''
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

'''Divergencia en cilíndricas:'''
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial \rho}(\rho v_\rho) + \frac{\partial}{\partial \theta}(v_\theta) + \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Al solo tener componente vertical (<math>v_z</math>), la expresión se simplifica:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \left( \frac{\partial}{\partial z}(\rho v_z) \right) </math></center>

Sustituimos la expresión de la velocidad:
<center><math> \nabla \cdot \vec{v} = \frac{1}{\rho} \cdot \frac{\partial}{\partial z} \left[ \rho \cdot v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

Al ser derivada respecto de <math>z</math>, se puede sacar el <math>\rho</math> de dentro de la derivada y simplificarla con el <math>\frac{1}{\rho}</math> de fuera. Aplicando la regla del producto para derivar respecto a <math>z</math>:

<center><math> \nabla \cdot \vec{v} = v_{max} \left[ \frac{2\rho^2 R'(z)}{R(z)^3} \cdot \left( \frac{z}{H} \right)^{0,6} + \left( 1 - \frac{\rho^2}{R(z)^2} \right) \cdot \frac{0,6}{z} \left( \frac{z}{H} \right)^{0,6} \right] </math></center>

* '''Zona 1: Del suelo hasta la garganta (<math>z=0 \to z=100</math>)'''
** Al subir, la torre se estrecha, el radio disminuye ('''Negativo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

* '''Zona 2: De la garganta a la parte más alta (<math>z=100 \to z=150</math>)'''
** Al subir, la torre se ensancha, el radio aumenta ('''Positivo''').
** Al subir, la velocidad aumenta por el tiro térmico ('''Positivo''').

:<math> \Rightarrow \text{Es positiva} </math>

Físicamente, una divergencia positiva indica que el fluido se expande a medida que asciende. Esto se debe a:

# '''Expansión térmica:''' El aire absorbe el calor, aumentando su temperatura y disminuyendo su densidad. Para conservar la masa, el gas debe aumentar su volumen.
# '''Tiro vertical:''' Se acelera más rápido que lo que se ensancha (o estrecha), por tanto también se expande verticalmente ("estiramiento" del flujo).

=== Caudal volumétrico de aire en una sección a altura Z ===

Nos piden calcular:
<center><math> Q(z) = \iint_S v_z(\rho, z) dS </math></center>

En coordenadas cilíndricas <math> dS = \rho d\rho d\theta </math>:
*<math> 0 \le \theta \le 2\pi </math>
*<math> 0 \le \rho \le R(z) </math>

Planteamos la integral:
<center><math> Q(z) = \int_{0}^{2\pi} \int_{0}^{R(z)} \underbrace{v_{max} \left( \frac{z}{H} \right)^{0,6}}_{\text{constante}} \cdot \left( 1 - \frac{\rho^2}{R(z)^2} \right) \underbrace{\rho d\rho d\theta}_{\text{Jacobiano}} </math></center>

Separamos los términos constantes respecto a la integral radial y angular:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot \int_{0}^{2\pi} d\theta \cdot \int_{0}^{R(z)} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \rho d\rho </math></center>

Resolvemos la integral radial:
<center><math> \int_{0}^{R(z)} \left( \rho - \frac{\rho^3}{R(z)^2} \right) d\rho = \left[ \frac{\rho^2}{2} - \frac{\rho^4}{4 R(z)^2} \right]_{0}^{R(z)} </math></center>

Evaluando en los límites:
<center><math> = \left[ \frac{R(z)^2}{2} - \frac{R(z)^4}{4 R(z)^2} \right] = \frac{R(z)^2}{2} - \frac{R(z)^2}{4} = \frac{R(z)^2}{4} </math></center>

Sustituimos el resultado en la expresión original del caudal:
<center><math> Q(z) = v_{max} \left( \frac{z}{H} \right)^{0,6} \cdot 2\pi \cdot \frac{R(z)^2}{4} </math></center>

Resultado final:
<center><math> Q(z) = \frac{\pi}{2} v_{max} R(z)^2 \left( \frac{z}{H} \right)^{0,6} </math></center>
[[Archivo: perfilvscaudal.png|500px|miniaturadeimagen|derecha|]]
<br/>
# '''¿Es el caudal constante o varía con la altura?'''
#: Sí varía con la altura. En la expresión del caudal aparecen <math>z</math> y <math>R(z)</math>, ambas variables dependientes de la altura. <br/>
# '''¿Qué implica esto físicamente?'''
#: Implica que la densidad del aire está disminuyendo. Ya que si el caudal aumenta por la altura, por la ley de la conservación de la masa, la densidad disminuye.<br/>
# '''¿Dónde es máximo y por qué?'''
#: La expresión del caudal se maximiza cuando el radio es máximo y la altura es máxima, esto se da en la cima de la torre.
<br/>
<br/>
<br/>

==== Representación grafica de Q(z) en función de z ====
[[Archivo:C43.jpg|600px|miniaturadeimagen]]
<div style="width: 50%; margin: 20px;">
{{matlab|codigo=
% Parámetros
Vmax = 10; % Velocidad máxima (m/s)
H = 150; % Altura total (m)
R0 = 30; % Radio mínimo en la base (m)
Rmax = 55; % Radio máximo en la parte superior (m)

% Vector de alturas
z = linspace(0, H, 200);

% Función del radio en función de z (lineal)
Rz = R0 + (Rmax - R0) * (z / H);

% Cálculo del caudal Q(z)
Q = (pi/2) * Vmax .* (Rz.^2) .* ((z / H).^0.6);

% Gráfica
figure;
plot(z, Q, 'LineWidth', 2);
xlabel('Altura z (m)');
ylabel('Caudal Q(z) (m^3/s)');
title('Caudal volumétrico en función de la altura');
grid on;

% Mostrar el valor máximo y su posición
[maxQ, idx] = max(Q);
fprintf('Caudal máximo: %.2f m^3/s en z = %.2f m\n', maxQ, z(idx));

}}</div>

=== Cálculo de la potencia disipada===

Calculamos la potencia térmica disipada:
<center><math> \dot{Q} = \rho_{aire} c_p Q(H) (T_{base} - T_{top}) </math></center>

'''Datos:'''
* <math> c_p = 1005 \, J/(kg \cdot K) </math>
* <math> \Delta T_z = 38^\circ C </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math> (Buscado)
* <math> v_{max} = 4 \, m/s </math>

'''Calculamos Q(H) usando la fórmula hallada antes:'''
<center><math> Q(H) = \frac{\pi}{2} v_{max} R(H)^2 \cdot \underbrace{\left( \frac{H}{H} \right)^{0,6}}_{1} \Rightarrow Q(H) = 2\pi R(H)^2 </math></center>

Necesitamos el radio en la cima (<math>R(z)</math>):
<center><math> R(z) = a \sqrt{1 + \frac{(z-z_0)^2}{c^2}} \rightarrow R(150) = 30 \sqrt{1 + \frac{(150-100)^2}{4235,4}} = 37,82 \, m </math></center>

Sustituimos en el caudal:
<center><math> Q(H) = \frac{\pi}{2} (4) (37,82)^2 \approx 8987 \, m^3/s </math></center>

'''Calculamos la potencia:'''
<center><math> \dot{Q} = 1,225 \cdot 1005 \cdot 8987 \cdot 38 = 420.450.000 \, W = 420,45 \, MW </math></center>

Análisis con Radio mínimo = 20m

Habrá que calcular una nueva <math>c</math> (<math>c'</math>) con <math>a=20</math>:
<center><math> 55 = 20 \sqrt{1 + \frac{100^2}{c'^2}} \Rightarrow c' = 1523,8 </math></center>

Nuevo radio en la cima:
<center><math> R'(150) = 20 \sqrt{1 + \frac{(150-100)^2}{1523,8}} = 32,5 \, m </math></center>

Nuevo caudal:
<center><math> Q'(H) = \frac{\pi}{2} (4) (32,5)^2 = 6636 \, m^3/s </math></center>

Es menor debido a que se cumple <math>Q = V \cdot A</math>. Si se mantiene la velocidad y el área disminuye, el caudal también lo hace.

Conclusiones sobre el estrangulamiento

* '''¿Cómo afecta un estrangulamiento mayor al flujo del aire?'''
*: Como se ha explicado antes con la relación <math>Q = V \cdot A</math>, al reducir el área, se reduce el flujo.

* '''¿Existe un compromiso entre resistencia estructural (menor Rmin) y eficiencia de enfriamiento?'''
*: Sí. Estrechar el cuello tiene de '''positivo''' una mayor resistencia estructural y rigidez con una capa de poco espesor.
*: Tiene de '''negativo''', como se ha demostrado antes, que disminuye el caudal, y por tanto, disminuye su capacidad para evacuar calor.

=== Análisis del número de Reynolds en el flujo ===

El número de Reynolds caracteriza el flujo:
<center><math> Re = \frac{\rho v_{tipica} L}{\mu} </math></center>

'''Datos:'''
* <math> \mu = 1,8 \cdot 10^{-5} \, Pa \cdot s </math>
* <math> \rho_{aire} = 1,225 \, kg/m^3 </math>
* Longitud característica: <math> L = 2 \cdot R_{min} = 2 \cdot 30 = 60 \, m </math>

'''Cálculo de velocidad típica:'''
Evaluamos en el centro (<math>\rho=0</math>) y a la altura de la garganta (<math>z=2/3 H</math>):
<center><math> v_z(\rho, z) = v_{max} \left( 1 - \frac{\rho^2}{R(z)^2} \right) \left( \frac{z}{H} \right)^{0,6} </math></center>

Al ser <math>\rho=0</math> se simplifican los cálculos:
<center><math> v_{tipica} = 4 \cdot 1 \cdot (0,667)^{0,6} = 4 \cdot 0,784 = 3,136 \, m/s </math></center>

'''Sustituimos en el número de Reynolds:'''
<center><math> Re = \frac{1,225 \cdot 3,136 \cdot 60}{1,8 \cdot 10^{-5}} = 12.805.555 = 1,28 \cdot 10^7 </math></center>

Régimen del flujo

Por convención:
* Si <math> Re < 2000 \to </math> Laminar
* Si <math> Re > 2000 \to </math> Turbulento

El régimen es '''extremadamente turbulento'''.

¿Por qué es tan alto?
En general esto es debido a la escala "L" (diámetro). Aunque la viscosidad del aire intente ordenar el flujo, la inercia de mover una masa de 60 metros de ancho a 4 m/s es millones de veces superior. Lejos de ser un problema, esto es beneficioso, ya que el caos en el aire genera vórtices y mezclas constantes, las cuales ayudan a la disipación del calor.

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T16:53:57Z

Ernesto.irazabal: /* Representación grafica de Q(z) en función de z */

Archivo:C43.jpg

2025-12-02T16:53:13Z

Ernesto.irazabal:

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T16:49:36Z

Ernesto.irazabal: /* Caudal volumétrico de aire en una sección a altura Z */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T15:07:44Z

Ernesto.irazabal: /* Ecuación del hiperboloide y parámetros */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T13:07:57Z

Ernesto.irazabal: /* Análisis en profundidad de la presión del viento */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T12:23:14Z

Ernesto.irazabal: /* Ecuación del hiperboloide y parámetros */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T12:16:53Z

Ernesto.irazabal: /* Ecuación del hiperboloide y parámetros */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T12:16:03Z

Ernesto.irazabal: /* Ecuación del hiperboloide y parámetros */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T12:15:30Z

Ernesto.irazabal: /* Ecuación del hiperboloide y parámetros */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T12:13:11Z

Ernesto.irazabal: /* Ecuación del hiperboloide y parametros */

Torres de Enfriamiento Hiperbólicas (Grupo 15, Retiro)

2025-12-02T10:22:52Z