Changeset 7956ecc in git

Timestamp:

Sep 21, 1999, 2:29:29 PM (25 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

9f8d5d3ce9044926152c6915b3b05def5c0129a8

Parents:

ca18d3b3adb9e51465a8bcaaa281c41f87c41d85

Message:

* renamed plot to mplot to avoid name conflickts with polt from
  surf.lib


git-svn-id: file:///usr/local/Singular/svn/trunk@3629 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/graphics.lib (modified) (8 diffs)

Singular/LIB/graphics.lib

@@ -1 @@
-// $Id: graphics.lib,v 1.4 1999-07-06 15:32:47 Singular Exp $
+// $Id: graphics.lib,v 1.5 1999-09-21 12:29:29 obachman Exp $
 //
 // author : Christian Gorzel email: gorzelc@math.uni-muenster.de
 //
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: graphics.lib,v 1.4 1999-07-06 15:32:47 Singular Exp $";
+version="$Id: graphics.lib,v 1.5 1999-09-21 12:29:29 obachman Exp $";
 info="
 LIBRARY: graphics.lib    PROCEDURES FOR GRAPHICS WITH MATHEMATICA
@@ -11 +11 @@
  staircase(fname,I);  Mathematica text for displaying staircase of I
  mathinit();          string for loading Mathematica's ImplicitPlot
- plot(fname,I[# s]);  Mathematica text for various plots
+ mplot(fname,I[# s]);  Mathematica text for various plots
 ";
 
@@ -151 +151 @@
 
 ///////////////////////////////////////////////////////////////////////////////
-proc  plot(string fname,ideal I,list #)
-"USAGE:   plot(I[,#]); fname string; I ideal , # strings representing the
+proc  mplot(string fname,ideal I,list #)
+"USAGE:   mplot(I[,#]); fname string; I ideal , # strings representing the
                          plot region or further ideals
 RETURN:  string, text with Mathematica commands to display a plot
@@ -169 +169 @@
           an implicit curve given as  f == 0
 
-EXAMPLE: example plot; shows an example
+EXAMPLE: example mplot; shows an example
 "
 {
@@ -336 +336 @@
    ideal I = x1^3 + x1, x1^2;
    ideal J = x1^2,-x1+x1^3; "";
-   plot("",J); "";
-   plot("",I,"-2,2",J);
+   mplot("",J); "";
+   mplot("",I,"-2,2",J);
 
    ring rr1 = 0,x,dp;  export rr1;
    ideal I(1) = 2x2-1/2x3 +1, x-1;
    ideal I(2) = x3-x ,x; "";
-   plot("",I(1),I(2),"-2,4");
+   mplot("",I(1),I(2),"-2,4");
 
  // Paste the output into a Mathematica notebook
@@ -351 +351 @@
    I(1) = x3,-1/10x3+x2,x2;
    I(2) = x2,-x2+2,-2x2-x+1; "";
-   plot("",I(1),I(2));
+   mplot("",I(1),I(2));
 
  // Paste the output into a Mathematica notebook
@@ -371 +371 @@
 
    poly f = (x-y)*(x2+y);
-   plot("",f); "";
+   mplot("",f); "";
    ideal J = jacob(f);
    J; "";
-   plot("",J[1],J[2]);     // bad resolution
+   mplot("",J[1],J[2]);     // bad resolution
    "";
-   plot("",J[1],J[2],"-10,10","-10,10");  // get better picture in this way
-
-   plot("",I(1),I(2),"-2.5,2.5"); "";
-
-   plot("",I(3),"-2,2");
+   mplot("",J[1],J[2],"-10,10","-10,10");  // get better picture in this way
+
+   mplot("",I(1),I(2),"-2.5,2.5"); "";
+
+   mplot("",I(3),"-2,2");
 
  // Paste the output into a Mathematica notebook
@@ -392 +392 @@
 
    ideal J(2) = xy,y,x2; "";
-   plot("",J(1),"-2,1","1,2");  "";
-   plot("",J(2),"-1.5,1.5","-2,2");
+   mplot("",J(1),"-2,1","1,2");  "";
+   mplot("",J(2),"-1.5,1.5","-2,2");
 
  // Paste the output into a Mathematica notebook