Overview
Comment:Removed the # symbol
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 5f62b45e0de908fc516693899bf3ba3bd6924626f03f8a95862e82065a7ed727
User & Date: gawthrop@users.sourceforge.net on 1999-03-15 21:57:38.000
Other Links: branch diff | manifest | tags
Context
1999-03-15
22:42:52
Strip comments (put in by Octave save function) check-in: f8ce367af5 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:57:38
Removed the # symbol check-in: 5f62b45e0d user: gawthrop@users.sourceforge.net tags: origin/master, trunk
21:55:36
Does away with the # symbol in the file - uses _de to get Nx Ny
instead
check-in: 1d58fa5dab user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes
1








2
3
4
5
6

7
8
9
10
11
12

13
14
15
16
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$
###############################################################


  printf("%e ", t);
  for i=1:ny
    printf("%e ", y(i));
  end
  endfor
  printf("# ");

  printf("%e ", t);
  for i=1:nx
    printf("%e ", x(i));
  end
  endfor
  printf("\n");

endfunction

12
13
14
15
16
17
18



19
20
21
22
23
24
25
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28







+
+
+







      P.J. Gawthrop July 1998

###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.4  1998/11/26 13:31:30  peterg
## Put missing space after 2nd t
##
## Revision 1.3  1998/07/25 20:41:38  peterg
## Spaces between numbers
##
## Revision 1.2  1998/07/25 14:04:14  peterg
## Changed format
##
## Revision 1.1  1998/07/25 09:47:25  peterg
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
36
37
38
39
40
41
42

43
44
45
46
47
48
49







-







VAR
   i : INTEGER;
   
BEGIN
   write(t," ");
   FOR i := 1 TO ny DO
      write(y[i]," ");
   write(" # ");

   write(t," ");
   FOR i := 1 TO nx DO
      write(x[i]," ");
   writeln;
END;
   

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