Prime: Quick and Dirty AXL Message #1 Posted by Helge Gabert on 3 Oct 2013, 6:36 p.m.
Here is an attempt to duplicate the AXL utility (which I find helpful in the 50G); alas, I can't get it work with symbolic elements in either vectors or lists   but it works with integers, reals, and complex values as elements in both HOME and CAS.
No doubt it can be optimized.
EXPORT AXL(r)
BEGIN
LOCAL b, n, j;
SIZE(r)>n;
IF TYPE(r)==4 THEN
b:={};
FOR j FROM 1 TO n(1) DO
CONCAT(b,r(j))>b;
END;
ELSE
IF TYPE(r)==6 THEN
MAKEMAT(0,n)>b;
FOR j FROM 1 TO n DO
r(j)>b(1,j);
END;
ELSE
RETURN "Error: Not list or vector";
END;
END;
b;
END;
