% 读取图像文件 img = imread('8.png'); % 图像预处理 img = imresize(img, 0.5); % 缩小图像尺寸，加快处理速度 figure(1) imshow(img) img = imgaussfilt(img, 3); % 高斯滤波平滑图像 img = imadjust(img, [0.2, 0.8], []); % 对比度增强 % 提取车道线 edges = edge(rgb2gray(img),'Canny'); [H,theta,rho] = hough(edges); P = houghpeaks(H,5,'threshold',ceil(0.3*max(H(:)))); lines = houghlines(edges,theta,rho,P,'FillGap',20,'MinLength',100); figure(2) imshow(edges) % 计算车辆距离 x = 0:size(edges,2); y1 = (lines(1).rho-x*cos(lines(1).theta))/sin(lines(1).theta); y2 = (lines(2).rho-x*cos(lines(2).theta))/sin(lines(2).theta); d_pixel = mean(abs(y1-y2)); d_meter = d_pixel * 3.7 / (size(edges,1) * tan(pi/6)); % 显示结果 figure(3) imshow(img); hold on; plot([lines(1).point1(1), lines(1).point2(1)], [lines(1).point1(2), lines(1).point2(2)], 'LineWidth', 2, 'Color', 'green'); plot([lines(2).point1(1), lines(2).point2(1)], [lines(2).point1(2), lines(2).point2(2)], 'LineWidth', 2, 'Color', 'green'); text(10, 20, ['Distance: ', num2str(d_meter), ' meters'], 'Color', 'red', 'FontSize', 14); hold off;使得虚线车道线也可以识别

要让虚线车道线也能被识别，可以使用霍夫变换检测直线的方法，将边缘检测后得到的直线进行进一步处理。

具体方法是，在检测边缘后，对边缘进行霍夫变换，得到直线的极坐标参数 rho 和 theta。然后，根据 rho 和 theta 的值来判断直线的类型，如果 rho 或者 theta 的变化比较平滑，就说明这是一条实线，否则就是虚线。

判断完直线类型后，可以将直线进行连接，然后再进行距离计算和显示结果。完整代码如下：

% 读取图像文件
img = imread('8.png');

% 图像预处理
img = imresize(img, 0.5); % 缩小图像尺寸，加快处理速度
img = imgaussfilt(img, 3); % 高斯滤波平滑图像
img = imadjust(img, [0.2, 0.8], []); % 对比度增强

% 提取车道线
edges = edge(rgb2gray(img),'Canny');
[H,theta,rho] = hough(edges);
P = houghpeaks(H,5,'threshold',ceil(0.3*max(H(:))));
lines = houghlines(edges,theta,rho,P,'FillGap',20,'MinLength',100);

% 判断直线类型
for i = 1:length(lines)
    if abs(lines(i).theta - 90) < 10 % 垂直直线
        lines(i).type = 'solid';
    else % 斜直线
        if i == 1 % 第一条直线默认为实线
            lines(i).type = 'solid';
        else % 后续直线判断类型
            if abs(lines(i).theta - lines(i-1).theta) < 10 % 与前一条直线角度相近
                if abs(lines(i).rho - lines(i-1).rho) < 10 % 与前一条直线距离相近
                    lines(i).type = lines(i-1).type; % 与前一条直线类型相同
                else % 距离差较大
                    lines(i).type = 'solid'; % 默认为实线
                end
            else % 角度差较大
                lines(i).type = 'dashed'; % 默认为虚线
            end
        end
    end
end

% 连接虚线
dashed_lines = [];
for i = 1:length(lines)
    if strcmp(lines(i).type, 'dashed')
        dashed_lines = [dashed_lines, i];
    end
end

for i = 1:length(dashed_lines)-1
    if dashed_lines(i+1) - dashed_lines(i) == 1 % 相邻两条直线是连续的虚线
        lines(dashed_lines(i)).point2 = lines(dashed_lines(i+1)).point2; % 连接虚线
        lines(dashed_lines(i+1)).point1 = lines(dashed_lines(i)).point1;
    end
end

% 计算车辆距离
x = 0:size(edges,2);
y1 = (lines(1).rho-x*cos(lines(1).theta))/sin(lines(1).theta);
y2 = (lines(2).rho-x*cos(lines(2).theta))/sin(lines(2).theta);
d_pixel = mean(abs(y1-y2));
d_meter = d_pixel * 3.7 / (size(edges,1) * tan(pi/6));

% 显示结果
figure(1)
imshow(img); hold on;
for i = 1:length(lines)
    if strcmp(lines(i).type, 'solid')
        plot([lines(i).point1(1), lines(i).point2(1)], [lines(i).point1(2), lines(i).point2(2)], 'LineWidth', 2, 'Color', 'green');
    else
        plot([lines(i).point1(1), lines(i).point2(1)], [lines(i).point1(2), lines(i).point2(2)], '--', 'LineWidth', 2, 'Color', 'green');
    end
end
text(10, 20, ['Distance: ', num2str(d_meter), ' meters'], 'Color', 'red', 'FontSize', 14); hold off;