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