5.40 How to plot binary tree

by http://www.math.fsu.edu/~bellenot

restart; 
t2 := proc(i, x, y) 
    if i < 2 then [[x, y], [x, y - 1]], [[x, y], [x + 2^i, y - 1]] 
    else [[x, y], [x, y - 1]], [[x, y], [x + 2^i, y - 1]], 
        t2(i - 1, x, y - 1), t2(i - 1, x + 2^i, y - 1) 
    end if 
end proc; 
 
PLOT(CURVES(t2(6,0,0)));