| 1 |
cnh |
1.1 |
function hout=suptitle(str) |
| 2 |
|
|
%SUPTITLE Puts a title above all subplots. |
| 3 |
|
|
% SUPTITLE('text') adds text to the top of the figure |
| 4 |
|
|
% above all subplots (a "super title"). Use this function |
| 5 |
|
|
% after all subplot commands. |
| 6 |
|
|
|
| 7 |
|
|
% Drea Thomas 6/15/95 drea@mathworks.com |
| 8 |
|
|
|
| 9 |
|
|
% Warning: If the figure or axis units are non-default, this |
| 10 |
|
|
% will break. |
| 11 |
|
|
|
| 12 |
|
|
% Parameters used to position the supertitle. |
| 13 |
|
|
|
| 14 |
|
|
% Amount of the figure window devoted to subplots |
| 15 |
|
|
plotregion = .92; |
| 16 |
|
|
|
| 17 |
|
|
% Y position of title in normalized coordinates |
| 18 |
|
|
titleypos = .95; |
| 19 |
|
|
|
| 20 |
|
|
% Fontsize for supertitle |
| 21 |
|
|
fs = get(gcf,'defaultaxesfontsize')+4; |
| 22 |
|
|
|
| 23 |
|
|
% Fudge factor to adjust y spacing between subplots |
| 24 |
|
|
fudge=1; |
| 25 |
|
|
|
| 26 |
|
|
haold = gca; |
| 27 |
|
|
figunits = get(gcf,'units'); |
| 28 |
|
|
|
| 29 |
|
|
% Get the (approximate) difference between full height (plot + title |
| 30 |
|
|
% + xlabel) and bounding rectangle. |
| 31 |
|
|
|
| 32 |
|
|
if (~strcmp(figunits,'pixels')), |
| 33 |
|
|
set(gcf,'units','pixels'); |
| 34 |
|
|
pos = get(gcf,'position'); |
| 35 |
|
|
set(gcf,'units',figunits); |
| 36 |
|
|
else, |
| 37 |
|
|
pos = get(gcf,'position'); |
| 38 |
|
|
end |
| 39 |
|
|
ff = (fs-4)*1.27*5/pos(4)*fudge; |
| 40 |
|
|
|
| 41 |
|
|
% The 5 here reflects about 3 characters of height below |
| 42 |
|
|
% an axis and 2 above. 1.27 is pixels per point. |
| 43 |
|
|
|
| 44 |
|
|
% Determine the bounding rectange for all the plots |
| 45 |
|
|
|
| 46 |
|
|
% h = findobj('Type','axes'); |
| 47 |
|
|
|
| 48 |
|
|
% findobj is a 4.2 thing.. if you don't have 4.2 comment out |
| 49 |
|
|
% the next line and uncomment the following block. |
| 50 |
|
|
|
| 51 |
|
|
h = findobj(gcf,'Type','axes'); % Change suggested by Stacy J. Hills |
| 52 |
|
|
|
| 53 |
|
|
% If you don't have 4.2, use this code instead |
| 54 |
|
|
%ch = get(gcf,'children'); |
| 55 |
|
|
%h=[]; |
| 56 |
|
|
%for i=1:length(ch), |
| 57 |
|
|
% if strcmp(get(ch(i),'type'),'axes'), |
| 58 |
|
|
% h=[h,ch(i)]; |
| 59 |
|
|
% end |
| 60 |
|
|
%end |
| 61 |
|
|
|
| 62 |
|
|
|
| 63 |
|
|
|
| 64 |
|
|
|
| 65 |
|
|
max_y=0; |
| 66 |
|
|
min_y=1; |
| 67 |
|
|
|
| 68 |
|
|
oldtitle =0; |
| 69 |
|
|
for i=1:length(h), |
| 70 |
|
|
if (~strcmp(get(h(i),'Tag'),'suptitle')), |
| 71 |
|
|
pos=get(h(i),'pos'); |
| 72 |
|
|
if (pos(2) < min_y), min_y=pos(2)-ff/5*3;end; |
| 73 |
|
|
if (pos(4)+pos(2) > max_y), max_y=pos(4)+pos(2)+ff/5*2;end; |
| 74 |
|
|
else, |
| 75 |
|
|
oldtitle = h(i); |
| 76 |
|
|
end |
| 77 |
|
|
end |
| 78 |
|
|
|
| 79 |
|
|
if max_y > plotregion, |
| 80 |
|
|
scale = (plotregion-min_y)/(max_y-min_y); |
| 81 |
|
|
for i=1:length(h), |
| 82 |
|
|
pos = get(h(i),'position'); |
| 83 |
|
|
pos(2) = (pos(2)-min_y)*scale+min_y; |
| 84 |
|
|
pos(4) = pos(4)*scale-(1-scale)*ff/5*3; |
| 85 |
|
|
set(h(i),'position',pos); |
| 86 |
|
|
end |
| 87 |
|
|
end |
| 88 |
|
|
|
| 89 |
|
|
np = get(gcf,'nextplot'); |
| 90 |
|
|
set(gcf,'nextplot','add'); |
| 91 |
|
|
if (oldtitle), |
| 92 |
|
|
delete(oldtitle); |
| 93 |
|
|
end |
| 94 |
|
|
ha=axes('pos',[0 1 1 1],'visible','off','Tag','suptitle'); |
| 95 |
|
|
ht=text(.5,titleypos-1,str);set(ht,'horizontalalignment','center','fontsize',fs); |
| 96 |
|
|
set(gcf,'nextplot',np); |
| 97 |
|
|
axes(haold); |
| 98 |
|
|
if nargout, |
| 99 |
|
|
hout=ht; |
| 100 |
|
|
end |
| 101 |
|
|
|
| 102 |
|
|
|
| 103 |
|
|
|
Parent Directory
| 
Revision Log
| 
Revision Graph