Changeset 723ca79 in git
 Timestamp:
 Apr 14, 2009, 6:33:10 PM (14 years ago)
 Branches:
 (u'jengelhdatetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
 Children:
 4aa8a1a711be6cea1b8d81a90de46c68bbbc29f8
 Parents:
 6397acf071df06b7c653e9e2824e5503fd696645
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

Singular/LIB/graphics.lib
r6397ac r723ca79 1 1 //last change: 13.02.2001 (Eric Westenberger) 2 2 /////////////////////////////////////////////////////////////////////////////// 3 version="$Id: graphics.lib,v 1.1 4 20090406 12:39:02 seelischExp $";3 version="$Id: graphics.lib,v 1.15 20090414 16:33:10 Singular Exp $"; 4 4 category="Visualization"; 5 5 info=" 6 LIBRARY: graphics.lib Procedures for graphical output usingMathematica6 LIBRARY: graphics.lib Procedures to use Graphics with Mathematica 7 7 AUTHOR: Christian Gorzel, gorzelc@math.unimuenster.de 8 8 9 9 PROCEDURES: 10 staircase( I);Mathematica text for displaying staircase of I10 staircase(fname,I); Mathematica text for displaying staircase of I 11 11 mathinit(); string for loading Mathematica's ImplicitPlot 12 12 mplot(fname,I[# s]); Mathematica text for various plots … … 15 15 /////////////////////////////////////////////////////////////////////////////// 16 16 17 proc staircase( ideal I)18 "USAGE: staircase( I); I anideal in two variables17 proc staircase(string fname,ideal I) 18 "USAGE: staircase(s,I); s a string, I ideal in two variables 19 19 RETURN: string with Mathematica input for displaying staircase diagrams of an 20 20 ideal I, i.e. exponent vectors of the initial ideal of I 21 NOTE: ideal I should be given by a standard basis. Copy and21 NOTE: ideal I should be given by a standard basis. Let s=\"\" and copy and 22 22 paste the result into a Mathematica notebook. 23 23 EXAMPLE: example staircase; shows an example … … 64 64 ring r0 = 0,(x,y),ls; 65 65 ideal I = 1x2y61x4y2, 7x6y5+1/2x7y4+6x4y6; 66 staircase( std(I));66 staircase("",std(I)); 67 67 68 68 ring r1 = 0,(x,y),dp; 69 69 ideal I = fetch(r0,I); 70 staircase( std(I));70 staircase("",std(I)); 71 71 72 72 ring r2 = 0,(x,y),wp(2,3); 73 73 ideal I = fetch(r0,I); 74 staircase( std(I));74 staircase("",std(I)); 75 75 76 76 // Paste the output into a Mathematica notebook
Note: See TracChangeset
for help on using the changeset viewer.