Microstructural And Mechanical Properties Of Human Ribs Joseph

for r=2:row
%disp('Next Row..')
for c=2:col
fail1=0;
fail2=0;
fail3=0;
if (bw(r,c) == 1) & (bw(r,c-1) == 0) &
(bw(r,c+lowlimit) == 1)
%disp('Engaging White area...')
run local_sub01
% Checks for ones above to left, center and right
if fail1 == 1;
% ('Moving to Next Column')
skipcolumn=1;
else
skipcolumn=0;
run local_sub02
end
% Creates span of ones and checks for limit
if fail2 == 1 & skipcolumn == 0
%disp('Limit Exceeded')
elseif fail2 ==0 & skipcolumn == 0
run local_sub03
end
% Checks through span for ones
if fail3 == 1 & skipcolumn == 0
% disp('Ceiling not Enclosed')
elseif fail3 == 0 & skipcolumn == 0
good=1;
% disp('Osteon Found')
run local_sub04
end
else
end
end
50