Line | |
---|
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.