Changeset 09b2b1a in git for Singular/LIB/spectrum.lib


Ignore:
Timestamp:
Mar 6, 2002, 3:22:12 PM (21 years ago)
Author:
Mathias Schulze <mschulze@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
ec93f1c1322989965789c2b3ffdae40d5ba12b59
Parents:
a5d1493a2876da1d7012bb99d6f928eaf57d917d
Message:
*mschulze: spadd, spmult moved to gaussman.lib


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/spectrum.lib

    ra5d1493 r09b2b1a  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: spectrum.lib,v 1.16 2001-08-27 14:48:00 Singular Exp $";
     2version="$Id: spectrum.lib,v 1.17 2002-03-06 14:22:12 mschulze Exp $";
    33category="Singularities";
    44info="
    … …  
    6969}
    7070///////////////////////////////////////////////////////////////////////////////
    71 
    72 proc spadd(list s1, list s2)
    73 "USAGE:   spadd(s1,s2); list s1, s2
    74 RETURN:  a list containing the sum of the two spectra s1 and s2
    75 EXAMPLE: example spadd; shows an example
    76 "
    77 {
    78   return (system("spadd",s1,s2));
    79 }
    80 example
    81 { "EXAMPLE:"; echo = 2;
    82   ring r=0,(x,y),ds;
    83   list s1=spectrumnd(x5+x2y2+y5);
    84   s1;
    85   list s2=spectrumnd(x2+y3);
    86   s2;
    87   spadd(s1,s2);
    88 }
    89 ///////////////////////////////////////////////////////////////////////////////
    90 
    91 proc spmul(list s, int k)
    92 "USAGE:   spmul(s,k); list s, int k
    93 RETURN:  a list containing the product of the spectrum s with the integer k
    94 EXAMPLE: example spmul; shows an example
    95 "
    96 {
    97   return (system("spmul",s,k));
    98 }
    99 example
    100 { "EXAMPLE:"; echo = 2;
    101   ring r=0,(x,y),ds;
    102   list s=spectrumnd(x5+x2y2+y5);
    103   s;
    104   spmul(s,2);
    105 >>>>>>> 1.12.2.1
    106 }
    107 ///////////////////////////////////////////////////////////////////////////////
Note: See TracChangeset for help on using the changeset viewer.