x = 1.3:0.001:1.7; % Vector de datos
figure;
hold on; % Permite superponer las gráficas en la misma ventana

% Graficar asignando el nombre de la leyenda a cada curva con 'DisplayName'
plot(x, log(x), 'LineWidth', 2, 'Color', 'k', 'DisplayName', 'ln(x)');
plot(x, mi_ln(x, 1), 'LineWidth', 2, 'DisplayName', 'mi\_ln(x, 1)');
plot(x, mi_ln(x, 2), 'LineWidth', 2, 'DisplayName', 'mi\_ln(x, 2)');
plot(x, mi_ln(x, 3), 'LineWidth', 2, 'DisplayName', 'mi\_ln(x, 3)');
plot(x, mi_ln(x, 4), 'LineWidth', 2, 'DisplayName', 'mi\_ln(x, 4)');

line([1.5, 1.5], [0,0.7], 'Color', 'r', 'LineStyle', '--', 'DisplayName', 'x = 1.5');

hold off; % Finaliza la superposición de curvas

% Etiquetas de los ejes
xlabel('x');
ylabel('ln(x)');

% Crear y personalizar la leyenda
lgd = legend('Location', 'southeast', 'Orientation', 'vertical');
lgd.FontSize = 20;               %tamaño de letra
lgd.Title.String = 'Functions';  % Título de la leyenda
grid on



