|
D.2.6.6 defringp
Procedure from library ring.lib (see ring_lib).
- Usage:
defringp(n,[p]); n,p=integers
- Create:
defines a ring with name Pn, characteristic p, ordering dp and n
variables x,y,z,a,b,...if n<=26 (resp. x(1..n) if n>26) and makes it
the basering (default: p=32003)
- Return:
No return value
Example:
| LIB "ring.lib";
defringp(5,0); P5; "";
→ // basering is now: ring P5=0,(x,y,z,a,b),dp;
→ // characteristic : 0
→ // number of vars : 5
→ // block 1 : ordering dp
→ // : names x y z a b
→ // block 2 : ordering C
→
defringp(30); P30;
→ // basering is now: ring P30=32003,x(1..30),dp;
→ // characteristic : 32003
→ // number of vars : 30
→ // block 1 : ordering dp
→ // : names x(1) x(2) x(3) x(4) x(5) x(6) x(7) x(8) x(\
9) x(10) x(11) x(12) x(13) x(14) x(15) x(16) x(17) x(18) x(19) x(20) x(21\
) x(22) x(23) x(24) x(25) x(26) x(27) x(28) x(29) x(30)
→ // block 2 : ordering C
kill P5, P30;
if(system("with","Namespaces")) {
if( nameof(Current) == "Ring" ) {
kill Top::P5,Top::P30;
} else {
kill Ring::P5,Ring::P30;
}
}
|
|