Changeset 1dd66f in git
- Timestamp:
- Jun 19, 1998, 6:13:38 PM (26 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 904317a377cff8d8fcedebd9e593ae71f5270bba
- Parents:
- 96d556df366fc882c587e88f3afe97fd3886b570
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Tst/Short/graphics.tst
r96d556d r1dd66f 3 3 4 4 tst_init(); 5 tst_ignore("CVS ID $Id: graphics.tst,v 1. 1 1998-05-17 17:38:17 obachmanExp $");5 tst_ignore("CVS ID $Id: graphics.tst,v 1.2 1998-06-19 16:13:38 gorzel Exp $"); 6 6 7 7 // test staircase … … 9 9 ring r0 = 0,(x,y),ls; 10 10 ideal I = -1x2y6-1x4y2, 7x6y5+1/2x7y4+6x4y6; 11 staircase( std(I));11 staircase("",std(I)); 12 12 ring r1 = 0,(x,y),dp; 13 13 ideal I = fetch(r0,I); 14 staircase( std(I));14 staircase("",std(I)); 15 15 ring r2 = 0,(x,y),wp(2,3); 16 16 ideal I = fetch(r0,I); 17 staircase( std(I));17 staircase("",std(I)); 18 18 19 19 // test math.init … … 24 24 ideal I = x1^3 + x1, x1^2; 25 25 ideal J = x1^2,-x1+x1^3; ""; 26 plot( J);27 plot( I,"-2,2",J);26 plot("",J); 27 plot("",I,"-2,2",J); 28 28 29 29 ring rr1 = 0,x,dp; 30 30 ideal I(1) = 2x2-1/2x3 +1, x-1; 31 31 ideal I(2) = x3-x ,x; 32 plot( I(1),I(2),"-2,4");32 plot("",I(1),I(2),"-2,4"); 33 33 I(1) = x3,-1/10x3+x2,x2; 34 34 I(2) = x2,-x2+2,-2x2-x+1; 35 plot( I(1),I(2));35 plot("",I(1),I(2)); 36 36 37 37 ring rr = 0,(x,y),ds; … … 40 40 ideal I(3) = x4+2x2y2 + y4, x2-y2; 41 41 poly f = (x-y)*(x2+y); 42 plot( f);42 plot("",f); 43 43 ideal J = jacob(f); 44 44 J; 45 plot( J[1],J[2]);46 plot( J[1],J[2],"-10,10","-10,10");47 plot( I(1),I(2),"-2.5,2.5");48 plot( I(3),"-2,2");45 plot("",J[1],J[2]); 46 plot("",J[1],J[2],"-10,10","-10,10"); 47 plot("",I(1),I(2),"-2.5,2.5"); 48 plot("",I(3),"-2,2"); 49 49 ideal J(1) = 3xy4 + 2xy2, x5y3 + x + y6,10x2; 50 50 ideal J(2) = xy,y,x2; ""; 51 plot( J(1),"-2,1","1,2");52 plot( J(2),"-1.5,1.5","-2,2");51 plot("",J(1),"-2,1","1,2"); 52 plot("",J(2),"-1.5,1.5","-2,2"); 53 53 $ 54 54
Note: See TracChangeset
for help on using the changeset viewer.