1load_package listvecops;
2
3a := {a1,a2,a3,a4};
4
5b := {b1,b2,b3,b4};
6
7a + b;
8
9a - b;
10
11-a;
12
133*x*a +7*y*b;
14
15{a,b} + {b,a};
16
17{a,b} - {b,a};
18
19a*b;
20
21{a*b,{x,y}}*{{1,1,1,1},{3,5}};
22
23a/b + b/a;
24
253*a/{1,2,3,4} + {x,y,z,u}*5;
26
271/a;
28
29a^3;
30
31a^b;
32
33x^a + b;
34
35a^b;
36
37a *. b;
38
39{a,{3,5,7,9}} *. {{2,4,6,8},b};
40
41a *. log b;
42
43df({sin x*y,x^3*cos y},x,2,y);
44
45int({sin x,cos x},x);
46
47% Example of a list-valued procedure.
48
49listproc spat3(u,v,w);
50   begin scalar x,y;
51     x := u *. w;
52     y := u *. v;
53     return v*x - w*y
54   end;
55
56u := {ux,uy,uz};
57v := {vx,vy,vz};
58w := {wx,wy,wz};
59
60z := spat3(u,v,w) - 3*spat3(v,u,w);
61
62spat3(u,v,w)+spat3(u,w,v);
63
64% Accesing list elements with infix operator _ .
65
66l := {1,{2,3},4};
67
68l _2*3;
69
70l _2 _2;
71
72
73end;
74
75
76
77