Matematisk Model for Mavesækkens Tømning - Danmarks Tekniske ...

22 if Data(i,j) ≥ cs
23 if Data(i,j−2) < cs && Data(i,j−1) < cs && ...
24 Data(i,j+1) ≥ cs && Data(i,j+2) ≥ cs
25 % 5 conditions have to be meet before defining a border.
26 Borderline(i,j) = 1;
27 elseif Data(i,j−2) ≥ cs && Data(i,j−1) ≥ cs && ...
28 Data(i,j+1) < cs && Data(i,j+2) < cs
29 % 5 conditions have to be meet before defining a border.
30 Borderline(i,j) = 1;
31 end
32 end
33 end
34 end
35
36 % Assignning all the values between the borders to the value of 1.
37 for k = 1:1:si
38 [i,j] = find(Borderline(k,:));
39 if length(j) ≥ 2
40 Borderline(k,j(1):j(end)) = 1;
41 end
42 end
Listing A.4: plot ven data.m
1 function dummy = plot ven data(Data)
2 % This function plots a set of data from a stomach−examination
3 % with gamma−cameras.
4 % Data − A matrix containing a set of data from a stomach−examination
5 % with gamma−cameras.
6 % The call to the function is: plot ven data(Data).
7 % Copyrigth Sabrina Wendt, DTU, 31/3−2009
8
9 imagesc(Data) % Plotting data.
10 colormap gray % Plotting with grey colors.
11 axis image % Fitting the axes to the image.
87