% Ehsan Momeni

​

clear all
clc
%Data= data like:
% WATER    DEVELOPED    BARREN    FOREST    PLANTED_CU    WETLANDS ...

% last column is a would be Simpson Index

Data=[
    
233    555    0    0    0    0    0
28496    0    0    0    0    0    0
18248    552    0    0    0    0    0
4483    501    0    0    0    0    0

];

[s1 s2]=size(Data);
for i=1:s1
    Data(i,s2+1)=sum(Data(i,:));
    
    for j=1:s2
        Data(i,s2+1+j)=Data(i,j)/ Data(i,s2+1);
    end
    Data(i,s2+1+s2+1)=1-sum(Data(i,s2+2:s2+1+s2).^2);
end

clear i j s1 s2