Overview
| Comment: | Now takes the numpar parameters correctly |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
687a53f59f122d641fa9b920ad29e63c |
| User & Date: | gawthrop@users.sourceforge.net on 1996-08-11 09:32:12.000 |
| Other Links: | branch diff | manifest | tags |
Context
|
1996-08-11
| ||
| 09:45:46 | Initial revision check-in: cb07c75350 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 09:32:12 | Now takes the numpar parameters correctly check-in: 687a53f59f user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 08:48:07 | Initial revision check-in: f0381565ae user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/dm2fr_m
from [0f12f379c0]
to [d12dfc7f81].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
###############################################################
echo Creating $1_fr.dat
$MATRIX << EOF | awk '$1 !~ /[A-Za-cf-z]/ && NF>0 {print} ' >$1_fr.dat
W = logspace(-1,2,100);
| > > > | | 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 |
# Copyright (c) P.J.Gawthrop, 1996.
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.1 1996/08/10 14:11:11 peter
## Initial revision
##
###############################################################
echo Creating $1_fr.dat
$MATRIX << EOF | awk '$1 !~ /[A-Za-cf-z]/ && NF>0 {print} ' >$1_fr.dat
W = logspace(-1,2,100);
[A,B,C,D,E] = $1_dm($1_numpar);
fr = dm2fr(A,B,C,D,E,W);
rfr = real(fr);
ifr = imag(fr);
[Ny,Nu]=size(D);
NN = Ny*Nu;
|
| ︙ | ︙ |