Atravesando un río a nado (I)
Velocidad constante de la corriente
En este apartado, volvemos a estudiar el mismo caso descrito al principio de la página titulada Movimiento relativo de traslación uniforme el Ejemplo 2, el primer caso: la velocidad del barco v respecto de la corriente es mayor que la de la corriente c

El vector velocidad , del barco respecto de tierra es la suma vectorial
Para que el nadador llegue al punto P, Vx=0
Para obtener θ, se tiene que cumplir que, c/v≤1. Es decir, c≤v
Sabiendo que la anchura del río es d. El tiempo de viaje de O a P es
Velocidad que se incrementa linealmente

Supongamos que la velocidad de la corriente no es constante. El perfil de la velocidad de la corriente es el que se muestra en la figura. En el centro la velocidad es máxima y en las orillas la velocidad de la corriente es nula
La velocidad de la corriente es
o su expresión equivalente
Las componentes del vector velocidad del nadador respecto de Tierra son
Para que llegue al punto P, opuesto al punto de partida O, se tiene que cumplir, que el desplazamiento Δx=0 en el instante de llegada T
El ángulo θ que hace el vector velocidad relativa del nadador con el eje X, es
Se tiene que cumplir que, c/(2v)≤1. Es decir, c≤2v
Las componentes del vector velocidad del nadador respecto de Tierra son
Tiempo de viaje
El tiempo T que tarda en desplazarse de O a P en la orilla opuesta es
Trayectoria
Entre y=0 e y=d/2
Entre y=d/2 e y=d
Para y=d/2, x=0
La ecuación de la trayectoria es
Representamos la trayectoria del nadador con los siguientes datos
- Velocidad del nadador respecto de la corriente, v=1.5
- Velocidad de la corriente, c=2
- Anchura del río, d=10
Se cumple que c/(2v)≤1
c=2; %velocidad de la corriente
v=1.5; %velocidad del nadador respecto de la corriente
p=c/sqrt(4*v^2-c^2);
d=10; %anchura del río
hold on
fplot(@(y) p*(-y+2*y.^2/d), [0,d/2])
fplot(@(y) p*(3*y-2*y.^2/d-d),[d/2,d])
hold off
grid on
axis equal
xlabel('x')
ylabel('y')
title('Trayectoria')
view([90 -90])
T=2*d/sqrt(4*v^2-c^2); %tiempo de viaje
disp(T)

El nadador tarda T=8.9443 en atravesar el río
8.9443
La velocidad de la corriente tiene un perfil dado por una función potencial
El perfil de la velocidad de la corriente está dada por la función potencial
Donde n es un exponente entero, n=1, 2, 3,...
Representamos el perfil de la velocidad de la corriente c(y), para tres valores de n=1, 2, 3
Datos
- Velocidad de la corriente, c=2
- Anchura del río, d=10
c=2; %velocidad de la corriente
d=10; %anchura del río
hold on
for n=1:3
f=@(y) c*(1-((2*y-d)/d).^(2*n));
fplot(f, [0,d],'displayName',num2str(n))
end
hold off
grid on
axis equal
legend('-DynamicLegend','location','best')
xlabel('x')
ylabel('y')
title('Perfil de la velocidad de la corriente')
view([90 -90])

