stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
dynare/matlab/doc/MakeAllFigures.html

198 lines
12 KiB
HTML
Raw Blame History

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/REC-html40/loose.dtd">
<html>
<head>
<title>Description of MakeAllFigures</title>
<meta name="keywords" content="MakeAllFigures">
<meta name="description" content="stephane.adjemian@cepremap.cnrs.fr [02-04-2005]">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="generator" content="m2html &copy; 2003 Guillaume Flandin">
<meta name="robots" content="index, follow">
<link type="text/css" rel="stylesheet" href="../m2html.css">
</head>
<body>
<a name="_top"></a>
<div><a href="../index.html">Home</a> &gt; <a href="index.html">.</a> &gt; MakeAllFigures.m</div>
<!--<table width="100%"><tr><td align="left"><a href="../index.html"><img alt="<" border="0" src="../left.png">&nbsp;Master index</a></td>
<td align="right"><a href="index.html">Index for .&nbsp;<img alt=">" border="0" src="../right.png"></a></td></tr></table>-->
<h1>MakeAllFigures
</h1>
<h2><a name="_name"></a>PURPOSE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
<div class="box"><strong>stephane.adjemian@cepremap.cnrs.fr [02-04-2005]</strong></div>
<h2><a name="_synopsis"></a>SYNOPSIS <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
<div class="box"><strong>function MakeAllFigures(NumberOfPlots,Caption,FigureProperties,Info) </strong></div>
<h2><a name="_description"></a>DESCRIPTION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
<div class="fragment"><pre class="comment"> stephane.adjemian@cepremap.cnrs.fr [02-04-2005]</pre></div>
<!-- crossreference -->
<h2><a name="_cross"></a>CROSS-REFERENCE INFORMATION <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
This function calls:
<ul style="list-style-image:url(../matlabicon.gif)">
</ul>
This function is called by:
<ul style="list-style-image:url(../matlabicon.gif)">
</ul>
<!-- crossreference -->
<h2><a name="_source"></a>SOURCE CODE <a href="#_top"><img alt="^" border="0" src="../up.png"></a></h2>
<div class="fragment"><pre>0001 <a name="_sub0" href="#_subfunctions" class="code">function MakeAllFigures(NumberOfPlots,Caption,FigureProperties,Info)</a>
0002 <span class="comment">% stephane.adjemian@cepremap.cnrs.fr [02-04-2005]</span>
0003 <span class="keyword">global</span> M_ options_
0004
0005 FigHandle = figure(<span class="string">'Name'</span>,FigureProperties.Name);
0006
0007 NAMES = cell(NumberOfPlots,1);
0008 <span class="keyword">if</span> options_.TeX
0009 TeXNAMES = cell(NumberOfPlots,1);
0010 <span class="keyword">end</span>
0011
0012 <span class="keyword">if</span> NumberOfPlots == 9
0013 nr = 3;
0014 nc = 3;
0015 <span class="keyword">elseif</span> NumberOfPlots == 8
0016 nr = 3;
0017 nc = 3;
0018 <span class="keyword">elseif</span> NumberOfPlots == 7
0019 nr = 3;
0020 nc = 3;
0021 <span class="keyword">elseif</span> NumberOfPlots == 6
0022 nr = 2;
0023 nc = 3;
0024 <span class="keyword">elseif</span> NumberOfPlots == 5
0025 nr = 3;
0026 nc = 2;
0027 <span class="keyword">elseif</span> NumberOfPlots == 4
0028 nr = 2;
0029 nc = 2;
0030 <span class="keyword">elseif</span> NumberOfPlots == 3
0031 nr = 2;
0032 nc = 2;
0033 <span class="keyword">elseif</span> NumberOfPlots == 2
0034 nr = 1;
0035 nc = 2;
0036 <span class="keyword">elseif</span> NumberOfPlots == 1
0037 nr = 1;
0038 nc = 1;
0039 <span class="keyword">end</span>
0040
0041 <span class="keyword">for</span> plt = 1:NumberOfPlots
0042 eval([<span class="string">'NumberOfCurves = Info.Box'</span> int2str(plt) <span class="string">'.Number;'</span>])
0043 NumberOfObservations = zeros(2,1);
0044 x = cell(NumberOfCurves,1);
0045 y = cell(NumberOfCurves,1);
0046 PltType = cell(NumberofCurves,1);
0047 top = NaN(NumberOfCurves,1);
0048 bottom = NaN(NumberOfCurves,1);
0049 binf = NaN(NumberOfCurves,1);
0050 bsup = NaN(NumberOfCurves,1);
0051 <span class="keyword">for</span> curve = 1:NumberOfCurves
0052 eval([<span class="string">'x{'</span> curve <span class="string">'} = Info.Box'</span> int2str(plt) <span class="string">'.Curve'</span> int2str(curve) <span class="string">'.xdata;'</span>])
0053 eval([<span class="string">'y{'</span> curve <span class="string">'} = Info.Box'</span> int2str(plt) <span class="string">'.Curve'</span> int2str(curve) <span class="string">'.ydata;'</span>])
0054 eval([<span class="string">'name = Info.Box'</span> int2str(plt) <span class="string">'.Curve'</span> int2str(curve) <span class="string">'.variablename;'</span>])
0055 eval([<span class="string">'PltType{'</span> curve <span class="string">'} = Info.Box'</span> int2str(plt) <span class="string">'.Curve'</span> int2str(curve) <span class="string">'.type'</span>]);
0056 <span class="keyword">if</span> length(x{curve})-length(y{curve})
0057 disp(<span class="string">'MakeFigure :: The number of observations in x doesn''t match with '</span>)
0058 disp([<span class="string">'the number of observation in y for '</span> name ])
0059 <span class="keyword">return</span>
0060 <span class="keyword">end</span>
0061 <span class="keyword">if</span> Info.PlotProperties.CutTop
0062 top(curve) = max(y{curve});
0063 <span class="keyword">else</span> Info.PlotProperties.CutBottom
0064 bottom(curve) = min(y{curve});
0065 <span class="keyword">end</span>
0066 binf(curve) = min(x{curve});
0067 bsup(curve) = max(x{curve});
0068 <span class="keyword">end</span>
0069 ymax = max(top);
0070 ymin = min(bottom);
0071 xmin = min(binf);
0072 xmax = max(bsup);
0073 <span class="keyword">if</span> isnan(ymin(plt))
0074 ymin = 0;
0075 <span class="keyword">end</span>
0076 eval([<span class="string">'NAMES{'</span> int2str(plt) <span class="string">'} = Info.Box'</span> int2str(plt) <span class="string">'.name;'</span>])
0077 <span class="keyword">if</span> options_.TeX
0078 eval([<span class="string">'TeXNAMES{'</span> int2str(plt) <span class="string">'} = Info.Box'</span> int2str(plt) <span class="string">'.texname;'</span>])
0079 <span class="keyword">end</span>
0080 subplot(nr,nc,plt)
0081 hold on
0082 <span class="keyword">for</span> curve = 1:NumberOfCurves
0083 hh = plot(x{curve},y{curve});
0084 <span class="keyword">if</span> strcmpi(PltType{curve},<span class="string">'PriorDensity'</span>)
0085 set(hh,<span class="string">'Color'</span>,[0.7 0.7 0.7],<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,2)
0086 <span class="comment">%</span>
0087 <span class="comment">%</span>
0088 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'DensityEstimate'</span>)
0089 set(hh,<span class="string">'Color'</span>,<span class="string">'k'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,2)
0090 <span class="comment">%</span>
0091 <span class="comment">%</span>
0092 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'ModeEstimate'</span>)
0093 set(hh,<span class="string">'Color'</span>,<span class="string">'g'</span>,<span class="string">'LineStyle'</span>,<span class="string">'--'</span>,<span class="string">'LineWidth'</span>,2)
0094 <span class="comment">%</span>
0095 <span class="comment">%</span>
0096 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'SmoothVariable'</span>)
0097 set(hh,<span class="string">'Color'</span>,<span class="string">'k'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,2)
0098 <span class="comment">%</span>
0099 <span class="comment">%</span>
0100 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'Deciles'</span>)
0101 set(hh,<span class="string">'Color'</span>,<span class="string">'g'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,1)
0102 <span class="comment">%</span>
0103 <span class="comment">%</span>
0104 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'Forecasts'</span>)
0105 set(hh,<span class="string">'Color'</span>,<span class="string">''</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,2)
0106 <span class="comment">%</span>
0107 <span class="comment">%</span>
0108 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'ForecastsHPD'</span>)
0109 set(hh,<span class="string">'Color'</span>,<span class="string">'k'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,1)
0110 <span class="comment">%</span>
0111 <span class="comment">%</span>
0112 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'ForecastsDeciles'</span>)
0113 set(hh,<span class="string">'Color'</span>,<span class="string">'g'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,1)
0114 <span class="comment">%</span>
0115 <span class="comment">%</span>
0116 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'DiagnosticWithin'</span>)
0117 set(hh,<span class="string">'Color'</span>,<span class="string">'b'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,2)
0118 <span class="comment">%</span>
0119 <span class="comment">%</span>
0120 <span class="keyword">elseif</span> strcmpi(PltType{curve},<span class="string">'DiagnosticPooled'</span>)
0121 set(hh,<span class="string">'Color'</span>,<span class="string">'r'</span>,<span class="string">'LineStyle'</span>,<span class="string">'-'</span>,<span class="string">'LineWidth'</span>,2)
0122 <span class="comment">%</span>
0123 <span class="comment">%</span>
0124 <span class="keyword">end</span>
0125 <span class="keyword">end</span>
0126 axis([xmin xmax ymin ymax])
0127 title(NAMES{plt})
0128 drawnow
0129 hold off
0130 <span class="keyword">end</span>
0131
0132 <span class="keyword">if</span> Info.SaveFormat.Eps
0133 <span class="keyword">if</span> isempty(Info.SaveFormat.Name)
0134 eval([<span class="string">'print -depsc2 '</span> M_.fname Info.SaveFormat.GenericName int2str(Info.SaveFormat.Number)]);
0135 <span class="keyword">else</span>
0136 eval([<span class="string">'print -depsc2 '</span> M_.fname Info.SaveFormat.GenericName Info.SaveFormat.Name]);
0137 <span class="keyword">end</span>
0138 <span class="keyword">end</span>
0139 <span class="keyword">if</span> Info.SaveFormat.Pdf
0140 <span class="keyword">if</span> isempty(Info.SaveFormat.Name)
0141 eval([<span class="string">'print -dpdf '</span> M_.fname Info.SaveFormat.GenericName int2str(Info.SaveFormat.Number)]);
0142 <span class="keyword">else</span>
0143 eval([<span class="string">'print -dpdf '</span> M_.fname Info.SaveFormat.GenericName Info.SaveFormat.Name]);
0144 <span class="keyword">end</span>
0145 <span class="keyword">end</span>
0146 <span class="keyword">if</span> Info.SaveFormat.Fig
0147 <span class="keyword">if</span> isempty(Info.SaveFormat.Name)
0148 saveas(FigHandle,[M_.fname Info.SaveFormat.GenericName int2str(Info.SaveFormat.Number) <span class="string">'.fig'</span>]);
0149 <span class="keyword">else</span>
0150 saveas(FigHandle,[M_.fname Info.SaveFormat.GenericName Info.SaveFormat.Name <span class="string">'.fig'</span>]);
0151 <span class="keyword">end</span>
0152 <span class="keyword">end</span></pre></div>
<hr><address>Generated on Fri 16-Jun-2006 09:09:06 by <strong><a href="http://www.artefact.tk/software/matlab/m2html/">m2html</a></strong> &copy; 2003</address>
</body>
</html>
Reference in New Issue View Git Blame Copy Permalink