1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
function makedef(structure,deffilenum);
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% Version control history
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% $Id$
## %% $Log$
## %% Revision 1.7 2000/10/20 13:16:29 peterg
## %% Reformated
## %%
## %% Revision 1.6 1996/12/07 18:21:57 peterg
## %% Now uses fopen + file number
## %%
## %% Revision 1.5 1996/11/09 21:05:44 peterg
|
>
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
function makedef(structure,deffilenum);
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% Version control history
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## %% $Id$
## %% $Log$
## %% Revision 1.8 2000/10/20 13:26:41 peterg
## %% Made sure that mttui not declared twice
## %%
## %% Revision 1.7 2000/10/20 13:16:29 peterg
## %% Reformated
## %%
## %% Revision 1.6 1996/12/07 18:21:57 peterg
## %% Now uses fopen + file number
## %%
## %% Revision 1.5 1996/11/09 21:05:44 peterg
|
119
120
121
122
123
124
125
126
127
128
129
130
|
fprintf(deffilenum, 'MTTx(%1.0f,1) := MTTx%1.0f;\n', i, i);
endfor
for i=1:nonstates
fprintf(deffilenum, 'MTTdz(%1.0f,1) := MTTdz%1.0f;\n', i, i);
endfor
endfunction
|
<
|
|
<
|
122
123
124
125
126
127
128
129
130
131
|
fprintf(deffilenum, 'MTTx(%1.0f,1) := MTTx%1.0f;\n', i, i);
endfor
for i=1:nonstates
fprintf(deffilenum, 'MTTdz(%1.0f,1) := MTTdz%1.0f;\n', i, i);
endfor
fflush (deffilenum);
endfunction
|