<?xml version="1.0"?>
<feed xmlns="http://www.w3.org/2005/Atom" xml:lang="es">
		<id>https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Carlos+De+Hita+S%C3%A1nchez</id>
		<title>MateWiki - Contribuciones del usuario [es]</title>
		<link rel="self" type="application/atom+xml" href="https://mat.caminos.upm.es/w/api.php?action=feedcontributions&amp;feedformat=atom&amp;user=Carlos+De+Hita+S%C3%A1nchez"/>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/wiki/Especial:Contribuciones/Carlos_De_Hita_S%C3%A1nchez"/>
		<updated>2026-04-23T11:44:36Z</updated>
		<subtitle>Contribuciones del usuario</subtitle>
		<generator>MediaWiki 1.26.2</generator>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98608</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98608"/>
				<updated>2025-12-04T11:52:12Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial \vec{V} */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
'''INTRODUCCION'''&lt;br /&gt;
&lt;br /&gt;
El efecto de Ekman constituye uno de los mecanismos fundamentales para comprender cómo el viento y la rotación terrestre influyen en la circulación oceánica. Descubierto a comienzos del siglo XX por Vagn Walfrid Ekman, este fenómeno describe cómo la acción combinada de la fricción y la fuerza de Coriolis genera una desviación progresiva en la dirección de las corrientes marinas. El resultado es la formación de la espiral de Ekman, una estructura tridimensional en la que cada capa de agua se mueve en un ángulo distinto respecto a la anterior, con una intensidad que disminuye con la profundidad.&lt;br /&gt;
&lt;br /&gt;
Este proceso no solo explica la orientación del flujo superficial respecto al viento, sino que también determina el transporte de Ekman, un movimiento neto de agua perpendicular al viento que desempeña un papel crucial en la dinámica oceánica. Dicho transporte es responsable de fenómenos como la surgencia costera, el enriquecimiento de nutrientes y la regulación térmica en numerosos sistemas marinos. Comprender estos mecanismos resulta esencial para analizar la circulación en regiones como el archipiélago canario, donde las condiciones atmosféricas y oceánicas favorecen la manifestación clara del efecto de Ekman.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiraldavid1.png|300px|thumb|left|Espiral de Ekman 3D]]&lt;br /&gt;
[[Archivo:espiralhorizontal2.png|300px|thumb|left|Proyección horizontal: espiral logarítmica]]&lt;br /&gt;
&lt;br /&gt;
'''Ecuaciones del flujo y soluciones'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua es &amp;lt;math&amp;gt;\vec{V} = u(z)\vec{i} + v(z)\vec{j}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; apunta al este, &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt; al norte, y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la profundidad (con &amp;lt;math&amp;gt;z \leq 0&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt; la superficie). Las componentes &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; satisfacen las ecuaciones de Ekman:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d^2u}{dz^2} = -\frac{f}{\nu_e} v, \quad \frac{d^2v}{dz^2} = \frac{f}{\nu_e} u&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt; es el parámetro de Coriolis, con &amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \, \text{rad/s}&amp;lt;/math&amp;gt; la velocidad angular terrestre y &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; la latitud;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\nu_e&amp;lt;/math&amp;gt; es la viscosidad turbulenta (eddy viscosity), que representa el efecto de la turbulencia al mezclar las capas del fluido.&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La solución de estas ecuaciones diferenciales es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right),&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt; es la intensidad de la corriente superficial inducida por el viento;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\nu_e}{|f|}}&amp;lt;/math&amp;gt; es la profundidad de Ekman (escala de penetración);&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\operatorname{sgn}&amp;lt;/math&amp;gt; es la función signo&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0,&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
'''Parámetros del modelo'''&lt;br /&gt;
&lt;br /&gt;
Para los calculos consideraremos una localidad al largo de las Islas Canarias, con coordenadas aproximadas &amp;lt;math&amp;gt;30^\circ 10' 24.2'' \, \text{N}, \; 15^\circ 30' 26.5'' \, \text{W}&amp;lt;/math&amp;gt;, y los parámetros:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Viscosidad turbulenta: &amp;lt;math&amp;gt;\nu_e = 0.05 \, \text{m}^2/\text{s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Viento: sopla de norte a sur con velocidad &amp;lt;math&amp;gt;12 \, \text{m/s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Velocidad superficial inducida: &amp;lt;math&amp;gt;V_0 = 0.15 \, \text{m/s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Fase inicial: el flujo superficial está desviado aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento en el hemisferio norte.&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El parámetro de Coriolis es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Profundidad de Ekman \(d_E\) ===&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis.&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición de integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta=\frac{3\pi}{4}&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha=\frac{\pi}{2}&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el oeste. Generalizado, se demuestra así que, con el fenómeno de Ekman, el flujo resultante es siempre perpendicular a la dirección del viento, siendo su sentido dependiente precisamente del parámetro de Coriolis y del hemisferio en el que nos encontremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Espiral de Ekman en coordenadas cilíndricas ==&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman en el espacio 3D esta parametrizada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma(z) = (u(z), v(z), z),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekamn en el océano describe cómo varía la velocidad horizontal ''(u(z), v(z))'' con la profundidad ''z'' (con z=0 en la superficie y z&amp;lt;0 hacia el fondo).&lt;br /&gt;
&lt;br /&gt;
Una forma típica es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z) = \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;v(z) = V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt; es el parámetro de Coriolis &lt;br /&gt;
&lt;br /&gt;
*\(V_0\) es la intensidad de la corriente superficial inducida por el viento.&lt;br /&gt;
&lt;br /&gt;
*\(d_E\) es la profundidad de Ekman.&lt;br /&gt;
&lt;br /&gt;
*sgn es la función signo: &amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;, que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
*ϑ es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para pasarlo a coordenadas cilíndricas (r,θ,z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;x = u(z),\quad y = v(z),\quad z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
'''Para el radio:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E} \sqrt{\operatorname{sgn}(f)^2 \cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;donde &amp;lt;math&amp;gt;\theta_z = z/d_E&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Pero &amp;lt;math&amp;gt;\operatorname{sgn}(f)^2 = 1&amp;lt;/math&amp;gt; (es &amp;lt;math&amp;gt;\pm 1&amp;lt;/math&amp;gt;), así que dentro de la raíz solo queda:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta) = 1.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Por lo tanto:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para 0 (ángulo en el plano u,v):'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\theta(z) &amp;amp;= \arctan\!\left( \frac{v(z)}{u(z)} \right) \\&lt;br /&gt;
&amp;amp;= \arctan\!\left( \frac{V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* V_0 e^{z/d_E} se cancelan &lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \arctan\!\left( \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right) = \arctan\!\left( \frac{1}{\operatorname{sgn}(f)} \tan\!\left( \frac{z}{d_E} + \vartheta \right) \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;El factor &amp;lt;math&amp;gt;1/\operatorname{sgn}(f)&amp;lt;/math&amp;gt; es:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;+1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte),&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;-1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt; (hemisferio sur).&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos absorber este signo dentro del argumento, porque:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\arctan(-\tan A) = -A \ (\text{mod } \pi)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para la altura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto, la Espiral de Ekman en coordenadas cilíndricas es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;(r(z), \theta(z), z) = \left( V_0 e^{z/d_E},\; \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right),\; z \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Representación en MATLAB ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiralek.png|miniaturadeimagen|Representación de la Espiral de Ekman en coordenadas cilíndricas de &amp;lt;math&amp;gt;z = -4d_E&amp;lt;/math&amp;gt; con su superficie de referencia ]]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
% Parámetros&lt;br /&gt;
dE = 1;           % Profundidad de Ekman&lt;br /&gt;
V0 = 1;           % Velocidad superficial&lt;br /&gt;
f_sign = 1;       % 1 para hemisferio norte, -1 para sur&lt;br /&gt;
theta0 = pi/4;    % Fase inicial&lt;br /&gt;
&lt;br /&gt;
% Rango de z: de 0 a -4*dE&lt;br /&gt;
z = linspace(0, -4*dE, 500);&lt;br /&gt;
&lt;br /&gt;
% Coordenadas cilíndricas DIRECTAS (sin pasar por u, v)&lt;br /&gt;
r = V0 * exp(z/dE);  % Radio&lt;br /&gt;
theta = atan(tan(z/dE + theta0) / f_sign);  % Ángulo (simplificado)&lt;br /&gt;
&lt;br /&gt;
% Mejor usar atan2 para manejar cuadrantes correctamente:&lt;br /&gt;
% Reconstruimos u, v temporalmente solo para calcular theta correctamente:&lt;br /&gt;
u_temp = f_sign * V0 * exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v_temp = V0 * exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
theta = atan2(v_temp, u_temp);&lt;br /&gt;
&lt;br /&gt;
% Convertir cilíndricas a cartesianas para graficar en 3D&lt;br /&gt;
x_cil = r .* cos(theta);  % x = r*cos(θ)&lt;br /&gt;
y_cil = r .* sin(theta);  % y = r*sin(θ)&lt;br /&gt;
z_cil = z;                % z se mantiene igual&lt;br /&gt;
&lt;br /&gt;
% Representación 3D EN COORDENADAS CILÍNDRICAS&lt;br /&gt;
figure('Position', [100 100 1000 700]);&lt;br /&gt;
&lt;br /&gt;
% 1. Curva 3D en espacio cilíndrico transformado&lt;br /&gt;
subplot(2,3,[1 4]);&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 2);&lt;br /&gt;
hold on;&lt;br /&gt;
plot3(x_cil(1), y_cil(1), z_cil(1), 'ro', 'MarkerSize', 10, 'MarkerFaceColor', 'r');&lt;br /&gt;
plot3(x_cil(end), y_cil(end), z_cil(end), 'ks', 'MarkerSize', 10, 'MarkerFaceColor', 'k');&lt;br /&gt;
grid on;&lt;br /&gt;
xlabel('x = r cos(θ)');&lt;br /&gt;
ylabel('y = r sin(θ)');&lt;br /&gt;
zlabel('Profundidad z');&lt;br /&gt;
title('Espiral de Ekman en 3D (de coord. cilíndricas)');&lt;br /&gt;
view(40, 25);&lt;br /&gt;
axis equal;&lt;br /&gt;
&lt;br /&gt;
% 2. Vista superior - diagrama polar&lt;br /&gt;
subplot(2,3,2);&lt;br /&gt;
polarplot(theta, r, 'b-', 'LineWidth', 1.5);&lt;br /&gt;
title('Diagrama polar (r,θ)');&lt;br /&gt;
rlim([0 V0*1.1]);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Figura adicional: Superficie cilíndrica de referencia&lt;br /&gt;
figure;&lt;br /&gt;
% Crear malla para superficie cilíndrica&lt;br /&gt;
[Z, TH] = meshgrid(linspace(-4*dE, 0, 20), linspace(min(theta), max(theta), 30));&lt;br /&gt;
R_surf = V0 * exp(Z/dE);&lt;br /&gt;
[X_surf, Y_surf] = pol2cart(TH, R_surf);&lt;br /&gt;
&lt;br /&gt;
% Graficar superficie cilíndrica&lt;br /&gt;
surf(X_surf, Y_surf, Z, 'FaceAlpha', 0.1, 'EdgeAlpha', 0.3);&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Graficar curva&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 3);&lt;br /&gt;
&lt;br /&gt;
% Configurar&lt;br /&gt;
xlabel('x'); ylabel('y'); zlabel('z');&lt;br /&gt;
title('Espiral sobre superficie cilíndrica de referencia');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
view(40, 25);&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf r'(z)\times\mathbf r''(z)=\Big(-\dfrac{2A}{d_E^2}\cos\varphi,\; \dfrac{2A}{d_E^2}\operatorname{sgn}(f)\sin\varphi,\; \dfrac{2A^2\operatorname{sgn}(f)}{d_E^3}(\cos2\varphi-\sin2\varphi)\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'\times\mathbf r''\rVert^{2}=\dfrac{4A^{2}}{d_E^{4}}\Big(1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'(z)\rVert^{2}=1+\dfrac{2A^{2}}{d_E^{2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z)=\dfrac{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert}{\lVert\mathbf r'(z)\rVert^{3}}&lt;br /&gt;
=\dfrac{\dfrac{2A}{d_E^{2}}\displaystyle\sqrt{1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}}}&lt;br /&gt;
{\bigl(1+\dfrac{2A^{2}}{d_E^{2}}\bigr)^{3/2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau(z)=\dfrac{\det\bigl[\mathbf r'(z),\mathbf r''(z),\mathbf r'''(z)\bigr]}{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert^{2}}&lt;br /&gt;
=-\,\dfrac{\operatorname{sgn}(f)\,d_E}{\,d_E^{2}+A^{2}(\cos2\varphi-\sin2\varphi)^{2}\, }.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;br /&gt;
&lt;br /&gt;
== Espiral logarítmica de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La proyección de la espiral de Ekman sobre el plano horizontal (𝑥, 𝑦) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = (u(z), v(z)),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítrmica es ....&lt;br /&gt;
&lt;br /&gt;
===Representación de la espiral en el plano XY===&lt;br /&gt;
Se tiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) \, V_0 \, e^{z/d_E} \, \cos\!\left( \frac{z}{d_E} + \vartheta \right) \\&lt;br /&gt;
v(z) &amp;amp;= V_0 \, e^{z/d_E} \, \sin\!\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;con &amp;lt;math&amp;gt;z \in (-\infty, 0]&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos escribir:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El ángulo polar θ satisface:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan \theta = \frac{v}{u} = \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;Sea &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte), &amp;lt;math&amp;gt;\operatorname{sgn}(f) = +1&amp;lt;/math&amp;gt;, entonces:&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \frac{z}{d_E} + \vartheta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
x(\theta) &amp;amp;= \rho(\theta) \cos \theta = V_0 e^{z/d_E} \cos \frac{z}{d_E} + \vartheta&lt;br /&gt;
\\&lt;br /&gt;
y(\theta) &amp;amp;= \rho(\theta) \sin \theta = V_0 e^{z/d_E} \sin \frac{z}{d_E} + \vartheta&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Representación paramétrica en ''XY'' '''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = \left( V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \; V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right) \right), \quad z \leq 0&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Verificación en coordenadas polares:&amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; ===&lt;br /&gt;
&lt;br /&gt;
Tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\rho &amp;amp;= V_0 e^{z/d_E}, \\&lt;br /&gt;
\theta &amp;amp;= \frac{z}{d_E} + \vartheta.&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Despejamos &amp;lt;math&amp;gt;z/d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{z}{d_E} = \theta - \vartheta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos en &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho = V_0 e^{\theta - \vartheta} = \underbrace{(V_0 e^{-\vartheta})}_{\rho_0} e^{\theta}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto es de la forma &amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; con &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por lo tanto la espiral logarítmica cumple&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta},\quad b = 1,\quad \rho_0 = V_0 e^{-\vartheta}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nota: Si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\operatorname{sgn}(f) = -1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= -V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Ángulo entre vector posición y vector tangente ===&lt;br /&gt;
&lt;br /&gt;
Trabajemos con la forma polar &amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; y parametizamos la curva en θ. El vector posición es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r}(\theta) = \rho(\theta) \mathbf{e}_r&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''derivada''' respecto θ de (proporcional al vector tangente) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho'(\theta) \mathbf{e}_r + \rho(\theta) \mathbf{e}_\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\rho'(\theta) = b\rho(\theta)&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho(\theta) \left( b \mathbf{e}_r + \mathbf{e}_\theta\right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Producto escalar'''&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\mathbf{r} = \rho \mathbf{e}_r&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} &lt;br /&gt;
&amp;amp;= (\rho \mathbf{e}_r) \cdot (b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta) \\&lt;br /&gt;
&amp;amp;= \rho \cdot b\rho (\mathbf{e}_r \cdot \mathbf{e}_r) + \rho^2 (\mathbf{e}_r \cdot \mathbf{e}_\theta).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pero &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_r = 1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_\theta = 0&amp;lt;/math&amp;gt;, luego:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} = b\rho^2.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Módulos'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;|\mathbf{r}| = \rho,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\left|\frac{d\mathbf{r}}{d\theta}\right| = |b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta| = \rho \sqrt{b^2 + 1}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; entre &amp;lt;math&amp;gt;\mathbf{r}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta}&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos \alpha = \frac{\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta}}{|\mathbf{r}| \, \left|\frac{d\mathbf{r}}{d\theta}\right|} = \frac{b\rho^2}{\rho \cdot \rho \sqrt{b^2 + 1}} = \frac{b}{\sqrt{b^2 + 1}}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que esto no depende de θ se verifica la propiedad característica de la espiral logarítmica que dice que el ángulo es constante.&lt;br /&gt;
&lt;br /&gt;
De &amp;lt;math&amp;gt;\cos \alpha = \frac{b}{\sqrt{b^2 + 1}}&amp;lt;/math&amp;gt; tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = \frac{b}{1} = b.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la espiral de Ekman (caso &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt;) en (b) obtuvimos &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = 1 \Rightarrow \alpha = \frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto el ángulo que forman el vector posición y el vector tangente es &amp;lt;math&amp;gt;\frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Aplicaciones de la espiral logarítmica en ingeniería ===&lt;br /&gt;
&lt;br /&gt;
====¿Por qué esta curva aparece tan frecuentemente en la naturaleza?====&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98594</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98594"/>
				<updated>2025-12-04T11:50:26Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial \vec{v} */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
'''INTRODUCCION'''&lt;br /&gt;
&lt;br /&gt;
El efecto de Ekman constituye uno de los mecanismos fundamentales para comprender cómo el viento y la rotación terrestre influyen en la circulación oceánica. Descubierto a comienzos del siglo XX por Vagn Walfrid Ekman, este fenómeno describe cómo la acción combinada de la fricción y la fuerza de Coriolis genera una desviación progresiva en la dirección de las corrientes marinas. El resultado es la formación de la espiral de Ekman, una estructura tridimensional en la que cada capa de agua se mueve en un ángulo distinto respecto a la anterior, con una intensidad que disminuye con la profundidad.&lt;br /&gt;
&lt;br /&gt;
Este proceso no solo explica la orientación del flujo superficial respecto al viento, sino que también determina el transporte de Ekman, un movimiento neto de agua perpendicular al viento que desempeña un papel crucial en la dinámica oceánica. Dicho transporte es responsable de fenómenos como la surgencia costera, el enriquecimiento de nutrientes y la regulación térmica en numerosos sistemas marinos. Comprender estos mecanismos resulta esencial para analizar la circulación en regiones como el archipiélago canario, donde las condiciones atmosféricas y oceánicas favorecen la manifestación clara del efecto de Ekman.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiraldavid1.png|300px|thumb|left|Espiral de Ekman 3D]]&lt;br /&gt;
[[Archivo:espiralhorizontal2.png|300px|thumb|left|Proyección horizontal: espiral logarítmica]]&lt;br /&gt;
&lt;br /&gt;
'''Ecuaciones del flujo y soluciones'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua es &amp;lt;math&amp;gt;\vec{V} = u(z)\vec{i} + v(z)\vec{j}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; apunta al este, &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt; al norte, y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la profundidad (con &amp;lt;math&amp;gt;z \leq 0&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt; la superficie). Las componentes &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; satisfacen las ecuaciones de Ekman:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d^2u}{dz^2} = -\frac{f}{\nu_e} v, \quad \frac{d^2v}{dz^2} = \frac{f}{\nu_e} u&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt; es el parámetro de Coriolis, con &amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \, \text{rad/s}&amp;lt;/math&amp;gt; la velocidad angular terrestre y &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; la latitud;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\nu_e&amp;lt;/math&amp;gt; es la viscosidad turbulenta (eddy viscosity), que representa el efecto de la turbulencia al mezclar las capas del fluido.&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La solución de estas ecuaciones diferenciales es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right),&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt; es la intensidad de la corriente superficial inducida por el viento;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\nu_e}{|f|}}&amp;lt;/math&amp;gt; es la profundidad de Ekman (escala de penetración);&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\operatorname{sgn}&amp;lt;/math&amp;gt; es la función signo&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0,&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
'''Parámetros del modelo'''&lt;br /&gt;
&lt;br /&gt;
Para los calculos consideraremos una localidad al largo de las Islas Canarias, con coordenadas aproximadas &amp;lt;math&amp;gt;30^\circ 10' 24.2'' \, \text{N}, \; 15^\circ 30' 26.5'' \, \text{W}&amp;lt;/math&amp;gt;, y los parámetros:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Viscosidad turbulenta: &amp;lt;math&amp;gt;\nu_e = 0.05 \, \text{m}^2/\text{s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Viento: sopla de norte a sur con velocidad &amp;lt;math&amp;gt;12 \, \text{m/s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Velocidad superficial inducida: &amp;lt;math&amp;gt;V_0 = 0.15 \, \text{m/s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Fase inicial: el flujo superficial está desviado aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento en el hemisferio norte.&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El parámetro de Coriolis es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Profundidad de Ekman \(d_E\) ===&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial &amp;lt;math&amp;gt;\vec{V}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis.&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición de integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta=\frac{3\pi}{4}&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha=\frac{\pi}{2}&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el oeste. Generalizado, se demuestra así que, con el fenómeno de Ekman, el flujo resultante es siempre perpendicular a la dirección del viento, siendo su sentido dependiente precisamente del parámetro de Coriolis y del hemisferio en el que nos encontremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Espiral de Ekman en coordenadas cilíndricas ==&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman en el espacio 3D esta parametrizada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma(z) = (u(z), v(z), z),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekamn en el océano describe cómo varía la velocidad horizontal ''(u(z), v(z))'' con la profundidad ''z'' (con z=0 en la superficie y z&amp;lt;0 hacia el fondo).&lt;br /&gt;
&lt;br /&gt;
Una forma típica es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z) = \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;v(z) = V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt; es el parámetro de Coriolis &lt;br /&gt;
&lt;br /&gt;
*\(V_0\) es la intensidad de la corriente superficial inducida por el viento.&lt;br /&gt;
&lt;br /&gt;
*\(d_E\) es la profundidad de Ekman.&lt;br /&gt;
&lt;br /&gt;
*sgn es la función signo: &amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;, que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
*ϑ es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para pasarlo a coordenadas cilíndricas (r,θ,z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;x = u(z),\quad y = v(z),\quad z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
'''Para el radio:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E} \sqrt{\operatorname{sgn}(f)^2 \cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;donde &amp;lt;math&amp;gt;\theta_z = z/d_E&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Pero &amp;lt;math&amp;gt;\operatorname{sgn}(f)^2 = 1&amp;lt;/math&amp;gt; (es &amp;lt;math&amp;gt;\pm 1&amp;lt;/math&amp;gt;), así que dentro de la raíz solo queda:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta) = 1.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Por lo tanto:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para 0 (ángulo en el plano u,v):'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\theta(z) &amp;amp;= \arctan\!\left( \frac{v(z)}{u(z)} \right) \\&lt;br /&gt;
&amp;amp;= \arctan\!\left( \frac{V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* V_0 e^{z/d_E} se cancelan &lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \arctan\!\left( \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right) = \arctan\!\left( \frac{1}{\operatorname{sgn}(f)} \tan\!\left( \frac{z}{d_E} + \vartheta \right) \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;El factor &amp;lt;math&amp;gt;1/\operatorname{sgn}(f)&amp;lt;/math&amp;gt; es:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;+1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte),&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;-1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt; (hemisferio sur).&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos absorber este signo dentro del argumento, porque:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\arctan(-\tan A) = -A \ (\text{mod } \pi)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para la altura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto, la Espiral de Ekman en coordenadas cilíndricas es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;(r(z), \theta(z), z) = \left( V_0 e^{z/d_E},\; \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right),\; z \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Representación en MATLAB ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiralek.png|miniaturadeimagen|Representación de la Espiral de Ekman en coordenadas cilíndricas de &amp;lt;math&amp;gt;z = -4d_E&amp;lt;/math&amp;gt; con su superficie de referencia ]]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
% Parámetros&lt;br /&gt;
dE = 1;           % Profundidad de Ekman&lt;br /&gt;
V0 = 1;           % Velocidad superficial&lt;br /&gt;
f_sign = 1;       % 1 para hemisferio norte, -1 para sur&lt;br /&gt;
theta0 = pi/4;    % Fase inicial&lt;br /&gt;
&lt;br /&gt;
% Rango de z: de 0 a -4*dE&lt;br /&gt;
z = linspace(0, -4*dE, 500);&lt;br /&gt;
&lt;br /&gt;
% Coordenadas cilíndricas DIRECTAS (sin pasar por u, v)&lt;br /&gt;
r = V0 * exp(z/dE);  % Radio&lt;br /&gt;
theta = atan(tan(z/dE + theta0) / f_sign);  % Ángulo (simplificado)&lt;br /&gt;
&lt;br /&gt;
% Mejor usar atan2 para manejar cuadrantes correctamente:&lt;br /&gt;
% Reconstruimos u, v temporalmente solo para calcular theta correctamente:&lt;br /&gt;
u_temp = f_sign * V0 * exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v_temp = V0 * exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
theta = atan2(v_temp, u_temp);&lt;br /&gt;
&lt;br /&gt;
% Convertir cilíndricas a cartesianas para graficar en 3D&lt;br /&gt;
x_cil = r .* cos(theta);  % x = r*cos(θ)&lt;br /&gt;
y_cil = r .* sin(theta);  % y = r*sin(θ)&lt;br /&gt;
z_cil = z;                % z se mantiene igual&lt;br /&gt;
&lt;br /&gt;
% Representación 3D EN COORDENADAS CILÍNDRICAS&lt;br /&gt;
figure('Position', [100 100 1000 700]);&lt;br /&gt;
&lt;br /&gt;
% 1. Curva 3D en espacio cilíndrico transformado&lt;br /&gt;
subplot(2,3,[1 4]);&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 2);&lt;br /&gt;
hold on;&lt;br /&gt;
plot3(x_cil(1), y_cil(1), z_cil(1), 'ro', 'MarkerSize', 10, 'MarkerFaceColor', 'r');&lt;br /&gt;
plot3(x_cil(end), y_cil(end), z_cil(end), 'ks', 'MarkerSize', 10, 'MarkerFaceColor', 'k');&lt;br /&gt;
grid on;&lt;br /&gt;
xlabel('x = r cos(θ)');&lt;br /&gt;
ylabel('y = r sin(θ)');&lt;br /&gt;
zlabel('Profundidad z');&lt;br /&gt;
title('Espiral de Ekman en 3D (de coord. cilíndricas)');&lt;br /&gt;
view(40, 25);&lt;br /&gt;
axis equal;&lt;br /&gt;
&lt;br /&gt;
% 2. Vista superior - diagrama polar&lt;br /&gt;
subplot(2,3,2);&lt;br /&gt;
polarplot(theta, r, 'b-', 'LineWidth', 1.5);&lt;br /&gt;
title('Diagrama polar (r,θ)');&lt;br /&gt;
rlim([0 V0*1.1]);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Figura adicional: Superficie cilíndrica de referencia&lt;br /&gt;
figure;&lt;br /&gt;
% Crear malla para superficie cilíndrica&lt;br /&gt;
[Z, TH] = meshgrid(linspace(-4*dE, 0, 20), linspace(min(theta), max(theta), 30));&lt;br /&gt;
R_surf = V0 * exp(Z/dE);&lt;br /&gt;
[X_surf, Y_surf] = pol2cart(TH, R_surf);&lt;br /&gt;
&lt;br /&gt;
% Graficar superficie cilíndrica&lt;br /&gt;
surf(X_surf, Y_surf, Z, 'FaceAlpha', 0.1, 'EdgeAlpha', 0.3);&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Graficar curva&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 3);&lt;br /&gt;
&lt;br /&gt;
% Configurar&lt;br /&gt;
xlabel('x'); ylabel('y'); zlabel('z');&lt;br /&gt;
title('Espiral sobre superficie cilíndrica de referencia');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
view(40, 25);&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf r'(z)\times\mathbf r''(z)=\Big(-\dfrac{2A}{d_E^2}\cos\varphi,\; \dfrac{2A}{d_E^2}\operatorname{sgn}(f)\sin\varphi,\; \dfrac{2A^2\operatorname{sgn}(f)}{d_E^3}(\cos2\varphi-\sin2\varphi)\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'\times\mathbf r''\rVert^{2}=\dfrac{4A^{2}}{d_E^{4}}\Big(1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'(z)\rVert^{2}=1+\dfrac{2A^{2}}{d_E^{2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z)=\dfrac{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert}{\lVert\mathbf r'(z)\rVert^{3}}&lt;br /&gt;
=\dfrac{\dfrac{2A}{d_E^{2}}\displaystyle\sqrt{1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}}}&lt;br /&gt;
{\bigl(1+\dfrac{2A^{2}}{d_E^{2}}\bigr)^{3/2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau(z)=\dfrac{\det\bigl[\mathbf r'(z),\mathbf r''(z),\mathbf r'''(z)\bigr]}{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert^{2}}&lt;br /&gt;
=-\,\dfrac{\operatorname{sgn}(f)\,d_E}{\,d_E^{2}+A^{2}(\cos2\varphi-\sin2\varphi)^{2}\, }.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;br /&gt;
&lt;br /&gt;
== Espiral logarítmica de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La proyección de la espiral de Ekman sobre el plano horizontal (𝑥, 𝑦) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = (u(z), v(z)),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítrmica es ....&lt;br /&gt;
&lt;br /&gt;
===Representación de la espiral en el plano XY===&lt;br /&gt;
Se tiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) \, V_0 \, e^{z/d_E} \, \cos\!\left( \frac{z}{d_E} + \vartheta \right) \\&lt;br /&gt;
v(z) &amp;amp;= V_0 \, e^{z/d_E} \, \sin\!\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;con &amp;lt;math&amp;gt;z \in (-\infty, 0]&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos escribir:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El ángulo polar θ satisface:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan \theta = \frac{v}{u} = \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;Sea &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte), &amp;lt;math&amp;gt;\operatorname{sgn}(f) = +1&amp;lt;/math&amp;gt;, entonces:&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \frac{z}{d_E} + \vartheta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
x(\theta) &amp;amp;= \rho(\theta) \cos \theta = V_0 e^{z/d_E} \cos \frac{z}{d_E} + \vartheta&lt;br /&gt;
\\&lt;br /&gt;
y(\theta) &amp;amp;= \rho(\theta) \sin \theta = V_0 e^{z/d_E} \sin \frac{z}{d_E} + \vartheta&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Representación paramétrica en ''XY'' '''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = \left( V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \; V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right) \right), \quad z \leq 0&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Verificación en coordenadas polares:&amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; ===&lt;br /&gt;
&lt;br /&gt;
Tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\rho &amp;amp;= V_0 e^{z/d_E}, \\&lt;br /&gt;
\theta &amp;amp;= \frac{z}{d_E} + \vartheta.&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Despejamos &amp;lt;math&amp;gt;z/d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{z}{d_E} = \theta - \vartheta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos en &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho = V_0 e^{\theta - \vartheta} = \underbrace{(V_0 e^{-\vartheta})}_{\rho_0} e^{\theta}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto es de la forma &amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; con &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por lo tanto la espiral logarítmica cumple&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta},\quad b = 1,\quad \rho_0 = V_0 e^{-\vartheta}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nota: Si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\operatorname{sgn}(f) = -1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= -V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Ángulo entre vector posición y vector tangente ===&lt;br /&gt;
&lt;br /&gt;
Trabajemos con la forma polar &amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; y parametizamos la curva en θ. El vector posición es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r}(\theta) = \rho(\theta) \mathbf{e}_r&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''derivada''' respecto θ de (proporcional al vector tangente) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho'(\theta) \mathbf{e}_r + \rho(\theta) \mathbf{e}_\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\rho'(\theta) = b\rho(\theta)&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho(\theta) \left( b \mathbf{e}_r + \mathbf{e}_\theta\right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Producto escalar'''&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\mathbf{r} = \rho \mathbf{e}_r&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} &lt;br /&gt;
&amp;amp;= (\rho \mathbf{e}_r) \cdot (b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta) \\&lt;br /&gt;
&amp;amp;= \rho \cdot b\rho (\mathbf{e}_r \cdot \mathbf{e}_r) + \rho^2 (\mathbf{e}_r \cdot \mathbf{e}_\theta).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pero &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_r = 1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_\theta = 0&amp;lt;/math&amp;gt;, luego:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} = b\rho^2.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Módulos'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;|\mathbf{r}| = \rho,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\left|\frac{d\mathbf{r}}{d\theta}\right| = |b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta| = \rho \sqrt{b^2 + 1}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; entre &amp;lt;math&amp;gt;\mathbf{r}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta}&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos \alpha = \frac{\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta}}{|\mathbf{r}| \, \left|\frac{d\mathbf{r}}{d\theta}\right|} = \frac{b\rho^2}{\rho \cdot \rho \sqrt{b^2 + 1}} = \frac{b}{\sqrt{b^2 + 1}}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que esto no depende de θ se verifica la propiedad característica de la espiral logarítmica que dice que el ángulo es constante.&lt;br /&gt;
&lt;br /&gt;
De &amp;lt;math&amp;gt;\cos \alpha = \frac{b}{\sqrt{b^2 + 1}}&amp;lt;/math&amp;gt; tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = \frac{b}{1} = b.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la espiral de Ekman (caso &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt;) en (b) obtuvimos &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = 1 \Rightarrow \alpha = \frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto el ángulo que forman el vector posición y el vector tangente es &amp;lt;math&amp;gt;\frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Aplicaciones de la espiral logarítmica en ingeniería ===&lt;br /&gt;
&lt;br /&gt;
====¿Por qué esta curva aparece tan frecuentemente en la naturaleza?====&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98589</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98589"/>
				<updated>2025-12-04T11:49:29Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial V */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
'''INTRODUCCION'''&lt;br /&gt;
&lt;br /&gt;
El efecto de Ekman constituye uno de los mecanismos fundamentales para comprender cómo el viento y la rotación terrestre influyen en la circulación oceánica. Descubierto a comienzos del siglo XX por Vagn Walfrid Ekman, este fenómeno describe cómo la acción combinada de la fricción y la fuerza de Coriolis genera una desviación progresiva en la dirección de las corrientes marinas. El resultado es la formación de la espiral de Ekman, una estructura tridimensional en la que cada capa de agua se mueve en un ángulo distinto respecto a la anterior, con una intensidad que disminuye con la profundidad.&lt;br /&gt;
&lt;br /&gt;
Este proceso no solo explica la orientación del flujo superficial respecto al viento, sino que también determina el transporte de Ekman, un movimiento neto de agua perpendicular al viento que desempeña un papel crucial en la dinámica oceánica. Dicho transporte es responsable de fenómenos como la surgencia costera, el enriquecimiento de nutrientes y la regulación térmica en numerosos sistemas marinos. Comprender estos mecanismos resulta esencial para analizar la circulación en regiones como el archipiélago canario, donde las condiciones atmosféricas y oceánicas favorecen la manifestación clara del efecto de Ekman.&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiraldavid1.png|300px|thumb|left|Espiral de Ekman 3D]]&lt;br /&gt;
[[Archivo:espiralhorizontal2.png|300px|thumb|left|Proyección horizontal: espiral logarítmica]]&lt;br /&gt;
&lt;br /&gt;
'''Ecuaciones del flujo y soluciones'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua es &amp;lt;math&amp;gt;\vec{V} = u(z)\vec{i} + v(z)\vec{j}&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; apunta al este, &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt; al norte, y &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; es la profundidad (con &amp;lt;math&amp;gt;z \leq 0&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt; la superficie). Las componentes &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; satisfacen las ecuaciones de Ekman:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d^2u}{dz^2} = -\frac{f}{\nu_e} v, \quad \frac{d^2v}{dz^2} = \frac{f}{\nu_e} u&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt; es el parámetro de Coriolis, con &amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \, \text{rad/s}&amp;lt;/math&amp;gt; la velocidad angular terrestre y &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; la latitud;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\nu_e&amp;lt;/math&amp;gt; es la viscosidad turbulenta (eddy viscosity), que representa el efecto de la turbulencia al mezclar las capas del fluido.&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La solución de estas ecuaciones diferenciales es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right),&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt; es la intensidad de la corriente superficial inducida por el viento;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\nu_e}{|f|}}&amp;lt;/math&amp;gt; es la profundidad de Ekman (escala de penetración);&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;\operatorname{sgn}&amp;lt;/math&amp;gt; es la función signo&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0,&lt;br /&gt;
\end{cases}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
'''Parámetros del modelo'''&lt;br /&gt;
&lt;br /&gt;
Para los calculos consideraremos una localidad al largo de las Islas Canarias, con coordenadas aproximadas &amp;lt;math&amp;gt;30^\circ 10' 24.2'' \, \text{N}, \; 15^\circ 30' 26.5'' \, \text{W}&amp;lt;/math&amp;gt;, y los parámetros:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Viscosidad turbulenta: &amp;lt;math&amp;gt;\nu_e = 0.05 \, \text{m}^2/\text{s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Viento: sopla de norte a sur con velocidad &amp;lt;math&amp;gt;12 \, \text{m/s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Velocidad superficial inducida: &amp;lt;math&amp;gt;V_0 = 0.15 \, \text{m/s}&amp;lt;/math&amp;gt;;&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;Fase inicial: el flujo superficial está desviado aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento en el hemisferio norte.&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El parámetro de Coriolis es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Profundidad de Ekman \(d_E\) ===&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis.&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición de integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta=\frac{3\pi}{4}&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha=\frac{\pi}{2}&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el oeste. Generalizado, se demuestra así que, con el fenómeno de Ekman, el flujo resultante es siempre perpendicular a la dirección del viento, siendo su sentido dependiente precisamente del parámetro de Coriolis y del hemisferio en el que nos encontremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Espiral de Ekman en coordenadas cilíndricas ==&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman en el espacio 3D esta parametrizada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma(z) = (u(z), v(z), z),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekamn en el océano describe cómo varía la velocidad horizontal ''(u(z), v(z))'' con la profundidad ''z'' (con z=0 en la superficie y z&amp;lt;0 hacia el fondo).&lt;br /&gt;
&lt;br /&gt;
Una forma típica es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z) = \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;v(z) = V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt; es el parámetro de Coriolis &lt;br /&gt;
&lt;br /&gt;
*\(V_0\) es la intensidad de la corriente superficial inducida por el viento.&lt;br /&gt;
&lt;br /&gt;
*\(d_E\) es la profundidad de Ekman.&lt;br /&gt;
&lt;br /&gt;
*sgn es la función signo: &amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;, que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
*ϑ es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para pasarlo a coordenadas cilíndricas (r,θ,z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;x = u(z),\quad y = v(z),\quad z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
'''Para el radio:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E} \sqrt{\operatorname{sgn}(f)^2 \cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;donde &amp;lt;math&amp;gt;\theta_z = z/d_E&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Pero &amp;lt;math&amp;gt;\operatorname{sgn}(f)^2 = 1&amp;lt;/math&amp;gt; (es &amp;lt;math&amp;gt;\pm 1&amp;lt;/math&amp;gt;), así que dentro de la raíz solo queda:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta) = 1.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Por lo tanto:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para 0 (ángulo en el plano u,v):'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\theta(z) &amp;amp;= \arctan\!\left( \frac{v(z)}{u(z)} \right) \\&lt;br /&gt;
&amp;amp;= \arctan\!\left( \frac{V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* V_0 e^{z/d_E} se cancelan &lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \arctan\!\left( \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right) = \arctan\!\left( \frac{1}{\operatorname{sgn}(f)} \tan\!\left( \frac{z}{d_E} + \vartheta \right) \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;El factor &amp;lt;math&amp;gt;1/\operatorname{sgn}(f)&amp;lt;/math&amp;gt; es:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;+1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte),&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;-1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt; (hemisferio sur).&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos absorber este signo dentro del argumento, porque:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\arctan(-\tan A) = -A \ (\text{mod } \pi)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para la altura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto, la Espiral de Ekman en coordenadas cilíndricas es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;(r(z), \theta(z), z) = \left( V_0 e^{z/d_E},\; \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right),\; z \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Representación en MATLAB ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiralek.png|miniaturadeimagen|Representación de la Espiral de Ekman en coordenadas cilíndricas de &amp;lt;math&amp;gt;z = -4d_E&amp;lt;/math&amp;gt; con su superficie de referencia ]]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
% Parámetros&lt;br /&gt;
dE = 1;           % Profundidad de Ekman&lt;br /&gt;
V0 = 1;           % Velocidad superficial&lt;br /&gt;
f_sign = 1;       % 1 para hemisferio norte, -1 para sur&lt;br /&gt;
theta0 = pi/4;    % Fase inicial&lt;br /&gt;
&lt;br /&gt;
% Rango de z: de 0 a -4*dE&lt;br /&gt;
z = linspace(0, -4*dE, 500);&lt;br /&gt;
&lt;br /&gt;
% Coordenadas cilíndricas DIRECTAS (sin pasar por u, v)&lt;br /&gt;
r = V0 * exp(z/dE);  % Radio&lt;br /&gt;
theta = atan(tan(z/dE + theta0) / f_sign);  % Ángulo (simplificado)&lt;br /&gt;
&lt;br /&gt;
% Mejor usar atan2 para manejar cuadrantes correctamente:&lt;br /&gt;
% Reconstruimos u, v temporalmente solo para calcular theta correctamente:&lt;br /&gt;
u_temp = f_sign * V0 * exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v_temp = V0 * exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
theta = atan2(v_temp, u_temp);&lt;br /&gt;
&lt;br /&gt;
% Convertir cilíndricas a cartesianas para graficar en 3D&lt;br /&gt;
x_cil = r .* cos(theta);  % x = r*cos(θ)&lt;br /&gt;
y_cil = r .* sin(theta);  % y = r*sin(θ)&lt;br /&gt;
z_cil = z;                % z se mantiene igual&lt;br /&gt;
&lt;br /&gt;
% Representación 3D EN COORDENADAS CILÍNDRICAS&lt;br /&gt;
figure('Position', [100 100 1000 700]);&lt;br /&gt;
&lt;br /&gt;
% 1. Curva 3D en espacio cilíndrico transformado&lt;br /&gt;
subplot(2,3,[1 4]);&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 2);&lt;br /&gt;
hold on;&lt;br /&gt;
plot3(x_cil(1), y_cil(1), z_cil(1), 'ro', 'MarkerSize', 10, 'MarkerFaceColor', 'r');&lt;br /&gt;
plot3(x_cil(end), y_cil(end), z_cil(end), 'ks', 'MarkerSize', 10, 'MarkerFaceColor', 'k');&lt;br /&gt;
grid on;&lt;br /&gt;
xlabel('x = r cos(θ)');&lt;br /&gt;
ylabel('y = r sin(θ)');&lt;br /&gt;
zlabel('Profundidad z');&lt;br /&gt;
title('Espiral de Ekman en 3D (de coord. cilíndricas)');&lt;br /&gt;
view(40, 25);&lt;br /&gt;
axis equal;&lt;br /&gt;
&lt;br /&gt;
% 2. Vista superior - diagrama polar&lt;br /&gt;
subplot(2,3,2);&lt;br /&gt;
polarplot(theta, r, 'b-', 'LineWidth', 1.5);&lt;br /&gt;
title('Diagrama polar (r,θ)');&lt;br /&gt;
rlim([0 V0*1.1]);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Figura adicional: Superficie cilíndrica de referencia&lt;br /&gt;
figure;&lt;br /&gt;
% Crear malla para superficie cilíndrica&lt;br /&gt;
[Z, TH] = meshgrid(linspace(-4*dE, 0, 20), linspace(min(theta), max(theta), 30));&lt;br /&gt;
R_surf = V0 * exp(Z/dE);&lt;br /&gt;
[X_surf, Y_surf] = pol2cart(TH, R_surf);&lt;br /&gt;
&lt;br /&gt;
% Graficar superficie cilíndrica&lt;br /&gt;
surf(X_surf, Y_surf, Z, 'FaceAlpha', 0.1, 'EdgeAlpha', 0.3);&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Graficar curva&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 3);&lt;br /&gt;
&lt;br /&gt;
% Configurar&lt;br /&gt;
xlabel('x'); ylabel('y'); zlabel('z');&lt;br /&gt;
title('Espiral sobre superficie cilíndrica de referencia');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
view(40, 25);&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf r'(z)\times\mathbf r''(z)=\Big(-\dfrac{2A}{d_E^2}\cos\varphi,\; \dfrac{2A}{d_E^2}\operatorname{sgn}(f)\sin\varphi,\; \dfrac{2A^2\operatorname{sgn}(f)}{d_E^3}(\cos2\varphi-\sin2\varphi)\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'\times\mathbf r''\rVert^{2}=\dfrac{4A^{2}}{d_E^{4}}\Big(1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'(z)\rVert^{2}=1+\dfrac{2A^{2}}{d_E^{2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z)=\dfrac{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert}{\lVert\mathbf r'(z)\rVert^{3}}&lt;br /&gt;
=\dfrac{\dfrac{2A}{d_E^{2}}\displaystyle\sqrt{1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}}}&lt;br /&gt;
{\bigl(1+\dfrac{2A^{2}}{d_E^{2}}\bigr)^{3/2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau(z)=\dfrac{\det\bigl[\mathbf r'(z),\mathbf r''(z),\mathbf r'''(z)\bigr]}{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert^{2}}&lt;br /&gt;
=-\,\dfrac{\operatorname{sgn}(f)\,d_E}{\,d_E^{2}+A^{2}(\cos2\varphi-\sin2\varphi)^{2}\, }.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;br /&gt;
&lt;br /&gt;
== Espiral logarítmica de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La proyección de la espiral de Ekman sobre el plano horizontal (𝑥, 𝑦) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = (u(z), v(z)),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítrmica es ....&lt;br /&gt;
&lt;br /&gt;
===Representación de la espiral en el plano XY===&lt;br /&gt;
Se tiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) \, V_0 \, e^{z/d_E} \, \cos\!\left( \frac{z}{d_E} + \vartheta \right) \\&lt;br /&gt;
v(z) &amp;amp;= V_0 \, e^{z/d_E} \, \sin\!\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;con &amp;lt;math&amp;gt;z \in (-\infty, 0]&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos escribir:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El ángulo polar θ satisface:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan \theta = \frac{v}{u} = \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;Sea &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte), &amp;lt;math&amp;gt;\operatorname{sgn}(f) = +1&amp;lt;/math&amp;gt;, entonces:&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \frac{z}{d_E} + \vartheta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
x(\theta) &amp;amp;= \rho(\theta) \cos \theta = V_0 e^{z/d_E} \cos \frac{z}{d_E} + \vartheta&lt;br /&gt;
\\&lt;br /&gt;
y(\theta) &amp;amp;= \rho(\theta) \sin \theta = V_0 e^{z/d_E} \sin \frac{z}{d_E} + \vartheta&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Representación paramétrica en ''XY'' '''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = \left( V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \; V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right) \right), \quad z \leq 0&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Verificación en coordenadas polares:&amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; ===&lt;br /&gt;
&lt;br /&gt;
Tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\rho &amp;amp;= V_0 e^{z/d_E}, \\&lt;br /&gt;
\theta &amp;amp;= \frac{z}{d_E} + \vartheta.&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Despejamos &amp;lt;math&amp;gt;z/d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{z}{d_E} = \theta - \vartheta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos en &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho = V_0 e^{\theta - \vartheta} = \underbrace{(V_0 e^{-\vartheta})}_{\rho_0} e^{\theta}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto es de la forma &amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; con &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por lo tanto la espiral logarítmica cumple&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta},\quad b = 1,\quad \rho_0 = V_0 e^{-\vartheta}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nota: Si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\operatorname{sgn}(f) = -1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= -V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Ángulo entre vector posición y vector tangente ===&lt;br /&gt;
&lt;br /&gt;
Trabajemos con la forma polar &amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; y parametizamos la curva en θ. El vector posición es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r}(\theta) = \rho(\theta) \mathbf{e}_r&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''derivada''' respecto θ de (proporcional al vector tangente) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho'(\theta) \mathbf{e}_r + \rho(\theta) \mathbf{e}_\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\rho'(\theta) = b\rho(\theta)&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho(\theta) \left( b \mathbf{e}_r + \mathbf{e}_\theta\right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Producto escalar'''&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\mathbf{r} = \rho \mathbf{e}_r&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} &lt;br /&gt;
&amp;amp;= (\rho \mathbf{e}_r) \cdot (b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta) \\&lt;br /&gt;
&amp;amp;= \rho \cdot b\rho (\mathbf{e}_r \cdot \mathbf{e}_r) + \rho^2 (\mathbf{e}_r \cdot \mathbf{e}_\theta).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pero &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_r = 1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_\theta = 0&amp;lt;/math&amp;gt;, luego:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} = b\rho^2.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Módulos'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;|\mathbf{r}| = \rho,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\left|\frac{d\mathbf{r}}{d\theta}\right| = |b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta| = \rho \sqrt{b^2 + 1}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; entre &amp;lt;math&amp;gt;\mathbf{r}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta}&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos \alpha = \frac{\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta}}{|\mathbf{r}| \, \left|\frac{d\mathbf{r}}{d\theta}\right|} = \frac{b\rho^2}{\rho \cdot \rho \sqrt{b^2 + 1}} = \frac{b}{\sqrt{b^2 + 1}}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que esto no depende de θ se verifica la propiedad característica de la espiral logarítmica que dice que el ángulo es constante.&lt;br /&gt;
&lt;br /&gt;
De &amp;lt;math&amp;gt;\cos \alpha = \frac{b}{\sqrt{b^2 + 1}}&amp;lt;/math&amp;gt; tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = \frac{b}{1} = b.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la espiral de Ekman (caso &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt;) en (b) obtuvimos &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = 1 \Rightarrow \alpha = \frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto el ángulo que forman el vector posición y el vector tangente es &amp;lt;math&amp;gt;\frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Aplicaciones de la espiral logarítmica en ingeniería ===&lt;br /&gt;
&lt;br /&gt;
====¿Por qué esta curva aparece tan frecuentemente en la naturaleza?====&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98420</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98420"/>
				<updated>2025-12-04T11:21:18Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
'''INTRODUCCION'''&lt;br /&gt;
&lt;br /&gt;
El efecto de Ekman constituye uno de los mecanismos fundamentales para comprender cómo el viento y la rotación terrestre influyen en la circulación oceánica. Descubierto a comienzos del siglo XX por Vagn Walfrid Ekman, este fenómeno describe cómo la acción combinada de la fricción y la fuerza de Coriolis genera una desviación progresiva en la dirección de las corrientes marinas. El resultado es la formación de la espiral de Ekman, una estructura tridimensional en la que cada capa de agua se mueve en un ángulo distinto respecto a la anterior, con una intensidad que disminuye con la profundidad.&lt;br /&gt;
&lt;br /&gt;
Este proceso no solo explica la orientación del flujo superficial respecto al viento, sino que también determina el transporte de Ekman, un movimiento neto de agua perpendicular al viento que desempeña un papel crucial en la dinámica oceánica. Dicho transporte es responsable de fenómenos como la surgencia costera, el enriquecimiento de nutrientes y la regulación térmica en numerosos sistemas marinos. Comprender estos mecanismos resulta esencial para analizar la circulación en regiones como el archipiélago canario, donde las condiciones atmosféricas y oceánicas favorecen la manifestación clara del efecto de Ekman.&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El parámetro de Coriolis es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Profundidad de Ekman \(d_E\) ===&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial V ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis.&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición de integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta=\frac{3\pi}{4}&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha=\frac{\pi}{2}&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el oeste. Generalizado, se demuestra así que, con el fenómeno de Ekman, el flujo resultante es siempre perpendicular a la dirección del viento, siendo su sentido dependiente precisamente del parámetro de Coriolis y del hemisferio en el que nos encontremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Espiral de Ekman en coordenadas cilíndricas ==&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman en el espacio 3D esta parametrizada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma(z) = (u(z), v(z), z),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekamn en el océano describe cómo varía la velocidad horizontal ''(u(z), v(z))'' con la profundidad ''z'' (con z=0 en la superficie y z&amp;lt;0 hacia el fondo).&lt;br /&gt;
&lt;br /&gt;
Una forma típica es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z) = \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;v(z) = V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt; es el parámetro de Coriolis &lt;br /&gt;
&lt;br /&gt;
*\(V_0\) es la intensidad de la corriente superficial inducida por el viento.&lt;br /&gt;
&lt;br /&gt;
*\(d_E\) es la profundidad de Ekman.&lt;br /&gt;
&lt;br /&gt;
*sgn es la función signo: &amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;, que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
*ϑ es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para pasarlo a coordenadas cilíndricas (r,θ,z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;x = u(z),\quad y = v(z),\quad z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
'''Para el radio:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E} \sqrt{\operatorname{sgn}(f)^2 \cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;donde &amp;lt;math&amp;gt;\theta_z = z/d_E&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Pero &amp;lt;math&amp;gt;\operatorname{sgn}(f)^2 = 1&amp;lt;/math&amp;gt; (es &amp;lt;math&amp;gt;\pm 1&amp;lt;/math&amp;gt;), así que dentro de la raíz solo queda:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta) = 1.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Por lo tanto:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para 0 (ángulo en el plano u,v):'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\theta(z) &amp;amp;= \arctan\!\left( \frac{v(z)}{u(z)} \right) \\&lt;br /&gt;
&amp;amp;= \arctan\!\left( \frac{V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* V_0 e^{z/d_E} se cancelan &lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \arctan\!\left( \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right) = \arctan\!\left( \frac{1}{\operatorname{sgn}(f)} \tan\!\left( \frac{z}{d_E} + \vartheta \right) \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;El factor &amp;lt;math&amp;gt;1/\operatorname{sgn}(f)&amp;lt;/math&amp;gt; es:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;+1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte),&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;-1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt; (hemisferio sur).&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos absorber este signo dentro del argumento, porque:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\arctan(-\tan A) = -A \ (\text{mod } \pi)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para la altura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto, la Espiral de Ekman en coordenadas cilíndricas es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;(r(z), \theta(z), z) = \left( V_0 e^{z/d_E},\; \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right),\; z \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Representación en MATLAB ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiralek.png|miniaturadeimagen|Representación de la Espiral de Ekman en coordenadas cilíndricas de &amp;lt;math&amp;gt;z = -4d_E&amp;lt;/math&amp;gt; con su superficie de referencia ]]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
% Parámetros&lt;br /&gt;
dE = 1;           % Profundidad de Ekman&lt;br /&gt;
V0 = 1;           % Velocidad superficial&lt;br /&gt;
f_sign = 1;       % 1 para hemisferio norte, -1 para sur&lt;br /&gt;
theta0 = pi/4;    % Fase inicial&lt;br /&gt;
&lt;br /&gt;
% Rango de z: de 0 a -4*dE&lt;br /&gt;
z = linspace(0, -4*dE, 500);&lt;br /&gt;
&lt;br /&gt;
% Coordenadas cilíndricas DIRECTAS (sin pasar por u, v)&lt;br /&gt;
r = V0 * exp(z/dE);  % Radio&lt;br /&gt;
theta = atan(tan(z/dE + theta0) / f_sign);  % Ángulo (simplificado)&lt;br /&gt;
&lt;br /&gt;
% Mejor usar atan2 para manejar cuadrantes correctamente:&lt;br /&gt;
% Reconstruimos u, v temporalmente solo para calcular theta correctamente:&lt;br /&gt;
u_temp = f_sign * V0 * exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v_temp = V0 * exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
theta = atan2(v_temp, u_temp);&lt;br /&gt;
&lt;br /&gt;
% Convertir cilíndricas a cartesianas para graficar en 3D&lt;br /&gt;
x_cil = r .* cos(theta);  % x = r*cos(θ)&lt;br /&gt;
y_cil = r .* sin(theta);  % y = r*sin(θ)&lt;br /&gt;
z_cil = z;                % z se mantiene igual&lt;br /&gt;
&lt;br /&gt;
% Representación 3D EN COORDENADAS CILÍNDRICAS&lt;br /&gt;
figure('Position', [100 100 1000 700]);&lt;br /&gt;
&lt;br /&gt;
% 1. Curva 3D en espacio cilíndrico transformado&lt;br /&gt;
subplot(2,3,[1 4]);&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 2);&lt;br /&gt;
hold on;&lt;br /&gt;
plot3(x_cil(1), y_cil(1), z_cil(1), 'ro', 'MarkerSize', 10, 'MarkerFaceColor', 'r');&lt;br /&gt;
plot3(x_cil(end), y_cil(end), z_cil(end), 'ks', 'MarkerSize', 10, 'MarkerFaceColor', 'k');&lt;br /&gt;
grid on;&lt;br /&gt;
xlabel('x = r cos(θ)');&lt;br /&gt;
ylabel('y = r sin(θ)');&lt;br /&gt;
zlabel('Profundidad z');&lt;br /&gt;
title('Espiral de Ekman en 3D (de coord. cilíndricas)');&lt;br /&gt;
view(40, 25);&lt;br /&gt;
axis equal;&lt;br /&gt;
&lt;br /&gt;
% 2. Vista superior - diagrama polar&lt;br /&gt;
subplot(2,3,2);&lt;br /&gt;
polarplot(theta, r, 'b-', 'LineWidth', 1.5);&lt;br /&gt;
title('Diagrama polar (r,θ)');&lt;br /&gt;
rlim([0 V0*1.1]);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Figura adicional: Superficie cilíndrica de referencia&lt;br /&gt;
figure;&lt;br /&gt;
% Crear malla para superficie cilíndrica&lt;br /&gt;
[Z, TH] = meshgrid(linspace(-4*dE, 0, 20), linspace(min(theta), max(theta), 30));&lt;br /&gt;
R_surf = V0 * exp(Z/dE);&lt;br /&gt;
[X_surf, Y_surf] = pol2cart(TH, R_surf);&lt;br /&gt;
&lt;br /&gt;
% Graficar superficie cilíndrica&lt;br /&gt;
surf(X_surf, Y_surf, Z, 'FaceAlpha', 0.1, 'EdgeAlpha', 0.3);&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Graficar curva&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 3);&lt;br /&gt;
&lt;br /&gt;
% Configurar&lt;br /&gt;
xlabel('x'); ylabel('y'); zlabel('z');&lt;br /&gt;
title('Espiral sobre superficie cilíndrica de referencia');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
view(40, 25);&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf r'(z)\times\mathbf r''(z)=\Big(-\dfrac{2A}{d_E^2}\cos\varphi,\; \dfrac{2A}{d_E^2}\operatorname{sgn}(f)\sin\varphi,\; \dfrac{2A^2\operatorname{sgn}(f)}{d_E^3}(\cos2\varphi-\sin2\varphi)\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'\times\mathbf r''\rVert^{2}=\dfrac{4A^{2}}{d_E^{4}}\Big(1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'(z)\rVert^{2}=1+\dfrac{2A^{2}}{d_E^{2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z)=\dfrac{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert}{\lVert\mathbf r'(z)\rVert^{3}}&lt;br /&gt;
=\dfrac{\dfrac{2A}{d_E^{2}}\displaystyle\sqrt{1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}}}&lt;br /&gt;
{\bigl(1+\dfrac{2A^{2}}{d_E^{2}}\bigr)^{3/2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau(z)=\dfrac{\det\bigl[\mathbf r'(z),\mathbf r''(z),\mathbf r'''(z)\bigr]}{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert^{2}}&lt;br /&gt;
=-\,\dfrac{\operatorname{sgn}(f)\,d_E}{\,d_E^{2}+A^{2}(\cos2\varphi-\sin2\varphi)^{2}\, }.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;br /&gt;
&lt;br /&gt;
== Espiral logarítmica de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La proyección de la espiral de Ekman sobre el plano horizontal (𝑥, 𝑦) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = (u(z), v(z)),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítrmica es ....&lt;br /&gt;
&lt;br /&gt;
===Representación de la espiral en el plano XY===&lt;br /&gt;
Se tiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) \, V_0 \, e^{z/d_E} \, \cos\!\left( \frac{z}{d_E} + \vartheta \right) \\&lt;br /&gt;
v(z) &amp;amp;= V_0 \, e^{z/d_E} \, \sin\!\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;con &amp;lt;math&amp;gt;z \in (-\infty, 0]&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos escribir:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El ángulo polar θ satisface:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan \theta = \frac{v}{u} = \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;Sea &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte), &amp;lt;math&amp;gt;\operatorname{sgn}(f) = +1&amp;lt;/math&amp;gt;, entonces:&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \frac{z}{d_E} + \vartheta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
x(\theta) &amp;amp;= \rho(\theta) \cos \theta = V_0 e^{z/d_E} \cos \frac{z}{d_E} + \vartheta&lt;br /&gt;
\\&lt;br /&gt;
y(\theta) &amp;amp;= \rho(\theta) \sin \theta = V_0 e^{z/d_E} \sin \frac{z}{d_E} + \vartheta&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Representación paramétrica en ''XY'' '''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = \left( V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \; V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right) \right), \quad z \leq 0&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Verificación en coordenadas polares:&amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; ===&lt;br /&gt;
&lt;br /&gt;
Tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\rho &amp;amp;= V_0 e^{z/d_E}, \\&lt;br /&gt;
\theta &amp;amp;= \frac{z}{d_E} + \vartheta.&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Despejamos &amp;lt;math&amp;gt;z/d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{z}{d_E} = \theta - \vartheta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos en &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho = V_0 e^{\theta - \vartheta} = \underbrace{(V_0 e^{-\vartheta})}_{\rho_0} e^{\theta}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto es de la forma &amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; con &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por lo tanto la espiral logarítmica cumple&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta},\quad b = 1,\quad \rho_0 = V_0 e^{-\vartheta}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nota: Si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\operatorname{sgn}(f) = -1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= -V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Ángulo entre vector posición y vector tangente ===&lt;br /&gt;
&lt;br /&gt;
Trabajemos con la forma polar &amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; y parametizamos la curva en θ. El vector posición es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r}(\theta) = \rho(\theta) \mathbf{e}_r&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''derivada''' respecto θ de (proporcional al vector tangente) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho'(\theta) \mathbf{e}_r + \rho(\theta) \mathbf{e}_\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\rho'(\theta) = b\rho(\theta)&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho(\theta) \left( b \mathbf{e}_r + \mathbf{e}_\theta\right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Producto escalar'''&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\mathbf{r} = \rho \mathbf{e}_r&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} &lt;br /&gt;
&amp;amp;= (\rho \mathbf{e}_r) \cdot (b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta) \\&lt;br /&gt;
&amp;amp;= \rho \cdot b\rho (\mathbf{e}_r \cdot \mathbf{e}_r) + \rho^2 (\mathbf{e}_r \cdot \mathbf{e}_\theta).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pero &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_r = 1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_\theta = 0&amp;lt;/math&amp;gt;, luego:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} = b\rho^2.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Módulos'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;|\mathbf{r}| = \rho,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\left|\frac{d\mathbf{r}}{d\theta}\right| = |b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta| = \rho \sqrt{b^2 + 1}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; entre &amp;lt;math&amp;gt;\mathbf{r}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta}&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos \alpha = \frac{\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta}}{|\mathbf{r}| \, \left|\frac{d\mathbf{r}}{d\theta}\right|} = \frac{b\rho^2}{\rho \cdot \rho \sqrt{b^2 + 1}} = \frac{b}{\sqrt{b^2 + 1}}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que esto no depende de θ se verifica la propiedad característica de la espiral logarítmica que dice que el ángulo es constante.&lt;br /&gt;
&lt;br /&gt;
De &amp;lt;math&amp;gt;\cos \alpha = \frac{b}{\sqrt{b^2 + 1}}&amp;lt;/math&amp;gt; tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = \frac{b}{1} = b.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la espiral de Ekman (caso &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt;) en (b) obtuvimos &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = 1 \Rightarrow \alpha = \frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto el ángulo que forman el vector posición y el vector tangente es &amp;lt;math&amp;gt;\frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Aplicaciones de la espiral logarítmica en ingeniería ===&lt;br /&gt;
&lt;br /&gt;
====¿Por qué esta curva aparece tan frecuentemente en la naturaleza?====&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98349</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=98349"/>
				<updated>2025-12-04T11:02:20Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Rotacional de \vec{v} */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
'''INTRODUCCION'''&lt;br /&gt;
&lt;br /&gt;
El efecto de Ekman constituye uno de los mecanismos fundamentales para comprender cómo el viento y la rotación terrestre influyen en la circulación oceánica. Descubierto a comienzos del siglo XX por Vagn Walfrid Ekman, este fenómeno describe cómo la acción combinada de la fricción y la fuerza de Coriolis genera una desviación progresiva en la dirección de las corrientes marinas. El resultado es la formación de la espiral de Ekman, una estructura tridimensional en la que cada capa de agua se mueve en un ángulo distinto respecto a la anterior, con una intensidad que disminuye con la profundidad.&lt;br /&gt;
&lt;br /&gt;
Este proceso no solo explica la orientación del flujo superficial respecto al viento, sino que también determina el transporte de Ekman, un movimiento neto de agua perpendicular al viento que desempeña un papel crucial en la dinámica oceánica. Dicho transporte es responsable de fenómenos como la surgencia costera, el enriquecimiento de nutrientes y la regulación térmica en numerosos sistemas marinos. Comprender estos mecanismos resulta esencial para analizar la circulación en regiones como el archipiélago canario, donde las condiciones atmosféricas y oceánicas favorecen la manifestación clara del efecto de Ekman.&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El parámetro de Coriolis es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Profundidad de Ekman \(d_E\) ===&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis.&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición de integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta=\frac{3\pi}{4}&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha=\frac{\pi}{2}&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el oeste. Generalizado, se demuestra así que, con el fenómeno de Ekman, el flujo resultante es siempre perpendicular a la dirección del viento, siendo su sentido dependiente precisamente del parámetro de Coriolis y del hemisferio en el que nos encontremos.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Espiral de Ekman en coordenadas cilíndricas ==&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman en el espacio 3D esta parametrizada por:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma(z) = (u(z), v(z), z),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekamn en el océano describe cómo varía la velocidad horizontal ''(u(z), v(z))'' con la profundidad ''z'' (con z=0 en la superficie y z&amp;lt;0 hacia el fondo).&lt;br /&gt;
&lt;br /&gt;
Una forma típica es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z) = \operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;v(z) = V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt; es el parámetro de Coriolis &lt;br /&gt;
&lt;br /&gt;
*\(V_0\) es la intensidad de la corriente superficial inducida por el viento.&lt;br /&gt;
&lt;br /&gt;
*\(d_E\) es la profundidad de Ekman.&lt;br /&gt;
&lt;br /&gt;
*sgn es la función signo: &amp;lt;math&amp;gt;\operatorname{sgn}(x) = &lt;br /&gt;
\begin{cases} &lt;br /&gt;
1 &amp;amp; \text{si } x &amp;gt; 0, \\&lt;br /&gt;
0 &amp;amp; \text{si } x = 0, \\&lt;br /&gt;
-1 &amp;amp; \text{si } x &amp;lt; 0&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/math&amp;gt;, que determina un signo diferente según el hemisferio.&lt;br /&gt;
&lt;br /&gt;
*ϑ es la fase inicial (ángulo de desviación superficial), determinada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para pasarlo a coordenadas cilíndricas (r,θ,z):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;x = u(z),\quad y = v(z),\quad z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Calculamos:&lt;br /&gt;
&lt;br /&gt;
'''Para el radio:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E} \sqrt{\operatorname{sgn}(f)^2 \cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta)}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;donde &amp;lt;math&amp;gt;\theta_z = z/d_E&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Pero &amp;lt;math&amp;gt;\operatorname{sgn}(f)^2 = 1&amp;lt;/math&amp;gt; (es &amp;lt;math&amp;gt;\pm 1&amp;lt;/math&amp;gt;), así que dentro de la raíz solo queda:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos^2(\theta_z + \vartheta) + \sin^2(\theta_z + \vartheta) = 1.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&amp;lt;p&amp;gt;Por lo tanto:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;r(z) = V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para 0 (ángulo en el plano u,v):'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\theta(z) &amp;amp;= \arctan\!\left( \frac{v(z)}{u(z)} \right) \\&lt;br /&gt;
&amp;amp;= \arctan\!\left( \frac{V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* V_0 e^{z/d_E} se cancelan &lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \arctan\!\left( \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)} \right) = \arctan\!\left( \frac{1}{\operatorname{sgn}(f)} \tan\!\left( \frac{z}{d_E} + \vartheta \right) \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;El factor &amp;lt;math&amp;gt;1/\operatorname{sgn}(f)&amp;lt;/math&amp;gt; es:&amp;lt;/p&amp;gt;&lt;br /&gt;
&amp;lt;ul&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;+1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte),&amp;lt;/li&amp;gt;&lt;br /&gt;
  &amp;lt;li&amp;gt;&amp;lt;math&amp;gt;-1&amp;lt;/math&amp;gt; si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt; (hemisferio sur).&amp;lt;/li&amp;gt;&lt;br /&gt;
