用matlab写一段边缘检测

的程序怎么写？

您好！以下是针对您的问题的程序示例：

% 读入图像
img = imread('image.jpg');

% 转换为灰度图
img_gray = rgb2gray(img);

% 应用Sobel滤波器
sobel_x = [-1 0 1;-2 0 2;-1 0 1];
sobel_y = [1 2 1;0 0 0;-1 -2 -1];
img_dx = conv2(double(img_gray), double(sobel_x), 'same');
img_dy = conv2(double(img_gray), double(sobel_y), 'same');

% 计算梯度幅值和方向
grad_mag = sqrt(img_dx.^2 + img_dy.^2);
grad_dir = atan2d(img_dy, img_dx);

% 应用非极大值抑制
nms_grad_mag = grad_mag;
for i = 2:size(nms_grad_mag, 1)-1
for j = 2:size(nms_grad_mag, 2)-1
if grad_dir(i,j) < -157.5 || grad_dir(i,j) >= 157.5
max_val = max([grad_mag(i,j-1) grad_mag(i,j) grad_mag(i,j+1)]);
elseif grad_dir(i,j) >= -157.5 && grad_dir(i,j) < -112.5
max_val = max([grad_mag(i+1,j-1) grad_mag(i,j) grad_mag(i-1,j+1)]);
elseif grad_dir(i,j) >= -112.5 && grad_dir(i,j) < -67.5
max_val = max([grad_mag(i+1,j) grad_mag(i,j) grad_mag(i-1,j)]);
elseif grad_dir(i,j) >= -67.5 && grad_dir(i,j) < -22.5
max_val = max([grad_mag(i+1,j+1) grad_mag(i,j) grad_mag(i-1,j-1)]);
elseif grad_dir(i,j) >= -22.5 && grad_dir(i,j) < 22.5
max_val = max([grad_mag(i,j-1) grad_mag(i,j) grad_mag(i,j+1)]);
elseif grad_dir(i,j) >= 22.5 && grad_dir(i,j) < 67.5
max_val = max([grad_mag(i+1,j-1) grad_mag(i,j) grad_mag(i-1,j+1)]);
elseif grad_dir(i,j) >= 67.5 && grad_dir(i,j) < 112.5
max_val = max([grad_mag(i+1,j) grad_mag(i,j) grad_mag(i-1,j)]);
elseif grad_dir(i,j) >= 112.5 && grad_dir(i,j) < 157.5
max_val = max([grad_mag(i+1,j+1) grad_mag(i,j) grad_mag(i-1,j-1)]);
end
if nms_grad_mag(i,j) ~= max_val
nms_grad_mag(i,j) = 0;
end
end
end

% 应用双阈值算法
low_thresh = 0.05 * max(max(nms_grad_mag));
high_thresh = 0.2 * max(max(nms_grad_mag));
edge_map = zeros(size(img_gray));
for i = 1:size(nms_grad_mag, 1)
for j = 1:size(nms_grad_mag, 2)
if nms_grad_mag(i,j) >= high_thresh
edge_map(i,j) = 1;
elseif nms_grad_mag(i,j) >= low_thresh
if max(max(nms_grad_mag(i-1:i+1,j-1:j+1))) >= high_thresh
edge_map(i,j) = 1;
end
end
end
end

% 显示结果
imshow(edge_map);

希望这个程序示例可以对您有所帮助！