display of some types and lines function fixed.
[scilab.git] / scilab / modules / core / tests / unit_tests / display.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 format("v",10)
8 //display of numbers
9 x=2.6533333
10 x  = 
11     2.6533333
12 x=[2.6533333 -0.0002]
13 x  = 
14     2.6533333  - 0.0002
15 x'
16  ans  =
17     2.6533333
18   - 0.0002
19 x=[]
20 x  = 
21     []
22 //display of polynomials
23 z=poly(0,"z")
24 z  = 
25      
26     z
27 num=[ (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
28 z-0.0243497
29 (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)* ...
30 z-0.0243497
31 (((1)*z )*z )*z+1
32 0]
33 num  = 
34                                        2             3             4
35   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
36                5
37             + z 
38                                        2             3             4
39   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
40                5
41             + z 
42          3
43     1 + z 
44      
45    0
46 den = [ ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
47 ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
48 ((1)*z )*z
49 1]
50 den  = 
51                                       2            3    4
52     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
53                                       2            3    4
54     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
55      2
56     z 
57      
58     1
59 num',den'
60  ans  =
61          column 1
62                                        2             3             4
63   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
64                5
65             + z 
66          column 2
67                                        2             3             4
68   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
69                5
70             + z 
71  
72          column 3 to 4
73          3     
74     1 + z    0
75  ans  =
76          column 1
77                                       2            3    4
78     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
79          column 2 to 4
80                                       2            3    4     2     
81     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z     z     1
82 [num;den]
83  ans  =
84                                        2             3             4
85   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
86                5
87             + z 
88                                        2             3             4
89   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z 
90                5
91             + z 
92          3
93     1 + z 
94      
95    0
96                                       2            3    4
97     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
98                                       2            3    4
99     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
100      2
101     z 
102      
103     1
104 [num den]
105  ans  =
106          column 1
107                                        2             3             4    
108   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z     
109                5                                                        
110             + z                                                         
111                                        2             3             4    
112   - 0.0243497 + 0.2911572z - 1.2916784z  + 2.6887936z  - 2.6533333z     
113                5                                                        
114             + z                                                         
115          3                                                              
116     1 + z                                                               
117                                                                         
118    0                                                                    
119          column 2
120                                       2            3    4
121     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
122                                       2            3    4
123     0.0113508 - 0.168281z + 0.8067352z  - 1.536926z  + z 
124      2                                                   
125     z                                                    
126                                                          
127     1                                                    
128 //display of polynomials
129 z=poly(0,"z")
130 z  = 
131      
132     z
133 n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
134 n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
135 p=poly(rand(5,1),"z");q=poly(rand(6,1),"z");
136 p1=[p,0.1+2.35*z-5.05*z**3];q1=[q,2.56+0.03*z-10.01*z*z+z**5];
137 d3=[1+z**10 z**15];
138 //display of rationals
139 r=num./den
140 r  = 
141            
142    1   1   
143    --  --  
144            
145    1   1   
146 r'
147  ans  =
148        
149    1   
150    --  
151        
152    1   
153        
154    1   
155    --  
156        
157    1   
158 rlist(d,n)
159  ans  =
160              2  
161    1 + 2z + z   
162    -----------  
163                 
164      1 + z      
165 rlist(n,d)
166  ans  =
167                 
168      1 + z      
169    -----------  
170              2  
171    1 + 2z + z   
172 rlist(d2,n2)
173  ans  =
174              2             2    3   4  
175    1 + 2z + z   1 + 4z + 6z + 4z + z   
176    -----------  ---------------------  
177                                2       
178      1 + z           1 + 2z + z        
179                                2       
180      1 + z           1 + 2z + z        
181    -----------  ---------------------  
182              2             2    3   4  
183    1 + 2z + z   1 + 4z + 6z + 4z + z   
184 rlist(n2,d2)
185  ans  =
186                                2       
187      1 + z           1 + 2z + z        
188    -----------  ---------------------  
189              2             2    3   4  
190    1 + 2z + z   1 + 4z + 6z + 4z + z   
191              2             2    3   4  
192    1 + 2z + z   1 + 4z + 6z + 4z + z   
193    -----------  ---------------------  
194                                2       
195      1 + z           1 + 2z + z        
196 rlist(den,num)
197  ans  =
198              2             2    3   4  
199    1 + 2z + z   1 + 4z + 6z + 4z + z   
200    -----------  ---------------------  
201              2             2    3   4  
202    1 + 2z + z   1 + 4z + 6z + 4z + z   
203 rlist(num,den)
204  ans  =
205              2             2    3   4  
206    1 + 2z + z   1 + 4z + 6z + 4z + z   
207    -----------  ---------------------  
208              2             2    3   4  
209    1 + 2z + z   1 + 4z + 6z + 4z + z   
210 rlist(p1,q1)
211  ans  =
212  
213 column 1
214  
215                                        2            3            4   5  
216    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
217    -------------------------------------------------------------------  
218                                         2            3            4     
219      0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
220                   5   6                                                 
221       - 3.6713072z + z                                                  
222  
223 column 2
224  
225                          3     
226       0.1 + 2.35z - 5.05z      
227    --------------------------  
228                         2   5  
229    2.56 + 0.03z - 10.01z + z   
230                                
231                                
232 rlist(q1,p1)
233  ans  =
234  
235 column 1
236  
237                                         2            3            4     
238      0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
239                   5   6                                                 
240       - 3.6713072z + z                                                  
241    -------------------------------------------------------------------  
242                                        2            3            4   5  
243    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
244  
245 column 2
246  
247                         2   5  
248    2.56 + 0.03z - 10.01z + z   
249    --------------------------  
250                          3     
251       0.1 + 2.35z - 5.05z      
252                                
253                                
254 rlist(p,q)
255  ans  =
256                                        2            3            4   5  
257    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
258    -------------------------------------------------------------------  
259                                         2            3            4     
260      0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
261                   5   6                                                 
262       - 3.6713072z + z                                                  
263 rlist(q,p)
264  ans  =
265                                         2            3            4     
266      0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
267                   5   6                                                 
268       - 3.6713072z + z                                                  
269    -------------------------------------------------------------------  
270                                        2            3            4   5  
271    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
272 rlist(p,z)
273  ans  =
274                                        2            3            4   5  
275    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
276    -------------------------------------------------------------------  
277                                                                         
278                                    z                                    
279 rlist(z,p)
280  ans  =
281                                                                         
282                                    z                                    
283    -------------------------------------------------------------------  
284                                        2            3            4   5  
285    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
286 rlist(d1,n1)
287  ans  =
288  
289 column 1 to 3
290  
291              2             2    3   4            2  
292    1 + 2z + z   1 + 4z + 6z + 4z + z   1 + 2z + z   
293    -----------  ---------------------  -----------  
294                                2                    
295      1 + z           1 + 2z + z          1 + z      
296  
297 column 4
298  
299               2    3   4  
300    1 + 4z + 6z + 4z + z   
301    ---------------------  
302                   2       
303         1 + 2z + z        
304 rlist(n1,d1)
305  ans  =
306  
307 column 1 to 3
308  
309                                2                    
310      1 + z           1 + 2z + z          1 + z      
311    -----------  ---------------------  -----------  
312              2             2    3   4            2  
313    1 + 2z + z   1 + 4z + 6z + 4z + z   1 + 2z + z   
314  
315 column 4
316  
317                   2       
318         1 + 2z + z        
319    ---------------------  
320               2    3   4  
321    1 + 4z + 6z + 4z + z   
322 //display of strings
323 digits="abcdefghijklmnopqrstuvwxyz"
324 digits  = 
325  abcdefghijklmnopqrstuvwxyz
326 numbers="1234567890"
327 numbers  = 
328  1234567890
329 majuscules="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
330 majuscules  = 
331  ABCDEFGHIJKLMNOPQRSTUVWXYZ
332 symbols=",./;''[] \ =-!\$%^&*()_+~:""[]| @"
333 symbols  = 
334  ,./;'[] \ =-!\$%^&*()_+~:"[]| @
335 [numbers;digits]
336  ans  =
337 !1234567890                  !
338 !                            !
339 !abcdefghijklmnopqrstuvwxyz  !
340 [numbers digits;digits numbers]
341  ans  =
342 !1234567890                  abcdefghijklmnopqrstuvwxyz  !
343 !                                                        !
344 !abcdefghijklmnopqrstuvwxyz  1234567890                  !
345 [numbers digits+digits+digits]
346  ans  =
347          column 1
348 !1234567890  !
349          column 2
350 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
351 !stuvwxyz                                                              !
352 ans';
353 [ans ans]
354  ans  =
355          column 1
356 !1234567890                                                            !
357 !                                                                      !
358 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
359 !stuvwxyz                                                              !
360          column 2
361 !1234567890                                                            !
362 !                                                                      !
363 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
364 !stuvwxyz                                                              !
365 ""
366  ans  =
367  
368 oldlines = lines();
369 lines(0,50);
370 digits="abcdefghijklmnopqrstuvwxyz";
371 d = digits+digits+digits;
372 n = "1234567890";
373 // scalar
374 n
375 n  = (2)
376  1234567890
377 n+n+n+n+n
378  ans  =
379  123456789012345678901234567890123456789012345678 
380  90                                              
381 d
382 d  = (1)
383  abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv 
384  wxyzabcdefghijklmnopqrstuvwxyz                  
385 d+d+d+d
386  ans  =
387  abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv 
388  wxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr 
389  stuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmn 
390  opqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghij 
391  klmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdef 
392  ghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzab 
393  cdefghijklmnopqrstuvwxyz                        
394 // column vector
395 [n; n; n; n; n]
396  ans  =
397 !1234567890  !
398 !            !
399 !1234567890  !
400 !            !
401 !1234567890  !
402 !            !
403 !1234567890  !
404 !            !
405 !1234567890  !
406 [d; d; d; d; d]
407  ans  =
408 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
409 !wxyzabcdefghijklmnopqrstuvwxyz                  !
410 !                                                !
411 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
412 !wxyzabcdefghijklmnopqrstuvwxyz                  !
413 !                                                !
414 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
415 !wxyzabcdefghijklmnopqrstuvwxyz                  !
416 !                                                !
417 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
418 !wxyzabcdefghijklmnopqrstuvwxyz                  !
419 !                                                !
420 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
421 !wxyzabcdefghijklmnopqrstuvwxyz                  !
422 [n+n; n+n; n+n]
423  ans  =
424 !12345678901234567890  !
425 !                      !
426 !12345678901234567890  !
427 !                      !
428 !12345678901234567890  !
429 [n+n; n+n+n; n+n]
430  ans  =
431 !12345678901234567890            !
432 !                                !
433 !123456789012345678901234567890  !
434 !                                !
435 !12345678901234567890            !
436 [n+n; d+d; n+n]
437  ans  =
438 !12345678901234567890                            !
439 !                                                !
440 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
441 !wxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
442 !stuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmn!
443 !opqrstuvwxyz                                    !
444 !                                                !
445 !12345678901234567890                            !
446 [d; d]
447  ans  =
448 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
449 !wxyzabcdefghijklmnopqrstuvwxyz                  !
450 !                                                !
451 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
452 !wxyzabcdefghijklmnopqrstuvwxyz                  !
453 [d; n]
454  ans  =
455 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
456 !wxyzabcdefghijklmnopqrstuvwxyz                  !
457 !                                                !
458 !1234567890                                      !
459 [n; d]
460  ans  =
461 !1234567890                                      !
462 !                                                !
463 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
464 !wxyzabcdefghijklmnopqrstuvwxyz                  !
465 [n; n]
466  ans  =
467 !1234567890  !
468 !            !
469 !1234567890  !
470 // row vector
471 [n n n n n]
472  ans  =
473          column 1 to 4
474 !1234567890  1234567890  1234567890  1234567890  !
475          column 5
476 !1234567890  !
477 [d d d d d]
478  ans  =
479          column 1
480 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
481 !wxyzabcdefghijklmnopqrstuvwxyz                  !
482          column 2
483 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
484 !wxyzabcdefghijklmnopqrstuvwxyz                  !
485          column 3
486 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
487 !wxyzabcdefghijklmnopqrstuvwxyz                  !
488          column 4
489 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
490 !wxyzabcdefghijklmnopqrstuvwxyz                  !
491          column 5
492 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
493 !wxyzabcdefghijklmnopqrstuvwxyz                  !
494 [n+n n+n n+n]
495  ans  =
496          column 1 to 2
497 !12345678901234567890  12345678901234567890  !
498          column 3
499 !12345678901234567890  !
500 [n+n n+n+n n+n]
501  ans  =
502          column 1
503 !12345678901234567890  !
504          column 2
505 !123456789012345678901234567890  !
506          column 3
507 !12345678901234567890  !
508 [d d]
509  ans  =
510          column 1
511 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
512 !wxyzabcdefghijklmnopqrstuvwxyz                  !
513          column 2
514 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
515 !wxyzabcdefghijklmnopqrstuvwxyz                  !
516 [d n]
517  ans  =
518          column 1
519 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
520 !wxyzabcdefghijklmnopqrstuvwxyz                  !
521          column 2
522 !1234567890  !
523 [n d]
524  ans  =
525          column 1
526 !1234567890  !
527          column 2
528 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
529 !wxyzabcdefghijklmnopqrstuvwxyz                  !
530 [n n]
531  ans  =
532 !1234567890  1234567890  !
533 // matrix
534 nd = [n d];
535 dn = [d n];
536 [nd nd]
537  ans  =
538          column 1
539 !1234567890  !
540          column 2
541 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
542 !wxyzabcdefghijklmnopqrstuvwxyz                  !
543          column 3
544 !1234567890  !
545          column 4
546 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
547 !wxyzabcdefghijklmnopqrstuvwxyz                  !
548 [nd; nd]
549  ans  =
550          column 1
551 !1234567890  !
552 !            !
553 !1234567890  !
554          column 2
555 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
556 !wxyzabcdefghijklmnopqrstuvwxyz                  !
557 !                                                !
558 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
559 !wxyzabcdefghijklmnopqrstuvwxyz                  !
560 [nd' nd']
561  ans  =
562          column 1
563 !1234567890                                      !
564 !                                                !
565 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
566 !wxyzabcdefghijklmnopqrstuvwxyz                  !
567          column 2
568 !1234567890                                      !
569 !                                                !
570 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
571 !wxyzabcdefghijklmnopqrstuvwxyz                  !
572 [nd'; nd']
573  ans  =
574 !1234567890                                      !
575 !                                                !
576 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
577 !wxyzabcdefghijklmnopqrstuvwxyz                  !
578 !                                                !
579 !1234567890                                      !
580 !                                                !
581 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
582 !wxyzabcdefghijklmnopqrstuvwxyz                  !
583 [dn dn]
584  ans  =
585          column 1
586 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
587 !wxyzabcdefghijklmnopqrstuvwxyz                  !
588          column 2
589 !1234567890  !
590          column 3
591 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
592 !wxyzabcdefghijklmnopqrstuvwxyz                  !
593          column 4
594 !1234567890  !
595 [dn; dn]
596  ans  =
597          column 1
598 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
599 !wxyzabcdefghijklmnopqrstuvwxyz                  !
600 !                                                !
601 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
602 !wxyzabcdefghijklmnopqrstuvwxyz                  !
603          column 2
604 !1234567890  !
605 !            !
606 !1234567890  !
607 [dn' dn']
608  ans  =
609          column 1
610 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
611 !wxyzabcdefghijklmnopqrstuvwxyz                  !
612 !                                                !
613 !1234567890                                      !
614          column 2
615 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
616 !wxyzabcdefghijklmnopqrstuvwxyz                  !
617 !                                                !
618 !1234567890                                      !
619 [dn'; dn']
620  ans  =
621 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
622 !wxyzabcdefghijklmnopqrstuvwxyz                  !
623 !                                                !
624 !1234567890                                      !
625 !                                                !
626 !abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
627 !wxyzabcdefghijklmnopqrstuvwxyz                  !
628 !                                                !
629 !1234567890                                      !
630 lines(oldlines);
631 // display of list
632 list()
633  ans  =
634      ()
635 list(1,2,3)
636  ans  =
637        ans(1)
638     1.
639        ans(2)
640     2.
641        ans(3)
642     3.
643 list(list(1,list()),2)
644  ans  =
645        ans(1)
646         ans(1)(1)
647     1.
648         ans(1)(2)
649      ()
650        ans(2)
651     2.
652 list(rlist(q,p),1.23)
653  ans  =
654        ans(1)
655                                         2            3            4     
656      0.0123314 - 0.2684985z + 1.5393672z - 4.0114366z + 5.4004179z      
657                   5   6                                                 
658       - 3.6713072z + z                                                  
659    -------------------------------------------------------------------  
660                                        2            3            4   5  
661    -0.0000078 + 0.0351988z - 0.3720034z + 1.3432153z - 1.9632981z + z   
662        ans(2)
663     1.23
664 // overloading of display
665 1:$
666  ans  =
667  1:1:$
668 list(1,1:$)
669  ans  =
670        ans(1)
671     1.
672        ans(2)
673  1:1:$
674 list(list(1:$))
675  ans  =
676        ans(1)
677         ans(1)(1)
678  1:1:$
679 list(list(1,$),list())
680  ans  =
681        ans(1)
682         ans(1)(1)
683     1.
684         ans(1)(2)
685      
686     $
687        ans(2)
688      ()
689 // Tlist overloaded display
690 TL=tlist("x",1,2)
691 TL  = 
692        TL(1)
693  x
694        TL(2)
695     1.
696        TL(3)
697     2.
698 deff("%x_p(x)","disp(x(3),x(2),''Mydisplay'')")
699 TL
700 TL  = (1)
701  Mydisplay
702     1.
703     2.
704 list(TL)
705  ans  =
706        ans(1)
707  Mydisplay
708     1.
709     2.
710 list(list(TL))
711  ans  =
712        ans(1)
713         ans(1)(1)
714  Mydisplay
715     1.
716     2.
717 TL=tlist("x",1:$,2)
718 TL  = 
719  Mydisplay
720  1:1:$
721     2.
722 list(TL)
723  ans  =
724        ans(1)
725  Mydisplay
726  1:1:$
727     2.
728 list(list(TL))
729  ans  =
730        ans(1)
731         ans(1)(1)
732  Mydisplay
733  1:1:$
734     2.
735 TL(2)=TL
736 TL  = 
737  Mydisplay
738  Mydisplay
739  1:1:$
740     2.
741     2.