Overview
Comment:Zeros output matices in csex and cseo just in case some elements are
actually zero and not set in code. Works for m and oct.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 9036150852462dd361854414485cd297210f87b11da911a9ff54bcd8182ec0d4
User & Date: gawthrop@users.sourceforge.net on 2001-06-13 10:39:51
Other Links: branch diff | manifest | tags
Context
2001-06-13
10:41:06
Further changes towards aouto creation of lbl files.
Prettified lbl files
check-in: 98cc4a6dc4 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
10:39:51
Zeros output matices in csex and cseo just in case some elements are
actually zero and not set in code. Works for m and oct.
check-in: 9036150852 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2001-06-11
19:51:08
Zapped spurious $1 alias check-in: 1255b49b62 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/mtt_header from [f2723c0fc8] to [0200a294be].

8
9
10
11
12
13
14






15
16
17
18
19
20
21
# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$






## Revision 1.33  2001/05/26 15:46:38  gawthrop
## Updated to account for new nonlinear ppp
##
## Revision 1.32  2001/05/24 07:42:12  gawthrop
## Included and updated the missing tf_r2m
##
## Revision 1.31  2001/04/03 14:49:42  gawthrop







>
>
>
>
>
>







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
# Copyright (C) 2000 by Peter J. Gawthrop

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.34  2001/05/26 18:36:43  gawthrop
## Further modifications. Now works on rcPPP
##  -- next jobs:
##     add identification to ppp_nlin_sim
##     create real-time ppp_nlin_run
##
## Revision 1.33  2001/05/26 15:46:38  gawthrop
## Updated to account for new nonlinear ppp
##
## Revision 1.32  2001/05/24 07:42:12  gawthrop
## Included and updated the missing tf_r2m
##
## Revision 1.31  2001/04/03 14:49:42  gawthrop
183
184
185
186
187
188
189

190
191
192
193
194
195
196

197
198
199
200
201
202
203
	;;
    csex)
	states=yes;
        inputs=yes;
	parameters=yes;
        output=mttedx
        args=$eqnargs

	;;
    cseo)
	states=yes;
        inputs=yes;
	parameters=yes;
        output=mtty
        args=$eqnargs

	;;
    dm)
	states=no;
	inputs=no;
	parameters=yes;
        output='mtta,mttb,mttc,mttd,mtte'
        args=mttpar







>







>







189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
	;;
    csex)
	states=yes;
        inputs=yes;
	parameters=yes;
        output=mttedx
        args=$eqnargs
        zeromatrices='edx';
	;;
    cseo)
	states=yes;
        inputs=yes;
	parameters=yes;
        output=mtty
        args=$eqnargs
        zeromatrices='y';
	;;
    dm)
	states=no;
	inputs=no;
	parameters=yes;
        output='mtta,mttb,mttc,mttd,mtte'
        args=mttpar
394
395
396
397
398
399
400






401
402
403





404




405
406
407
408
409
410
411
	    ;;
	d)
	    N=$Ny; M=$Nu
	    ;;
	e)
	    N=$Nx; M=$Nx
	    ;;






	*)
	    
    esac





    echo "   mtt$name = zeros($N,$M);"




done
}

declare_dummies()
{
# Get the dummies
dummies="mtt_tmp"







>
>
>
>
>
>



>
>
>
>
>
|
>
>
>
>







402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
	    ;;
	d)
	    N=$Ny; M=$Nu
	    ;;
	e)
	    N=$Nx; M=$Nx
	    ;;
	edx)
	    N=$Nx; M=1
	    ;;
	y)
	    N=$Nx; M=1
	    ;;
	*)
	    
    esac

    if [ "${language}" = "oct" ]; then
      if [ "$M" = "1" ]; then
        echo "   mtt$name = zeros($N);"
      else
        echo "   mtt$name = zeros($N,$M);"
      fi
    else
      echo "   mtt$name = zeros($N,$M);"
    fi
done
}

declare_dummies()
{
# Get the dummies
dummies="mtt_tmp"
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
if [ "$declaredummies" = "yes" ]; then
  declare_dummies
fi

if [ "$declareswitches" = "yes" ]; then
  declare_switches
fi


zero_matrices;

}

# Argument specific stuff
get_arg_specific_stuff ()







<







528
529
530
531
532
533
534

535
536
537
538
539
540
541
if [ "$declaredummies" = "yes" ]; then
  declare_dummies
fi

if [ "$declareswitches" = "yes" ]; then
  declare_switches
fi


zero_matrices;

}

# Argument specific stuff
get_arg_specific_stuff ()


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