| version 1.16, 2010/07/12 07:01:04 |
version 1.17, 2010/07/12 07:20:03 |
|
|
| /* $OpenXM: OpenXM/src/asir-contrib/testing/noro/ndbf.rr,v 1.15 2010/06/19 08:32:37 noro Exp $ */ |
/* $OpenXM: OpenXM/src/asir-contrib/testing/noro/ndbf.rr,v 1.16 2010/07/12 07:01:04 noro Exp $ */ |
| /* requires 'primdec' */ |
/* requires 'primdec' */ |
| |
|
| #define TMP_H hhhhhhhh |
#define TMP_H hhhhhhhh |
|
|
| { |
{ |
| if ( member(s,vars(F)) ) |
if ( member(s,vars(F)) ) |
| error("ann : the variable 's' is reserved."); |
error("ann : the variable 's' is reserved."); |
| |
if ( type(Vord=getopt(vord)) == -1 ) Vord = 0; |
| F = ptozp(F); |
F = ptozp(F); |
| V = vars(F); |
V = vars(F); |
| |
if ( Vord ) { |
| |
Param = setminus(V,Vord); |
| |
V = Vord; |
| |
} |
| N = length(V); |
N = length(V); |
| D = newvect(N); |
D = newvect(N); |
| if ( type(Wt=getopt(weight)) == -1 ) |
if ( type(Wt=getopt(weight)) == -1 ) |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ndbf.rr CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / asir-contrib / testing / noro