Changeset 75f460 in git for Tst/Short/graphics.tst
- Timestamp:
- Dec 16, 2014, 3:43:21 PM (9 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38077648e7239f98078663eb941c3c979511150a')
- Children:
- fce947c9e6c3e8c6d5a622c7f6b0d724580993cc
- Parents:
- a2e4470c6e9a666de8ab7b706370c15e13092f76
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Tst/Short/graphics.tst
ra2e447 r75f460 2 2 LIB "graphics.lib"; 3 3 4 tst_init(); 4 tst_init(); 5 5 6 6 // test staircase … … 8 8 ring r0 = 0,(x,y),ls; 9 9 ideal I = -1x2y6-1x4y2, 7x6y5+1/2x7y4+6x4y6; 10 staircase("",std(I)); 10 staircase("",std(I)); 11 11 ring r1 = 0,(x,y),dp; 12 12 ideal I = fetch(r0,I); … … 20 20 21 21 // test mplot 22 ring rr0 = 0,x1,dp; 22 ring rr0 = 0,x1,dp; 23 23 ideal I = x1^3 + x1, x1^2; 24 24 ideal J = x1^2,-x1+x1^3; ""; … … 26 26 mplot("",I,"-2,2",J); 27 27 28 ring rr1 = 0,x,dp; 28 ring rr1 = 0,x,dp; 29 29 ideal I(1) = 2x2-1/2x3 +1, x-1; 30 ideal I(2) = x3-x ,x; 30 ideal I(2) = x3-x ,x; 31 31 mplot("",I(1),I(2),"-2,4"); 32 32 I(1) = x3,-1/10x3+x2,x2; 33 I(2) = x2,-x2+2,-2x2-x+1; 33 I(2) = x2,-x2+2,-2x2-x+1; 34 34 mplot("",I(1),I(2)); 35 35 36 ring rr = 0,(x,y),ds; 36 ring rr = 0,(x,y),ds; 37 37 ideal I(1) = y,-x2; 38 ideal I(2) = x2,-y2 +4; 39 ideal I(3) = x4+2x2y2 + y4, x2-y2; 38 ideal I(2) = x2,-y2 +4; 39 ideal I(3) = x4+2x2y2 + y4, x2-y2; 40 40 poly f = (x-y)*(x2+y); 41 mplot("",f); 41 mplot("",f); 42 42 ideal J = jacob(f); 43 J; 44 mplot("",J[1],J[2]); 45 mplot("",J[1],J[2],"-10,10","-10,10"); 46 mplot("",I(1),I(2),"-2.5,2.5"); 43 J; 44 mplot("",J[1],J[2]); 45 mplot("",J[1],J[2],"-10,10","-10,10"); 46 mplot("",I(1),I(2),"-2.5,2.5"); 47 47 mplot("",I(3),"-2,2"); 48 48 ideal J(1) = 3xy4 + 2xy2, x5y3 + x + y6,10x2; 49 49 ideal J(2) = xy,y,x2; ""; 50 mplot("",J(1),"-2,1","1,2"); 50 mplot("",J(1),"-2,1","1,2"); 51 51 mplot("",J(2),"-1.5,1.5","-2,2"); 52 52
Note: See TracChangeset
for help on using the changeset viewer.