Ticket #290: bug-map

File bug-map, 252 bytes (added by decker, 13 years ago)
Line 
1ring r = (real,10), (a,b), dp;
2poly f = 33375/100*b6 + a2*(11a2b2 - b6 - 121b4 - 2) + 55/10*b8 + a/(2*33096);
3def bas = basering;
4ideal m = 77617,33096;
5map phi = bas,m;
6phi(f);
7//0
8poly g = subst(f,a,77617);
9g = subst(g,b,33096);
10g;
11-0.1204879738e+11