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