&amp;lt;/ul&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos absorber este signo dentro del argumento, porque:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\arctan(-\tan A) = -A \ (\text{mod } \pi)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Para la altura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;z = z&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto, la Espiral de Ekman en coordenadas cilíndricas es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;(r(z), \theta(z), z) = \left( V_0 e^{z/d_E},\; \operatorname{sgn}(f)\left( \frac{z}{d_E} + \vartheta \right),\; z \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== Representación en MATLAB ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:espiralek.png|miniaturadeimagen|Representación de la Espiral de Ekman en coordenadas cilíndricas de &amp;lt;math&amp;gt;z = -4d_E&amp;lt;/math&amp;gt; con su superficie de referencia ]]&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
% Parámetros&lt;br /&gt;
dE = 1;           % Profundidad de Ekman&lt;br /&gt;
V0 = 1;           % Velocidad superficial&lt;br /&gt;
f_sign = 1;       % 1 para hemisferio norte, -1 para sur&lt;br /&gt;
theta0 = pi/4;    % Fase inicial&lt;br /&gt;
&lt;br /&gt;
% Rango de z: de 0 a -4*dE&lt;br /&gt;
z = linspace(0, -4*dE, 500);&lt;br /&gt;
&lt;br /&gt;
% Coordenadas cilíndricas DIRECTAS (sin pasar por u, v)&lt;br /&gt;
r = V0 * exp(z/dE);  % Radio&lt;br /&gt;
theta = atan(tan(z/dE + theta0) / f_sign);  % Ángulo (simplificado)&lt;br /&gt;
&lt;br /&gt;
% Mejor usar atan2 para manejar cuadrantes correctamente:&lt;br /&gt;
% Reconstruimos u, v temporalmente solo para calcular theta correctamente:&lt;br /&gt;
u_temp = f_sign * V0 * exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v_temp = V0 * exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
theta = atan2(v_temp, u_temp);&lt;br /&gt;
&lt;br /&gt;
% Convertir cilíndricas a cartesianas para graficar en 3D&lt;br /&gt;
x_cil = r .* cos(theta);  % x = r*cos(θ)&lt;br /&gt;
y_cil = r .* sin(theta);  % y = r*sin(θ)&lt;br /&gt;
z_cil = z;                % z se mantiene igual&lt;br /&gt;
&lt;br /&gt;
% Representación 3D EN COORDENADAS CILÍNDRICAS&lt;br /&gt;
figure('Position', [100 100 1000 700]);&lt;br /&gt;
&lt;br /&gt;
% 1. Curva 3D en espacio cilíndrico transformado&lt;br /&gt;
subplot(2,3,[1 4]);&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 2);&lt;br /&gt;
hold on;&lt;br /&gt;
plot3(x_cil(1), y_cil(1), z_cil(1), 'ro', 'MarkerSize', 10, 'MarkerFaceColor', 'r');&lt;br /&gt;
plot3(x_cil(end), y_cil(end), z_cil(end), 'ks', 'MarkerSize', 10, 'MarkerFaceColor', 'k');&lt;br /&gt;
grid on;&lt;br /&gt;
xlabel('x = r cos(θ)');&lt;br /&gt;
ylabel('y = r sin(θ)');&lt;br /&gt;
zlabel('Profundidad z');&lt;br /&gt;
title('Espiral de Ekman en 3D (de coord. cilíndricas)');&lt;br /&gt;
view(40, 25);&lt;br /&gt;
axis equal;&lt;br /&gt;
&lt;br /&gt;
% 2. Vista superior - diagrama polar&lt;br /&gt;
subplot(2,3,2);&lt;br /&gt;
polarplot(theta, r, 'b-', 'LineWidth', 1.5);&lt;br /&gt;
title('Diagrama polar (r,θ)');&lt;br /&gt;
rlim([0 V0*1.1]);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Figura adicional: Superficie cilíndrica de referencia&lt;br /&gt;
figure;&lt;br /&gt;
% Crear malla para superficie cilíndrica&lt;br /&gt;
[Z, TH] = meshgrid(linspace(-4*dE, 0, 20), linspace(min(theta), max(theta), 30));&lt;br /&gt;
R_surf = V0 * exp(Z/dE);&lt;br /&gt;
[X_surf, Y_surf] = pol2cart(TH, R_surf);&lt;br /&gt;
&lt;br /&gt;
% Graficar superficie cilíndrica&lt;br /&gt;
surf(X_surf, Y_surf, Z, 'FaceAlpha', 0.1, 'EdgeAlpha', 0.3);&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Graficar curva&lt;br /&gt;
plot3(x_cil, y_cil, z_cil, 'b-', 'LineWidth', 3);&lt;br /&gt;
&lt;br /&gt;
% Configurar&lt;br /&gt;
xlabel('x'); ylabel('y'); zlabel('z');&lt;br /&gt;
title('Espiral sobre superficie cilíndrica de referencia');&lt;br /&gt;
axis equal;&lt;br /&gt;
grid on;&lt;br /&gt;
view(40, 25);&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf r'(z)\times\mathbf r''(z)=\Big(-\dfrac{2A}{d_E^2}\cos\varphi,\; \dfrac{2A}{d_E^2}\operatorname{sgn}(f)\sin\varphi,\; \dfrac{2A^2\operatorname{sgn}(f)}{d_E^3}(\cos2\varphi-\sin2\varphi)\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'\times\mathbf r''\rVert^{2}=\dfrac{4A^{2}}{d_E^{4}}\Big(1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}\Big)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\lVert\mathbf r'(z)\rVert^{2}=1+\dfrac{2A^{2}}{d_E^{2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z)=\dfrac{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert}{\lVert\mathbf r'(z)\rVert^{3}}&lt;br /&gt;
=\dfrac{\dfrac{2A}{d_E^{2}}\displaystyle\sqrt{1+\dfrac{A^{2}}{d_E^{2}}(\cos2\varphi-\sin2\varphi)^{2}}}&lt;br /&gt;
{\bigl(1+\dfrac{2A^{2}}{d_E^{2}}\bigr)^{3/2}}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau(z)=\dfrac{\det\bigl[\mathbf r'(z),\mathbf r''(z),\mathbf r'''(z)\bigr]}{\lVert\mathbf r'(z)\times\mathbf r''(z)\rVert^{2}}&lt;br /&gt;
=-\,\dfrac{\operatorname{sgn}(f)\,d_E}{\,d_E^{2}+A^{2}(\cos2\varphi-\sin2\varphi)^{2}\, }.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;br /&gt;
&lt;br /&gt;
== Espiral logarítmica de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La proyección de la espiral de Ekman sobre el plano horizontal (𝑥, 𝑦) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = (u(z), v(z)),\quad z \in (-\infty, 0]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítrmica es ....&lt;br /&gt;
&lt;br /&gt;
===Representación de la espiral en el plano XY===&lt;br /&gt;
Se tiene:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= \operatorname{sgn}(f) \, V_0 \, e^{z/d_E} \, \cos\!\left( \frac{z}{d_E} + \vartheta \right) \\&lt;br /&gt;
v(z) &amp;amp;= V_0 \, e^{z/d_E} \, \sin\!\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;con &amp;lt;math&amp;gt;z \in (-\infty, 0]&amp;lt;/math&amp;gt;.&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Podemos escribir:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(z) = \sqrt{u(z)^2 + v(z)^2} = V_0 e^{z/d_E}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El ángulo polar θ satisface:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan \theta = \frac{v}{u} = \frac{\sin\!\left( \frac{z}{d_E} + \vartheta \right)}{\operatorname{sgn}(f) \cos\!\left( \frac{z}{d_E} + \vartheta \right)}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;Sea &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; (hemisferio norte), &amp;lt;math&amp;gt;\operatorname{sgn}(f) = +1&amp;lt;/math&amp;gt;, entonces:&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\theta(z) = \frac{z}{d_E} + \vartheta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En coordenadas cartesianas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
x(\theta) &amp;amp;= \rho(\theta) \cos \theta = V_0 e^{z/d_E} \cos \frac{z}{d_E} + \vartheta&lt;br /&gt;
\\&lt;br /&gt;
y(\theta) &amp;amp;= \rho(\theta) \sin \theta = V_0 e^{z/d_E} \sin \frac{z}{d_E} + \vartheta&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Representación paramétrica en ''XY'' '''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\gamma_{xy}(z) = \left( V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \; V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right) \right), \quad z \leq 0&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Verificación en coordenadas polares:&amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; ===&lt;br /&gt;
&lt;br /&gt;
Tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\rho &amp;amp;= V_0 e^{z/d_E}, \\&lt;br /&gt;
\theta &amp;amp;= \frac{z}{d_E} + \vartheta.&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Despejamos &amp;lt;math&amp;gt;z/d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{z}{d_E} = \theta - \vartheta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Sustituimos en &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho = V_0 e^{\theta - \vartheta} = \underbrace{(V_0 e^{-\vartheta})}_{\rho_0} e^{\theta}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Esto es de la forma &amp;lt;math&amp;gt;\rho = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; con &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Por lo tanto la espiral logarítmica cumple&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta},\quad b = 1,\quad \rho_0 = V_0 e^{-\vartheta}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Nota: Si &amp;lt;math&amp;gt;f &amp;lt; 0&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\operatorname{sgn}(f) = -1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
u(z) &amp;amp;= -V_0 e^{z/d_E} \cos\!\left( \frac{z}{d_E} + \vartheta \right), \\&lt;br /&gt;
v(z) &amp;amp;= V_0 e^{z/d_E} \sin\!\left( \frac{z}{d_E} + \vartheta \right).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Ángulo entre vector posición y vector tangente ===&lt;br /&gt;
&lt;br /&gt;
Trabajemos con la forma polar &amp;lt;math&amp;gt;\rho(\theta) = \rho_0 e^{b\theta}&amp;lt;/math&amp;gt; y parametizamos la curva en θ. El vector posición es&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r}(\theta) = \rho(\theta) \mathbf{e}_r&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''derivada''' respecto θ de (proporcional al vector tangente) es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho'(\theta) \mathbf{e}_r + \rho(\theta) \mathbf{e}_\theta&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\rho'(\theta) = b\rho(\theta)&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta} = \rho(\theta) \left( b \mathbf{e}_r + \mathbf{e}_\theta\right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Producto escalar'''&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;\mathbf{r} = \rho \mathbf{e}_r&amp;lt;/math&amp;gt;, tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\begin{aligned}&lt;br /&gt;
\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} &lt;br /&gt;
&amp;amp;= (\rho \mathbf{e}_r) \cdot (b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta) \\&lt;br /&gt;
&amp;amp;= \rho \cdot b\rho (\mathbf{e}_r \cdot \mathbf{e}_r) + \rho^2 (\mathbf{e}_r \cdot \mathbf{e}_\theta).&lt;br /&gt;
\end{aligned}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Pero &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_r = 1&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf{e}_r \cdot \mathbf{e}_\theta = 0&amp;lt;/math&amp;gt;, luego:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta} = b\rho^2.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Módulos'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;|\mathbf{r}| = \rho,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\left|\frac{d\mathbf{r}}{d\theta}\right| = |b\rho \mathbf{e}_r + \rho \mathbf{e}_\theta| = \rho \sqrt{b^2 + 1}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt; entre &amp;lt;math&amp;gt;\mathbf{r}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{d\mathbf{r}}{d\theta}&amp;lt;/math&amp;gt;'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cos \alpha = \frac{\mathbf{r} \cdot \frac{d\mathbf{r}}{d\theta}}{|\mathbf{r}| \, \left|\frac{d\mathbf{r}}{d\theta}\right|} = \frac{b\rho^2}{\rho \cdot \rho \sqrt{b^2 + 1}} = \frac{b}{\sqrt{b^2 + 1}}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que esto no depende de θ se verifica la propiedad característica de la espiral logarítmica que dice que el ángulo es constante.&lt;br /&gt;
&lt;br /&gt;
De &amp;lt;math&amp;gt;\cos \alpha = \frac{b}{\sqrt{b^2 + 1}}&amp;lt;/math&amp;gt; tenemos:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = \frac{b}{1} = b.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la espiral de Ekman (caso &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt;) en (b) obtuvimos &amp;lt;math&amp;gt;b = 1&amp;lt;/math&amp;gt;, entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\cot \alpha = 1 \Rightarrow \alpha = \frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Por tanto el ángulo que forman el vector posición y el vector tangente es &amp;lt;math&amp;gt;\frac{\pi}{4}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Aplicaciones de la espiral logarítmica en ingeniería ===&lt;br /&gt;
&lt;br /&gt;
====¿Por qué esta curva aparece tan frecuentemente en la naturaleza?====&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=97118</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=97118"/>
				<updated>2025-12-03T16:58:51Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Rotacional de \vec{v} */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El '''parámetro de Coriolis''' es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Profundidad de Ekman \(d_E\)  ==&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis (f).&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=97116</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=97116"/>
				<updated>2025-12-03T16:58:11Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
== Parámetro de Coriolis ''f'' ==&lt;br /&gt;
&lt;br /&gt;
El '''parámetro de Coriolis''' es una medida de la intensidad de la fuerza de Coriolis sobre un objeto en movimiento debido a la rotación de la Tierra:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi \quad [\text{s}^{-1}]&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;p&amp;gt;&lt;br /&gt;
*&amp;lt;math&amp;gt;\Omega = 7.2921 \times 10^{-5} \ \text{rad/s}&amp;lt;/math&amp;gt; (velocidad angular terrestre)&amp;lt;br&amp;gt;&lt;br /&gt;
&lt;br /&gt;
*&amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; es la latitud&lt;br /&gt;
&amp;lt;/p&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\phi : 30^\circ\;10' \;24.2''\; \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;10' = \frac{10}{60} = 0.1667^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;24.2'' = \frac{24.2}{3600} \approx 0.00672^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\phi = 30 + 0.1667 + 0.00672 = 30.17342^\circ\ \mathrm{N}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin \phi&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2 \times (7.2921 \times 10^{-5}) \times \sin(30.17342^\circ) \approx 7.33 \times 10^{-5}\ \mathrm{s}^{-1}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Lugares en la tierra donde ''f'' es positivo, negativo o nulo ===&lt;br /&gt;
Depende de la latitud:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;f = 2\Omega \sin\phi&amp;lt;/math&amp;gt;, donde:&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
\phi &amp;gt; 0 &amp;amp;\Rightarrow f &amp;gt; 0 \quad \text{(Hemisferio norte)} \\&lt;br /&gt;
\phi = 0 &amp;amp;\Rightarrow f = 0 \quad \text{(Ecuador)} \\&lt;br /&gt;
\phi &amp;lt; 0 &amp;amp;\Rightarrow f &amp;lt; 0 \quad \text{(Hemisferio sur)}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Profundidad de Ekman \(d_E\)  ==&lt;br /&gt;
&lt;br /&gt;
La '''profundidad de Ekman''' es el espesor de la capa superficial de océano donde el efecto de la fuerza de Coriolis y la fricción por el viento influyen significativamente en el movimiento del agua: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E = \sqrt{\frac{2v_e}{f}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde:&lt;br /&gt;
*\(v_e\) es la viscosidad turbulenta &lt;br /&gt;
*''f'' es el parámetro de Coriolis&lt;br /&gt;
&lt;br /&gt;
Para la localidad dada: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
d_E = \sqrt{\frac{2 \times 0.05 \ \text{m}^2/\text{s}}{7.33 \times 10^{-5} \ \text{s}^{-1}}} = \sqrt{\frac{0.1}{0.0000733}} = \sqrt{1364.26} \approx 36.94 \ \text{m}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Implicaciones para la Espiral de Ekman en diferentes latitudes ===&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio norte''': la dirección del flujo de Ekman se desvía a la derecha de la dirección del viento con la profundidad (visto desde arriba). En superficie, la corriente forma 45º a la derecha del viento en el caso teórico clásico con \(v_e\)  cte.&lt;br /&gt;
&lt;br /&gt;
'''Hemisferio sur''': la desviación es hacia a la izquierda del viento.&lt;br /&gt;
&lt;br /&gt;
'''Cerca del ecuador''': la profundidad de Ekman \(d_E\)→&amp;lt;math&amp;gt;\infty&amp;lt;/math&amp;gt; según la fórmula,  lo cual significa que la capa de Ekman se hace muy gruesa y la variación vertical es más lenta.  El transporte de Ekman aún existe si se usa teoría más general (''f'' variable), pero la espiral clásica (''f'' constante) deja de aplicarse, y la fuerza de Coriolis es débil.&lt;br /&gt;
Además: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;text-align: center;&amp;quot;&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\tan(\theta) = \frac{\text{componente transversal}}{\text{componente longitudinal}} = 1, \quad \text{para } \theta = 45^\circ&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
en el modelo clásico. Esto es independiente de ''f'' en magnitud, pero el sentido de giro con la profundidad sí depende del signo de ''f''.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
== Verificación de las soluciones de Ekman ==&lt;br /&gt;
Con el fin de confirmar que las expresiones analíticas propuestas para las componentes horizontales de la velocidad &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; constituyen efectivamente una solución del sistema de Ekman en régimen estacionario, se procede a derivar cada función dos veces con respecto a la coordenada vertical &amp;lt;math&amp;gt;𝑧&amp;lt;/math&amp;gt; y a comprobar que satisfacen las ecuaciones diferenciales. &lt;br /&gt;
&lt;br /&gt;
Para la componente &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; :&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Finalmente se obtiene :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2}= -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo que confirma que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; cumple su ecuación correspondiente. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Un procedimiento análogo aplicado a &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;&lt;br /&gt;
 &amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 \cdot e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
 &amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
