viewmatrix

 Visualize 2d-matrices with colorful plots.
 VIEWMATRIX   Visualize 2d-matrices with colorful plots.
     VIEWMATRIX(X) visualizes a NxM matrix by plotting each matrix entry
     as a colored square. The entry value itself is also displayed. Since
     the digits of the number are not plotted as regular text but as
     bitmaps, the method scales the text for any matrix size.

     VIEWMATRIX(X,C) uses the matrix C as the color matrix. Size of C
     should be equal to the size of X.

     VIEWMATRIX(X,C,ALPHA_VALUE) uses the number in aplha_value to make
     the background transparent. Alpha_value must lie between 0.0 and 1.0, 
     with 1.0 being opaque. Default value is 1.0.
 
     Examples:
          x = magic(5), viewmatrix(x);
          x = magic(5), c = rand(size(x)), viewmatrix(x,c);
          viewmatrix(magic(5), [], 0.3);

0001 % Visualize 2d-matrices with colorful plots.
0002 function viewmatrix(x,c,alpha_value)
0003 % VIEWMATRIX   Visualize 2d-matrices with colorful plots.
0004 %     VIEWMATRIX(X) visualizes a NxM matrix by plotting each matrix entry
0005 %     as a colored square. The entry value itself is also displayed. Since
0006 %     the digits of the number are not plotted as regular text but as
0007 %     bitmaps, the method scales the text for any matrix size.
0008 %
0009 %     VIEWMATRIX(X,C) uses the matrix C as the color matrix. Size of C
0010 %     should be equal to the size of X.
0011 %
0012 %     VIEWMATRIX(X,C,ALPHA_VALUE) uses the number in aplha_value to make
0013 %     the background transparent. Alpha_value must lie between 0.0 and 1.0,
0014 %     with 1.0 being opaque. Default value is 1.0.
0015 %
0016 %     Examples:
0017 %          x = magic(5), viewmatrix(x);
0018 %          x = magic(5), c = rand(size(x)), viewmatrix(x,c);
0019 %          viewmatrix(magic(5), [], 0.3);
0020 
0021 %  Author : Mirza Faisal Baig
0022 %  Version: 1.0
0023 %  Date   : January 22, 2004
0024 
0025 % Numbers defined as matrices to be diaplayed as textures
0026 bitmapdata = { ...
0027          [0 0 0 0 0 0 0 0 0 0;
0028           0 0 0 0 1 1 0 0 0 0;
0029           0 0 0 1 1 1 0 0 0 0;
0030           0 0 1 1 1 1 0 0 0 0;
0031           0 1 1 0 1 1 0 0 0 0;
0032           0 0 0 0 1 1 0 0 0 0;
0033           0 0 0 0 1 1 0 0 0 0;
0034           0 0 0 0 1 1 0 0 0 0;
0035           0 0 0 0 1 1 0 0 0 0;
0036           0 0 0 0 1 1 0 0 0 0;
0037           0 0 0 0 1 1 0 0 0 0;
0038           0 0 0 0 1 1 0 0 0 0;
0039           0 0 0 0 1 1 0 0 0 0;
0040           0 1 1 1 1 1 1 1 1 0;
0041           0 0 0 0 0 0 0 0 0 0], 
0042  
0043          [0 0 0 0 0 0 0 0 0 0;
0044           0 0 0 1 1 1 1 0 0 0;
0045           0 0 1 1 0 0 1 1 0 0;
0046           0 1 1 0 0 0 0 1 1 0;
0047           0 1 1 0 0 0 0 1 1 0;
0048           0 0 0 0 0 0 0 1 1 0;
0049           0 0 0 0 0 0 0 1 1 0;
0050           0 0 0 0 0 0 1 1 0 0;
0051           0 0 0 0 1 1 1 0 0 0;
0052           0 0 0 1 1 0 0 0 0 0;
0053           0 0 1 1 0 0 0 0 0 0;
0054           0 1 1 0 0 0 0 0 0 0;
0055           0 1 1 0 0 0 0 0 0 0;
0056           0 1 1 1 1 1 1 1 1 0;
0057           0 0 0 0 0 0 0 0 0 0], 
0058  
0059          [0 0 0 0 0 0 0 0 0 0;
0060           0 0 0 1 1 1 1 0 0 0;
0061           0 0 1 1 0 0 1 1 0 0;
0062           0 1 1 0 0 0 0 1 1 0;
0063           0 1 1 0 0 0 0 1 1 0;
0064           0 0 0 0 0 0 0 1 1 0;
0065           0 0 0 0 0 0 1 1 0 0;
0066           0 0 0 0 1 1 1 0 0 0;
0067           0 0 0 0 0 0 1 1 0 0;
0068           0 0 0 0 0 0 0 1 1 0;
0069           0 1 1 0 0 0 0 1 1 0;
0070           0 1 1 0 0 0 0 1 1 0;
0071           0 0 1 1 0 0 1 1 0 0;
0072           0 0 0 1 1 1 1 0 0 0;
0073           0 0 0 0 0 0 0 0 0 0], 
0074       
0075          [0 0 0 0 0 0 0 0 0 0;
0076           0 0 0 0 0 0 0 1 0 0;
0077           0 0 0 0 0 0 1 1 0 0;
0078           0 0 0 0 0 1 1 1 0 0;
0079           0 0 0 0 1 1 1 1 0 0;
0080           0 0 0 1 1 0 1 1 0 0;
0081           0 0 1 1 0 0 1 1 0 0;
0082           0 1 1 0 0 0 1 1 0 0;
0083           0 1 1 0 0 0 1 1 0 0;
0084           0 1 1 1 1 1 1 1 1 0;
0085           0 0 0 0 0 0 1 1 0 0;
0086           0 0 0 0 0 0 1 1 0 0;
0087           0 0 0 0 0 0 1 1 0 0;
0088           0 0 0 0 0 0 1 1 0 0;
0089           0 0 0 0 0 0 0 0 0 0], 
0090       
0091          [0 0 0 0 0 0 0 0 0 0;
0092           0 1 1 1 1 1 1 1 1 0;
0093           0 1 1 0 0 0 0 0 0 0;
0094           0 1 1 0 0 0 0 0 0 0;
0095           0 1 1 0 0 0 0 0 0 0;
0096           0 1 1 0 0 0 0 0 0 0;
0097           0 1 1 0 1 1 1 0 0 0;
0098           0 1 1 1 0 0 1 1 0 0;
0099           0 0 0 0 0 0 0 1 1 0;
0100           0 0 0 0 0 0 0 1 1 0;
0101           0 0 0 0 0 0 0 1 1 0;
0102           0 1 1 0 0 0 0 1 1 0;
0103           0 0 1 1 0 0 1 1 0 0;
0104           0 0 0 1 1 1 1 0 0 0;
0105           0 0 0 0 0 0 0 0 0 0], 
0106       
0107          [0 0 0 0 0 0 0 0 0 0;
0108           0 0 0 1 1 1 1 0 0 0;
0109           0 0 1 1 0 0 1 1 0 0;
0110           0 1 1 0 0 0 0 1 0 0;
0111           0 1 1 0 0 0 0 0 0 0;
0112           0 1 1 0 0 0 0 0 0 0;
0113           0 1 1 0 1 1 1 0 0 0;
0114           0 1 1 1 0 0 1 1 0 0;
0115           0 1 1 0 0 0 0 1 1 0;
0116           0 1 1 0 0 0 0 1 1 0;
0117           0 1 1 0 0 0 0 1 1 0;
0118           0 1 1 0 0 0 0 1 1 0;
0119           0 0 1 1 0 0 1 1 0 0;
0120           0 0 0 1 1 1 1 0 0 0;
0121           0 0 0 0 0 0 0 0 0 0], 
0122       
0123          [0 0 0 0 0 0 0 0 0 0;
0124           0 1 1 1 1 1 1 1 1 0;
0125           0 0 0 0 0 0 0 1 1 0;
0126           0 0 0 0 0 0 0 1 1 0;
0127           0 0 0 0 0 0 1 1 0 0;
0128           0 0 0 0 0 0 1 1 0 0;
0129           0 0 0 0 0 1 1 0 0 0;
0130           0 0 0 0 0 1 1 0 0 0;
0131           0 0 0 0 1 1 0 0 0 0;
0132           0 0 0 0 1 1 0 0 0 0;
0133           0 0 0 1 1 0 0 0 0 0;
0134           0 0 0 1 1 0 0 0 0 0;
0135           0 0 1 1 0 0 0 0 0 0;
0136           0 0 1 1 0 0 0 0 0 0;
0137           0 0 0 0 0 0 0 0 0 0], 
0138         
0139          [0 0 0 0 0 0 0 0 0 0;
0140           0 0 0 1 1 1 1 0 0 0;
0141           0 0 1 1 0 0 1 1 0 0;
0142           0 1 1 0 0 0 0 1 1 0;
0143           0 1 1 0 0 0 0 1 1 0;
0144           0 1 1 0 0 0 0 1 1 0;
0145           0 0 1 1 0 0 1 1 0 0;
0146           0 0 0 1 1 1 1 0 0 0;
0147           0 0 1 1 0 0 1 1 0 0;
0148           0 1 1 0 0 0 0 1 1 0;
0149           0 1 1 0 0 0 0 1 1 0;
0150           0 1 1 0 0 0 0 1 1 0;
0151           0 0 1 1 0 0 1 1 0 0;
0152           0 0 0 1 1 1 1 0 0 0;
0153           0 0 0 0 0 0 0 0 0 0], 
0154          
0155          [0 0 0 0 0 0 0 0 0 0;
0156           0 0 0 1 1 1 1 0 0 0;
0157           0 0 1 1 0 0 1 1 0 0;
0158           0 1 1 0 0 0 0 1 1 0;
0159           0 1 1 0 0 0 0 1 1 0;
0160           0 1 1 0 0 0 0 1 1 0;
0161           0 1 1 0 0 0 0 1 1 0;
0162           0 0 1 1 0 0 1 1 1 0;
0163           0 0 0 1 1 1 0 1 1 0;
0164           0 0 0 0 0 0 0 1 1 0;
0165           0 0 0 0 0 0 0 1 1 0;
0166           0 0 1 0 0 0 0 1 1 0;
0167           0 0 1 1 0 0 1 1 0 0;
0168           0 0 0 1 1 1 1 0 0 0;
0169           0 0 0 0 0 0 0 0 0 0], 
0170          
0171          [0 0 0 0 0 0 0 0 0 0;
0172           0 0 0 0 1 1 0 0 0 0;
0173           0 0 0 1 1 1 1 0 0 0;
0174           0 0 1 1 0 0 1 1 0 0;
0175           0 0 1 1 0 0 1 1 0 0;
0176           0 1 1 0 0 0 0 1 1 0;
0177           0 1 1 0 0 0 0 1 1 0;
0178           0 1 1 0 0 0 0 1 1 0;
0179           0 1 1 0 0 0 0 1 1 0;
0180           0 1 1 0 0 0 0 1 1 0;
0181           0 0 1 1 0 0 1 1 0 0;
0182           0 0 1 1 0 0 1 1 0 0;
0183           0 0 0 1 1 1 1 0 0 0;
0184           0 0 0 0 1 1 0 0 0 0;
0185           0 0 0 0 0 0 0 0 0 0], 
0186         
0187          [0 0 0 0 0 0 0 0 0 0;
0188           0 0 0 0 0 0 0 0 0 0;
0189           0 0 0 0 0 0 0 0 0 0;
0190           0 0 0 0 0 0 0 0 0 0;
0191           0 0 0 0 0 0 0 0 0 0;
0192           0 0 0 0 0 0 0 0 0 0;
0193           0 0 0 0 0 0 0 0 0 0;
0194           0 0 0 0 0 0 0 0 0 0;
0195           0 0 0 0 0 0 0 0 0 0;
0196           0 0 0 0 0 0 0 0 0 0;
0197           0 0 0 0 0 0 0 0 0 0;
0198           0 0 0 1 1 1 1 0 0 0;
0199           0 0 0 1 1 1 1 0 0 0;
0200           0 0 0 1 1 1 1 0 0 0;
0201           0 0 0 0 0 0 0 0 0 0], 
0202          
0203          [0 0 0 0 0 0 0 0 0 0;
0204           0 0 0 0 0 0 0 0 0 0;
0205           0 0 0 0 0 0 0 0 0 0;
0206           0 0 0 0 0 0 0 0 0 0;
0207           0 0 0 0 0 0 0 0 0 0;
0208           0 0 0 0 0 0 0 0 0 0;
0209           0 0 0 0 0 0 0 0 0 0;
0210           0 1 1 1 1 1 1 1 1 0;
0211           0 0 0 0 0 0 0 0 0 0;
0212           0 0 0 0 0 0 0 0 0 0;
0213           0 0 0 0 0 0 0 0 0 0;
0214           0 0 0 0 0 0 0 0 0 0;
0215           0 0 0 0 0 0 0 0 0 0;
0216           0 0 0 0 0 0 0 0 0 0;
0217           0 0 0 0 0 0 0 0 0 0], 
0218          
0219          [0 0 0 0 0 0 0 0 0 0;
0220           0 0 0 0 0 0 0 0 0 0;
0221           0 0 0 0 0 0 0 0 0 0;
0222           0 0 0 0 0 0 0 0 0 0;
0223           0 0 0 0 0 0 0 0 0 0;
0224           0 0 0 1 1 1 1 0 0 0;
0225           0 0 1 1 0 0 0 1 1 0;
0226           0 1 1 0 0 0 0 1 1 0;
0227           0 1 1 1 1 1 1 1 1 0;
0228           0 1 0 0 1 0 0 0 0 0;
0229           0 1 1 0 0 0 0 0 0 0;
0230           0 1 1 0 0 0 0 0 0 0;
0231           0 0 1 1 0 0 0 1 1 0;
0232           0 0 0 1 1 1 1 1 0 0;
0233           0 0 0 0 0 0 0 0 0 0], 
0234                                  };
0235 
0236 % Characters defined to identify the numbers
0237 chars = {'1', '2', '3','4', '5', '6', '7','8', '9','0','.','-','e'};
0238 
0239 % If color matrix is not defined use default color matrix
0240 if nargin < 2
0241     c = [];
0242 end
0243 if isempty(c)   
0244     c = x/max(x(:))*.9;
0245 else
0246     c = c*.9;
0247 end
0248 
0249 %If alpha_value is not defined use default value
0250 if nargin < 3
0251     alpha_value = 1;
0252 end
0253 
0254 clf;
0255 
0256 [numrow,numcol] = size(x); % number of rows and columns of the matrix x
0257 %total_elements = numrow*numcol;
0258 con = 1; % counter to find the maximum size of the texture matrix
0259 for row=1:numrow
0260    for col=1:numcol,
0261        %To convert each number to its corresponding texture matrix
0262        num_matrix = number2matrix(x(row,col),chars,bitmapdata);
0263        p{row,col} = num_matrix;
0264        [rowdata,coldata] = size(num_matrix);     % number of rows and columns of the texture matrix
0265        max_dim_temp(con) = max(rowdata,coldata); % save the maximum
0266        con = con+1;                              % increment counter con
0267    end % end of "for col"
0268 end % end of "for row"
0269 
0270 max_dim = max(max_dim_temp); % pick the maximum size from all the texture matrices
0271 
0272 for i = 1:numrow
0273     for k = 1:numcol
0274          % Assign the texture matrix to variable data starting from last row and first column
0275         data = p{numrow+1-i,k};        
0276         [rowdata,coldata] = size(data);
0277         factorY = rowdata/max_dim;   % scaling factor according to the dimenions of the texture matrix
0278         factorX = coldata/max_dim;   % scaling factor according to the dimenions of the texture matrix
0279         x_init_back = [k-1,k];       % column index for background box
0280         y_init_back = [i-1,i];       % row index for background box
0281         a1 = x_init_back(1)+0.5-factorX/2;    % x-coor of bottom left corner of the texture
0282         a2 = x_init_back(1)+0.5+factorX/2;    % x-coor of bottom right corner of the texture
0283        
0284         b1 = y_init_back(1)+0.5-factorY/2;    % y-coor of bottom right corner of the texture
0285         b2 = y_init_back(1)+0.5+factorY/2;    % y-coor of upper right corner of the texture
0286         z_init = zeros(length(x_init_back),length(y_init_back)); % zeros matrix to plot surface
0287         
0288         % To plot the background color boxes
0289         back_ground = surface(x_init_back,y_init_back,z_init,c(numrow+1-i,k));
0290         
0291         % To plot the foreground box for the texture
0292         for_ground = surface([a1 a2],[b1 b2],z_init);
0293         set(back_ground,'FaceAlpha',alpha_value)  % to make background transparent
0294         
0295         % To set the texture to the foreground box
0296         set(for_ground,'Cdata',flipud(data),'AlphaData',flipud(data),'FaceColor','Texture',...
0297                                          'FaceAlpha','Texture','LineStyle','None') 
0298     end
0299 end
0300 a = colormap;       % current figure colormap
0301 a(end,:) = [0 0 0]; % to change the last color value to back
0302 colormap(a)         % change the colormap
0303 axis equal          % make axis of the plot equal
0304 
0305 box on              % make border line of the plot visible
0306 % axis off          % make the axis numbers and lines invisible
0307 return % end of the main function
0308 
0309 %-----------------------------------------------------------
0310 % Function to convert number (real of intergers) into their corresponding
0311 % texture matrices
0312 
0313 function res = number2matrix(n, chars, bitmapdata)
0314 
0315 n = num2str(n);                % change number to the string
0316 res = [];                      % initialize res variable
0317 for i = 1:length(n)        
0318     for k = 1:length(chars)
0319         if n(i) == chars{k}
0320             m = bitmapdata{k}; % assign texture to the variable
0321             break;             % if number found stop
0322         end % end "if n(i)"
0323     end % end "for k"
0324     res = [res m];             % concatenate the result
0325 end % end "for i"