// Tests imported from scicoslab tests

[
[1,2,3];
[u1(1,:);u2(2,:);a(:,2)'];
c\u1;
inv(u1'*u1);
u1>=u2;
u1==(u1+un)-1;
0-a*(c*u2);
b*u1([1,2],:);
a(1:2,1:2)+b*u1([1,2],:);
sin(a(1:2,1:2)+b*u1([1,2],:));
u1+u2;
u1-u2;
u1+2*u2;
u1*u2';
u1([1,3])*u2($);
u1(:,$-1)*u1(:,$-1)'-u2(1,1);
sin(u1)*u1';
u1 .* u1(:,:);
u1(:,:)*u2';
(u1(:))'*u1(:) > u2($);
sin(a(1:2,1:2)+b*u1([1,2],:))-a*(c*u2);
u1(c($,$)+1,$/2:$);
cos(a*u1*u2')*(1+sqrt(b*u1($))-u2);
sqrt(u1($));
u2*u1([2,3],1+1);
size(u2);
ones(size(u1,1),3)*[u1($);1;1];
inv([inv(u1'*c*u1+ones(size(u1,2),size(u1,2))),zeros(size(u1,2),1);zeros(size(u1,2),1);zeros(size(u1,2),1)'',u2($)])';
[c,c]*[[1:4]',u1,u2;[u1,u2,[1:4]']];
[A.label(u1+1);A.label($);A.label(:);sin(A.label(:))];
u1([u1([un,trois])==u1([un,deux])]+1);
u1($)(ones(2,2))-u1($)*ones(2,2);
(u1+1)(2,2)-u1(2,2)-1;
[A.label(u1+1);1];
[u1(:);1];
[d(u1+1);1];
(u1'*u2)\[d,d];
sum(u1(:)');
sum(c\(u1*u2'),1);
u1'/c;
sum(u1);
u1(u2(1)+[1:4]);
u1(1):=4;
u1([un,deux]):=a(:,1);
u1(un,[un,deux]):=10*u1(1,:);
u1(:,[un,deux]):=10*u1($);
1+(c(:,1:2):=u1)*10;
u1(:,1):=[];
(u1(:))(2:5):=[]; 
a'(1,:):=[];
u1(1,:):=[];
(a'(2,:):=[])+(u2(1,:):=[]);
([u1,a'])(:,2:3):=[];
(.if a .then 3 .else u2($) .end)(:,1):=[];
.if a > .5 .then 3 .else 6 .end;
.if u1 > .4 .then a' .else 0 .end;
.if a($) .then u1 .else u2 .end; 
u1(:,[2,2]):=[];      
]

