Rev | Line | |
---|
[37] | 1 | function all_monoms = monpowers(n,d) |
---|
| 2 | |
---|
| 3 | if max(d)==0 |
---|
| 4 | all_monoms = []; |
---|
| 5 | else |
---|
| 6 | all_monoms = fliplr(eye(n)); |
---|
| 7 | last_monoms = all_monoms; |
---|
| 8 | end |
---|
| 9 | |
---|
| 10 | for degrees = 1:1:d-1 |
---|
| 11 | new_last_monoms = []; |
---|
| 12 | for variable = 1:n |
---|
| 13 | temp = last_monoms; |
---|
| 14 | temp(:,variable) = temp(:,variable)+1; |
---|
| 15 | new_last_monoms = [new_last_monoms;temp]; |
---|
| 16 | % all_monoms = [all_monoms;temp]; |
---|
| 17 | end |
---|
| 18 | last_monoms = unique(new_last_monoms,'rows'); |
---|
| 19 | all_monoms = [all_monoms;last_monoms]; |
---|
| 20 | %all_monoms = unique(all_monoms,'rows'); |
---|
| 21 | end |
---|
| 22 | |
---|
| 23 | all_monoms = [zeros(1,n);all_monoms]; |
---|
| 24 | all_monoms = fliplr(all_monoms); |
---|
Note: See
TracBrowser
for help on using the repository browser.