free_tree.m

来自「利用电磁场的源激发方法来计算光子晶体波导例如光子晶体光纤」· M 代码 · 共 12 行

function free_tree(root)

if isempty(root.children)
    free(root)
    return
end

children = root.children;
free(root);
for iNode = 1:length(children)
    free_tree(children(iNode));
end