conduce a&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En consecuencia, la pareja &amp;lt;math&amp;gt; (u(z), v(z))&amp;lt;/math&amp;gt;  constituye una solución válida del problema de Ekman y reproduce el acoplamiento dinámico entre ambas componentes horizontales impuesto por la fuerza de Coriolis y la fricción turbulenta vertical.&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ekman7JesusRivResized v2.gif|miniaturadeimagen|derecha|Animación de la '''espiral de Ekman''' (curva roja) vista desde el cenit y definida a partir del vector velocidad &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; (flecha de color cambiante) con su '''rotacional''' &amp;lt;math&amp;gt;\nabla\times\vec{v}&amp;lt;/math&amp;gt; (flecha rosa).]]&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis (f).&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== El transporte de Ekman ==&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se define formalmente como la integral vertical de las velocidades de Ekman a lo largo de toda la columna de agua afectada por el viento, desde la superficie hasta una profundidad donde el efecto del viento se vuelve despreciable. Esta definición integral representa el flujo neto de masa de agua que resulta de la espiral de Ekman, y es fundamental para comprender la circulación oceánica a gran escala.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El transporte de Ekman se obtiene integrando verticalmente la velocidad inducida por el viento (debido al efecto Coriolis y viscosidad) desde la superficie hasta donde el movimiento se vuelve despreciable. La expresión más común es: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Validez de la condición de contorno [math] z=−∞ [/math]===&lt;br /&gt;
La elección de &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; como límite inferior de integración es válida en el modelo de Ekman porque representa un océano de profundidad infinita. Esta suposición es válida por las siguientes razones:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''*Decaimiento exponencial de las velocidades''': &lt;br /&gt;
&lt;br /&gt;
Las soluciones de Ekman para las componentes de velocidad tienen la forma: &amp;lt;math&amp;gt;&lt;br /&gt;
\vec{u(z)} \sim e^{z/d_E}\,.\bigl(\text{funciones trigonométricas}\bigr)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Dado que &amp;lt;math&amp;gt;z&amp;lt;0 &amp;lt;/math&amp;gt; bajo la superficie, cuando &amp;lt;math&amp;gt; z&amp;lt;&amp;lt; -d &amp;lt;/math&amp;gt; (profundidades mucho mayores que la capa de Ekman), el término exponencial &amp;lt;math&amp;gt; e^{z/d_E} \;\longrightarrow\; 0 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''* Condición física:'''&lt;br /&gt;
&lt;br /&gt;
En profundidades suficientemente grandes, el efecto del viento superficial se desvanece completamente. La fricción entre capas de agua disminuye progresivamente con la profundidad, y eventualmente el movimiento inducido por el viento cesa. Por tanto, establecer &amp;lt;math&amp;gt; z=−∞ &amp;lt;/math&amp;gt; asegura que &amp;lt;math&amp;gt;\lim_{z\to -\infty} \vec{u}_E(z) = \vec{0}&amp;lt;/math&amp;gt; lo cual es físicamente consistente con un fondo marino &amp;quot;infinitamente profundo&amp;quot;.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Cálculo analítico de la integral===&lt;br /&gt;
&lt;br /&gt;
Para calcular &amp;lt;math&amp;gt; \vec{M}_E = \int_{-\infty}^{0} \vec{w(z)}\, dz &amp;lt;/math&amp;gt;, partimos de las ecuaciones de Ekman en estado estacionario:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f\,v = \nu_e \frac{\partial^2 u}{\partial z^2},&lt;br /&gt;
\qquad&lt;br /&gt;
f\,u = \nu_e \frac{\partial^2 v}{\partial z^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Integrando la primera ecuación desde &amp;lt;math&amp;gt; z=-∞ &amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; :&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \int_{-\infty}^{0} v \, dz &lt;br /&gt;
= \nu_e \left[ \frac{\partial u}{\partial z} \right]_{z=-\infty}^{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Dado que &amp;lt;math&amp;gt; u \longrightarrow 0 &amp;lt;/math&amp;gt; cuando &amp;lt;math&amp;gt;  z \longrightarrow - ∞ &amp;lt;/math&amp;gt; ,su derivada también se anula en el infinito. &lt;br /&gt;
&lt;br /&gt;
En la superficie (z = 0), el esfuerzo del viento se relaciona con la derivada de la velocidad mediante:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\tau_x = \rho\,\nu_e \left. \frac{\partial u}{\partial z} \right|_{z=0}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Por lo tanto:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
-f \, \frac{M_{Ey}}{\rho} = \frac{\tau_x}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ey} = -\,\frac{\tau_x}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Análogamente, integrando la segunda ecuación:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
f \, \frac{M_{Ex}}{\rho} = \frac{\tau_y}{\rho}&lt;br /&gt;
\;\;\Rightarrow\;\;&lt;br /&gt;
M_{Ex} = \frac{\tau_y}{f}&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
El transporte de Ekman resulta ser:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{M}_E = &lt;br /&gt;
\left(&lt;br /&gt;
\frac{\tau_y}{f},\;&lt;br /&gt;
-\frac{\tau_x}{f}&lt;br /&gt;
\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
===Demostración de perpendicularidad===&lt;br /&gt;
&lt;br /&gt;
Para verificar que &amp;lt;math&amp;gt;\vec{M}_E&amp;lt;/math&amp;gt; es perpendicular al viento, calculamos el producto escalar:&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{\tau} \cdot \vec{M}_E&lt;br /&gt;
= \tau_x \cdot \frac{\tau_y}{f}&lt;br /&gt;
+ \tau_y \cdot \left( -\,\frac{\tau_x}{f} \right)&lt;br /&gt;
= \frac{\tau_x \tau_y - \tau_y \tau_x}{f}&lt;br /&gt;
= 0&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Esto demuestra matemáticamente que el transporte neto de Ekman es siempre perpendicular a la dirección del viento.&lt;br /&gt;
En el Hemisferio Norte (&amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt;), el transporte es &amp;lt;math&amp;gt;90^{\circ}&amp;lt;/math&amp;gt; a la derecha del viento.&lt;br /&gt;
En el Hemisferio Sur (&amp;lt;math&amp;gt;f&amp;lt;0&amp;lt;/math&amp;gt;), es &amp;lt;math&amp;gt; 90^{\circ}&amp;lt;/math&amp;gt; a la izquierda.&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Longitud de arco de la espiral de Ekman ==&lt;br /&gt;
&lt;br /&gt;
La longitud de arco desde &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
L(Z)=\int_{-Z}^{0}\sqrt{\left(\frac{du}{dz}\right)^2+\left(\frac{dv}{dz}\right)^2}\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Vamos calculando la integral para distintos valores de z :&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(d_E)=\sqrt{2}\,V_0\big(1-e^{-1}\big)\approx 0.89395346735\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=2d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\; L(2d_E)=\sqrt{2}\,V_0\big(1-e^{-2}\big)\approx 1.22282056935\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
* Para \(Z=3d_E\):&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
 \;\;\;L(3d_E)=\sqrt{2}\,V_0\big(1-e^{-3}\big)\approx 1.34380401506\,V_0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Se observa que al aumentar &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt; la longitud se acerca a un valor límite y se aproxima a &amp;lt;math&amp;gt; \sqrt{2} V_0 &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Entonces la longitud de arco de la espiral de Ekman entre &amp;lt;math&amp;gt; z=0&amp;lt;/math&amp;gt; hasta &amp;lt;math&amp;gt; z=-Z&amp;lt;/math&amp;gt; es finita para cualquier &amp;lt;math&amp;gt;Z&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
De lo anterior se deduce que la longitud total, cuando &amp;lt;math&amp;gt; Z \longrightarrow \infty &amp;lt;/math&amp;gt;, converge a un valor finito, no diverge. Esto se debe a que la velocidad decrece exponencialmente con la profundidad, de modo que la contribución a la longitud de arco de capas muy profundas es cada vez menor y la integral total converge.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(grupo_20,_Retiro)&amp;diff=97080</id>
		<title>Espiral de Ekman (grupo 20, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(grupo_20,_Retiro)&amp;diff=97080"/>
				<updated>2025-12-03T16:49:11Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 20. | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC24/25|2024-25]] | Aitor Amunarriz López &amp;lt;br/&amp;gt; Daniel García Martínez &amp;lt;br/&amp;gt; Federico Flores Rohde &amp;lt;br/&amp;gt; Jesús Rivero López}}&lt;br /&gt;
