mtt: mtt_implicit.m at [7351c6785c]

File mttroot/mtt/bin/trans/m/mtt_implicit.m artifact 2109324cfc part of check-in 7351c6785c

function [x] = mtt_implicit(x,dx,AA,AAx,dt,Nx,open); # Implicit update

## ###############################################################
## ## Version control history
## ###############################################################
## ## $Id$
## ## $Log$
## ## Revision 1.2  1999/04/20 00:58:22  peterg
## ## Set open-switch states to zero
## ##
## ## Revision 1.1  1999/04/02 06:23:20  peterg
## ## Initial revision
## ##
## ###############################################################

## Copyright (C) 1999 by P.J. Gawthrop

  I = nozeros(!open.*[1:Nx]');	# Indices of states to update
  x(I) = AA(I,I)\(AAx(I) + dx(I)*dt);	# Implicit update (except open switches);
  I_open = nozeros(open.*[1:Nx]'); # Indices of open switches
  x(I_open) = 0.0;		# Open switches have zero state

endfunction