Changeset 663eb45 in git

Timestamp:

Nov 25, 1999, 12:40:00 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

b9ce2a5eabe5f00663bb9ef2e4e9ca761079d6dd

Parents:

6171f8981338ed758a299513c58c53a874f984ed

Message:

* hannes: semic


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

File:

• Singular/LIB/spectrum.lib (modified) (2 diffs)

Singular/LIB/spectrum.lib

@@ -1 @@
-// $Id: spectrum.lib,v 1.1 1999-11-24 18:13:23 Singular Exp $
+// $Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp $
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: spectrum.lib,v 1.1 1999-11-24 18:13:23 Singular Exp $";
+version="$Id: spectrum.lib,v 1.2 1999-11-25 11:40:00 Singular Exp $";
 info="
 LIBRARY:  spectrum.lib   PROCEDURES FOR COMPUTING SPECTRA
@@ -28 +28 @@
 }
 ///////////////////////////////////////////////////////////////////////////////
+
+proc semic (list s, list ss, list #)
+"USAGE:   semic(s,ss[,i]);  s, ss spectra, i int
+RETURN:  int
+EXAMPLE: example semic; shows examples
+"
+{
+  if(size(#)==0)
+  {  return(system("semic",s,ss)); }
+  return (system("semic",s,ss,#[1]);
+}
+example
+{ "EXAMPLE:"; echo = 2;
+}
+///////////////////////////////////////////////////////////////////////////////
+proc semicsqh (list s, list ss)
+"USAGE:   semicsqh(s,ss);  s, ss spectra, i int
+RETURN:  int
+EXAMPLE: example semicsqh; shows examples
+"
+{
+  return (system("semic",s,ss,1);
+}
+example
+{ "EXAMPLE:"; echo = 2;
+}
+///////////////////////////////////////////////////////////////////////////////