Overview
Comment: | Initial revision |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | origin/master | trunk |
Files: | files | file ages | folders |
SHA3-256: |
04b7f16b2ad2f6a221082e548fb84688 |
User & Date: | gawthrop@users.sourceforge.net on 1996-08-15 11:56:38 |
Other Links: | branch diff | manifest | tags |
Context
1996-08-15
| ||
12:46:59 | Removed a spuriuos echo. check-in: d98dd81d26 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
11:56:38 | Initial revision check-in: 04b7f16b2a user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
11:56:11 | Does complex matrices. check-in: 07a11bc45d user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Added mttroot/mtt/bin/trans/ode2odes_m version [95da86a8fc].
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 | #! /bin/sh ###################################### ##### Model Transformation Tools ##### ###################################### # Bourne shell script: ode2odesol_m # Transforms descriptor matrix rep to step response # Copyright (c) P.J.Gawthrop, 1996. ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ############################################################### echo Creating $1_odesol.m rm -f ode2odesol_m.log if [ "$2" = "" ]; then PARAMS='t=[0:0.1:10]; x0=zeros(6,1);' echo Using default parameter $PARAMS else PARAMS=$2; fi PARAMS="$PARAMS ;" $MATRIX << EOF > ode2odesol_m.log [nx,ny,nu,nz,nyz] = $1_def; $PARAMS %Defaults if exist('t')==0 t=[0:0.1:10] end; if exist('u0')==0 u0 = ones(nu,1); end; if exist('x0')==0 x0 = zeros(nx,1); end; [n,m]=size(t); if m>n t=t'; end; x = lsode('$1_ode', x0, t); i=0; for tt=t' i=i+1; y(i) = $1_odeo(x(i,:),t); end; write_matrix([t,y], '$1_odesol'); EOF |