Maxima CAS中的函数定义

问题描述

我有一个功能：

GiveBTree(z,depthMax):=block(

    [ zz,t1,t2,tmp],zz :[],t1 :[z],t2 :[],tmp  :[],for depth : 1 thru depthMax step 1 do (
        
        
        for z in t1 do (
            tmp : Give2Preimages(z),zz : append(tmp,zz),t2 : append(tmp,t2)
            
        )
        
        tmp:[],t1:t2 
        
    ),zz:flatten(zz),return (zz)
)$

当我将其放入千里马时，我有：

Maxima 5.43.2 http://maxima.sourceforge.net
using Lisp GNU Common Lisp (GCL) GCL 2.6.12
distributed under the GNU Public License. See the file copYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) GiveBTree(z,depthMax):=block(
[ zz,display all 2857 possibilities? (y or n)
                                       JACOBI_CD
!                                      JACOBI_CN
!!                                     JACOBI_CS
#                                      JACOBI_DC
$                                      JACOBI_DN

问题似乎在tmp之后开始。

所以我检查了：

• googled：maxima cas“显示全部”
• Maxima函数的索引
• 描述（tmp）

此定义有什么问题？

解决方法

我已经按照罗伯特·多迪尔（Robert Dodier）的话说了：

(%i2) load("g.mac");
(%o2)                                g.mac

因此问题是由“复制和粘贴”引起的。