function ShowGeneX(X,Z,i)

% ShowGene with several levels in Z


[N,n]=size(X); K=sort(unique(Z)); k=length(K); a=1:n; col='bkmrcgybkmr';
clf
del=0.1*(max(X(i,:))-min(X(i,:))); 
axis([0 n+1 min(X(i,:))-del max(X(i,:))+del])
for j=1:k 
  a=find(K(j)==Z); 
  text(a,X(i,a),repmat(int2str(K(j)),length(a),1),'Color',col(j)) 
end

hold off

%