1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
function mtt_write(t,x,y,nx,ny);
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4 1999/03/15 23:05:29 peterg
## A complete rewrite - now puts into a Global matrix MTT_data
##
## Revision 1.3 1999/03/15 21:57:00 peterg
## Removed the # symbol
##
###############################################################
global MTT_data
if t==0.0
MTT_data=[];
endif
MTT_data = [MTT_data; t,y',t,x'];
endfunction
|
|
>
>
>
|
>
|
>
>
|
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
|
function mtt_write(t,x,y,nx,ny,first);
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.5 2001/03/30 15:13:58 gawthrop
## Rationalised simulation modes to each return mtt_data
##
## Revision 1.4 1999/03/15 23:05:29 peterg
## A complete rewrite - now puts into a Global matrix MTT_data
##
## Revision 1.3 1999/03/15 21:57:00 peterg
## Removed the # symbol
##
###############################################################
global MTT_data
if (t==0.0)
MTT_data=[];
endif
if (t>= first)
MTT_data = [MTT_data; t,y',t,x'];
endif
endfunction
|