Revisión del 23:54 1 dic 2024

En este trabajo vamos a exponer la curva conocida como clotoide y sus numerosas propiedades en el ámbito civil. Una clotoide es una curva cuya característica principal es que la tasa de cambio de la curvatura es constante a lo largo de su longitud, es decir, aumenta o disminuye de manera progresiva y suave, sin cambios bruscos.

Consideramos la curva plana dada por la parametrización en coordenadas cartesianas:

1 La Clotoide

1.1 Dibujo de la curva

Comenzaremos el trabajo dibujando la curva dada. Para ello utilizaremos Octave. (L=5)

Dibujo de la curva

t = linspace(-5, 5, 200);
x = @(t) integral(@(s) cos(s.^2/2), 0, t);
y = @(t) integral(@(s) sin(s.^2/2), 0, t);
x = arrayfun(x, t);
y = arrayfun(y, t);
figure;
plot(x, y);
title('La Clotoide');
xlabel('X');
ylabel('Y');
axis equal;

1.2 Cálculo de vectores velocidad y aceleración

Calcularemos los vectores velocidad y aceleración a partir de la siguiente parametrización:

Calculo vector velocidad: [math] {\gamma }'(t)={x}'(t) \vec i + {y}'(t) \vec j \rightarrow {\gamma }'(t)=cos(\frac{t^2}{2}) \vec i+sin(\frac{t^2}{2}) \vec j [/math]
Calculo vector aceleración: [math] {\gamma }''(t)={x}''(t) \vec i + {y}''(t) \vec j \rightarrow {\gamma }'(t)=-t\cdot sin(\frac{t^2}{2}) \vec i+t\cdot cos(\frac{t^2}{2}) \vec j [/math]

Vectores velocidad y aceleración

t = linspace(-5, 5, 200);
x = @(t) integral(@(s) cos(s.^2/2), 0, t);
y = @(t) integral(@(s) sin(s.^2/2), 0, t);
x = arrayfun(x, t);
y = arrayfun(y, t); 
V1 = cos(t.^2/2);
V2 = sin(t.^2/2);
A1 = -t.*sin(t.^2/2);
A2 = t.*cos(t.^2/2);
figure
hold on
plot (x ,y ,'b') ; 
quiver(x,y,V1,V2,"color","g") ; 
quiver(x,y,A1,A2,"color","r") ; 
axis equal
hold off
title('Vectores velocidad y aceleracion');
xlabel("X");
ylabel("Y");

1.3 Cálculo longitud de la curva

Utilizando la siguiente fórmula calcularemos la longitud de la curva:

1.4 Cálculo de los vectores tangente y normal

Haciendo uso del vector velocidad, calcularemos el vector tangente y normal:

El vector tangente:

El vector normal:

Curva vector tangente y normal

t = linspace(-5, 5, 200);
x = @(t) integral(@(s) cos(s.^2/2), 0, t);
y = @(t) integral(@(s) sin(s.^2/2), 0, t);
x=arrayfun(x, t);
y=arrayfun(y, t);
norma=1;
T1 = cos(t.^2/2)./norma;
T2 = sin(t.^2/2)./norma;
N1= -sin((t.^2)./2);
N2= cos ((t.^2)./2);
figure;
hold on;
plot(x,y,'b'); %curva
quiver(x,y,T1,T2,"color",'r');
quiver(x,y,N1,N2,"color",'g');
axis equal
hold off;
title ('Curva, tangente y normal.')
xlabel('Eje X');
ylabel('Eje Y');

1.5 Cálculo de la curvatura

Estudiaremos la curvatura en el punto [math] γ(t) [/math] que viene dada por la siguiente fórmula:

[math] \kappa (t)=\frac{{x}'(t)\cdot {y}''(t)-{x}''(t)\cdot {y}'(t)}{({x}'(t)^2 + {y}'(t)^2)^{\frac{3}{2}}} [/math] [math] =\frac{cos(\frac{t^2}{2})\cdot t\cdot cos(\frac{t^2}{2})-(-t\cdot sin(\frac{t^2}{2})\cdot sin(\frac{t^2}{2}))}{\sqrt{[(cos(\frac{t^2}{2}))^2+(sin(\frac{t^2}{2}))^2]^3}}=\frac{t}{1}=t , t ∈ [-5,5] [/math]