[[Archivo:Ekman4AitorAResized_v2.gif|miniaturadeimagen|300px|1. Pequeña animación mostrando el campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; (flecha de color) respecto a profundidades descendentes, siguiendo la '''espiral de Ekman''' (curva negra) y '''hasta la profundidad de Ekman''' &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;. El viento es representado por la flecha negra (de norte a sur) y el color de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; varía respecto a la profundidad]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ekman5FedericoFlores.jpg|300px|miniaturadeimagen|derecha|2. Representación tridimensional de la '''Espiral de Ekman''' a partir de las velocidades. Las flechas indican el campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; según la profundidad, cambiando de color acordemente, hasta la profundidad &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;.]]&lt;br /&gt;
&amp;lt;div style=&amp;quot;margin: 30px;&amp;quot;&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''espiral de Ekman''' es el resultado del [https://es.wikipedia.org/wiki/Velocidad perfil de velocidades] respecto a la profundidad de una columna de [https://es.wikipedia.org/wiki/Agua agua] gracias al efecto Ekman. Este es causado por un viento constante que sopla sobre la superficie del océano, induciendo una corriente que, debido a la [https://es.wikipedia.org/wiki/Efecto_Coriolis '''fuerza de Coriolis'''], se desvía gradualmente. La alta viscosidad del agua provoca una discordancia entre la dirección de la velocidad entre una capa y otra.&amp;lt;ref&amp;gt;[https://link.springer.com/article/10.1007/BF02277927 The Ekman Spirals], artículo de Th. Hesselberg. ''En inglés''&amp;lt;/ref&amp;gt; &lt;br /&gt;
&lt;br /&gt;
El flujo neto se conoce como [https://es.wikipedia.org/wiki/Transporte_de_Ekman '''transporte de Ekman''']. &lt;br /&gt;
&lt;br /&gt;
El fenómeno fue por primera vez descrito por el explorador noruego [https://es.wikipedia.org/wiki/Fridtjof_Nansen Fridtjof Nansen] en una de sus misiones por el océano Ártico. Notó que los icebergs y distintos témpanos de [https://es.wikipedia.org/wiki/Hielo hielo] no seguían necesariamente la dirección del viento. El concepto fue formalizado por su estudiante, [https://es.wikipedia.org/wiki/Vagn_Walfrid_Ekman Vagn Walfrid Ekman], en 1905, aportando el planteamiento matemático necesario.&amp;lt;ref&amp;gt;[https://jscholarship.library.jhu.edu/items/6026d396-a902-488f-a737-f822ac36f674 On the influence of the earth's rotation on ocean-currents.], de Vagn Walfrid Ekman. (1905) ''En inglés''&amp;lt;/ref&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con el objetivo de describir el perfil de velocidad &amp;lt;math&amp;gt;\vec{v} = u\vec{i} + v\vec{j}&amp;lt;/math&amp;gt;, Ekman trabajó con la ecuaciones que nacen del equilibrio entre la fuerza Coriolis, la [https://es.wikipedia.org/wiki/Viscosidad viscosidad] del agua de mar y la velocidad inducida del viento, de manera que: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d^2 u}{d z^2} = - \frac{f}{\upsilon_e}v&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\ \ \frac{d^2 v}{d z^2} = \frac{f}{\upsilon_e}u&amp;lt;/math&amp;gt;, &lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; el parámetro de Coriolis definido como &amp;lt;math&amp;gt;f=2\Omega \sin(\phi)&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;\Omega&amp;lt;/math&amp;gt; la velocidad angular de la Tierra (unos ''7.2921·10&amp;lt;sup&amp;gt;-5&amp;lt;/sup&amp;gt;'' rad/s) y &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; la latitud, y &amp;lt;math&amp;gt;\upsilon_e&amp;lt;/math&amp;gt; la viscosidad turbulenta del agua. &lt;br /&gt;
&lt;br /&gt;
La solución ofrecida por Ekman a estas [https://es.wikipedia.org/wiki/Ecuación_diferencial ecuaciones diferenciales] tomaban la siguiente forma en función de la profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, conocidas además la fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; y la velocidad superficial inducida por el viento &amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt;: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;, &amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 · e^{\frac{z}{d_E}}\ \sin\left( \frac{z}{d_E}+\vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El término &amp;lt;math&amp;gt; d_E &amp;lt;/math&amp;gt;, conocido como '''profundidad de Ekman''', es la profundidad máxima a la que se considera la influencia del viento y la fuerza Coriolis sobre el movimiento del agua. Se define como: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Influencia del parámetro de Coriolis &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Como se puede notar en la solución de &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, se ha de tener en cuenta el signo del parámetro de Coriolis para poder conocer verdaderamente el desplazamiento de la velocidad. Dentro de la definición del parámetro &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; (&amp;lt;math&amp;gt;f=2\Omega \sin(\phi)&amp;lt;/math&amp;gt;), el seno de &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; toma valores entre -1 y 1 dependiendo de la '''[https://es.wikipedia.org/wiki/Latitud latitud]'''.  Esta se define a su vez entre ''-90º'' y ''90º'' (''90ºS'' y ''90ºN'', que, en radianes, &amp;lt;math&amp;gt;-\frac{\pi}{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{\pi}{2}&amp;lt;/math&amp;gt;). Los valores entre &amp;lt;math&amp;gt;\frac{\pi}{2}&amp;lt;/math&amp;gt; y ''0'' corresponden a latitudes entre el polo norte y el [https://es.wikipedia.org/wiki/Ecuador_terrestre ecuador] , es decir, al '''[https://es.wikipedia.org/wiki/Hemisferio_norte hemisferio norte]''', y, por tanto, a valores positivos de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;. En cambio, en el '''[https://es.wikipedia.org/wiki/Hemisferio_sur hemisferio sur]''' se darán valores negativos de este. El parámetro es nulo exclusivamente en el '''ecuador'''. &amp;lt;ref&amp;gt;[https://espanol.libretexts.org/Geociencias/Oceanografía/Introducción_a_la_Oceanografía_(Webb)/09%3A_Circulación_Oceánica/9.03%3A_La_espiral_de_Ekman_y_el_flujo_geostrófico La espiral de Ekman y el flujo geostrófico], artículo de Paul Webb, Roger Williams University. &amp;lt;/ref&amp;gt; &lt;br /&gt;
&lt;br /&gt;
El signo de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; se aplica en la solución de la ecuación mediante la función signo (&amp;lt;math&amp;gt;sgn(f)&amp;lt;/math&amp;gt;). &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para ejemplificar, en una latitud de 45ºN, &amp;lt;math&amp;gt;f=7.2921·10^{-5} \ rad·s^{-1}·\sin(\frac{\pi}{4})\approx 10^{-4} \ rad·s^{-1}&amp;lt;/math&amp;gt;, que sería un valor estándar.&lt;br /&gt;
&lt;br /&gt;
== Importancia del valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
[[Archivo:DiagramaPacíficoNorteFaseInicialGrupo20_2.png|250px|miniaturadeimagen|derecha|Diagrama de las condiciones explicadas. El viento corre de norte a sur representado por la flecha negra. La velocidad superficial (verde) se desvía 45º a la derecha. ]]&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es también de suma importancia para la definición de la espiral de Ekman. Se trata de una fase inicial determinada por la dirección del viento respecto a la fuera de Coriolis. &lt;br /&gt;
&lt;br /&gt;
Si, por ejemplo, nos encontramos a la [https://es.wikipedia.org/wiki/Latitud latitud] del ejemplo anterior, asumiendo una viscosidad turbulenta de unos ''0.1 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''10 m/s'' soplando de Norte a Sur, induciendo en la superficie una velocidad aproximada de ''0.2 m/s'' y un desvío aproximado de 45º hacia la derecha respecto a la dirección del viento, se intuye que: &amp;lt;br/&amp;gt;&lt;br /&gt;
* El valor &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt;. &lt;br /&gt;
* El cociente &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = \tan(45º) = 1. &amp;lt;/math&amp;gt;&lt;br /&gt;
* Se da que &amp;lt;math&amp;gt;f &amp;gt; 0 &amp;lt;/math&amp;gt; de manera que &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolvemos: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = \frac{V_0·e^{\frac{0}{d_E}}\ \sin\left(\vartheta\right)}{V_0·e^{\frac{0}{d_E}}\ \cos\left(\vartheta\right)} = \tan(\vartheta) = 1 \Rightarrow&amp;lt;/math&amp;gt; &lt;br /&gt;
&amp;lt;math&amp;gt;\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Atendiendo al diagrama, como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es &amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
== Solución a las ecuaciones diferenciales de Ekman ==&lt;br /&gt;
Para comprobar que Ekman, efectivamente, no se equivocaba con su planteamiento, es un buen ejercicio verificar que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son auténticamente la solución a las ecuaciones diferenciales planteadas. Es cuestión de derivar dos veces cada solución respecto de &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; cada ecuación. &lt;br /&gt;
&lt;br /&gt;
Por su parte, &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ordenamos un poco, eliminando el valor absoluto de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; a la vez que la función signo, ahora inútil: &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right) = -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Que es nuestro planteamiento inicial. &lt;br /&gt;
&lt;br /&gt;
Haciendo lo propio con &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{dv}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)+sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = 2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\cos\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Igual aplicación de la definición de &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = V_0e^{\frac{z}{d_E}}·\frac{f}{\upsilon_e}·\cos\left(\frac{z}{d_E}+\vartheta\right) = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Demostrando así que las soluciones son correctas.&lt;br /&gt;
&lt;br /&gt;
== Representación del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
Existen diversas e interesantes maneras de analizar el fenómeno descrito por Ekman, cada una de las cuales ofrece perspectivas valiosas y complementarias para su comprensión. La espiral, concebida como una '''estructura en tres dimensiones''', resulta particularmente interesante al ser estudiada también desde una vista en planta, ya que esta proyección bidimensional permite observar patrones que pueden pasar desapercibidos en su representación tridimensional.&lt;br /&gt;
&lt;br /&gt;
Con el objetivo de brindar una comprensión más completa, a continuación, se presentan los códigos correspondientes a ambas formas en las que se ha intentado ilustrar y explicar la curva mostrada en las figuras anteriores. &lt;br /&gt;
&lt;br /&gt;
* El código para la '''animación observada desde el cenit''', de manera que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; varía con la profundidad y es representada mediante una flecha de color cambiante (siguiendo los parámetros ejemplificativos anteriormente descritos): (1.)&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
dE = sqrt(2 * 0.1 / 10^-4); % Definición de dE&lt;br /&gt;
z = linspace(0, dE, 50); &lt;br /&gt;
% Definición de la curva&lt;br /&gt;
x = 0.2*exp(z / dE).*cos(z/dE+3/4*pi);&lt;br /&gt;
y = 0.2*exp(z / dE).*sin(z/dE+3/4*pi);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
plot(x,y, 'k', 'LineWidth', 1)&lt;br /&gt;
&lt;br /&gt;
u = 0.2*exp(0/dE)*cos(0/dE+3/4*pi); &lt;br /&gt;
v = 0.2*exp(0/dE)*sin(0/dE+3/4*pi);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
h = quiver(0,0,u,v, 0, 'LineWidth', 1, 'MaxHeadSize', 0.2);&lt;br /&gt;
quiver(0, 0.15, 0, -0.05, 'k', 'LineWidth', 1, 'MaxHeadSize', 0.7)&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Contador para la profundidad&lt;br /&gt;
n=1;&lt;br /&gt;
z_text = text(-0.5, 0.16, sprintf('z = %.2f m', z(n)), 'FontSize', 12, 'Color', 'k', ...&lt;br /&gt;
    'HorizontalAlignment', 'left', 'VerticalAlignment', 'top');&lt;br /&gt;
&lt;br /&gt;
set(gca, 'XAxisLocation', 'origin', 'YAxisLocation', 'origin', 'XColor', 'none', 'YColor', 'none')&lt;br /&gt;
axis([-0.6 0.1 -0.2 0.2])&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Variación de color de la flecha&lt;br /&gt;
cmap = jet(length(z)); &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
for n = 1:length(z)&lt;br /&gt;
&lt;br /&gt;
    %Vectores &lt;br /&gt;
    u = 0.2*exp(z(length(z)+1-n)/dE)*cos(z(length(z)+1-n)/dE+3/4*pi); &lt;br /&gt;
    v = 0.2*exp(z(length(z)+1-n)/dE)*sin(z(length(z)+1-n)/dE+3/4*pi);&lt;br /&gt;
    h.UData = u; h.VData = v;&lt;br /&gt;
&lt;br /&gt;
    % Color de vector&lt;br /&gt;
    color = cmap(n, :); &lt;br /&gt;
    h.Color = color; &lt;br /&gt;
    &lt;br /&gt;
    % Actualizar z&lt;br /&gt;
    z_text.String = sprintf('z = %.2f m', z(n));&lt;br /&gt;
    pause(0.1);&lt;br /&gt;
    &lt;br /&gt;
    exportgraphics(gca,&amp;quot;EkmanA4AitorA.gif&amp;quot;, &amp;quot;Append&amp;quot;,true)&lt;br /&gt;
&lt;br /&gt;
end }}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* En cambio, el ofrecido para una '''vista tridimensional isométrica''' de la curva: (2.)&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Variables&lt;br /&gt;
k = 20 * sqrt(5);&lt;br /&gt;
cz = linspace(-k, 0, 10);&lt;br /&gt;
x = zeros(1, 30);&lt;br /&gt;
y = x;&lt;br /&gt;
&lt;br /&gt;
% Coordenadas de la espiral&lt;br /&gt;
for i = 1:length(cz)&lt;br /&gt;
    z = cz(i);&lt;br /&gt;
    cx(i) = 0.2 * exp(z / k) * cos((z / k) + 3 * pi / 4);&lt;br /&gt;
    cy(i) = 0.2 * exp(z / k) * sin((z / k) + 3 * pi / 4);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
cmap = flipud(jet(length(cz))); &lt;br /&gt;
&lt;br /&gt;
% Graficar&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
for i = 1:length(cz)&lt;br /&gt;
    &lt;br /&gt;
    color = cmap(i, :);&lt;br /&gt;
    quiver3(0, 0, cz(i), cx(i), cy(i), 0, 'Color', color, 'AutoScale', 'off', 'LineWidth', 1.5);&lt;br /&gt;
    plot3(cx(i), cy(i), cz(i), 'o', 'MarkerFaceColor', color, 'MarkerEdgeColor', 'k');&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Velocidad i [m/s]')&lt;br /&gt;
