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