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
|
function mtt_write(t,x,y,nx,ny);
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## 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'];
# printf("%e ", t);
# for i=1:ny
# printf("%e ", y(i));
# endfor
# printf("%e ", t);
# for i=1:nx
# printf("%e ", x(i));
# endfor
# printf("\n");
endfunction
|
>
>
>
|
<
<
<
<
<
<
<
<
<
<
<
<
<
<
|
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
|