mirror of
https://github.com/amd/blis.git
synced 2026-05-13 10:35:38 +00:00
bc4a213a2c
Details: - Renamed test/3/matlab to test/3/octave. - Within test/3, updated and tuned plot_l3_perf.m and plot_panel_4x5.m files for use with octave (which is free and doesn't crash on me mid-way through my use of subplot). - Updated runthese.m scratchpad for zen2 invocations. - Added Nikolay S.'s subplot_tight() function, along with its license.
127 lines
5.0 KiB
Matlab
127 lines
5.0 KiB
Matlab
%
|
|
% Copyright (c) 2016, Nikolay S.
|
|
% All rights reserved.
|
|
%
|
|
% Redistribution and use in source and binary forms, with or without
|
|
% modification, are permitted provided that the following conditions are
|
|
% met:
|
|
%
|
|
% * Redistributions of source code must retain the above copyright
|
|
% notice, this list of conditions and the following disclaimer.
|
|
% * Redistributions in binary form must reproduce the above copyright
|
|
% notice, this list of conditions and the following disclaimer in
|
|
% the documentation and/or other materials provided with the distribution
|
|
%
|
|
% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
|
|
% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
|
|
% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
|
|
% POSSIBILITY OF SUCH DAMAGE.
|
|
%
|
|
|
|
function vargout=subplot_tight(m, n, p, margins, varargin)
|
|
%% subplot_tight
|
|
% A subplot function substitude with margins user tunabble parameter.
|
|
%
|
|
%% Syntax
|
|
% h=subplot_tight(m, n, p);
|
|
% h=subplot_tight(m, n, p, margins);
|
|
% h=subplot_tight(m, n, p, margins, subplotArgs...);
|
|
%
|
|
%% Description
|
|
% Our goal is to grant the user the ability to define the margins between neighbouring
|
|
% subplots. Unfotrtunately Matlab subplot function lacks this functionality, and the
|
|
% margins between subplots can reach 40% of figure area, which is pretty lavish. While at
|
|
% the begining the function was implememnted as wrapper function for Matlab function
|
|
% subplot, it was modified due to axes del;etion resulting from what Matlab subplot
|
|
% detected as overlapping. Therefore, the current implmenetation makes no use of Matlab
|
|
% subplot function, using axes instead. This can be problematic, as axis and subplot
|
|
% parameters are quie different. Set isWrapper to "True" to return to wrapper mode, which
|
|
% fully supports subplot format.
|
|
%
|
|
%% Input arguments (defaults exist):
|
|
% margins- two elements vector [vertical,horizontal] defining the margins between
|
|
% neighbouring axes. Default value is 0.04
|
|
%
|
|
%% Output arguments
|
|
% same as subplot- none, or axes handle according to function call.
|
|
%
|
|
%% Issues & Comments
|
|
% - Note that if additional elements are used in order to be passed to subplot, margins
|
|
% parameter must be defined. For default margins value use empty element- [].
|
|
% -
|
|
%
|
|
%% Example
|
|
% close all;
|
|
% img=imread('peppers.png');
|
|
% figSubplotH=figure('Name', 'subplot');
|
|
% figSubplotTightH=figure('Name', 'subplot_tight');
|
|
% nElems=17;
|
|
% subplotRows=ceil(sqrt(nElems)-1);
|
|
% subplotRows=max(1, subplotRows);
|
|
% subplotCols=ceil(nElems/subplotRows);
|
|
% for iElem=1:nElems
|
|
% figure(figSubplotH);
|
|
% subplot(subplotRows, subplotCols, iElem);
|
|
% imshow(img);
|
|
% figure(figSubplotTightH);
|
|
% subplot_tight(subplotRows, subplotCols, iElem, [0.0001]);
|
|
% imshow(img);
|
|
% end
|
|
%
|
|
%% See also
|
|
% - subplot
|
|
%
|
|
%% Revision history
|
|
% First version: Nikolay S. 2011-03-29.
|
|
% Last update: Nikolay S. 2012-05-24.
|
|
%
|
|
% *List of Changes:*
|
|
% 2012-05-24
|
|
% Non wrapping mode (based on axes command) added, to deal with an issue of disappearing
|
|
% subplots occuring with massive axes.
|
|
|
|
%% Default params
|
|
isWrapper=false;
|
|
if (nargin<4) || isempty(margins)
|
|
margins=[0.04,0.04]; % default margins value- 4% of figure
|
|
end
|
|
if length(margins)==1
|
|
margins(2)=margins;
|
|
end
|
|
|
|
%note n and m are switched as Matlab indexing is column-wise, while subplot indexing is row-wise :(
|
|
[subplot_col,subplot_row]=ind2sub([n,m],p);
|
|
|
|
|
|
height=(1-(m+1)*margins(1))/m; % single subplot height
|
|
width=(1-(n+1)*margins(2))/n; % single subplot width
|
|
|
|
% note subplot suppors vector p inputs- so a merged subplot of higher dimentions will be created
|
|
subplot_cols=1+max(subplot_col)-min(subplot_col); % number of column elements in merged subplot
|
|
subplot_rows=1+max(subplot_row)-min(subplot_row); % number of row elements in merged subplot
|
|
|
|
merged_height=subplot_rows*( height+margins(1) )- margins(1); % merged subplot height
|
|
merged_width= subplot_cols*( width +margins(2) )- margins(2); % merged subplot width
|
|
|
|
merged_bottom=(m-max(subplot_row))*(height+margins(1)) +margins(1); % merged subplot bottom position
|
|
merged_left=min(subplot_col)*(width+margins(2))-width; % merged subplot left position
|
|
pos=[merged_left, merged_bottom, merged_width, merged_height];
|
|
|
|
|
|
if isWrapper
|
|
h=subplot(m, n, p, varargin{:}, 'Units', 'Normalized', 'Position', pos);
|
|
else
|
|
h=axes('Position', pos, varargin{:});
|
|
end
|
|
|
|
if nargout==1
|
|
vargout=h;
|
|
end
|