OpenMusic：使用lisp生成L系统树

我正在尝试使用名为OpenMusic的组合工具，该工具是基于普通lisp的图形开发环境，它使用了一种名为“节奏树”的东西。我想用一组规则和OM此树必须具有以下结构创建节奏树：OpenMusic：使用lisp生成L系统树

树是有两个元素
它的第一个元素是一个节点
其第二个因素是它的子节点的列表（其也可以是树）

给出一个在树深度n，初始单节点树(1)和转换规则：

（1） - >（1 2）
（2） - >（1）

它应该给：

N = 1 - >（1（1 2））

来源

2016-04-21 kureta

那么，要问什么？请记住，这不是一个代码写作服务;） –

你是对的@Daniel问题是：我如何递归定义这个行为？答案可以是纯英文的，所以没有代码服务。我不知道从哪里开始。我甚至不需要一个答案，只是向正确的方向推动就足够了。 – kureta

@kureta你可以尝试解释一下这个问题好一点吗？也许增加一些函数调用的例子，它们的结果以及结果是如何达到的（基本上写出你希望计算机执行的过程）。就像现在一样，至少我无法弄清楚你想要什么。我的意思是，你从'（1）'开始。根据第一条规则，这变成了“（1 2）”。（1 2）'没有变换规则，那么你怎样才能得到'（1（1 2））'？原子中的原子是否也应该被转换（但是你会有'（（1 2）（1））'）？ – jkiiski

树/列表的递归算法通常用COND编写。你弄清楚结局条件是什么，然后把它放在第一位。然后处理原子，最后遍历一个列表，递归调用其CAR和CDR和CONS上的函数来生成输出列表。所以基本的模板是这样的：

(defun algo (list) 
    (cond 
    ((end-condition) suitable-end-value) 
    ((atom list) (do-something-with-atom list)) 
    (t (cons (algo (car list) 
      (algo (cdr list))))))

在这种情况下，这将是这样的：

(defun rhythm-tree (n tree) 
    (cond ((zerop n) tree)     ; First end-condition. 
     ((null tree) '())    ; Another end-condition. 
     ((atom tree)      ; An atom: transform into... 
     (cons tree      ; a list of the atom itself... 
       (list (rhythm-tree (1- n) ; and a list of children. 
            (case tree 
            (1 (list 1 2)) 
            (2 (list 1)) 
            (otherwise '())))))) 
     ;; Iterate over elements of a list. 
     (t (cons (rhythm-tree n (car tree)) 
       (rhythm-tree n (cdr tree)))))) 

(rhythm-tree 1 1) 
;=> (1 (1 2)) 
(rhythm-tree 2 1) 
;=> (1 ((1 (1 2)) (2 (1))))

来源

2016-04-22 17:35:10 jkiiski

非常感谢！这非常有帮助。 – kureta

OpenMusic：使用lisp生成L系统树

回答

相关问题