1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#
# jruby examples for jas.
# $Id$
#
require "examples/jas"
# polynomial examples: subring
#r = PolyRing.new( ZM(1152921504606846883), "(x,y,z)", PolyRing.lex );
#r = PolyRing.new( CC(), "(x,y,z)", PolyRing.lex );
#r = PolyRing.new( ZZ(), "(x,y,z)", PolyRing.lex );
r = PolyRing.new( QQ(), "x,y,z", PolyRing.lex );
puts "Ring: " + str(r);
puts;
#one,x,y,z = r.gens();
a = r.random(3,4);
b = r.random(2,3);
c = r.random(3,3).abs();
puts "a = " + str(a);
puts "b = " + str(b);
puts "c = " + str(c);
puts;
t = System.currentTimeMillis();
dd = r.subring("", [a,b,c]);
t = System.currentTimeMillis() - t;
puts "sub ring = " + str(dd.map{ |a| a.elem.to_s });
puts;
puts "subring time = " + str(t) + " milliseconds" ;
puts;
cc = a + b * c;
tt = r.subringmember(dd, cc);
puts "sub ring member = " + str(tt);
puts;
#startLog();
terminate();
|
