matlab寻找宝藏，根据颜色以及自制算法从初始红色箭头沿着箭头方向寻找白色箭头，最后到蓝色宝藏终点

close all; clear all; clc; %% 读入 P = imread('baozang.jpg'); subplot(221),imshow(P),title('原图'); %% yellow yellow_points = yellow(P); %% 二值化用于提取链接的组件 bin_threshold = 0.1; % 需要修改这个值 bin = im2bw(P, bin_threshold); %imshow(bin); com = bwlabel(bin); %imshow(label2rgb(com)); %% 计算目标属性 props = regionprops(com); %% 所有的箭头边界框 n_objects = numel(props); arrow_area=[]; subplot(223),imshow(P),title('箭头'); hold on; for object_id = 1 : n_objects if props(object_id).Area>2000 continue end rectangle('Position', props(object_id).BoundingBox, 'EdgeColor', 'b'); arrow_area = [arrow_area;props(object_id).BoundingBox]; end hold off; %% 颜色找箭头区域、终点区域、排除干扰 PR=P(:,:,1); % PR = im2bw(PR, bin_threshold); PB=P(:,:,3); %提取蓝色分量 PB = im2bw(PB, bin_threshold); K4=xor(PR,PB); % figure(2) % imshow(K4); K4s = regionprops(K4); circal_object=[]; for i = 1:length(K4s) if K4s(i).Area>1400 && K4s(i).Area<3000 red_area_object = K4s(i).BoundingBox; end if 3000<K4s(i).Area final_area_object = K4s(i).BoundingBox; end end %% 黄色区域在区域里 ID = zeros(length(arrow_area),3); for i = 1:length(arrow_area) for j = 1:length(yellow_points) if (arrow_area(i,1) < yellow_points(j,1)) && (arrow_area(i,1) + arrow_area(i,3) > yellow_points(j,1) + yellow_points(j,3)) && arrow_area(i,2) < yellow_points(j,2) && arrow_area(i,2) + arrow_area(i,4) > yellow_points(j,2) + yellow_points(j,4) ID(i,1)=i; ID(i,2)=j; % [i,j] % 验证是否为同一个区域 % imshow(P); % hold on; % rectangle('Position', yellow_points(j,:), 'EdgeColor', 'b'); % rectangle('Position', arrow_area(i,:), 'EdgeColor', 'b'); break end end end for j = 1:length(yellow_points) if (red_area_object(1) < yellow_points(j,1)) && (red_area_object(1) + red_area_object(3) > yellow_points(j,1) + yellow_points(j,3)) &&red_area_object(2) < yellow_points(j,2) && red_area_object(2) +red_area_object(4) > yellow_points(j,2) + yellow_points(j,4) for z = 1:length(ID) if ID(z,2)==j ID(z,3)=1; end end break end end % ID前两列是箭头区域与黄色区域的对应关系，第三列是区域号1是红色区域 %% 箭头区域做角点检测 arrow_points=[]; for i = 1:length(arrow_area) p_area = imcrop(P,[arrow_area(i,1)-4 arrow_area(i,2)-4 arrow_area(i,3)+4 arrow_area(i,4)+4]); points = arrow_find(p_area); points_1 = [points(:,2)+round(arrow_area(i,1)-4) points(:,1)+round(arrow_area(i,2)-4)]; for j = 1:length(points) points_1(j,3)=i; end arrow_points =[arrow_points;points_1]; subplot(224);imshow(P),title('区域角点检测'); hold on; plot(arrow_points(:,1),arrow_points(:,2),'.','Color','g','MarkerSize',3); end hold off; % 判断哪个序号角点在红色区域里 red_area=[]; for j = 1:length(arrow_points) if arrow_points(j,1)> red_area_object(1) && arrow_points(j,1)< red_area_object(1)+red_area_object(3) && arrow_points(j,2)> red_area_object(2) && arrow_points(j,2)<red_area_object(2)+red_area_object(4) red_ID = arrow_points(j,3); red_area = [red_area;arrow_points(j,1:2)]; end end % 删掉红色区域的角点 A = find(arrow_points(:,3)==red_ID); arrow_points([A],:)=[]; %% 根据红色区域内黄色中心 for i = 1:length(ID) if ID(i,3)==1 center_x = (yellow_points(i,1)+yellow_points(i,3)/2); center_y = (yellow_points(i,2)+yellow_points(i,4)/2); end end A = find(ID(:,3)==red_ID); yellow_points([A],:)=[]; %排除红色点 % 用红色区域内黄色区域中心点代替红色尖点 figure(2) imshow(P) hold on; rectangle('Position', red_area_object, 'EdgeColor', 'r'); while ~isempty(arrow_points) [arrow_points,center_x,center_y] = final(arrow_points,[center_x,center_y],yellow_points,final_area_object);% 送入当前黄点以及排除当前区域所有的角点 end