在maxima中使用lisp代码

Question

我想在最大值中使用(make-array '(4 3 8))，这基本上是为了生成多维矩阵，因为我无法找到API来创建包括array(name,d1,d2...dm)在内的多维矩阵。

我可以用:lisp (make-array '(4 3 8))执行它，但我不知道我怎样才能将其标记为类似，

arr: :lisp(make-array '(4 3 8))

我也想知道是否可以使用里面最大的功能Lisp代码。任何形式的帮助都应得到高度重视。

Answer 1

要在Lisp代码名为阵列刚一摸一样array(name, d1, d2, ..., dm)，写：

(mfuncall '$array name d1 d2 ... dm) 

不能在千里马functi直接包括Lisp代码附件。但是你可以调用Lisp函数。如果lisp函数被命名为$foo，那么在Maxima中它是foo;如果在Lisp中是foo，那么在Maxima中它是?foo。例如：

:lisp (defun $foo (x) ...) 

f(x) := print (foo (x)); 

顺便说一句，千里马处理数组仍然是一团糟...也许有一天我们会清理它。

Answer 2

您可以使用make_array直接创建数组：

(%i18) make_array(fixnum,4,3,8); 
(%o18) {Array: #3A(((0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0)) 
    ((0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0)) 
    ((0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0)) 
    ((0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0) (0 0 0 0 0 0 0 0)))} 

或绑定的Lisp调用的结果是这样的：

(%i21) :lisp (msetq $foo (make-array '(4 3 8))); 

#3A(((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)) 
    ((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)) 
    ((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)) 
    ((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL))) 
(%i21) foo; 
(%o21) {Array: #3A(((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)) 
    ((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)) 
    ((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)) 
    ((NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL) 
    (NIL NIL NIL NIL NIL NIL NIL NIL)))} 

顺便说一句，大概array工作了你。我从来没有使用它，并开始感到困惑，因为它不是在创建后才打印的。但检查documentation和Wikibooks文章后：

(%i22) array(A,2,2,2); 
(%o22)         A 
(%i23) arrayinfo(A); 
(%o23)      [declared, 3, [2, 2, 2]] 
(%i24) A[0,1,2]: 2; 
(%o24)         2 
(%i25) listarray(A); 
(%o25) [#####, #####, #####, #####, #####, 2, #####, #####, #####, #####, 
#####, #####, #####, #####, #####, #####, #####, #####, #####, #####, #####, 
#####, #####, #####, #####, #####, #####] 

似乎有对这种事情在千里马相当多的选择，或如上面链接维基文章引述罗伯特Dodier：“千里马目前的阵列/矩阵语义是一个烂摊子[...]”