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
|
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
|
+
+
+
-
-
-
+
+
+
-
-
-
+
-
-
-
+
-
-
-
+
-
-
-
+
|
function alias = SS_alias # Port aliases for SS
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 1998/07/28 19:08:22 peterg
## Some vector aliases added.
##
## Revision 1.1 1998/07/02 14:37:42 peterg
## Initial revision
##
###############################################################
alias.in = "1";
alias.out = "1";
alias.in1 = "1";
alias.out1 = "1";
MAX = 10;
value = "1";
for i=1:MAX
alias.in2 = "1,2";
alias.out2 = "1,2";
eval(sprintf("alias.in%i = \"%s\";", i, value));
alias.in3 = "1,2,3";
alias.out3 = "1,2,3";
eval(sprintf("alias.out%i = \"%s\";", i, value));
alias.in4 = "1,2,3,4";
alias.out4 = "1,2,3,4";
value = sprintf("%s,%i",value,i+1);
alias.in5 = "1,2,3,4,5";
alias.out5 = "1,2,3,4,5";
endfor;
endfunction
|