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