ylabel('Velocidad j [m/s]')&lt;br /&gt;
zlabel('Profundidad [m]')&lt;br /&gt;
view(3)&lt;br /&gt;
grid on&lt;br /&gt;
colormap(flipud(jet))&lt;br /&gt;
hold off&lt;br /&gt;
}}&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante marcar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La demostración es trivial, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; mientras que todos los vectores resultantes son paralelos al plano marcado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto resulta que en que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, pues &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es en sí ya nulo.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la razón de esta nulidad de la divergencia. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
[[Archivo:Ekman7JesusRivResized v2.gif|miniaturadeimagen|derecha|Animación de la '''espiral de Ekman''' (curva roja) vista desde el cenit y definida a partir del vector velocidad &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; (flecha de color cambiante) con su '''rotacional''' &amp;lt;math&amp;gt;\nabla\times\vec{v}&amp;lt;/math&amp;gt; (flecha rosa).]]&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Flujo resultante ==&lt;br /&gt;
Gran parte de la problemática y motivación de Ekman era establecer el '''flujo de agua resultante''' de todo el fenómeno a partir de una columna de agua. Para calcularlo, conviene imaginarse un plano genérico &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; definido por el vector &amp;lt;math&amp;gt;\vec{n}_S=\cos\alpha\vec{i}+\sin\alpha\vec{j}&amp;lt;/math&amp;gt;, para un ángulo fijo &amp;lt;math&amp;gt;\alpha \in [0, 2\pi)&amp;lt;/math&amp;gt;. Este plano sobre el que mediremos el flujo tendría una profundidad infinita (&amp;lt;math&amp;gt;z \rightarrow \infty &amp;lt;/math&amp;gt;), aunque solo tendríamos que considerarlo hasta la profundidad &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, pues es hasta donde el efecto tiene sentido estudiarlo. &lt;br /&gt;
&lt;br /&gt;
Asimismo, diremos por conveniencia que el plano tiene una anchura &amp;lt;math&amp;gt;L&amp;lt;/math&amp;gt;, de dimensión muy inferior a la profundidad total del océano.&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo se hace uso del cálculo integral ateniendo a las definiciones pertinentes: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\Phi = \int_S \vec{v}·d\vec{S} = \int_S (\vec{v}·\vec{n}_S)\ dS = \iint_D (\vec{v}·\vec{n})\,dl\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos el dominio &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; de integración a partir de las dimensiones en las que existe el plano (lado &amp;lt;math&amp;gt;l&amp;lt;/math&amp;gt; y profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;). La profundidad vamos a considerarla entre &amp;lt;math&amp;gt;-\infty&amp;lt;/math&amp;gt; y ''0'' por fines educativos, mientras que el lado simplemente entre ''0'' y &amp;lt;math&amp;gt;L&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Asimismo, el resultado del producto vectorial &amp;lt;math&amp;gt;\vec{v}·\vec{n}_S &amp;lt;/math&amp;gt; es: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}·\vec{n}_S= \cos \alpha \cos\left(\frac{z}{d_E}+\vartheta\right)+\sin \alpha \sin\left(\frac{z}{d_E}+\vartheta\right) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Convenientemente, a partir de la ''fórmula de la suma de ángulos para el coseno'', intuimos que esto es igual a: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}·\vec{n}_S=\cos\left(\frac{z}{d_E}+\vartheta - \alpha\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Integramos cual integral doble: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\Phi = \int_{0}^{L} V_0 ·\left(\int_{-\infty}^{0} e^{\frac{z}{d_E}}&lt;br /&gt;
·\cos\left(\frac{z}{d_E}+\vartheta - \alpha\right) dz \right) dl&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La integral interior se resuelve por partes, resultando: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\Phi = \int_{0}^{L}\frac{V_0 \cdot d_E \cdot e^{\frac{z}{d_E}} \left(\cos\left(\frac{z}{d_E} + \vartheta - \alpha\right) + \sin\left(\frac{z}{d_E} + \vartheta - \alpha\right)\right)}{2} \, dl = &amp;lt;/math&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
= \int_{0}^{L} \frac{V_0}{2}· d_E \cdot \left(\sin\left(\vartheta - \alpha\right) + \cos\left(\vartheta - \alpha\right)\right) \, dl = &amp;lt;/math&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
= L \cdot \frac{V_0}{2} \cdot d_E \cdot \left(\sin\left(\vartheta - \alpha\right) + \cos\left(\vartheta - \alpha\right)\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta = 3\pi/4&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha = 3\pi/4&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el '''oeste'''. Generalizado, se demuestra así que, con el fenómeno de Ekman, el '''flujo resultante es siempre perpendicular a la dirección del viento''', siendo su sentido dependiente precisamente el parámetro de Coriolis y el hemisferio en el que nos encontremos.&amp;lt;ref&amp;gt;[https://www.divulgameteo.es/fotos/meteoroteca/Dinámica-espiral-Ekman.pdf Aspectos de la dinámica&lt;br /&gt;
de la espiral de Ekman], artículo de José Antonio López de la Asociación Meteorológica de España &amp;lt;/ref&amp;gt;&lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Expresión en distintas coordenadas ==&lt;br /&gt;
[[Archivo:CilinEkmanDanielGa.jpg|400px|miniaturadeimagen|derecha|Espiral de Ekman graficada en '''coordenadas cilíndricas''' para valores comprendidos entre la superficie y &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;. Naturalmente, la representación es idéntica a cualquier otro sistema de coordenadas.]]&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman, tal y como convenientemente su nombre indica, se trata de una espiral y por tanto tiene cierto carácter curvo. Para este tipo de construcciones, siempre es interesante conocer cómo se pueden observar en otro tipo de coordenadas. Es de particular interés para esta curva el planteamiento en [https://es.wikipedia.org/wiki/Coordenadas_cilíndricas '''coordenadas cilíndricas''']. &lt;br /&gt;
&lt;br /&gt;
Tal y como hemos descrito la curva anteriormente, la espiral de Ekman definida por el campo de velocidades respecto a la profundidad queda como: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{v}(t) = (u(z), v(z), z) = V_0 · e^{\frac{z}{d_E}} \ \left(sgn(f)·\cos\left( \frac{z}{d_E}+\vartheta\right), \ \sin\left( \frac{z}{d_E}+\vartheta \right), z\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para poder efectuar el cambio, partimos de las '''definiciones de las coordenadas cilíndricas''': &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\rho(z)=\sqrt{u(z)^2 +v(z)^2} \\&lt;br /&gt;
\theta(z)=\arctan\left(\frac{v(z)}{u(z)}\right)\\&lt;br /&gt;
z(z)=z&lt;br /&gt;
\end{cases}\&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Una vez aplicado todo, obtenemos: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\rho(z)=V_0·e^{\frac{z}{d_E}} \\&lt;br /&gt;
\theta(z)=\frac{z}{d_E}+\vartheta\\&lt;br /&gt;
z(z)=z&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Destacar que, puesto que &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; queda definido para valores positivos de la recta real, la '''función''' &amp;lt;math&amp;gt;sgn(f)&amp;lt;/math&amp;gt; '''es irrelevante'''. Ídem para &amp;lt;math&amp;gt;\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para expresar todo en la base física cilíndrica podemos usar la '''matriz de cambio de coordenadas cartesianas a cilíndricas''' &amp;lt;math&amp;gt;M_{C\ \rightarrow \ \mathcal{C}}&amp;lt;/math&amp;gt;. Sencillamente: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
[\vec{v}]_\mathcal{C} = M_{C\ \rightarrow \ \mathcal{C}} · [\vec{v}]_C = \rho ·&lt;br /&gt;
	&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\cos \theta &amp;amp; \sin \theta &amp;amp; 0\\&lt;br /&gt;
-\sin\theta &amp;amp; \cos\theta &amp;amp; 0\\&lt;br /&gt;
0 &amp;amp; 0 &amp;amp; 1&lt;br /&gt;
\end{pmatrix} · &lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
sgn(f)·\cos\theta\\&lt;br /&gt;
\sin\theta\\&lt;br /&gt;
z&lt;br /&gt;
\end{pmatrix} \Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
	&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vec{v}(\rho, \theta, z) = \rho\left( \cdot \cos^2 \theta + \sin^2 \theta \right)\vec{e_\rho}&lt;br /&gt;
+ \rho\left(-\sin \theta \cdot \cos \theta + \cos \theta \cdot \sin \theta\right)\vec{e_\theta} &lt;br /&gt;
+ z\vec{e_z} = \rho\vec{e_\rho} + z\vec{e_z}&amp;lt;/math&amp;gt;,&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo cual era de esperar atendiendo a la definición del '''vector posición''' en coordenadas cilíndricas &amp;lt;math&amp;gt;\vec{r}=\rho\vec{e_\rho} +  z\vec{e_z} \quad &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
En [https://es.wikipedia.org/wiki/MATLAB MATLAB], se trabaja exclusivamente con coordenadas cartesianas, de manera que para poder representar la curva en coordenadas cilíndricas, habría que deshacer todos los cambios hechos. Se trata de un paso trivial que ya queda definido en el siguiente código: &lt;br /&gt;
* Código para la representación tridimensional de la espiral de Ekman a partir de su definición en coordenadas cilíndricas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros iniciales&lt;br /&gt;
dE = sqrt(2 * 0.1 / 10^-4); % Cálculo de dE&lt;br /&gt;
z = linspace(0, dE, 500); % Valores de z&lt;br /&gt;
v=0.2;&lt;br /&gt;
&lt;br /&gt;
% Definición de la curva&lt;br /&gt;
%Valores de rho, theta y z&lt;br /&gt;
rho = v .* exp(z ./ dE);&lt;br /&gt;
theta = (z ./ dE) + 3*pi/4;&lt;br /&gt;
Z=z-dE;&lt;br /&gt;
%Paso a cilíndricas para graficar en MATLAB&lt;br /&gt;
X=rho.*cos(theta);&lt;br /&gt;
Y=rho.*sin(theta);&lt;br /&gt;
Z=z-dE;&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
%axis([-0.4,0.4,-0.4,0.4,-150,0]);&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
zlabel('Profundidad');  %Z&lt;br /&gt;
&lt;br /&gt;
view(3);&lt;br /&gt;
plot3(X, Y, Z, 'r', 'LineWidth', 1); &lt;br /&gt;
}}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Curvatura y torsión de la espiral de Ekman ==&lt;br /&gt;
[[Archivo:CurvTorEkmanDanielGa.jpg|400px|miniaturadeimagen|derecha|Curvatura &amp;lt;math&amp;gt;k(t)&amp;lt;/math&amp;gt; y torsión &amp;lt;math&amp;gt;\tau (t)&amp;lt;/math&amp;gt; graficadas para profundidades entre ''0'' y &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;.]]&lt;br /&gt;
&lt;br /&gt;
En este tipo de curvas, conocer cuál es su torsión y&lt;br /&gt;
curvatura resulta más que relevante, puesto que nos proporcionan importante información acerca de esta, su forma y su comportamiento. Para hallar cada una: &lt;br /&gt;
* '''Curvatura''' &amp;lt;math&amp;gt;k(t)&amp;lt;/math&amp;gt;:  expresa cuánto se parece la curva en un punto a su&lt;br /&gt;
'''circunferencia osculatriz''' de radio &amp;lt;math&amp;gt;1/k(t)&amp;lt;/math&amp;gt;, es decir, cuánto comparte la curva con la circunferencia. Para una curva &amp;lt;math&amp;gt;\gamma (t)&amp;lt;/math&amp;gt; se define de la siguiente manera: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
k(t) = \frac{|\dot{\gamma}(t) \times \ddot{\gamma}(t)|}{|\dot{\gamma}(t)|^3}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* '''Torsión''' &amp;lt;math&amp;gt;\tau (t)&amp;lt;/math&amp;gt;: expresa cuánto se separa la curva del '''plano osculador''', es decir, de aquel dado por la circunferencia osculatriz o, lo que es lo mismo, dado por el vector tangente y normal en un punto. Igualmente, se define a partir de: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\tau (t) = \frac{[\dot{\gamma}(t), \ddot{\gamma}(t), \dddot{\gamma}(t)]}{|\dot{\gamma}(t) \times \ddot{\gamma}(t)|^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concretamente, graficarlas resulta muy útil.&lt;br /&gt;
=== Análisis mediante el triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ekman11AitorAResized.gif|miniaturadeimagen|El '''triedro de Frenet''' moviéndose a lo largo de la '''espiral de Ekman''' en tres dimensiones. La flecha negra superior indica la dirección del viento, mientras que los tres vectores de colores representan el vector '''tangente''', el '''normal''' y el '''binormal'''. Se aprecia la rotación de estos, muy vinculados a lo desrito anteriormente|derecha]]&lt;br /&gt;
&lt;br /&gt;
Una curiosa forma en la que podemos observar la verdadera naturaleza curva de la espiral de Ekman es mediante la visualización animada del [https://es.wikipedia.org/wiki/Fórmulas_de_Frenet-Serret triedro de Frenet]. Gastar líneas en calcular el triedro es irrelevante, pero el código empleado para mostrar la animación mostrada a partir de la función &amp;lt;code&amp;gt; frenet()&amp;lt;/code&amp;gt; es el siguiente:&lt;br /&gt;
&lt;br /&gt;
* La función &amp;lt;code&amp;gt; frenet()&amp;lt;/code&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z),&lt;br /&gt;
&lt;br /&gt;
if nargin == 2,&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% CONVERT TO COLUMN VECTOR&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% SPEED OF CURVE&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% TANGENT&lt;br /&gt;
T = dr./mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% DERIVIATIVE OF TANGENT&lt;br /&gt;
dTx =  gradient(T(:,1));&lt;br /&gt;
dTy =  gradient(T(:,2));&lt;br /&gt;
dTz =  gradient(T(:,3));&lt;br /&gt;
&lt;br /&gt;
dT = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% NORMAL&lt;br /&gt;
N = dT./mag(dT,3);&lt;br /&gt;
% BINORMAL&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
% CURVATURE&lt;br /&gt;
% k = mag(dT,1);&lt;br /&gt;
k = mag(cross(dr,ddr),1)./((mag(dr,1)).^3);&lt;br /&gt;
% TORSION&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n),&lt;br /&gt;
% MAGNATUDE OF A VECTOR (Nx3)&lt;br /&gt;
%  M = mag(U)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0); &lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
}}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* El programa de animación: &lt;br /&gt;
&amp;lt;div style=&amp;quot;width=width: 75%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros iniciales&lt;br /&gt;
dE = sqrt(2 * 0.1 / 10^-4); % Cálculo de dE&lt;br /&gt;
z = linspace(-dE, 0, 100); % Valores de z de 0 a 250 m&lt;br /&gt;
&lt;br /&gt;
% Definición de la curva&lt;br /&gt;
x = 0.2 * exp(z / dE) .* cos(z / dE + 3/4 * pi)*100;&lt;br /&gt;
y = 0.2 * exp(z / dE) .* sin(z / dE + 3/4 * pi)*100;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Cálculo del triedro de Frenet usando tu función&lt;br /&gt;
[T, N, B, k, t] = frenet(x, y, z); % Asume que la función frenet.m está en el mismo directorio&lt;br /&gt;
T = 10*T; N=10*N; B=10*B;&lt;br /&gt;
% Crear la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
zlabel('Profundidad');&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-0.3*100 0.1*100 -0.1*100 0.25*100 -50 0]);&lt;br /&gt;
view(3);&lt;br /&gt;
&lt;br /&gt;
% Plot de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1); % La curva &lt;br /&gt;
quiver3(10, 0, -1, -12, 0, 0, 'k', 'LineWidth', 2, 'MaxHeadSize',0.751) % Vector del viento&lt;br /&gt;
hT = quiver3(0, 0, 0, 0, 0, 0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5); % Vector T&lt;br /&gt;
hN = quiver3(0, 0, 0, 0, 0, 0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5); % Vector N&lt;br /&gt;
hB = quiver3(0, 0, 0, 0, 0, 0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5); % Vector B&lt;br /&gt;
&lt;br /&gt;
% Animación&lt;br /&gt;
for i =1:length(z)&lt;br /&gt;
    % Actualizar los vectores del triedro&lt;br /&gt;
    set(hT, 'XData', x(length(z)+1-i), 'YData', y(length(z)+1-i), 'ZData', z(length(z)+1-i), ...&lt;br /&gt;
        'UData', T(length(z)+1-i, 1), 'VData', T(length(z)+1-i, 2), 'WData', T(length(z)+1-i, 3));&lt;br /&gt;
    set(hN, 'XData', x(length(z)+1-i), 'YData', y(length(z)+1-i), 'ZData', z(length(z)+1-i), ...&lt;br /&gt;
        'UData', N(length(z)+1-i, 1), 'VData', N(length(z)+1-i, 2), 'WData', N(length(z)+1-i, 3));&lt;br /&gt;
    set(hB, 'XData', x(length(z)+1-i), 'YData', y(length(z)+1-i), 'ZData', z(length(z)+1-i), ...&lt;br /&gt;
        'UData', B(length(z)+1-i, 1), 'VData', B(length(z)+1-i, 2), 'WData', B(length(z)+1-i, 3));&lt;br /&gt;
     exportgraphics(gca,&amp;quot;Ekman11Frenet.gif&amp;quot;, &amp;quot;Append&amp;quot;,true)&lt;br /&gt;
    % Pausa para animación&lt;br /&gt;
    pause(0.02);&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Similitudes con la espiral logarítmica ==&lt;br /&gt;
[[Archivo:FibonacciconEkman.png|300px|miniaturadeimagen|derecha|Comparativa entre la '''espiral logarítmica''' resultante de la '''sucesión de Fibonacci''' (arriba) y la '''espiral de Ekman''' vista cenitalmente (abajo) para profundidades entre 0 y la ''profundidad de Ekman'' (&amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;). Para mayor número de datos, habría una semejanza mayor.]]&lt;br /&gt;
&lt;br /&gt;
Resulta particularmente interesante marcar que la espiral de Ekman, cuando vista desde arriba, sigue una forma exacta a la famosa [https://es.wikipedia.org/wiki/Espiral_logarítmica '''espiral logarítmica''']&amp;lt;ref&amp;gt;[https://link.springer.com/article/10.1007/BF02277927 The Ekman Spirals], artículo de Th. Hesselberg.&amp;lt;/ref&amp;gt; . Esto se debe a que la parametrización de esta sigue precisamente la forma: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \gamma(t)=C·e^{kt}\ (\cos t, \sin t), \quad t\in\mathbb{R}&amp;lt;/math&amp;gt;,&amp;lt;/center&amp;gt; &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
que es idéntica a la espiral de Ekman, siendo &amp;lt;math&amp;gt;k&amp;lt;/math&amp;gt; equivalente a &amp;lt;math&amp;gt;1/d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;C&amp;lt;/math&amp;gt; a &amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt;. Para la espiral logarítmica se tratan análogamente de constantes pertenecientes a &amp;lt;math&amp;gt;\mathbb{R}&amp;lt;/math&amp;gt;. &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítmica aparece en multitud de fenómenos naturales. Galaxias, huracanes, ciclones, conchas de mar, disposición de semilas... son todos ejemplos de la espiral logarítmica apareciendo en la naturaleza. Establece asimismo una estrecha relación con la [https://es.wikipedia.org/wiki/Número_áureo '''proporción áurea'''] y la [https://es.wikipedia.org/wiki/Sucesión_de_Fibonacci '''sucesión de Fibonacci'''] en las secuencias de rectángulos. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Otras aplicaciones de la espiral logarítmica===&lt;br /&gt;
Las espirales logarítmicas han demostrado ser ampliamente usadas en los campos de estudio a causa de su alta repetición en procesos naturales. &lt;br /&gt;
====Ingeniería====&lt;br /&gt;
La espiral logarítmica encuentra aplicaciones prácticas en el diseño de estructuras y dispositivos tecnológicos debido a su capacidad para modelar el crecimiento continuo y la optimización del espacio. En ingeniería, se utiliza para diseñar sistemas mecánicos donde se requiere un cambio gradual en la forma, como [https://es.wikipedia.org/wiki/Engranaje '''engranajes''' '''espirales'''], '''muelles''' y '''bombas centrífugas'''. En el diseño de [https://es.wikipedia.org/wiki/Turbina '''turbinas'''] y [https://es.wikipedia.org/wiki/Hélice_(dispositivo) '''hélices'''], la espiral logarítmica asegura un flujo uniforme y eficiente, mejorando el rendimiento aerodinámico e hidráulico. &lt;br /&gt;
&lt;br /&gt;
Asimismo, su aplicación se extiende a '''antenas de comunicaciones''', que emplean este diseño para maximizar la recepción de frecuencias en el mayor rango posible. &lt;br /&gt;
&lt;br /&gt;
En [https://es.wikipedia.org/wiki/Ingeniería_civil ingeniería civil] y marítima, existen estudios que procuran '''modelizar el cambio de costas''' mediante espirales logarítmicas. &amp;lt;ref&amp;gt;[https://www.researchgate.net/publication/28253055_Modelizacion_matematica_de_lineas_de_costa_espirales_logaritmicas Modelización matemática de líneas de costa: espirales logarítmicas], de M.A. de Pablo, Universidad de Alcalá, y A. Pacifici, IRSPS&amp;lt;/ref&amp;gt;&lt;br /&gt;
&lt;br /&gt;
====Estética====&lt;br /&gt;
Es una figura recurrente en el arte y la '''arquitectura''', especialmente en obras influenciadas por la proporción áurea. Esta curva aparece en composiciones de artistas como Leonardo da Vinci, quien buscaba integrar principios matemáticos en el diseño visual para lograr equilibrio y armonía. También es común en la arquitectura renacentista y barroca, donde se empleó para estructurar elementos como '''escaleras''', arcos y cúpulas. En las artes visuales contemporáneas, la espiral logarítmica sirve como base para patrones geométricos. Su relación con el crecimiento orgánico y el diseño armónico la convierte en un símbolo recurrente de belleza estructural, tanto en la naturaleza como en las obras humanas.&lt;br /&gt;
====Física====&lt;br /&gt;
La espiral logarítmica desempeña un papel clave en fenómenos físicos que involucran movimientos [https://es.wikipedia.org/wiki/Hélice_(geometría) helicoidales] o rotacionales. En '''dinámica de fluidos''', como se observa por el fenómeno descrito por Ekman, describe los patrones de flujo en sistemas turbulentos. También aparece en procesos '''cosmológicos''', como los discos de gas formados y polvo que rodean estrellas jóvenes o [https://es.wikipedia.org/wiki/Agujero_negro agujeros negros], donde el material sigue trayectorias espirales hacia el centro debido a la combinación de fuerzas gravitatorias y centrífugas. En el estudio de ondas, esta curva describe patrones en la [https://es.wikipedia.org/wiki/Onda '''propagación de ondas acústicas''' y electromagnéticas'''] bajo ciertas condiciones, especialmente en medios no homogéneos. &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;gallery mode=&amp;quot;packed&amp;quot; style=&amp;quot;text-aligned:left&amp;quot;&amp;gt;&lt;br /&gt;
Archivo:EscaleraLogaritmicaAitorA.png | Escalera en el '''Vaticano''' siguiendo la forma de una espiral logarítmica. &lt;br /&gt;
Archivo:AntenaLogaritmicaAitorA.png | '''Antena''' de doble polarización en forma de espiral logarítmica.&lt;br /&gt;
Archivo:BorrascaLogaritmicaAitorA.png | Las '''borrascas''' son fenómenos naturales en forma de espiral.&lt;br /&gt;
Archivo:GalaxiaLogaritmicaAitorA.png | Las las ''' galaxias''' también siguen la forma de una espiral logarítmica por naturaleza. &lt;br /&gt;
&amp;lt;/gallery&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Véase también ==&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Espiral_logar%C3%ADtmica Espiral logarítmica]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Efecto_Coriolis Efecto Coriolis]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Trigonometr%C3%ADa Trigonometría]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/C%C3%A1lculo_integral Cálculo integral]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Flujo Flujo]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/MATLAB Matlab]&lt;br /&gt;
&lt;br /&gt;
== Referencias ==&lt;br /&gt;
&amp;lt;references /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC24/25]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(grupo_20,_Retiro)&amp;diff=97072</id>
		<title>Espiral de Ekman (grupo 20, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(grupo_20,_Retiro)&amp;diff=97072"/>
				<updated>2025-12-03T16:47:42Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 20. | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC24/25|2024-25]] | Aitor Amunarriz López &amp;lt;br/&amp;gt; Daniel García Martínez &amp;lt;br/&amp;gt; Federico Flores Rohde &amp;lt;br/&amp;gt; Jesús Rivero López}}&lt;br /&gt;