Dibujo de la curvatura

t=linspace(-5,5,70)
k=t;
figure
plot(t,k,'b');
axis equal
title('Curvatura.');
xlabel('Eje X');
ylabel('Eje Y');

1.6 Cálculo de la circunferencia osculatriz

Dado el punto [math] P=\gamma (2) [/math], es decir [math] t=2 [/math], hallaremos el centro y el radio de la siguiente forma:

El radio:

El centro:

Parametrizamos el centro de la circunferencia osculatriz con la siguiente fórmula:

t = linspace(-5, 5, 200);
x = @(t) integral(@(s) cos(s.^2/2), 0, t);
y = @(t) integral(@(s) sin(s.^2/2), 0, t);
xc = arrayfun(x, t);
yc = arrayfun(y, t);
t1= linspace (0, 1/2, 20);
x1= @(t1) integral(@(s) cos(s.^2/2), 0, t1);
y1= @(t1) integral(@(s) sin(s.^2/2), 0, t1);
x1= arrayfun (x1, 2); 
y1= arrayfun (y1, 2);
P=[ x1, y1 ];
fprintf('El punto de la curvatura es %f,%f \n',P);
n=[-sin(1/2),cos(1/2)];
k=1;
R=1/2;
fprintf('El radio de la curvatura es %d \n',R);
Q=P+R*n;
Qx=x1+R*(-sin(1/2));
Qy=y1+R*(cos(1/2));
fprintf('El centro de la circuferencia es %f,%f \n',Q)
tt=linspace(0,2*pi,40);
xx=R*cos(tt)+Qx;
yy=R*sin(tt)+Qy;
figure
hold on
plot(xc,yc,'m','linewidth',1)
%punto p
plot(x1,y1,'*k','linewidth',1)
plot(xx,yy,'b')
hold off
title('Circunferencia osculatriz.');
xlabel('Eje X');
ylabel('Eje Y');
axis equal;

2 Helicoide cónico

2.1 Dibujo de la superficie

En este apartado se va a dibujar la superficie reglada asociada a la parametrización de una curva mediante segmentos ortogonales de longitud 1 y vector director eρ. Esta superficie se conoce habitualmente como helicoide cónico

• La parametrización de la superficie en cartesianas es la siguiente:

Para que la gráfica muestre la superficie reglada hay que extender los segmentos desde la hélice para cada punto de la curva base, la superficie se expresa como:

Porque el vector director eρ en cartesianas es [math] cos(\theta) \vec i + sin(\theta) \vec j [/math] y ρ controla la magnitud de los segmentos en la dirección de eρ.

t = linspace(2*pi, 6*pi, 100); % Valores de t
rho = linspace(0, 1, 100);     % Valores de rho
[T, Rho] = meshgrid(t, rho);   % Malla para parametrización
% Coordenadas de la superficie reglada
X=T.*cos(T)+Rho.*cos(T);
Y=T.*sin(T)+Rho.*sin(T);
Z=T;
% Gráfica de la superficie 
surf(X, Y, Z, 'EdgeColor', 'none');
% Configuración de la gráfica
colormap('winter');
c=colorbar; 
c.Label.String='Valores en Z'; 
axis equal;
xlabel('X');
ylabel('Y'); 
zlabel('Z');
title('Superficie Reglada de la Hélice Cónica'); 
grid on;

3 Masa de la superficie reglada.

Suponiendo que la densidad de la superficie obtenida en el apartado anterior está descrita por la función:

Una vez conocida la superficie y la densidad podemos calcular su masa utilizando la siguiente expresión:

Gracias a los cálculos realizados anteriormente podemos calcular la masa :

El vector de posición esta dado por:

Así que deberemos aplicar la siguiente fórmula para obtener rᵤ y rᵥ: