Merge branch 'master' of ssh://kirikou.dynare.org/srv/d_kirikou/git/dynare

matlab/disp_identification.m

@@ -285,7 +285,7 @@ if SampleSize==1 && advanced,
                     pax(i,dumpindx)=idemoments.cosnJ(i,j);
                 end
             end
-            fprintf('%-15s [%s] %10.3f\n',name{i},namx,idemoments.cosnJ(i,j))
+            fprintf('%-15s [%s] %14.7f\n',name{i},namx,idemoments.cosnJ(i,j))
         end
     end
 end

matlab/dyn_saveas.m

@@ -44,12 +44,15 @@ if any(strcmp('pdf',cellstr(DynareOptions.graph_format)))
         eval(['print -dpdf ' fname]);
     end
 end
-if ~exist('OCTAVE_VERSION') ...
-   && any(strcmp('fig',cellstr(DynareOptions.graph_format)))
+if any(strcmp('fig',cellstr(DynareOptions.graph_format)))
+    if exist('OCTAVE_VERSION')
+        warning('Octave cannot create fig files!')
+    else
         if DynareOptions.nodisplay
             set(h, 'Visible','on');
         end
         saveas(h,[fname '.fig']);
+    end
 end
 if DynareOptions.nodisplay
     close(h);

matlab/getH.m

@@ -388,21 +388,12 @@ if kronflag==1, % kronecker products
     H = -DfDtau\DfDthet;
     x = reshape(H(1:m*m,:),m,m,param_nbr);
     y = reshape(Dm*H(m*m+1:end,:),m,m,param_nbr);
-    if nauxe,
-        x = x(nauxe+1:end,nauxe+1:end,:);
-        y = y(nauxe+1:end,nauxe+1:end,:);
     dA = x;
     dOm = y;
-        m = size(y,1);
-        x = reshape(x,m*m,param_nbr);
-        Dm = duplication(m);
-        DmPl = inv(Dm'*Dm)*Dm';
-        y = DmPl*reshape(y,m*m,param_nbr);
-        H = [x;y];
-    else
-        dA = x;
-        dOm = y;
-    end
+    % convert to dyn_vech
+    tmpH = Dm*H(m*m+1:end,:);
+    Index = find(triu(ones(m)));
+    H(m*m+1:end,:) = tmpH(Index,:);
 
     Hx = [];
     if ~isempty(indexo),