function [R G B] = nelivari(kuva)
[n,m]=size(kuva);
%vari=jet(N);
RGB = ind2rgb(kuva,jet(101));%image(RGB);

R=zeros(n,m);G=zeros(n,m);B=zeros(n,m);

for i=1:n
for j=1:m
R(i,j)=101*RGB(i,j,1);
G(i,j)=101*RGB(i,j,2);
B(i,j)=101*RGB(i,j,3);
end
end

%subplot(2,2,1);image(kuva);subplot(2,2,2);image(R);subplot(2,2,3);image(G);subplot(2,2,4);image(B)

end

