1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116
| I1 = imread('image88.hdf');
figure
imshow(I1);
I2 = imread('image90.hdf');
figure
imshow(I2);
n=size(I1,1);
m=size(I1,2);
K=0;
h=size(I2,1);
p=size(I2,2);
for i=1000:n
for j=1000:m
if(I1(i,j)< I2(i,j))
K = K+ (-((I1(i,j) - I2(i,j))/((I1(i,j) + I2(i,j)))));
else
K = K+ (((I1(i,j) - I2(i,j))/((I1(i,j) + I2(i,j)))));
end
j=j+1;
end
i=i+1;
end
disp (K);
% k=0;
for i=1000:n
for j=1000:m
disp(['r = ', num2str(I1(i,j))]);
if (I1(i,j)< I2(i,j))
t=1;
s(i,j) = -((double(I1(i,j)) - double(I2(i,j)))/((double(I1(i,j)) + double(I2(i,j)))));
variance1(i,j) = ((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) )) * ((double(I1(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j))))*double(I2(i,j)))))))* ((double(I1(i,j)((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I2(i,j))))))))
disp(['r = ', (variance1(i,j))]);
t=2;
s(i,j) = -((double(I1(i,j)) - double(I2(i,j)))/((double(I1(i,j)) + double(I2(i,j)))));
variance2(i,j) = ((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)) )) * (double((I2(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double (I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I2(i,j)))))))*((double(I2(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j) ))*double(I2(i,j))))))*((double(I1(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)))) ))*double(I2(i,j))))))))
disp(['r = ', (variance2(i,j))]);
else
t=1
s(i,j) = ((double(I1(i,j)) - double(I2(i,j)))/((double(I1(i,j)) + double(I2(i,j)))));
variance1(i,j) = ((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) )) * ((double(I1(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j))))*double(I2(i,j)))))))* ((double(I1(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I2(i,j))))))))
disp(['r = ', (variance1(i,j))]);
t=2;
s(i,j) = ((double(I1(i,j)) - double(I2(i,j)))/((double(I1(i,j)) + double(I2(i,j)))));
variance2(i,j) = ((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)) )) * (double((I2(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double (I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I2(i,j)))))))*((double(I2(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j) ))*double(I2(i,j))))))*((double(I1(i,j))- ((((double(I1(i,j))/(double(I1(i,j))+double(I2(i,j)) ))*double(I1(i,j)))+((double(I2(i,j))/(double(I1(i,j))+double(I2(i,j)))) ))*double(I2(i,j))))))))
disp(['r = ', (variance2(i,j))]);
end
if(variance1(i,j) <= variance2(i,j))
clusterNum = 1;
image = I1 (1,1,:)
[Unow, center, now_obj_fcn ] = fcm(double( I1(i,j)), clusterNum );
figure;
subplot(2,2,1); imshow(I1(i,j),[]);
for k=1:clusterNum
subplot(2,2,k+1);
imshow(Unow(:,:,k),[]);
end
if(s(i,j)<=K)
Unow2(i,j) = Unow(i,j);
else
clusterNum = 1;
image2 = I2 (1,1,:)
[ Unow2, center, now_obj_fcn ] = fcm(double(I2(i,j)), clusterNum );
figure;
subplot(2,2,1); imshow(I2(i,j),[]);
for k=1:clusterNum
subplot(2,2,k+1);
imshow(Unow2(:,:,k),[]);
end
end
else
clusterNum = 1;
image2 = I2 (1,1,:)
[ Unow2, center, now_obj_fcn ] = fcm( double(I2(i,j)), clusterNum );
figure;
subplot(2,2,1); imshow(I2(i,j),[]);
for k=1:clusterNum
subplot(2,2,k+1);
imshow(Unow2(:,:,k),[]);
end
if(s(i,j)<= K)
Unow(i,j) = Unow2(i,j);
else
clusterNum = 1;
image1 = I1 (1,1,:)
[ Unow, center, now_obj_fcn ] = fcm( double(I1(i,j)), clusterNum );
figure;
subplot(2,2,1); imshow(I1(i,j),[]);
for k=1:clusterNum
subplot(2,2,k+1);
imshow(Unow(:,:,k),[]);
end
end
end
end
i=i+1;
end |
Partager