[[Archivo:Ekman4AitorAResized_v2.gif|miniaturadeimagen|300px|1. Pequeña animación mostrando el campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; (flecha de color) respecto a profundidades descendentes, siguiendo la '''espiral de Ekman''' (curva negra) y '''hasta la profundidad de Ekman''' &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;. El viento es representado por la flecha negra (de norte a sur) y el color de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; varía respecto a la profundidad]]&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ekman5FedericoFlores.jpg|300px|miniaturadeimagen|derecha|2. Representación tridimensional de la '''Espiral de Ekman''' a partir de las velocidades. Las flechas indican el campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; según la profundidad, cambiando de color acordemente, hasta la profundidad &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;.]]&lt;br /&gt;
&amp;lt;div style=&amp;quot;margin: 30px;&amp;quot;&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La '''espiral de Ekman''' es el resultado del [https://es.wikipedia.org/wiki/Velocidad perfil de velocidades] respecto a la profundidad de una columna de [https://es.wikipedia.org/wiki/Agua agua] gracias al efecto Ekman. Este es causado por un viento constante que sopla sobre la superficie del océano, induciendo una corriente que, debido a la [https://es.wikipedia.org/wiki/Efecto_Coriolis '''fuerza de Coriolis'''], se desvía gradualmente. La alta viscosidad del agua provoca una discordancia entre la dirección de la velocidad entre una capa y otra.&amp;lt;ref&amp;gt;[https://link.springer.com/article/10.1007/BF02277927 The Ekman Spirals], artículo de Th. Hesselberg. ''En inglés''&amp;lt;/ref&amp;gt; &lt;br /&gt;
&lt;br /&gt;
El flujo neto se conoce como [https://es.wikipedia.org/wiki/Transporte_de_Ekman '''transporte de Ekman''']. &lt;br /&gt;
&lt;br /&gt;
El fenómeno fue por primera vez descrito por el explorador noruego [https://es.wikipedia.org/wiki/Fridtjof_Nansen Fridtjof Nansen] en una de sus misiones por el océano Ártico. Notó que los icebergs y distintos témpanos de [https://es.wikipedia.org/wiki/Hielo hielo] no seguían necesariamente la dirección del viento. El concepto fue formalizado por su estudiante, [https://es.wikipedia.org/wiki/Vagn_Walfrid_Ekman Vagn Walfrid Ekman], en 1905, aportando el planteamiento matemático necesario.&amp;lt;ref&amp;gt;[https://jscholarship.library.jhu.edu/items/6026d396-a902-488f-a737-f822ac36f674 On the influence of the earth's rotation on ocean-currents.], de Vagn Walfrid Ekman. (1905) ''En inglés''&amp;lt;/ref&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Con el objetivo de describir el perfil de velocidad &amp;lt;math&amp;gt;\vec{v} = u\vec{i} + v\vec{j}&amp;lt;/math&amp;gt;, Ekman trabajó con la ecuaciones que nacen del equilibrio entre la fuerza Coriolis, la [https://es.wikipedia.org/wiki/Viscosidad viscosidad] del agua de mar y la velocidad inducida del viento, de manera que: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{d^2 u}{d z^2} = - \frac{f}{\upsilon_e}v&amp;lt;/math&amp;gt;,&amp;lt;math&amp;gt;\ \ \frac{d^2 v}{d z^2} = \frac{f}{\upsilon_e}u&amp;lt;/math&amp;gt;, &lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; el parámetro de Coriolis definido como &amp;lt;math&amp;gt;f=2\Omega \sin(\phi)&amp;lt;/math&amp;gt;, siendo &amp;lt;math&amp;gt;\Omega&amp;lt;/math&amp;gt; la velocidad angular de la Tierra (unos ''7.2921·10&amp;lt;sup&amp;gt;-5&amp;lt;/sup&amp;gt;'' rad/s) y &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; la latitud, y &amp;lt;math&amp;gt;\upsilon_e&amp;lt;/math&amp;gt; la viscosidad turbulenta del agua. &lt;br /&gt;
&lt;br /&gt;
La solución ofrecida por Ekman a estas [https://es.wikipedia.org/wiki/Ecuación_diferencial ecuaciones diferenciales] tomaban la siguiente forma en función de la profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, conocidas además la fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; y la velocidad superficial inducida por el viento &amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt;: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=sgn(f)·V_0 · e^{\frac{z}{d_E}}\ \cos\left( \frac{z}{d_E}+\vartheta\right)&amp;lt;/math&amp;gt;, &amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;v(z)=V_0 · e^{\frac{z}{d_E}}\ \sin\left( \frac{z}{d_E}+\vartheta \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El término &amp;lt;math&amp;gt; d_E &amp;lt;/math&amp;gt;, conocido como '''profundidad de Ekman''', es la profundidad máxima a la que se considera la influencia del viento y la fuerza Coriolis sobre el movimiento del agua. Se define como: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Influencia del parámetro de Coriolis &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Como se puede notar en la solución de &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, se ha de tener en cuenta el signo del parámetro de Coriolis para poder conocer verdaderamente el desplazamiento de la velocidad. Dentro de la definición del parámetro &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; (&amp;lt;math&amp;gt;f=2\Omega \sin(\phi)&amp;lt;/math&amp;gt;), el seno de &amp;lt;math&amp;gt;\phi&amp;lt;/math&amp;gt; toma valores entre -1 y 1 dependiendo de la '''[https://es.wikipedia.org/wiki/Latitud latitud]'''.  Esta se define a su vez entre ''-90º'' y ''90º'' (''90ºS'' y ''90ºN'', que, en radianes, &amp;lt;math&amp;gt;-\frac{\pi}{2}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\frac{\pi}{2}&amp;lt;/math&amp;gt;). Los valores entre &amp;lt;math&amp;gt;\frac{\pi}{2}&amp;lt;/math&amp;gt; y ''0'' corresponden a latitudes entre el polo norte y el [https://es.wikipedia.org/wiki/Ecuador_terrestre ecuador] , es decir, al '''[https://es.wikipedia.org/wiki/Hemisferio_norte hemisferio norte]''', y, por tanto, a valores positivos de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;. En cambio, en el '''[https://es.wikipedia.org/wiki/Hemisferio_sur hemisferio sur]''' se darán valores negativos de este. El parámetro es nulo exclusivamente en el '''ecuador'''. &amp;lt;ref&amp;gt;[https://espanol.libretexts.org/Geociencias/Oceanografía/Introducción_a_la_Oceanografía_(Webb)/09%3A_Circulación_Oceánica/9.03%3A_La_espiral_de_Ekman_y_el_flujo_geostrófico La espiral de Ekman y el flujo geostrófico], artículo de Paul Webb, Roger Williams University. &amp;lt;/ref&amp;gt; &lt;br /&gt;
&lt;br /&gt;
El signo de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; se aplica en la solución de la ecuación mediante la función signo (&amp;lt;math&amp;gt;sgn(f)&amp;lt;/math&amp;gt;). &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para ejemplificar, en una latitud de 45ºN, &amp;lt;math&amp;gt;f=7.2921·10^{-5} \ rad·s^{-1}·\sin(\frac{\pi}{4})\approx 10^{-4} \ rad·s^{-1}&amp;lt;/math&amp;gt;, que sería un valor estándar.&lt;br /&gt;
&lt;br /&gt;
== Importancia del valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
[[Archivo:DiagramaPacíficoNorteFaseInicialGrupo20_2.png|250px|miniaturadeimagen|derecha|Diagrama de las condiciones explicadas. El viento corre de norte a sur representado por la flecha negra. La velocidad superficial (verde) se desvía 45º a la derecha. ]]&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es también de suma importancia para la definición de la espiral de Ekman. Se trata de una fase inicial determinada por la dirección del viento respecto a la fuera de Coriolis. &lt;br /&gt;
&lt;br /&gt;
Si, por ejemplo, nos encontramos a la [https://es.wikipedia.org/wiki/Latitud latitud] del ejemplo anterior, asumiendo una viscosidad turbulenta de unos ''0.1 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''10 m/s'' soplando de Norte a Sur, induciendo en la superficie una velocidad aproximada de ''0.2 m/s'' y un desvío aproximado de 45º hacia la derecha respecto a la dirección del viento, se intuye que: &amp;lt;br/&amp;gt;&lt;br /&gt;
* El valor &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt;. &lt;br /&gt;
* El cociente &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = \tan(45º) = 1. &amp;lt;/math&amp;gt;&lt;br /&gt;
* Se da que &amp;lt;math&amp;gt;f &amp;gt; 0 &amp;lt;/math&amp;gt; de manera que &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Resolvemos: &lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = \frac{V_0·e^{\frac{0}{d_E}}\ \sin\left(\vartheta\right)}{V_0·e^{\frac{0}{d_E}}\ \cos\left(\vartheta\right)} = \tan(\vartheta) = 1 \Rightarrow&amp;lt;/math&amp;gt; &lt;br /&gt;
&amp;lt;math&amp;gt;\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Atendiendo al diagrama, como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es &amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
== Solución a las ecuaciones diferenciales de Ekman ==&lt;br /&gt;
Para comprobar que Ekman, efectivamente, no se equivocaba con su planteamiento, es un buen ejercicio verificar que &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son auténticamente la solución a las ecuaciones diferenciales planteadas. Es cuestión de derivar dos veces cada solución respecto de &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; cada ecuación. &lt;br /&gt;
&lt;br /&gt;
Por su parte, &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{du}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)-sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\sin\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como &amp;lt;math&amp;gt;d_E = \sqrt{\frac{2\upsilon_e}{|f|}}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -2 sgn(f)·V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{1}{\frac{2\upsilon_e}{|f|}}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ordenamos un poco, eliminando el valor absoluto de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt; a la vez que la función signo, ahora inútil: &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2u}{dz^2} = -V_0e^{\frac{z}{\sqrt{\frac{2\upsilon_e}{|f|}}}}·\frac{f}{\upsilon_e}·\sin\left(\frac{z}{ \sqrt{\frac{2\upsilon_e}{|f|}}}+\vartheta\right) = -\frac{f}{\upsilon_e}·v&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Que es nuestro planteamiento inicial. &lt;br /&gt;
&lt;br /&gt;
Haciendo lo propio con &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt;: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{dv}{dz}=sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\sin\left(\frac{z}{d_E}+\vartheta\right)+sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E}·\cos\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = 2sgn(f)·V_0e^{\frac{z}{d_E}}·\frac{1}{d_E^2}·\cos\left(\frac{z}{d_E}+\vartheta\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
Igual aplicación de la definición de &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;: &lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{d^2v}{dz^2} = V_0e^{\frac{z}{d_E}}·\frac{f}{\upsilon_e}·\cos\left(\frac{z}{d_E}+\vartheta\right) = \frac{f}{\upsilon_e}·u&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Demostrando así que las soluciones son correctas.&lt;br /&gt;
&lt;br /&gt;
== Representación del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
&lt;br /&gt;
Existen diversas e interesantes maneras de analizar el fenómeno descrito por Ekman, cada una de las cuales ofrece perspectivas valiosas y complementarias para su comprensión. La espiral, concebida como una '''estructura en tres dimensiones''', resulta particularmente interesante al ser estudiada también desde una vista en planta, ya que esta proyección bidimensional permite observar patrones que pueden pasar desapercibidos en su representación tridimensional.&lt;br /&gt;
&lt;br /&gt;
Con el objetivo de brindar una comprensión más completa, a continuación, se presentan los códigos correspondientes a ambas formas en las que se ha intentado ilustrar y explicar la curva mostrada en las figuras anteriores. &lt;br /&gt;
&lt;br /&gt;
* El código para la '''animación observada desde el cenit''', de manera que &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; varía con la profundidad y es representada mediante una flecha de color cambiante (siguiendo los parámetros ejemplificativos anteriormente descritos): (1.)&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
dE = sqrt(2 * 0.1 / 10^-4); % Definición de dE&lt;br /&gt;
z = linspace(0, dE, 50); &lt;br /&gt;
% Definición de la curva&lt;br /&gt;
x = 0.2*exp(z / dE).*cos(z/dE+3/4*pi);&lt;br /&gt;
y = 0.2*exp(z / dE).*sin(z/dE+3/4*pi);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
plot(x,y, 'k', 'LineWidth', 1)&lt;br /&gt;
&lt;br /&gt;
u = 0.2*exp(0/dE)*cos(0/dE+3/4*pi); &lt;br /&gt;
v = 0.2*exp(0/dE)*sin(0/dE+3/4*pi);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
hold on&lt;br /&gt;
h = quiver(0,0,u,v, 0, 'LineWidth', 1, 'MaxHeadSize', 0.2);&lt;br /&gt;
quiver(0, 0.15, 0, -0.05, 'k', 'LineWidth', 1, 'MaxHeadSize', 0.7)&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Contador para la profundidad&lt;br /&gt;
n=1;&lt;br /&gt;
z_text = text(-0.5, 0.16, sprintf('z = %.2f m', z(n)), 'FontSize', 12, 'Color', 'k', ...&lt;br /&gt;
    'HorizontalAlignment', 'left', 'VerticalAlignment', 'top');&lt;br /&gt;
&lt;br /&gt;
set(gca, 'XAxisLocation', 'origin', 'YAxisLocation', 'origin', 'XColor', 'none', 'YColor', 'none')&lt;br /&gt;
axis([-0.6 0.1 -0.2 0.2])&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Variación de color de la flecha&lt;br /&gt;
cmap = jet(length(z)); &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
for n = 1:length(z)&lt;br /&gt;
&lt;br /&gt;
    %Vectores &lt;br /&gt;
    u = 0.2*exp(z(length(z)+1-n)/dE)*cos(z(length(z)+1-n)/dE+3/4*pi); &lt;br /&gt;
    v = 0.2*exp(z(length(z)+1-n)/dE)*sin(z(length(z)+1-n)/dE+3/4*pi);&lt;br /&gt;
    h.UData = u; h.VData = v;&lt;br /&gt;
&lt;br /&gt;
    % Color de vector&lt;br /&gt;
    color = cmap(n, :); &lt;br /&gt;
    h.Color = color; &lt;br /&gt;
    &lt;br /&gt;
    % Actualizar z&lt;br /&gt;
    z_text.String = sprintf('z = %.2f m', z(n));&lt;br /&gt;
    pause(0.1);&lt;br /&gt;
    &lt;br /&gt;
    exportgraphics(gca,&amp;quot;EkmanA4AitorA.gif&amp;quot;, &amp;quot;Append&amp;quot;,true)&lt;br /&gt;
&lt;br /&gt;
end }}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* En cambio, el ofrecido para una '''vista tridimensional isométrica''' de la curva: (2.)&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Variables&lt;br /&gt;
k = 20 * sqrt(5);&lt;br /&gt;
cz = linspace(-k, 0, 10);&lt;br /&gt;
x = zeros(1, 30);&lt;br /&gt;
y = x;&lt;br /&gt;
&lt;br /&gt;
% Coordenadas de la espiral&lt;br /&gt;
for i = 1:length(cz)&lt;br /&gt;
    z = cz(i);&lt;br /&gt;
    cx(i) = 0.2 * exp(z / k) * cos((z / k) + 3 * pi / 4);&lt;br /&gt;
    cy(i) = 0.2 * exp(z / k) * sin((z / k) + 3 * pi / 4);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
cmap = flipud(jet(length(cz))); &lt;br /&gt;
&lt;br /&gt;
% Graficar&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
for i = 1:length(cz)&lt;br /&gt;
    &lt;br /&gt;
    color = cmap(i, :);&lt;br /&gt;
    quiver3(0, 0, cz(i), cx(i), cy(i), 0, 'Color', color, 'AutoScale', 'off', 'LineWidth', 1.5);&lt;br /&gt;
    plot3(cx(i), cy(i), cz(i), 'o', 'MarkerFaceColor', color, 'MarkerEdgeColor', 'k');&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Velocidad i [m/s]')&lt;br /&gt;
ylabel('Velocidad j [m/s]')&lt;br /&gt;
zlabel('Profundidad [m]')&lt;br /&gt;
view(3)&lt;br /&gt;
grid on&lt;br /&gt;
colormap(flipud(jet))&lt;br /&gt;
hold off&lt;br /&gt;
}}&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante marcar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La demostración es trivial, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; mientras que todos los vectores resultantes son paralelos al plano marcado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto resulta que en que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, pues &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es en sí ya nulo.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la razón de esta nulidad de la divergencia. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
== Rotacional de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
[[Archivo:Ekman7JesusRivResized v2.gif|miniaturadeimagen|derecha|Animación de la '''espiral de Ekman''' (curva roja) vista desde el cenit y definida a partir del vector velocidad &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; (flecha de color cambiante) con su '''rotacional''' &amp;lt;math&amp;gt;\nabla\times\vec{v}&amp;lt;/math&amp;gt; (flecha rosa).]]&lt;br /&gt;
&lt;br /&gt;
En línea con el análisis de curvas, el rotacional de la espiral de Ekman, sirve para comprender la condición de espiral de la que goza. A partir del campo de velocidades &amp;lt;math&amp;gt;\vec{v}= u \vec{i} + v \vec{j}&amp;lt;/math&amp;gt;, se da que: &lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = {\begin{vmatrix}&lt;br /&gt;
 \vec i &amp;amp; \vec j &amp;amp; \vec k \\ &lt;br /&gt;
 \frac{\partial}{\partial x} &amp;amp; \frac{\partial}{\partial y} &amp;amp; \frac{\partial}{\partial z} \\ &lt;br /&gt;
 \vec v_x &amp;amp; \vec v_y  &amp;amp; \vec v_z &lt;br /&gt;
\end{vmatrix}} &lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Siendo &amp;lt;math&amp;gt;\vec v_x&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\vec v_y&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec v_z&amp;lt;/math&amp;gt; &amp;lt;math&amp;gt;u&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;v&amp;lt;/math&amp;gt; y ''0'' respectivamente. Resolviendo el determinante, el proceso queda simplificado a: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = -\frac{\partial v}{\partial z}\vec{i} + \frac{\partial u}{\partial z}\vec{j}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Por simplicidad, llamamos &amp;lt;math&amp;gt;\varphi&amp;lt;/math&amp;gt; a la fase angular dentro de las funciones trigonométricas (&amp;lt;math&amp;gt;z/d_E + \vartheta&amp;lt;/math&amp;gt;). Sustituyendo: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\nabla\times\vec{v}(z) = \frac{V_0}{d_E}·e^{\frac{z}{d_E}}·\left[-\left(\sin\varphi +\cos\varphi\right)\vec{i} +  \left(\cos\varphi - \sin\varphi\right)\vec{j}\right]&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La vorticidad en la espiral de Ekman aparece por el corte vertical de la velocidad debido a la fricción, y la forma de esa rotación está controlada por el parámetro de Coriolis (f).&lt;br /&gt;
En resumen: la fricción genera vorticidad y el parámetro de Coriolis determina cómo esa vorticidad se organiza en la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
== Flujo resultante ==&lt;br /&gt;
Gran parte de la problemática y motivación de Ekman era establecer el '''flujo de agua resultante''' de todo el fenómeno a partir de una columna de agua. Para calcularlo, conviene imaginarse un plano genérico &amp;lt;math&amp;gt;S&amp;lt;/math&amp;gt; definido por el vector &amp;lt;math&amp;gt;\vec{n}_S=\cos\alpha\vec{i}+\sin\alpha\vec{j}&amp;lt;/math&amp;gt;, para un ángulo fijo &amp;lt;math&amp;gt;\alpha \in [0, 2\pi)&amp;lt;/math&amp;gt;. Este plano sobre el que mediremos el flujo tendría una profundidad infinita (&amp;lt;math&amp;gt;z \rightarrow \infty &amp;lt;/math&amp;gt;), aunque solo tendríamos que considerarlo hasta la profundidad &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, pues es hasta donde el efecto tiene sentido estudiarlo. &lt;br /&gt;
&lt;br /&gt;
Asimismo, diremos por conveniencia que el plano tiene una anchura &amp;lt;math&amp;gt;L&amp;lt;/math&amp;gt;, de dimensión muy inferior a la profundidad total del océano.&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo se hace uso del cálculo integral ateniendo a las definiciones pertinentes: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\Phi = \int_S \vec{v}·d\vec{S} = \int_S (\vec{v}·\vec{n}_S)\ dS = \iint_D (\vec{v}·\vec{n})\,dl\,dz&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Definimos el dominio &amp;lt;math&amp;gt;D&amp;lt;/math&amp;gt; de integración a partir de las dimensiones en las que existe el plano (lado &amp;lt;math&amp;gt;l&amp;lt;/math&amp;gt; y profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;). La profundidad vamos a considerarla entre &amp;lt;math&amp;gt;-\infty&amp;lt;/math&amp;gt; y ''0'' por fines educativos, mientras que el lado simplemente entre ''0'' y &amp;lt;math&amp;gt;L&amp;lt;/math&amp;gt;. &lt;br /&gt;
&lt;br /&gt;
Asimismo, el resultado del producto vectorial &amp;lt;math&amp;gt;\vec{v}·\vec{n}_S &amp;lt;/math&amp;gt; es: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}·\vec{n}_S= \cos \alpha \cos\left(\frac{z}{d_E}+\vartheta\right)+\sin \alpha \sin\left(\frac{z}{d_E}+\vartheta\right) &amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Convenientemente, a partir de la ''fórmula de la suma de ángulos para el coseno'', intuimos que esto es igual a: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;\vec{v}·\vec{n}_S=\cos\left(\frac{z}{d_E}+\vartheta - \alpha\right)&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
Integramos cual integral doble: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\Phi = \int_{0}^{L} V_0 ·\left(\int_{-\infty}^{0} e^{\frac{z}{d_E}}&lt;br /&gt;
·\cos\left(\frac{z}{d_E}+\vartheta - \alpha\right) dz \right) dl&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La integral interior se resuelve por partes, resultando: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\Phi = \int_{0}^{L}\frac{V_0 \cdot d_E \cdot e^{\frac{z}{d_E}} \left(\cos\left(\frac{z}{d_E} + \vartheta - \alpha\right) + \sin\left(\frac{z}{d_E} + \vartheta - \alpha\right)\right)}{2} \, dl = &amp;lt;/math&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
= \int_{0}^{L} \frac{V_0}{2}· d_E \cdot \left(\sin\left(\vartheta - \alpha\right) + \cos\left(\vartheta - \alpha\right)\right) \, dl = &amp;lt;/math&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
= L \cdot \frac{V_0}{2} \cdot d_E \cdot \left(\sin\left(\vartheta - \alpha\right) + \cos\left(\vartheta - \alpha\right)\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para hallar el flujo resultante, es cuestión de maximizar la expresión arriba descrita según el ángulo &amp;lt;math&amp;gt;\alpha&amp;lt;/math&amp;gt;. Atendiendo a procesos de optimización, para &amp;lt;math&amp;gt;\vartheta = 3\pi/4&amp;lt;/math&amp;gt;, resulta que el flujo es máximo para un plano con el ángulo &amp;lt;math&amp;gt;\alpha = 3\pi/4&amp;lt;/math&amp;gt;. Esto significa, tal y como hemos definido el plano, que el flujo resultante es hacia el '''oeste'''. Generalizado, se demuestra así que, con el fenómeno de Ekman, el '''flujo resultante es siempre perpendicular a la dirección del viento''', siendo su sentido dependiente precisamente el parámetro de Coriolis y el hemisferio en el que nos encontremos.&amp;lt;ref&amp;gt;[https://www.divulgameteo.es/fotos/meteoroteca/Dinámica-espiral-Ekman.pdf Aspectos de la dinámica&lt;br /&gt;
de la espiral de Ekman], artículo de José Antonio López de la Asociación Meteorológica de España &amp;lt;/ref&amp;gt;&lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Expresión en distintas coordenadas ==&lt;br /&gt;
[[Archivo:CilinEkmanDanielGa.jpg|400px|miniaturadeimagen|derecha|Espiral de Ekman graficada en '''coordenadas cilíndricas''' para valores comprendidos entre la superficie y &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;. Naturalmente, la representación es idéntica a cualquier otro sistema de coordenadas.]]&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman, tal y como convenientemente su nombre indica, se trata de una espiral y por tanto tiene cierto carácter curvo. Para este tipo de construcciones, siempre es interesante conocer cómo se pueden observar en otro tipo de coordenadas. Es de particular interés para esta curva el planteamiento en [https://es.wikipedia.org/wiki/Coordenadas_cilíndricas '''coordenadas cilíndricas''']. &lt;br /&gt;
&lt;br /&gt;
Tal y como hemos descrito la curva anteriormente, la espiral de Ekman definida por el campo de velocidades respecto a la profundidad queda como: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\vec{v}(t) = (u(z), v(z), z) = V_0 · e^{\frac{z}{d_E}} \ \left(sgn(f)·\cos\left( \frac{z}{d_E}+\vartheta\right), \ \sin\left( \frac{z}{d_E}+\vartheta \right), z\right)&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Para poder efectuar el cambio, partimos de las '''definiciones de las coordenadas cilíndricas''': &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\rho(z)=\sqrt{u(z)^2 +v(z)^2} \\&lt;br /&gt;
\theta(z)=\arctan\left(\frac{v(z)}{u(z)}\right)\\&lt;br /&gt;
z(z)=z&lt;br /&gt;
\end{cases}\&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&lt;br /&gt;
&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
Una vez aplicado todo, obtenemos: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
\begin{cases}&lt;br /&gt;
\rho(z)=V_0·e^{\frac{z}{d_E}} \\&lt;br /&gt;
\theta(z)=\frac{z}{d_E}+\vartheta\\&lt;br /&gt;
z(z)=z&lt;br /&gt;
\end{cases}&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Destacar que, puesto que &amp;lt;math&amp;gt;\rho&amp;lt;/math&amp;gt; queda definido para valores positivos de la recta real, la '''función''' &amp;lt;math&amp;gt;sgn(f)&amp;lt;/math&amp;gt; '''es irrelevante'''. Ídem para &amp;lt;math&amp;gt;\theta&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Para expresar todo en la base física cilíndrica podemos usar la '''matriz de cambio de coordenadas cartesianas a cilíndricas''' &amp;lt;math&amp;gt;M_{C\ \rightarrow \ \mathcal{C}}&amp;lt;/math&amp;gt;. Sencillamente: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
[\vec{v}]_\mathcal{C} = M_{C\ \rightarrow \ \mathcal{C}} · [\vec{v}]_C = \rho ·&lt;br /&gt;
	&lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
\cos \theta &amp;amp; \sin \theta &amp;amp; 0\\&lt;br /&gt;
-\sin\theta &amp;amp; \cos\theta &amp;amp; 0\\&lt;br /&gt;
0 &amp;amp; 0 &amp;amp; 1&lt;br /&gt;
\end{pmatrix} · &lt;br /&gt;
\begin{pmatrix}&lt;br /&gt;
sgn(f)·\cos\theta\\&lt;br /&gt;
\sin\theta\\&lt;br /&gt;
z&lt;br /&gt;
\end{pmatrix} \Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
	&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vec{v}(\rho, \theta, z) = \rho\left( \cdot \cos^2 \theta + \sin^2 \theta \right)\vec{e_\rho}&lt;br /&gt;
+ \rho\left(-\sin \theta \cdot \cos \theta + \cos \theta \cdot \sin \theta\right)\vec{e_\theta} &lt;br /&gt;
+ z\vec{e_z} = \rho\vec{e_\rho} + z\vec{e_z}&amp;lt;/math&amp;gt;,&lt;br /&gt;
&amp;lt;/center&amp;gt;&amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Lo cual era de esperar atendiendo a la definición del '''vector posición''' en coordenadas cilíndricas &amp;lt;math&amp;gt;\vec{r}=\rho\vec{e_\rho} +  z\vec{e_z} \quad &amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
En [https://es.wikipedia.org/wiki/MATLAB MATLAB], se trabaja exclusivamente con coordenadas cartesianas, de manera que para poder representar la curva en coordenadas cilíndricas, habría que deshacer todos los cambios hechos. Se trata de un paso trivial que ya queda definido en el siguiente código: &lt;br /&gt;
* Código para la representación tridimensional de la espiral de Ekman a partir de su definición en coordenadas cilíndricas:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros iniciales&lt;br /&gt;
dE = sqrt(2 * 0.1 / 10^-4); % Cálculo de dE&lt;br /&gt;
z = linspace(0, dE, 500); % Valores de z&lt;br /&gt;
v=0.2;&lt;br /&gt;
&lt;br /&gt;
% Definición de la curva&lt;br /&gt;
%Valores de rho, theta y z&lt;br /&gt;
rho = v .* exp(z ./ dE);&lt;br /&gt;
theta = (z ./ dE) + 3*pi/4;&lt;br /&gt;
Z=z-dE;&lt;br /&gt;
%Paso a cilíndricas para graficar en MATLAB&lt;br /&gt;
X=rho.*cos(theta);&lt;br /&gt;
Y=rho.*sin(theta);&lt;br /&gt;
Z=z-dE;&lt;br /&gt;
&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
%axis([-0.4,0.4,-0.4,0.4,-150,0]);&lt;br /&gt;
axis tight;&lt;br /&gt;
grid on;&lt;br /&gt;
zlabel('Profundidad');  %Z&lt;br /&gt;
&lt;br /&gt;
view(3);&lt;br /&gt;
plot3(X, Y, Z, 'r', 'LineWidth', 1); &lt;br /&gt;
}}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Curvatura y torsión de la espiral de Ekman ==&lt;br /&gt;
[[Archivo:CurvTorEkmanDanielGa.jpg|400px|miniaturadeimagen|derecha|Curvatura &amp;lt;math&amp;gt;k(t)&amp;lt;/math&amp;gt; y torsión &amp;lt;math&amp;gt;\tau (t)&amp;lt;/math&amp;gt; graficadas para profundidades entre ''0'' y &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;.]]&lt;br /&gt;
&lt;br /&gt;
En este tipo de curvas, conocer cuál es su torsión y&lt;br /&gt;
curvatura resulta más que relevante, puesto que nos proporcionan importante información acerca de esta, su forma y su comportamiento. Para hallar cada una: &lt;br /&gt;
* '''Curvatura''' &amp;lt;math&amp;gt;k(t)&amp;lt;/math&amp;gt;:  expresa cuánto se parece la curva en un punto a su&lt;br /&gt;
'''circunferencia osculatriz''' de radio &amp;lt;math&amp;gt;1/k(t)&amp;lt;/math&amp;gt;, es decir, cuánto comparte la curva con la circunferencia. Para una curva &amp;lt;math&amp;gt;\gamma (t)&amp;lt;/math&amp;gt; se define de la siguiente manera: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
k(t) = \frac{|\dot{\gamma}(t) \times \ddot{\gamma}(t)|}{|\dot{\gamma}(t)|^3}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt;&amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* '''Torsión''' &amp;lt;math&amp;gt;\tau (t)&amp;lt;/math&amp;gt;: expresa cuánto se separa la curva del '''plano osculador''', es decir, de aquel dado por la circunferencia osculatriz o, lo que es lo mismo, dado por el vector tangente y normal en un punto. Igualmente, se define a partir de: &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt;&lt;br /&gt;
\tau (t) = \frac{[\dot{\gamma}(t), \ddot{\gamma}(t), \dddot{\gamma}(t)]}{|\dot{\gamma}(t) \times \ddot{\gamma}(t)|^2}&lt;br /&gt;
&amp;lt;/math&amp;gt;&amp;lt;/center&amp;gt; &amp;lt;br /&amp;gt; &amp;lt;br /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Concretamente, graficarlas resulta muy útil.&lt;br /&gt;
=== Análisis mediante el triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
[[Archivo:Ekman11AitorAResized.gif|miniaturadeimagen|El '''triedro de Frenet''' moviéndose a lo largo de la '''espiral de Ekman''' en tres dimensiones. La flecha negra superior indica la dirección del viento, mientras que los tres vectores de colores representan el vector '''tangente''', el '''normal''' y el '''binormal'''. Se aprecia la rotación de estos, muy vinculados a lo desrito anteriormente|derecha]]&lt;br /&gt;
&lt;br /&gt;
Una curiosa forma en la que podemos observar la verdadera naturaleza curva de la espiral de Ekman es mediante la visualización animada del [https://es.wikipedia.org/wiki/Fórmulas_de_Frenet-Serret triedro de Frenet]. Gastar líneas en calcular el triedro es irrelevante, pero el código empleado para mostrar la animación mostrada a partir de la función &amp;lt;code&amp;gt; frenet()&amp;lt;/code&amp;gt; es el siguiente:&lt;br /&gt;
&lt;br /&gt;
* La función &amp;lt;code&amp;gt; frenet()&amp;lt;/code&amp;gt;&lt;br /&gt;
&amp;lt;div style=&amp;quot;width: 50%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z),&lt;br /&gt;
&lt;br /&gt;
if nargin == 2,&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% CONVERT TO COLUMN VECTOR&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% SPEED OF CURVE&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% TANGENT&lt;br /&gt;
T = dr./mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% DERIVIATIVE OF TANGENT&lt;br /&gt;
dTx =  gradient(T(:,1));&lt;br /&gt;
dTy =  gradient(T(:,2));&lt;br /&gt;
dTz =  gradient(T(:,3));&lt;br /&gt;
&lt;br /&gt;
dT = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% NORMAL&lt;br /&gt;
N = dT./mag(dT,3);&lt;br /&gt;
% BINORMAL&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
% CURVATURE&lt;br /&gt;
% k = mag(dT,1);&lt;br /&gt;
k = mag(cross(dr,ddr),1)./((mag(dr,1)).^3);&lt;br /&gt;
% TORSION&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n),&lt;br /&gt;
% MAGNATUDE OF A VECTOR (Nx3)&lt;br /&gt;
%  M = mag(U)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0); &lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
}}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* El programa de animación: &lt;br /&gt;
&amp;lt;div style=&amp;quot;width=width: 75%; margin: 20px;&amp;quot;&amp;gt;&lt;br /&gt;
{{matlab|codigo=&lt;br /&gt;
% Parámetros iniciales&lt;br /&gt;
dE = sqrt(2 * 0.1 / 10^-4); % Cálculo de dE&lt;br /&gt;
z = linspace(-dE, 0, 100); % Valores de z de 0 a 250 m&lt;br /&gt;
&lt;br /&gt;
% Definición de la curva&lt;br /&gt;
x = 0.2 * exp(z / dE) .* cos(z / dE + 3/4 * pi)*100;&lt;br /&gt;
y = 0.2 * exp(z / dE) .* sin(z / dE + 3/4 * pi)*100;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
% Cálculo del triedro de Frenet usando tu función&lt;br /&gt;
[T, N, B, k, t] = frenet(x, y, z); % Asume que la función frenet.m está en el mismo directorio&lt;br /&gt;
T = 10*T; N=10*N; B=10*B;&lt;br /&gt;
% Crear la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
zlabel('Profundidad');&lt;br /&gt;
axis equal;&lt;br /&gt;
axis([-0.3*100 0.1*100 -0.1*100 0.25*100 -50 0]);&lt;br /&gt;
view(3);&lt;br /&gt;
&lt;br /&gt;
% Plot de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1); % La curva &lt;br /&gt;
quiver3(10, 0, -1, -12, 0, 0, 'k', 'LineWidth', 2, 'MaxHeadSize',0.751) % Vector del viento&lt;br /&gt;
hT = quiver3(0, 0, 0, 0, 0, 0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5); % Vector T&lt;br /&gt;
hN = quiver3(0, 0, 0, 0, 0, 0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5); % Vector N&lt;br /&gt;
hB = quiver3(0, 0, 0, 0, 0, 0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5); % Vector B&lt;br /&gt;
&lt;br /&gt;
% Animación&lt;br /&gt;
for i =1:length(z)&lt;br /&gt;
    % Actualizar los vectores del triedro&lt;br /&gt;
    set(hT, 'XData', x(length(z)+1-i), 'YData', y(length(z)+1-i), 'ZData', z(length(z)+1-i), ...&lt;br /&gt;
        'UData', T(length(z)+1-i, 1), 'VData', T(length(z)+1-i, 2), 'WData', T(length(z)+1-i, 3));&lt;br /&gt;
    set(hN, 'XData', x(length(z)+1-i), 'YData', y(length(z)+1-i), 'ZData', z(length(z)+1-i), ...&lt;br /&gt;
        'UData', N(length(z)+1-i, 1), 'VData', N(length(z)+1-i, 2), 'WData', N(length(z)+1-i, 3));&lt;br /&gt;
    set(hB, 'XData', x(length(z)+1-i), 'YData', y(length(z)+1-i), 'ZData', z(length(z)+1-i), ...&lt;br /&gt;
        'UData', B(length(z)+1-i, 1), 'VData', B(length(z)+1-i, 2), 'WData', B(length(z)+1-i, 3));&lt;br /&gt;
     exportgraphics(gca,&amp;quot;Ekman11Frenet.gif&amp;quot;, &amp;quot;Append&amp;quot;,true)&lt;br /&gt;
    % Pausa para animación&lt;br /&gt;
    pause(0.02);&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&amp;lt;/div&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Similitudes con la espiral logarítmica ==&lt;br /&gt;
[[Archivo:FibonacciconEkman.png|300px|miniaturadeimagen|derecha|Comparativa entre la '''espiral logarítmica''' resultante de la '''sucesión de Fibonacci''' (arriba) y la '''espiral de Ekman''' vista cenitalmente (abajo) para profundidades entre 0 y la ''profundidad de Ekman'' (&amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;). Para mayor número de datos, habría una semejanza mayor.]]&lt;br /&gt;
&lt;br /&gt;
Resulta particularmente interesante marcar que la espiral de Ekman, cuando vista desde arriba, sigue una forma exacta a la famosa [https://es.wikipedia.org/wiki/Espiral_logarítmica '''espiral logarítmica''']&amp;lt;ref&amp;gt;[https://link.springer.com/article/10.1007/BF02277927 The Ekman Spirals], artículo de Th. Hesselberg.&amp;lt;/ref&amp;gt; . Esto se debe a que la parametrización de esta sigue precisamente la forma: &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;math&amp;gt; \gamma(t)=C·e^{kt}\ (\cos t, \sin t), \quad t\in\mathbb{R}&amp;lt;/math&amp;gt;,&amp;lt;/center&amp;gt; &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
que es idéntica a la espiral de Ekman, siendo &amp;lt;math&amp;gt;k&amp;lt;/math&amp;gt; equivalente a &amp;lt;math&amp;gt;1/d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;C&amp;lt;/math&amp;gt; a &amp;lt;math&amp;gt;V_0&amp;lt;/math&amp;gt;. Para la espiral logarítmica se tratan análogamente de constantes pertenecientes a &amp;lt;math&amp;gt;\mathbb{R}&amp;lt;/math&amp;gt;. &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
La espiral logarítmica aparece en multitud de fenómenos naturales. Galaxias, huracanes, ciclones, conchas de mar, disposición de semilas... son todos ejemplos de la espiral logarítmica apareciendo en la naturaleza. Establece asimismo una estrecha relación con la [https://es.wikipedia.org/wiki/Número_áureo '''proporción áurea'''] y la [https://es.wikipedia.org/wiki/Sucesión_de_Fibonacci '''sucesión de Fibonacci'''] en las secuencias de rectángulos. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== Otras aplicaciones de la espiral logarítmica===&lt;br /&gt;
Las espirales logarítmicas han demostrado ser ampliamente usadas en los campos de estudio a causa de su alta repetición en procesos naturales. &lt;br /&gt;
====Ingeniería====&lt;br /&gt;
La espiral logarítmica encuentra aplicaciones prácticas en el diseño de estructuras y dispositivos tecnológicos debido a su capacidad para modelar el crecimiento continuo y la optimización del espacio. En ingeniería, se utiliza para diseñar sistemas mecánicos donde se requiere un cambio gradual en la forma, como [https://es.wikipedia.org/wiki/Engranaje '''engranajes''' '''espirales'''], '''muelles''' y '''bombas centrífugas'''. En el diseño de [https://es.wikipedia.org/wiki/Turbina '''turbinas'''] y [https://es.wikipedia.org/wiki/Hélice_(dispositivo) '''hélices'''], la espiral logarítmica asegura un flujo uniforme y eficiente, mejorando el rendimiento aerodinámico e hidráulico. &lt;br /&gt;
&lt;br /&gt;
Asimismo, su aplicación se extiende a '''antenas de comunicaciones''', que emplean este diseño para maximizar la recepción de frecuencias en el mayor rango posible. &lt;br /&gt;
&lt;br /&gt;
En [https://es.wikipedia.org/wiki/Ingeniería_civil ingeniería civil] y marítima, existen estudios que procuran '''modelizar el cambio de costas''' mediante espirales logarítmicas. &amp;lt;ref&amp;gt;[https://www.researchgate.net/publication/28253055_Modelizacion_matematica_de_lineas_de_costa_espirales_logaritmicas Modelización matemática de líneas de costa: espirales logarítmicas], de M.A. de Pablo, Universidad de Alcalá, y A. Pacifici, IRSPS&amp;lt;/ref&amp;gt;&lt;br /&gt;
&lt;br /&gt;
====Estética====&lt;br /&gt;
Es una figura recurrente en el arte y la '''arquitectura''', especialmente en obras influenciadas por la proporción áurea. Esta curva aparece en composiciones de artistas como Leonardo da Vinci, quien buscaba integrar principios matemáticos en el diseño visual para lograr equilibrio y armonía. También es común en la arquitectura renacentista y barroca, donde se empleó para estructurar elementos como '''escaleras''', arcos y cúpulas. En las artes visuales contemporáneas, la espiral logarítmica sirve como base para patrones geométricos. Su relación con el crecimiento orgánico y el diseño armónico la convierte en un símbolo recurrente de belleza estructural, tanto en la naturaleza como en las obras humanas.&lt;br /&gt;
====Física====&lt;br /&gt;
La espiral logarítmica desempeña un papel clave en fenómenos físicos que involucran movimientos [https://es.wikipedia.org/wiki/Hélice_(geometría) helicoidales] o rotacionales. En '''dinámica de fluidos''', como se observa por el fenómeno descrito por Ekman, describe los patrones de flujo en sistemas turbulentos. También aparece en procesos '''cosmológicos''', como los discos de gas formados y polvo que rodean estrellas jóvenes o [https://es.wikipedia.org/wiki/Agujero_negro agujeros negros], donde el material sigue trayectorias espirales hacia el centro debido a la combinación de fuerzas gravitatorias y centrífugas. En el estudio de ondas, esta curva describe patrones en la [https://es.wikipedia.org/wiki/Onda '''propagación de ondas acústicas''' y electromagnéticas'''] bajo ciertas condiciones, especialmente en medios no homogéneos. &amp;lt;br/&amp;gt; &amp;lt;br/&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;gallery mode=&amp;quot;packed&amp;quot; style=&amp;quot;text-aligned:left&amp;quot;&amp;gt;&lt;br /&gt;
Archivo:EscaleraLogaritmicaAitorA.png | Escalera en el '''Vaticano''' siguiendo la forma de una espiral logarítmica. &lt;br /&gt;
Archivo:AntenaLogaritmicaAitorA.png | '''Antena''' de doble polarización en forma de espiral logarítmica.&lt;br /&gt;
Archivo:BorrascaLogaritmicaAitorA.png | Las '''borrascas''' son fenómenos naturales en forma de espiral.&lt;br /&gt;
Archivo:GalaxiaLogaritmicaAitorA.png | Las las ''' galaxias''' también siguen la forma de una espiral logarítmica por naturaleza. &lt;br /&gt;
&amp;lt;/gallery&amp;gt;&lt;br /&gt;
&lt;br /&gt;
== Véase también ==&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Espiral_logar%C3%ADtmica Espiral logarítmica]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Efecto_Coriolis Efecto Coriolis]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Trigonometr%C3%ADa Trigonometría]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/C%C3%A1lculo_integral Cálculo integral]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/Flujo Flujo]&lt;br /&gt;
*[https://es.wikipedia.org/wiki/MATLAB Matlab]&lt;br /&gt;
&lt;br /&gt;
== Referencias ==&lt;br /&gt;
&amp;lt;references /&amp;gt;&lt;br /&gt;
&lt;br /&gt;
[[Categoría:Teoría de Campos]]&lt;br /&gt;
[[Categoría:TC24/25]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93673</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93673"/>
				<updated>2025-12-01T19:50:35Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Divergencia de \vec{v} */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93671</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93671"/>
				<updated>2025-12-01T19:48:56Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93668</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93668"/>
				<updated>2025-12-01T19:48:11Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|thumb|]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93666</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93666"/>
				<updated>2025-12-01T19:47:41Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|thumb|right]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93660</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93660"/>
				<updated>2025-12-01T19:45:28Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|right]] &lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93659</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93659"/>
				<updated>2025-12-01T19:45:02Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|right]] Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93658</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93658"/>
				<updated>2025-12-01T19:44:27Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|right]]&lt;br /&gt;
