83fbf62b13eefc05fc65247695a355f24fc14ebe
[scilab.git] / scilab / modules / core / tests / unit_tests / display.tst
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
8
9 format('v',10)
10 //display of numbers
11 x=2.6533333
12 x=[2.6533333 -0.0002]
13 x'
14 x=[]
15
16 //display of polynomials
17 z=poly(0,'z')
18 num=[ (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)*...
19      z-0.0243497
20       (((((1)*z-2.6533333)*z+2.6887936)*z-1.2916784)*z+0.2911572)*...
21      z-0.0243497
22      (((1)*z )*z )*z+1
23      0]
24 den = [ ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
25 ((((1)*z-1.536926)*z+0.8067352)*z-0.1682810)*z+0.0113508
26 ((1)*z )*z
27 1]
28 num',den'
29 [num;den]
30 [num den]
31 //display of polynomials
32 z=poly(0,'z')
33 n=1+z;d=n*n;n1=[n d];d1=[d d*d];n1=[n1 n1];d1=[d1 d1];
34 n2=[n n*n;n*n n**4];d2=[n*n n**4;n n*n];den=d2(1,:);num=n2(2,:);
35 p=poly(rand(5,1),'z');q=poly(rand(6,1),'z');
36 p1=[p,0.1+2.35*z-5.05*z**3];q1=[q,2.56+0.03*z-10.01*z*z+z**5];
37 d3=[1+z**10 z**15];
38 //display of rationals
39 r=num./den
40 r'
41 rlist(d,n)
42 rlist(n,d)
43 rlist(d2,n2)
44 rlist(n2,d2)
45 rlist(den,num)
46 rlist(num,den)
47 rlist(p1,q1)
48 rlist(q1,p1)
49 rlist(p,q)
50 rlist(q,p)
51 rlist(p,z)
52 rlist(z,p)
53 rlist(d1,n1)
54 rlist(n1,d1)
55 //display of strings
56 digits='abcdefghijklmnopqrstuvwxyz'
57 numbers='1234567890'
58 majuscules='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
59 symbols=',./;''[] \ =-!\$%^&*()_+~:""[]| @'
60 [numbers;digits]
61 [numbers digits;digits numbers]
62 [numbers digits+digits+digits]
63 ans';
64 [ans ans]
65 ''
66
67 // display of list
68 list()
69 list(1,2,3)
70 list(list(1,list()),2)
71 list(rlist(q,p),1.23)
72 // overloading of display
73 1:$
74 list(1,1:$)
75 list(list(1:$))
76 list(list(1,$),list())
77 // Tlist overloaded display
78 TL=tlist('x',1,2)
79 deff('%x_p(x)','disp(x(3),x(2),''Mydisplay'')')
80 TL
81 list(TL)
82 list(list(TL))
83 TL=tlist('x',1:$,2)
84 list(TL)
85 list(list(TL))
86 TL(2)=TL