Artifact d664b9210d8a53278be2c852f450ccec300dd1fcd69d7c94ab4505d0f7a2ecca:

• Executable file mttroot/mtt/bin/trans/m/mtt_update.m — part of check-in [76bdb5bcaa] at 1998-08-15 13:48:11 on branch origin/master — New way of computing Euler (user: gawthrop@users.sourceforge.net, size: 304) [annotate] [blame] [check-ins using]

function [x] = mtt_update(dx,x,AAx,AA,dt,STEPFACTOR,Nx,METHOD);

  if (METHOD==1)		#Euler
    ddt = dt/STEPFACTOR;
      x = x + dx*ddt;
  elseif ((METHOD==2)||(METHOD==3))#Linear implicit or Implicit
    x = AA\(AAx + dx*dt);
  else
    error("Method %i is not defined", METHOD);
  endif;

endfunction;