ccef39c9d265a624064b3ca1b4f18a99807e7b4e
[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 oldlines = lines();
68 lines(0,50);
69 digits="abcdefghijklmnopqrstuvwxyz";
70 d = digits+digits+digits;
71 n = "1234567890";
72
73 // scalar
74 n
75 n+n+n+n+n
76 d
77 d+d+d+d
78
79 // column vector
80 [n; n; n; n; n]
81 [d; d; d; d; d]
82 [n+n; n+n; n+n]
83 [n+n; n+n+n; n+n]
84 [n+n; d+d; n+n]
85 [d; d]
86 [d; n]
87 [n; d]
88 [n; n]
89
90 // row vector
91 [n n n n n]
92 [d d d d d]
93 [n+n n+n n+n]
94 [n+n n+n+n n+n]
95 [d d]
96 [d n]
97 [n d]
98 [n n]
99
100 // matrix
101 nd = [n d];
102 dn = [d n];
103
104 [nd nd]
105 [nd; nd]
106 [nd' nd']
107 [nd'; nd']
108
109 [dn dn]
110 [dn; dn]
111 [dn' dn']
112 [dn'; dn']
113
114 lines(oldlines);
115
116 // display of list
117 list()
118 list(1,2,3)
119 list(list(1,list()),2)
120 list(rlist(q,p),1.23)
121 // overloading of display
122 1:$
123 list(1,1:$)
124 list(list(1:$))
125 list(list(1,$),list())
126 // Tlist overloaded display
127 TL=tlist("x",1,2)
128 deff("%x_p(x)","disp(x(3),x(2),''Mydisplay'')")
129 TL
130 list(TL)
131 list(list(TL))
132 TL=tlist("x",1:$,2)
133 list(TL)
134 list(list(TL))
135 TL(2)=TL