Select Code to Download

        # Now recursively generate the ternary tree.
        # (Note that the terms are the same in each branch except for 
+sign.)
...
        $j = -2*$a +   $b + 2*$h;
        $k = -2*$a + 2*$b + 3*$h;
        &generate($i,$j,$k);

        # Now recursively generate the ternary tree.
        # (Note that the terms are the same in each branch except for 
+sign.)
...
        $j = -$a2 + $b  + $h2;
        $k = -$a2 + $b2 + $h3;
        &generate($i,$j,$k);