Changeset 4c4b1e in git

Timestamp:

Jun 20, 2005, 12:18:00 PM (19 years ago)

Author:

Nadine Cremer <cremer@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a789a77f2c934f249a3b434af544b7331a5d7793

Parents:

3a0947fcc2cb8cd5acf7fc5405428c13e6af1280

Message:

*cremer:plugging in works


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

File:

• Singular/LIB/lejeune.lib (modified) (6 diffs)

Singular/LIB/lejeune.lib

@@ -1 +1 @@
 
 //-*- mode:C++;-*-
-// $Id: lejeune.lib,v 1.2 2005-06-20 10:02:16 cremer Exp $
+// $Id: lejeune.lib,v 1.3 2005-06-20 10:18:00 cremer Exp $
 
 info="
@@ -11 +11 @@
     variables(k,i);      creates k*i new var. t,a(1),..,a(i),..,x(1),..,x(i)
     a_z(k);            returns kth letter of the alphabet
-    series(k,i);        creates polyn. a(1)*t+..+a(n)*t^n
+    tpolys(k,i);        creates polyn. a(1)*t+..+a(n)*t^n
   ";
 
@@ -19 +19 @@
 
 
-proc tpolys (int i,poly f)
+proc plugin_coeffs (int i,poly f)
 {
   def r=basering;
@@ -27 +27 @@
   def R=changevar(""+varstr(r)+",t,"+variables(k,i)+"");
   setring R;
-  ideal I=series(i,k);
+  ideal I=tpolys(i,k);
   poly g=imap(r,f);
   map h=r,I;
   ideal J=h(f);
   matrix output=coeffs(J[1],t);
-  output;
   keepring R;
-  return();
+  return(output);
 }
 
@@ -63 +62 @@
 
 
-proc a_z (int n);                       // returns nth letter of the alphabet
+proc a_z (int n)                      // returns nth letter of the alphabet
 { 
   if((n<1)||(n>26))                     // input admissible?
@@ -77 +76 @@
 
 
-proc series (int i,int k)             // constructs polynomials a(1)*t+... 
+proc tpolys (int i,int k)             // constructs polynomials a(1)*t+... 
 {                                     // has to be called from tpolys
   int s,t;                             // loop variables