SHOW:
|
|
- or go back to the newest paste.
| 1 | p = 0.9; | |
| 2 | maxdepth = 4; | |
| 3 | tree[n_, f_] := (If[Length[Flatten[n]] > maxdepth, {},
| |
| 4 | - | If[RandomReal[] < p, |
| 4 | + | If[Or[RandomReal[] < p, Length[Flatten[n]] < 2], |
| 5 | Table[{n -> {n, i}, tree[{n, i}, f]}, {i, f}], {}]]);
| |
| 6 | tree[k_] := | |
| 7 | Map[FromDigits[Flatten@#[[1]], k] -> | |
| 8 | FromDigits[Flatten@#[[2]], k] &, Flatten[tree[{0}, k]]];
| |
| 9 | t = tree[3]; | |
| 10 | GraphPlot[Flatten[t]] |
