Index: mttroot/mtt/bin/trans/m/dm2ir.m ================================================================== --- mttroot/mtt/bin/trans/m/dm2ir.m +++ mttroot/mtt/bin/trans/m/dm2ir.m @@ -8,10 +8,13 @@ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% Version control history % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % %% $Id$ % %% $Log$ +% %% Revision 1.3 1996/08/10 14:16:04 peter +% %% Now has T vector input - it was tmax & tstep +% %% % %% Revision 1.2 1996/08/10 11:49:39 peter % %% Fixed multi-input/output problem % %% % %% Revision 1.1 1996/08/10 10:26:00 peter % %% Initial revision @@ -30,8 +33,8 @@ ir = zeros(N,NN); i = 0; for t = T' i=i+1; - ir(i,:) = reshape(C*exp(A*t)*B, 1,NN); + ir(i,:) = reshape(C*expm(A*t)*B, 1,NN); end;