计算余高/熔深

计算余高/熔深

clear all;
close all;
clc;

A = imread('F:\光谱实验\不锈钢5mm\90-2\90-2-06.jpg');           %读图

fpa1 = 'F:\光谱实验\不锈钢5mm\90-2\';
filePath = strcat(fpa1, '90-2-6.mat');
B = A(:,:,1);
C = im2bw(B,0.4);
% imshow(C);                 %看图
down = zeros(2,2);
up = zeros(2,2);
m = 1;
for i = 1:2560
    k = 1;
    for j = 1:1919
        if C(j,i)==1 && C(j+1,i)==0
            down(m,k) = i;
            down(m,k+1) = j;
            k = k + 2;
        else
        end
    end
%     if down(m,1) > 0
%         m = m + 1;
%     else
%     end
    %--------------------------------------------------%
    n = 1;
    for j = 1:1919
        if C(j,i)==0 && C(j+1,i)==1
            up(m,n) = i;
            up(m,n+1) = j;
            n = n + 2;
        else
        end
    end
%     if up(m,1)