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: |
50fc0a4bcc72144eba0d2b5979b1ea89 |
| 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
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 | function [x] = mtt_implicit(x,dx,AA,AAx,dt,Nx,open); # Implicit update ## ############################################################### ## ## Version control history ## ############################################################### ## ## $Id$ ## ## $Log$ ## ## Revision 1.1 1999/04/02 06:23:20 peterg ## ## Initial revision ## ## ## ############################################################### ## Copyright (C) 1999 by P.J. Gawthrop | > > > < < > > | 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 |