Overview
Comment:Reorder to make equivalent to .p version
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 50fc0a4bcc72144eba0d2b5979b1ea896e2ff329bbfda88e56920414daa944bb
User & Date: gawthrop@users.sourceforge.net on 1999-04-20 06:14:53
Other Links: branch diff | manifest | tags
Context
1999-04-20
06:16:07
Removed initialisation of AA and AAx
Remove _switch calls -- uses _switchopen exclusively check-in: aa71639d76 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
06:14:53
Reorder to make equivalent to .p version check-in: 50fc0a4bcc user: gawthrop@users.sourceforge.net tags: origin/master, trunk
06:13:14
Set open-switch states to zero check-in: d8a4e84ed6 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

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

1
2
3
4
5
6
7



8
9
10
11
12
13
14
15
16
17
18


19
20

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_open = nozeros(open.*[1:Nx]'); # Indices of open switches
  x(I_open) = 0.0;		# Open switches have zero state
  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 ]