Overview
Comment:Redocumented
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 5d59e51f7914220f961d9db605df5fb8257e41a8ae9a338fe972eeeb13063f3a
User & Date: gawthrop@users.sourceforge.net on 2000-11-09 16:23:46
Other Links: branch diff | manifest | tags
Context
2000-11-09
17:06:39
Now does euler for cc check-in: 33407c7629 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
16:23:46
Redocumented check-in: 5d59e51f79 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
16:09:46
Declare dummy variables (mtt_s1 etc) check-in: 3ec4cd447e user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified mttroot/mtt/bin/trans/m/mtt_implicit.m from [2109324cfc] to [d63b98c98d]. 

1


2
3
4
5
6
7



8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

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

|
>
>

|
|
|
|
|
>
>
>
|
|
|
|
|
|
|

|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

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

  ## ###############################################################
  ## ## Version control history
  ## ###############################################################
  ## ## $Id$
  ## ## $Log$
  ## ## Revision 1.3  1999/04/20 06:14:53  peterg
  ## ## Reorder to make equivalent to .p version
  ## ##
  ## ## 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

MTT: Model Transformation Tools
[ GitHub | SourceHut | Sourceforge | Fossil RSS ]