fieker-DuValspielwiese
Last change
on this file since 352a84b was
37f64cb,
checked in by Hans Schoenemann <hannes@…>, 10 years ago
|
fix: tr.#666: factorize
|
-
Property mode set to
100644
|
File size:
1.1 KB
|
Line | |
---|
1 | LIB "tst.lib"; |
---|
2 | tst_init(); |
---|
3 | |
---|
4 | // crash in facstd |
---|
5 | ring rng = 0,(a,r,y),lp; |
---|
6 | poly p=6763616388584366290648652046285691885594719724484472677309067264*r^2*y^2+5616999569898991479992807300802768920480756763027097521792000*a*r^2+1050905118785452282040368026432133723545990009331408295328000*a*y^2-378248727358308274080089594834896733059240357823039256248832000*a*r-43795857712240130488266504457125439820697371495662950934118400*r^2+163608941118646318307735934187520770159341773821249395906304000*a*y-1383134913264626178000864299239489233754982546453584186923676695*r*y-8193928177961412469433834405468925934995237937223882602905600*y^2+6367810121611767869542652053169469048067998622661953832698368000*a+3060511954662984730857438584651174062043423348932519514115312600*r-1323803846427854727025115717070654476174511088889047788918539700*y-53393508486383251995558861009165600389691795190142441598706117200 |
---|
7 | ; |
---|
8 | factorize(p); |
---|
9 | |
---|
10 | // original: |
---|
11 | LIB "primdec.lib"; |
---|
12 | ring rr = 0,(a,v,r,i),lp; |
---|
13 | ideal I = -12887/7110*v*r*i-631/1586*r+2951/17148*i+17517/1309,7105/28944*a^2*r-3248/1697*a*r,12162/10079*a*r*i-6247/8857*v-24273/12616; |
---|
14 | list L = minAssGTZ (I) ; |
---|
15 | L; |
---|
16 | tst_status(1);$ |
---|
Note: See
TracBrowser
for help on using the repository browser.