&amp;lt;div style=&amp;quot;margin: 10px;&amp;quot;&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93656</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93656"/>
				<updated>2025-12-01T19:44:01Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|right]]&lt;br /&gt;
&amp;lt;div style=&amp;quot;margin: 30px;&amp;quot;&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93652</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93652"/>
				<updated>2025-12-01T19:42:04Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|480px|right]]&lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93650</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93650"/>
				<updated>2025-12-01T19:41:02Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|400px|left]]&lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93649</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93649"/>
				<updated>2025-12-01T19:40:38Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|400px|right]]&lt;br /&gt;
&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93646</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93646"/>
				<updated>2025-12-01T19:37:11Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|right]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93640</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93640"/>
				<updated>2025-12-01T19:34:20Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|right]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93639</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93639"/>
				<updated>2025-12-01T19:33:49Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
[[Archivo:Captura de pantalla 2025-12-01 160143.png|520px|right]]&lt;br /&gt;
&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
En el enunciado (10) se parametrizó la espiral de Ekman en 3D mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr), \qquad z \le 0,&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
y en el enunciado (11) se calcularon la '''curvatura''' &amp;lt;math&amp;gt;\kappa(z)&amp;lt;/math&amp;gt; y la '''torsión''' &amp;lt;math&amp;gt;\tau(z)&amp;lt;/math&amp;gt; de esta curva a partir de las expresiones generales&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\kappa(z) = \dfrac{\lVert \gamma'(z) \times \gamma''(z) \rVert}&lt;br /&gt;
                 {\lVert \gamma'(z) \rVert^3}, \qquad&lt;br /&gt;
\tau(z)   = \dfrac{\bigl[\gamma'(z),\gamma''(z),\gamma'''(z)\bigr]}&lt;br /&gt;
                 {\lVert \gamma'(z) \times \gamma''(z) \rVert^2}.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
A partir de estos invariantes definimos el '''triedro de Frenet'''&lt;br /&gt;
&amp;lt;math&amp;gt;\{\mathbf T(z),\mathbf N(z),\mathbf B(z)\}&amp;lt;/math&amp;gt; asociado a la espiral:&lt;br /&gt;
&lt;br /&gt;
* El '''vector tangente unitario'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf T(z) = \dfrac{\gamma'(z)}{\lVert \gamma'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* el '''vector normal principal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf N(z) = \dfrac{\mathbf T'(z)}{\lVert \mathbf T'(z)\rVert},&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
* y el '''vector binormal'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\mathbf B(z) = \mathbf T(z) \times \mathbf N(z).&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la práctica, las derivadas se calculan de forma numérica a partir de las coordenadas discretas de la espiral. A continuación se detalla una implementación en MATLAB que permite obtener &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt;, así como la curvatura &amp;lt;math&amp;gt;\kappa&amp;lt;/math&amp;gt; y la torsión &amp;lt;math&amp;gt;\tau&amp;lt;/math&amp;gt; de la curva.&lt;br /&gt;
&lt;br /&gt;
=== 12.1. Función ''frenet'' (cálculo numérico del triedro) ===&lt;br /&gt;
&lt;br /&gt;
La función siguiente recibe las coordenadas &amp;lt;math&amp;gt;(x_i,y_i,z_i)&amp;lt;/math&amp;gt; de una curva en forma de vectores y devuelve los vectores del triedro de Frenet en cada punto:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
function [T,N,B,k,t] = frenet(x,y,z)&lt;br /&gt;
% FRENET  Triedro de Frenet de una curva dada por (x,y,z)&lt;br /&gt;
&lt;br /&gt;
if nargin == 2&lt;br /&gt;
    z = zeros(size(x));&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
% Convertir a vectores columna&lt;br /&gt;
x = x(:);&lt;br /&gt;
y = y(:);&lt;br /&gt;
z = z(:);&lt;br /&gt;
&lt;br /&gt;
% Primera derivada (velocidad de la curva)&lt;br /&gt;
dx = gradient(x);&lt;br /&gt;
dy = gradient(y);&lt;br /&gt;
dz = gradient(z);&lt;br /&gt;
dr = [dx dy dz];&lt;br /&gt;
&lt;br /&gt;
% Segunda derivada&lt;br /&gt;
ddx = gradient(dx);&lt;br /&gt;
ddy = gradient(dy);&lt;br /&gt;
ddz = gradient(dz);&lt;br /&gt;
ddr = [ddx ddy ddz];&lt;br /&gt;
&lt;br /&gt;
% Vector tangente unitario&lt;br /&gt;
T = dr ./ mag(dr,3);&lt;br /&gt;
&lt;br /&gt;
% Derivada del tangente&lt;br /&gt;
dTx = gradient(T(:,1));&lt;br /&gt;
dTy = gradient(T(:,2));&lt;br /&gt;
dTz = gradient(T(:,3));&lt;br /&gt;
dT  = [dTx dTy dTz];&lt;br /&gt;
&lt;br /&gt;
% Vector normal unitario&lt;br /&gt;
N = dT ./ mag(dT,3);&lt;br /&gt;
&lt;br /&gt;
% Binormal&lt;br /&gt;
B = cross(T,N);&lt;br /&gt;
&lt;br /&gt;
% Curvatura (fórmula general)&lt;br /&gt;
k = mag(cross(dr,ddr),1) ./ (mag(dr,1).^3);&lt;br /&gt;
&lt;br /&gt;
% Torsión (aproximada)&lt;br /&gt;
t = dot(-B,N,2);&lt;br /&gt;
&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
function N = mag(T,n)&lt;br /&gt;
% MAG  Magnitud de un vector (Nx3)&lt;br /&gt;
N = sum(abs(T).^2,2).^(1/2);&lt;br /&gt;
d = find(N==0);&lt;br /&gt;
N(d) = eps*ones(size(d));&lt;br /&gt;
N = N(:,ones(n,1));&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
=== 12.2. Representación del triedro en 5–6 puntos de la espiral ===&lt;br /&gt;
&lt;br /&gt;
Para representar gráficamente el triedro de Frenet en la espiral de Ekman, utilizamos los mismos parámetros físicos fijados en los enunciados (1) y (2):&lt;br /&gt;
&lt;br /&gt;
* velocidad superficial inducida &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* viscosidad turbulenta &amp;lt;math&amp;gt;\nu_e = 0{,}05\ \text{m}^2/\text{s}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* parámetro de Coriolis local &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, de donde se obtiene la profundidad de Ekman &amp;lt;math&amp;gt;d_E = \sqrt{2\nu_e/|f|}&amp;lt;/math&amp;gt;,&lt;br /&gt;
* fase inicial &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; (ángulo de desviación superficial), calculada previamente.&lt;br /&gt;
&lt;br /&gt;
Para mantener la coherencia con el enunciado, trabajamos con una variable de profundidad negativa&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E]&amp;lt;/math&amp;gt;, donde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; corresponde a la superficie y &amp;lt;math&amp;gt;z&amp;lt;0&amp;lt;/math&amp;gt; a niveles más profundos.&lt;br /&gt;
&lt;br /&gt;
La espiral de Ekman se describe entonces mediante&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\gamma(z) = \bigl(u(z), v(z), z\bigr),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0 e^{z/d_E}&lt;br /&gt;
\cos\!\left(\frac{z}{d_E}+\vartheta\right),\quad&lt;br /&gt;
v(z) = V_0 e^{z/d_E}&lt;br /&gt;
\sin\!\left(\frac{z}{d_E}+\vartheta\right),\qquad z \le 0.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
El siguiente código de MATLAB construye la espiral, calcula el triedro de Frenet y lo representa en 5–6 puntos. En la gráfica el eje vertical muestra explícitamente profundidades negativas, desde &amp;lt;math&amp;gt;z=0&amp;lt;/math&amp;gt; (superficie) hasta &amp;lt;math&amp;gt;z=-3d_E&amp;lt;/math&amp;gt;:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Parámetros físicos (de los enunciados (1) y (2))&lt;br /&gt;
Omega  = 7.2921e-5;                         % Velocidad angular de la Tierra [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud de la zona de estudio&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral en coordenadas (x,y,z)&lt;br /&gt;
Npts = 200;                                 % puntos para describir bien la curva&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa (0 = superficie)&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Selección de 5–6 puntos&lt;br /&gt;
idx = round(linspace(10, Npts-10, 6));&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Longitud gráfica de los vectores del triedro&lt;br /&gt;
L = dE/5;&lt;br /&gt;
&lt;br /&gt;
for j = 1:length(idx)&lt;br /&gt;
    i  = idx(j);&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    quiver3(xb, yb, zb, TT(1), TT(2), TT(3), 'r', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, NN(1), NN(2), NN(3), 'g', 'LineWidth', 1.5);&lt;br /&gt;
    quiver3(xb, yb, zb, BB(1), BB(2), BB(3), 'b', 'LineWidth', 1.5);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Triedro de Frenet en varios puntos de la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
view(35,25);                  % Vista tridimensional&lt;br /&gt;
% Aquí NO se invierte el eje Z: se muestran las profundidades negativas tal cual&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la figura resultante se observan 5–6 sistemas de vectores ortogonales &amp;lt;math&amp;gt;\{\mathbf T,\mathbf N,\mathbf B\}&amp;lt;/math&amp;gt; distribuidos a lo largo de la espiral, con el eje vertical indicando explícitamente los valores negativos de profundidad.&lt;br /&gt;
&lt;br /&gt;
=== 12.3. Animación del triedro de Frenet ===&lt;br /&gt;
&lt;br /&gt;
Podemos completar el estudio construyendo una animación en la que el triedro recorra la espiral de Ekman. La idea es la misma que en el apartado anterior, pero actualizando en cada fotograma los vectores &amp;lt;math&amp;gt;\mathbf T&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;\mathbf N&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\mathbf B&amp;lt;/math&amp;gt; en un único punto que se desplaza a lo largo de la curva.&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB genera la animación. &lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Animación del triedro de Frenet en la espiral de Ekman&lt;br /&gt;
&lt;br /&gt;
% Parámetros físicos (los mismos del trabajo)&lt;br /&gt;
Omega  = 7.2921e-5;                         % [rad/s]&lt;br /&gt;
phi    = deg2rad(30 + 10/60 + 24.2/3600);   % Latitud Canarias&lt;br /&gt;
f      = 2*Omega*sin(phi);                  % Parámetro de Coriolis [1/s]&lt;br /&gt;
&lt;br /&gt;
nu_e   = 0.05;                              % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
V0     = 0.15;                              % Velocidad superficial [m/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));               % Profundidad de Ekman&lt;br /&gt;
theta0 = 3*pi/4;                            % Fase inicial ϑ&lt;br /&gt;
&lt;br /&gt;
%% Curva de la espiral (x,y,z) con z negativa&lt;br /&gt;
Npts = 200;                                 % puntos de la espiral&lt;br /&gt;
z    = linspace(0, -3*dE, Npts);            % profundidad negativa&lt;br /&gt;
&lt;br /&gt;
u =  V0 .* exp(z/dE) .* cos(z/dE + theta0);&lt;br /&gt;
v =  V0 .* exp(z/dE) .* sin(z/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
% Escala horizontal para mejorar la visualización&lt;br /&gt;
escala = 80;&lt;br /&gt;
x = escala * u;&lt;br /&gt;
y = escala * v;&lt;br /&gt;
&lt;br /&gt;
%% Triedro de Frenet a lo largo de toda la curva&lt;br /&gt;
[T,N,B,kappa,tau] = frenet(x,y,z);&lt;br /&gt;
&lt;br /&gt;
%% Preparar la figura para la animación&lt;br /&gt;
figure;&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva de la espiral&lt;br /&gt;
plot3(x, y, z, 'k', 'LineWidth', 1.5);&lt;br /&gt;
&lt;br /&gt;
% Vector del viento (opcional, solo decorativo)&lt;br /&gt;
quiver3(escala*0.15, 0, 0, -escala*0.3, 0, 0, ...&lt;br /&gt;
        'k', 'LineWidth', 2, 'MaxHeadSize', 0.7);&lt;br /&gt;
&lt;br /&gt;
% Inicializar los manejadores de T, N, B&lt;br /&gt;
hT = quiver3(0,0,0, 0,0,0, 'r', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hN = quiver3(0,0,0, 0,0,0, 'g', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
hB = quiver3(0,0,0, 0,0,0, 'b', 'LineWidth', 1.5, 'MaxHeadSize', 0.5);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) (escalada)');&lt;br /&gt;
ylabel('Componente norte v(z) (escalada)');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Animación del triedro de Frenet en la espiral de Ekman');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
axis vis3d;&lt;br /&gt;
view(35,25);                  % z se muestra negativo, coherente con el modelo&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&lt;br /&gt;
%% Parámetros de la animación&lt;br /&gt;
L = dE/5;                                   % longitud de los vectores del triedro&lt;br /&gt;
nombre_gif = 'Ekman_triedro_Frenet.gif';    % nombre del GIF (opcional)&lt;br /&gt;
&lt;br /&gt;
% Si se quiere empezar un GIF nuevo, se borra el anterior&lt;br /&gt;
if exist(nombre_gif,'file')&lt;br /&gt;
    delete(nombre_gif);&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
%% Bucle de animación&lt;br /&gt;
for i = 1:Npts&lt;br /&gt;
    % Punto actual en la espiral&lt;br /&gt;
    xb = x(i); yb = y(i); zb = z(i);&lt;br /&gt;
&lt;br /&gt;
    % Vectores del triedro escalados&lt;br /&gt;
    TT = L * T(i,:);&lt;br /&gt;
    NN = L * N(i,:);&lt;br /&gt;
    BB = L * B(i,:);&lt;br /&gt;
&lt;br /&gt;
    % Actualizar T, N, B en el punto actual&lt;br /&gt;
    set(hT, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', TT(1), 'VData', TT(2), 'WData', TT(3));&lt;br /&gt;
    set(hN, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', NN(1), 'VData', NN(2), 'WData', NN(3));&lt;br /&gt;
    set(hB, 'XData', xb, 'YData', yb, 'ZData', zb, ...&lt;br /&gt;
            'UData', BB(1), 'VData', BB(2), 'WData', BB(3));&lt;br /&gt;
&lt;br /&gt;
    drawnow;&lt;br /&gt;
    pause(0.02);                            % velocidad de la animación&lt;br /&gt;
&lt;br /&gt;
    % Guardar cada frame en un GIF (opcional)&lt;br /&gt;
    frame = getframe(gcf);&lt;br /&gt;
    im    = frame2im(frame);&lt;br /&gt;
    [A,map] = rgb2ind(im,256);&lt;br /&gt;
    if i == 1&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','LoopCount',Inf,'DelayTime',0.02);&lt;br /&gt;
    else&lt;br /&gt;
        imwrite(A,map,nombre_gif,'gif','WriteMode','append','DelayTime',0.02);&lt;br /&gt;
    end&lt;br /&gt;
end&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
En la animación se observa cómo el triedro de Frenet se desplaza a lo largo de la espiral de Ekman.&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Archivo:Captura_de_pantalla_2025-12-01_160143.png&amp;diff=93280</id>
		<title>Archivo:Captura de pantalla 2025-12-01 160143.png</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Archivo:Captura_de_pantalla_2025-12-01_160143.png&amp;diff=93280"/>
				<updated>2025-12-01T15:07:16Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93279</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93279"/>
				<updated>2025-12-01T15:03:31Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: /* Campo vectorial v */&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Animm.png|600px|thumb|right|.]]&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921*(10)^-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.15;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.05;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-0.3, 0.3]);&lt;br /&gt;
ylim([-0.3, 0.3]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93263</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93263"/>
				<updated>2025-12-01T14:30:31Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Animm.png|600px|thumb|right|.]]&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921e-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.2;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.1;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-50, 50]);&lt;br /&gt;
ylim([-50, 50]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93262</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93262"/>
				<updated>2025-12-01T14:29:54Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Animm.png|600px|thumb|right|.]]&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921e-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.2;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.1;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-50, 50]);&lt;br /&gt;
ylim([-50, 50]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93260</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93260"/>
				<updated>2025-12-01T14:27:03Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Animm.png|600px|thumb|right|.]]&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921e-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.2;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.1;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-50, 50]);&lt;br /&gt;
ylim([-50, 50]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
==Visualización tridimensional de la espiral de Ekman==&lt;br /&gt;
[[Archivo:Espiral_Ekman_3D.png.png|miniaturadeimagen|Representación tridimensional de los vectores &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; evaluados en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; para &amp;lt;math&amp;gt;z \in [0,3d_E]&amp;lt;/math&amp;gt;. La curva roja une las puntas de los vectores y forma la espiral de Ekman.]]&lt;br /&gt;
'''5.1. Vectores de velocidad a lo largo del eje vertical'''&lt;br /&gt;
&lt;br /&gt;
El campo de velocidad horizontal del agua viene dado por&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec V(z) = u(z)\,\vec i + v(z)\,\vec j,&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde las soluciones de las ecuaciones de Ekman (obtenidas en el apartado 3) son&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
u(z) = \operatorname{sgn}(f)\,V_0\, e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
\qquad&lt;br /&gt;
v(z) = V_0\, e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\vartheta\right),&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
siendo:&lt;br /&gt;
&lt;br /&gt;
* &amp;lt;math&amp;gt;V_0 = 0{,}15\ \text{m/s}&amp;lt;/math&amp;gt; la velocidad superficial inducida por el viento (dato del modelo);&lt;br /&gt;
* &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; la profundidad de Ekman calculada en el apartado (1);&lt;br /&gt;
* &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; la fase inicial encontrada en el apartado (2);&lt;br /&gt;
* &amp;lt;math&amp;gt;\operatorname{sgn}(f)=1&amp;lt;/math&amp;gt; porque &amp;lt;math&amp;gt;f&amp;gt;0&amp;lt;/math&amp;gt; en el hemisferio norte.&lt;br /&gt;
&lt;br /&gt;
Para visualizar la espiral tridimensional seguimos exactamente lo que indica el enunciado. Consideramos puntos del eje vertical &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; con&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;z \in [0,-3d_E].&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Tomamos entre 30 y 40 puntos igualmente espaciados (por ejemplo, &amp;lt;math&amp;gt;N=40&amp;lt;/math&amp;gt;). En cada profundidad &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; calculamos &amp;lt;math&amp;gt;\vec V(z)&amp;lt;/math&amp;gt; y dibujamos un vector con origen en &amp;lt;math&amp;gt;(0,0,z)&amp;lt;/math&amp;gt; y punta en &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt;. Las puntas de todos esos vectores describen una curva en el espacio tridimensional: la espiral de Ekman.&lt;br /&gt;
&lt;br /&gt;
'''5.2. Código de MATLAB para la visualización 3D&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
El siguiente script de MATLAB implementa la construcción descrita anteriormente, utilizando los valores de &amp;lt;math&amp;gt;f&amp;lt;/math&amp;gt;, &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; calculados en los apartados (1) y (2). Se generan entre 30 y 40 vectores de velocidad a lo largo de la columna de agua y se representa la espiral de Ekman en tres dimensiones.&lt;br /&gt;
&lt;br /&gt;
&amp;lt;syntaxhighlight lang=&amp;quot;matlab&amp;quot;&amp;gt;&lt;br /&gt;
%% Datos conocidos de los apartados (1) y (2)&lt;br /&gt;
V0     = 0.15;          % Velocidad superficial inducida [m/s]&lt;br /&gt;
f      = 7.3e-5;        % Parámetro de Coriolis [1/s] (valor hallado en (1))&lt;br /&gt;
nu_e   = 0.05;          % Viscosidad turbulenta [m^2/s]&lt;br /&gt;
dE     = sqrt(2*nu_e/abs(f));   % Profundidad de Ekman (calculada en (1))&lt;br /&gt;
theta0 = 3*pi/4;        % Fase inicial ϑ (hallada en (2))&lt;br /&gt;
&lt;br /&gt;
%% Discretización de la profundidad física: prof ∈ [0, 3 dE]&lt;br /&gt;
N    = 40;                          % 30–40 puntos&lt;br /&gt;
prof = linspace(0, 3*dE, N);        % prof ≥ 0, 0 = superficie&lt;br /&gt;
&lt;br /&gt;
%% z del MODELO (negativo), tal como se definió en el enunciado&lt;br /&gt;
z_model = -prof;                    % z ≤ 0&lt;br /&gt;
&lt;br /&gt;
%% Cálculo de u(z) y v(z) usando z_model&lt;br /&gt;
sgnf = sign(f);                     % = 1 en nuestro caso (hemisferio norte)&lt;br /&gt;
&lt;br /&gt;
u = sgnf * V0 .* exp(z_model/dE) .* cos(z_model/dE + theta0);&lt;br /&gt;
v =        V0 .* exp(z_model/dE) .* sin(z_model/dE + theta0);&lt;br /&gt;
&lt;br /&gt;
%% Representación 3D de los vectores V(z)&lt;br /&gt;
figure;&lt;br /&gt;
&lt;br /&gt;
% Vectores con origen en (0,0,prof) y punta en (u,v,prof)&lt;br /&gt;
h = quiver3( zeros(size(prof)), zeros(size(prof)), prof, ...&lt;br /&gt;
             u,                v,                zeros(size(prof)), ...&lt;br /&gt;
             'LineWidth', 1.5 );&lt;br /&gt;
set(h,'AutoScale','on','AutoScaleFactor',5);   % Agranda las flechas para verlas bien&lt;br /&gt;
&lt;br /&gt;
hold on;&lt;br /&gt;
&lt;br /&gt;
% Curva que une las puntas de los vectores: la espiral de Ekman&lt;br /&gt;
plot3(u, v, prof, '--k', 'LineWidth', 1);&lt;br /&gt;
&lt;br /&gt;
xlabel('Componente este u(z) [m/s]');&lt;br /&gt;
ylabel('Componente norte v(z) [m/s]');&lt;br /&gt;
zlabel('Profundidad z [m]');&lt;br /&gt;
title('Espiral de Ekman en 3D (vectores V evaluados en (0,0,z))');&lt;br /&gt;
&lt;br /&gt;
grid on;&lt;br /&gt;
set(gca, 'ZDir','reverse');   % Profundidad positiva hacia abajo&lt;br /&gt;
view(45, 25);                 % Vista tridimensional agradable&lt;br /&gt;
% No usamos axis equal para que las flechas no queden aplastadas&lt;br /&gt;
&lt;br /&gt;
hold off;&lt;br /&gt;
&amp;lt;/syntaxhighlight&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''5.3. Interpretación del resultado numérico&lt;br /&gt;
'''&lt;br /&gt;
&lt;br /&gt;
La figura obtenida con el código anterior muestra la espiral de Ekman correspondiente a los parámetros del modelo. En la superficie (&amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;) el vector de velocidad tiene módulo &amp;lt;math&amp;gt;V_0 = 0{,}15\,\text{m/s}&amp;lt;/math&amp;gt; y dirección fijada por la fase &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;, desviada aproximadamente &amp;lt;math&amp;gt;45^\circ&amp;lt;/math&amp;gt; a la derecha del viento, tal como se dedujo en el apartado (2).&lt;br /&gt;
&lt;br /&gt;
A medida que aumenta la profundidad (valores crecientes de la variable &amp;lt;math&amp;gt;\text{prof}&amp;lt;/math&amp;gt;):&lt;br /&gt;
&lt;br /&gt;
* la **dirección** de los vectores va rotando debido al efecto de Coriolis, describiendo una espiral;&lt;br /&gt;
* la **magnitud** de la velocidad decrece exponencialmente con el término &amp;lt;math&amp;gt;e^{z/d_E}&amp;lt;/math&amp;gt;, por lo que los vectores se hacen cada vez más cortos.&lt;br /&gt;
&lt;br /&gt;
La curva que une las puntas de los vectores &amp;lt;math&amp;gt;(u(z),v(z),z)&amp;lt;/math&amp;gt; representa así la estructura tridimensional de la espiral de Ekman, y muestra cómo la influencia directa del viento se concentra en la capa superior de espesor del orden de la profundidad de Ekman &amp;lt;math&amp;gt;d_E&amp;lt;/math&amp;gt;, desapareciendo progresivamente a mayor profundidad.&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante señalar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La justificación matemática es sencilla, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt;, y todos sus vectores se orientan de forma paralela al plano generado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto implica que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, ya que la componente &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es, de por sí, nula.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la causa de esta divergencia cero. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
[[Archivo:imagencurvatura.png|miniaturadeimagen|Representación de la curvatura y la torsión]]&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva:&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Conclusión:&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
==Triedro de Frenet==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93092</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93092"/>
				<updated>2025-12-01T11:32:33Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Notas finales&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Animm.png|600px|thumb|right|.]]&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921e-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.2;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.1;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-50, 50]);&lt;br /&gt;
ylim([-50, 50]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
== Divergencia de &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; ==&lt;br /&gt;
Es importante marcar que la divergencia del campo vectorial &amp;lt;math&amp;gt;\vec{v}&amp;lt;/math&amp;gt; es '''en todo caso nula'''. La demostración es trivial, pues el campo depende exclusivamente de la variable &amp;lt;math&amp;gt;z&amp;lt;/math&amp;gt; mientras que todos los vectores resultantes son paralelos al plano marcado por &amp;lt;math&amp;gt;\vec{i}&amp;lt;/math&amp;gt; y &amp;lt;math&amp;gt;\vec{j}&amp;lt;/math&amp;gt;. En otras palabras, esto resulta que en que la derivada &amp;lt;math&amp;gt;\frac{\partial}{\partial z}\vec{v}_z = 0&amp;lt;/math&amp;gt;, pues &amp;lt;math&amp;gt;\vec{v}_z&amp;lt;/math&amp;gt; es en sí ya nulo.&lt;br /&gt;
&lt;br /&gt;
En el contexto en el que nos encontramos, no está de más preguntarse la razón de esta nulidad de la divergencia. Si entendemos la divergencia como un fenómeno físico, es correspondiente al '''cambio de volumen inducido por un campo'''. Siendo el agua el fluido incompresible que es, la velocidad de sus moléculas adquirida gracias al efecto del viento es totalmente independiente del volumen. Para todo campo velocidad de un '''fluido incompresible''', sería por tanto de esperar que &amp;lt;math&amp;gt;\nabla · \vec{v} = 0 &amp;lt;/math&amp;gt;. Se trata de una consecuencia directa del [https://es.wikipedia.org/wiki/Teorema_de_la_divergencia '''Teorema de la divergencia de Gauss'''].&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93081</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=93081"/>
				<updated>2025-12-01T11:27:58Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
== Resolucion de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt;==&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El valor de &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es importante para la definición de la espiral de Ekman, ya que determina la fase inicial fijada por la dirección del viento respecto a la fuerza de Coriolis.&lt;br /&gt;
&lt;br /&gt;
Considerando una localidad de las Islas Canarias, con coordenadas aproximadas ''30º10′24.2″N, 15º30′26.5″W'', asumiendo una viscosidad turbulenta de ''0.05 m&amp;lt;sup&amp;gt;2&amp;lt;/sup&amp;gt;/s'', una velocidad del viento de ''12 m/s'' que sopla de Norte a Sur, una velocidad superficial inducida de aproximadamente ''0.15 m/s'' y un desvío aproximado de 45º (hacia la derecha respecto a la dirección del viento) del flujo supercial. Usamos los siguientes valores:&lt;br /&gt;
* &amp;lt;math&amp;gt;z = 0&amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;\frac{v(z)}{u(z)} = 1 = \tan(45º) &amp;lt;/math&amp;gt;.&lt;br /&gt;
* &amp;lt;math&amp;gt;f &amp;gt; 0&amp;lt;/math&amp;gt; ya que estamos en el norte, y por lo tanto &amp;lt;math&amp;gt;sgn(f) = 1&amp;lt;/math&amp;gt;.&lt;br /&gt;
&lt;br /&gt;
Resolviendo nos queda:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&amp;lt;br/&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\frac{v(z)}{u(z)} =&lt;br /&gt;
\frac{V_0 e^{\frac{0}{d_E}} \sin(\vartheta)}&lt;br /&gt;
     {V_0 e^{\frac{0}{d_E}} \cos(\vartheta)} &lt;br /&gt;
= \tan(\vartheta) = 1&lt;br /&gt;
\Rightarrow&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;&lt;br /&gt;
\Rightarrow&lt;br /&gt;
\vartheta =&lt;br /&gt;
\left\{&lt;br /&gt;
\begin{aligned}&lt;br /&gt;
    \frac{\pi}{4}\\&lt;br /&gt;
    \frac{3\pi}{4}&lt;br /&gt;
\end{aligned}&lt;br /&gt;
\right.&lt;br /&gt;
&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como tanto &amp;lt;math&amp;gt;u(z)&amp;lt;/math&amp;gt; como &amp;lt;math&amp;gt;v(z)&amp;lt;/math&amp;gt; son negativos, la solución correcta para &amp;lt;math&amp;gt;\vartheta&amp;lt;/math&amp;gt; es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;center&amp;gt;&lt;br /&gt;
&amp;lt;math&amp;gt;\frac{3\pi}{4}&amp;lt;/math&amp;gt;&lt;br /&gt;
&amp;lt;/center&amp;gt;&lt;br /&gt;
&lt;br /&gt;
==Flujo Neto==&lt;br /&gt;
El objetivo de este apartado es determinar el flujo neto de agua que atraviesa una pared vertical y demostrar que dicho flujo se orienta hacia el oeste, perpendicular al viento predominante. Para ello, consideramos una pared de agua cuya normal está dada por el vector genérico &amp;lt;math&amp;gt; \vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;,donde &amp;lt;math&amp;gt; \alpha \in [0,2\pi) &amp;lt;/math&amp;gt; es un ángulo fijo. La pared tendrá una anchura &amp;lt;math&amp;gt;L = 10\ \text{m}&amp;lt;/math&amp;gt; y la profundidad será infinita &amp;lt;math&amp;gt; z \in [0,-\infty)&amp;lt;/math&amp;gt;.&lt;br /&gt;
Para hallar el flujo usaremos la fórmula del flujo conociendo el campo vectorial &amp;lt;math&amp;gt;\vec{v} = u(z)\,\vec{i} + v(z)\,\vec{j}&amp;lt;/math&amp;gt;,y un vector perpendicular a la superficie &amp;lt;math&amp;gt;\vec{n} = \cos(\alpha)\,\vec{i} + \sin(\alpha)\,\vec{j}&amp;lt;/math&amp;gt;:&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0} (\vec{v} \cdot \vec{n}) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
El resultado del producto vectorial&amp;lt;math&amp;gt;(\vec{v} \cdot \vec{n})&amp;lt;/math&amp;gt;es:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n} = u(z)\cos(\alpha) + v(z)\sin(\alpha)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \left[ \cos(\alpha)\cos\left( \frac{z}{d_E} + \vartheta \right)&lt;br /&gt;
+ \sin(\alpha)\sin\left( \frac{z}{d_E} + \vartheta \right) \right]&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{v}\cdot\vec{n}&lt;br /&gt;
= V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right).&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Ahora la integral doble sería:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = \int_0^{L} \int_{-\infty}^{0}&lt;br /&gt;
V_0 e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz \, dL&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\Phi = L V_0 \int_{-\infty}^{0}&lt;br /&gt;
e^{z/d_E} \cos\left( \frac{z}{d_E} + \vartheta - \alpha \right) \, dz.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Para resolver lo que queda de integral usaremos la integración por partes: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \int u \, dv = uv - \int v \, du  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; u = \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right), \quad \implies \quad du = -\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;dv = e^{\frac{z}{d_E}} dz \implies \quad v = d_E e^{\frac{z}{d_E}}  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Aplicamos la integración por partes:&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \left(-\frac{1}{d_E} \sin\left(\frac{z}{d_E} + ϑ  -\alpha\right)\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Si simplificamos: &amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Ahora nos queda otra integral:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; I_2 = \int e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz  &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Utilizando integral por partes otra vez &lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int d_E e^{\frac{z}{d_E}} \frac{1}{d_E} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - \int e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como la ultima integral es igual a la primera:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;  I_2 = d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)-I &amp;lt;/math&amp;gt; &lt;br /&gt;
&lt;br /&gt;
Esta la sustituimos en &amp;lt;math&amp;gt;\Phi &amp;lt;/math&amp;gt;&lt;br /&gt;
 &lt;br /&gt;
&amp;lt;math&amp;gt;  \Phi = L V_0 \left[ d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right) - I \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Como  &amp;lt;math&amp;gt;  \Phi=I = \int_{-\infty}^0 e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) dz &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces &amp;lt;math&amp;gt; 2I =V_{0} d_E e^{\frac{z}{d_E}} \cos\left(\frac{z}{d_E} + ϑ  - \alpha\right) + d_E e^{\frac{z}{d_E}} \sin\left(\frac{z}{d_E} + ϑ  - \alpha\right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Solo nos queda evaluar la integral entre &amp;lt;math&amp;gt; z=0  &amp;lt;/math&amp;gt; y  &amp;lt;math&amp;gt; z=-\infty&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; z =0:&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;e^{\frac{z}{d_E}} = 1, \quad \cos\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \cos(ϑ   - \alpha),&lt;br /&gt;
 \quad \sin\left(\frac{z}{d_E} + ϑ   - \alpha\right) = \sin(ϑ   - \alpha) &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Y para &amp;lt;math&amp;gt; z =-\infty &amp;lt;/math&amp;gt; todos los &amp;lt;math&amp;gt;  e^{\frac{z}{d_E}} \to 0  &amp;lt;/math&amp;gt; entonces se anulan &lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Entonces el flujo nos quedaría: &lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = L V_0 d_E \left[ \cos(ϑ  - \alpha) + \sin(ϑ  - \alpha) - \frac{1}{2} \left(\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right) \right] &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt; \Phi = \frac{L V_0 d_E}{2} \left[\cos(ϑ  - \alpha) + \sin(ϑ  - \alpha)\right]&lt;br /&gt;
 &amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
==Curvatura y torsión para la espiral de Ekman==&lt;br /&gt;
La curvatura y la torsión son elementos de una curva que son muy útiles para entender como se comporta. La curvatura expresa cuanto cambia la dirección de la trayectoria en cada punto, mientras que la torsión mide cuanto cambia el plano de curvatura a lo largo de la curva. Matemáticamente se expresan de la siguiente manera:&lt;br /&gt;
&lt;br /&gt;
'''Torsión:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\tau(z) = \frac{[\vec{v}(z),\, \vec{a}(z),\, \vec{a}'(z)]}{|\vec{v}(z) \times \vec{a}(z)|^{2}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
'''Curvatura:'''&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z) = \frac{|\vec{v}(z) \times \vec{a}(z)|}{|\vec{v}(z)|^{3}}&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Consideramos la curva de Ekman parametrizada por la profundidad:&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec r(z)=\big(u(z),\,v(z),\,z\big),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
donde&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;u(z)=\operatorname{sgn}(f)\,V_0 e^{z/d_E}\cos\!\left(\frac{z}{d_E}+\theta\right),v(z)=V_0 e^{z/d_E}\sin\!\left(\frac{z}{d_E}+\theta\right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;d_E=\sqrt{\frac{2\nu_e}{|f|}},A(z)=V_0 e^{z/d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Derivadas de la curva&lt;br /&gt;
&lt;br /&gt;
Definimos &amp;lt;math&amp;gt;\varphi(z)=\frac{z}{d_E}+\theta.&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
Entonces&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'(z) = \left( \frac{\text{sgn}(f) \, A}{d_E} (\cos \varphi - \sin \varphi), \quad \frac{A}{d_E} (\sin \varphi + \cos \varphi),\quad 1 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^2} \sin \varphi, \quad \frac{2A}{d_E^2} \cos \varphi,\quad 0 \right),&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&amp;lt;math&amp;gt;\vec{r}'''(z) = \left( \frac{2 \, \text{sgn}(f) \, A}{d_E^3} (\sin \varphi + \cos \varphi), \quad \frac{2A}{d_E^3} (\cos \varphi - \sin \varphi), \quad 0 \right)&amp;lt;/math&amp;gt;&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
Notas finales&lt;br /&gt;
&lt;br /&gt;
* El signo de la torsión depende del hemisferio (\(\operatorname{sgn}(f)\)).&lt;br /&gt;
* Hacia gran profundidad \(A(z)\to 0\), por lo que:&lt;br /&gt;
&amp;lt;math&amp;gt;\kappa(z)\to 0,\qquad\tau(z)\to \operatorname{sgn}(f)\frac{1}{d_E}.&amp;lt;/math&amp;gt;&lt;br /&gt;
* Cerca de la superficie las funciones crecen porque la velocidad inducida por el viento es mayor.&lt;br /&gt;
&lt;br /&gt;
== Campo vectorial v ==&lt;br /&gt;
Este apartado, analiza la representación de un campo vectorial V evaluado en puntos de coordenadas cartesianas (0,0,𝑧)(a lo largo del eje vertical z), desde la superficie del mar hasta la profundidad de Ekman. La finalidad es visualizar la formación de la espiral de Ekman, que describe el patrón de circulación de las corrientes oceánicas debido a la acción del viento. A medida que se desciende en la columna de agua, el campo de velocidad cambia de dirección y magnitud, creando un perfil espiral en el cual los vectores de velocidad se representan en distintas capas de agua a lo largo del eje 𝑧. En este contexto, cada vector mostrado representa la dirección y la intensidad del flujo en una capa particular, permitiendo observar la transición desde las corrientes superficiales hasta las más profundas que componen la espiral de Ekman. &lt;br /&gt;
&lt;br /&gt;
[[Archivo:Animm.png|600px|thumb|right|.]]&lt;br /&gt;
{{matlab|codigo=%% Apartado 4&lt;br /&gt;
clc;close all;clear;&lt;br /&gt;
omega = 7.2921e-5;  % Velocidad angular de la Tierra (rad/s)&lt;br /&gt;
phi = 45;  % Latitud en grados&lt;br /&gt;
V0 = 0.2;  % Velocidad superficial inducida por el viento (m/s)&lt;br /&gt;
nu = 0.1;  % Viscosidad turbulenta (m^2/s)&lt;br /&gt;
theta0 = 3*pi/4;  % Ángulo inicial en radianes&lt;br /&gt;
&lt;br /&gt;
% Calcular el parámetro de Coriolis f&lt;br /&gt;
f = 2 * omega * sind(phi);&lt;br /&gt;
&lt;br /&gt;
% Calcular la profundidad de Ekman&lt;br /&gt;
delta = sqrt(2 * nu / abs(f));&lt;br /&gt;
&lt;br /&gt;
% Parámetros de la simulación&lt;br /&gt;
z_max = 5 * delta;  % Profundidad máxima para la animación (2 veces la profundidad de Ekman)&lt;br /&gt;
n_frames = 100;  % Número de valores de profundidad&lt;br /&gt;
z_vals = linspace(0, z_max, n_frames);  % Valores de profundidad&lt;br /&gt;
figure(1);&lt;br /&gt;
hold on;&lt;br /&gt;
view(3)&lt;br /&gt;
xlim([-50, 50]);&lt;br /&gt;
ylim([-50, 50]);&lt;br /&gt;
zlim([-z_max 0]);&lt;br /&gt;
xlabel('Este - Oeste (m)');&lt;br /&gt;
ylabel('Norte - Sur (m)');&lt;br /&gt;
u_m = (f/abs(f))*V0 * exp(-z_vals / delta)  .* cos(-z_vals / delta+theta0);  % Componente u(z)&lt;br /&gt;
v_m = V0 * exp(-z_vals / delta)  .* sin(-z_vals / delta+theta0);  % Componente v(z)&lt;br /&gt;
plot3(u_m,v_m,-z_vals,'Color','r')&lt;br /&gt;
hold on&lt;br /&gt;
% Inicializar la animación&lt;br /&gt;
for k = 1:n_frames&lt;br /&gt;
    z = z_vals(k);  % Profundidad actual&lt;br /&gt;
    % Calcular las componentes de la velocidad&lt;br /&gt;
    u = u_m(k); % Componente u(z)&lt;br /&gt;
    v = v_m(k);% Componente v(z)&lt;br /&gt;
    quiver3(u, v,-z, u, v,0, 'AutoScale', 'off', 'LineWidth', 0.5, 'Color', &amp;quot;b&amp;quot;,'HandleVisibility', 'off');&lt;br /&gt;
    title(sprintf('Campo Vectorial de Ekman'))&lt;br /&gt;
    grid on&lt;br /&gt;
    view([45 45])&lt;br /&gt;
end&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
}}&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=86568</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=86568"/>
				<updated>2025-11-24T14:23:04Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: &lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;br /&gt;
&lt;br /&gt;
[[Categoría:TC25/26]]&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	<entry>
		<id>https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=86567</id>
		<title>Espiral de Ekman (Grupo 55, Retiro)</title>
		<link rel="alternate" type="text/html" href="https://mat.caminos.upm.es/w/index.php?title=Espiral_de_Ekman_(Grupo_55,_Retiro)&amp;diff=86567"/>
				<updated>2025-11-24T14:21:33Z</updated>
		
		<summary type="html">&lt;p&gt;Carlos De Hita Sánchez: Página creada con «{{ TrabajoED | Espiral de Ekman. Grupo 55 | Teoría de Campos|2025-26 | Carlos De Hita Sánchez, Hicham Ouald Omar...»&lt;/p&gt;
&lt;hr /&gt;
&lt;div&gt;{{ TrabajoED | Espiral de Ekman. Grupo 55 | [[:Categoría:Teoría de Campos|Teoría de Campos]]|[[:Categoría:TC25/26|2025-26]] | Carlos De Hita Sánchez, Hicham Ouald Omar Alouat, Naoual Roubio Darkaoui, Khadija Mrauti El Hachadi, David Gómez Matarranz }}&lt;/div&gt;</summary>
		<author><name>Carlos De Hita Sánchez</name></author>	</entry>

	</feed>