La velocidad de la coriente es máxima en el centro del río y cero en las orillas
Las componentes del vector velocidad del nadador respecto de Tierra son
Para que llegue al punto P, opuesto al punto de partida O, se tiene que cumplir, que el desplazamiento Δx=0 en el instante de llegada T
El ángulo θ que hace el vector velocidad relativa del nadador con el eje X, es
Se tiene que cumplir que,
Cuando n es grande la velocidad de la corriente es casi constante, cosθ≈-c/v, como en el primer apartado
Tiempo de viaje
El tiempo T que tarda en desplazarse de O a P en la orilla opuesta es
Trayectoria
Representamos la trayectoria del nadador con los siguientes datos
- Velocidad del nadador respecto de la corriente, v=1
- Velocidad de la corriente, c=1.15
- Anchura del río, d=10
c=1.15; %velocidad de la corriente
v=1; %velocidad del bote respecto de la corriente
d=10; %anchura del río
hold on
for n=1:3
a_th=2*n*c/(v*(2*n+1));
disp(a_th)
if a_th>1
break;
end
th=acos(a_th);
f=@(y) c*(y-d*(1+((2*y-d)/d).^(2*n+1))/2)/sqrt(((2*n+1)*v)^2-(2*n*c)^2);
fplot(f, [0,d],'displayName',num2str(n))
end
hold off
grid on
axis equal
legend('-DynamicLegend','location','best')
xlabel('x')
ylabel('y')
title('Trayectorias')
view([90 -90])

Se cumple la condición de que el argumento de
0.7667
0.9200
0.9857
Tiempo mínimo
Consideremos el segundo ejemplo, la velocidad de la corriente tiene un perfil lineal
El tiempo T que tarda el nadador en atravesar el río es
Queremos que este tiempo sea mínimo, sujeto a la condición de que el nadador llegue al punto P en la otra orilla
Tenemos un problema de extremo condicionado
Formamos la función auxiliar, dependiente de un parámetro λ
Aplicamos la ecuación Euler-Lagrange
La función F(θ) no depende de la derivada de θ,
El ángulo θ que hace el vector velocidad relativa con el eje X no es constante. Cambia con la coordenada y
Se calcula el parámetro λ sabiendo que el desplazamiento final, Δx=0
Definimos las variables
La segunda integral entre 1/2 y 1 es igual a la primera entre 0 y 1/2
Resolvemos gráficamente la ecuación transcendente en β, f(β)=0
Representamos f(β), la función se anula para β=0.62
k=1; %cociente c/v
bb=0:0.01:1;
z=zeros(1, length(bb));
j=1;
for b=bb
f=@(x) (-b+2*k*x.*(1+2*k*b*x))./sqrt((1+2*k*b*x).^2-b^2);
z(j)=integral(f,0,0.5);
j=j+1;
end
plot(bb,z)
grid on
xlabel('\beta')
ylabel ('f(\beta)')
title('Ecuación transcendente')

Tiempo mínimo
En términos de las variables adimensionales
>> k=1; >> b=0.62; >> T=(sqrt((1+b*k)^2-b^2)-sqrt(1-b^2))/(b*k) T = 1.1485
Parra k=1, el tiempo mínimo es
El tiempo calculado en el segundo apartado era
Para k=1, T=1.1547d/v, algo mayor
Para k=1.5, b=0.97. El tiempo mínimo es Tm=1.3829d/v y el tiempo T=1.5119d/v, algo mayor
En el segundo apartado, el ángulo θ que hace el vector velocidad relativa con el eje X es constante, cosθ=-c/(2v). En el mínimo, el ángulo θ cambia con la posición y
Hemos resuelto la ecuación transcedente, para k=1, β=0.62
k=1;
b=0.62;
d=10; %anchura del río
hold on
fplot(@(y) acos(-b./(1+2*k*b*y/d)), [0,d/2])
fplot(@(y) acos(-b./(1+2*k*b*(1-y/d))),[d/2,d])
line([0,d],[acos(-k/2),acos(-k/2)]) %constante
hold off
set(gca,'YTick',pi/2:pi/12:pi)
set(gca,'YTickLabel',{'\pi/2','7\pi/12','2\pi/3','3\pi/4',
'5\pi/6','11\pi/12', '\pi'})
grid on
xlabel('y')
ylabel('\theta')
title('Angulo \theta')
El ángulo θ cambia en un pequeño intervalo alrededor de 2π/3 (120°), que es el ángulo constante, cosθ=-c/(2v)=-k/2

Referencias
Kyle Kou Yuchang, Simon Meng Zimin, Paul Zhang Yixing. Discussion on the Physics Problem of a Boat Crossing a River. arXiv. Mathematical Physics