Changeset 300a34 in git


Ignore:
Timestamp:
Jun 18, 1998, 7:38:08 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
Children:
f22a086cfc33fa7bf2cfda6b3c231ed4d83a7d1a
Parents:
bcd557076fb2b1e3c38619431228c473f71829e7
Message:
* hannes: fixed help text for standard.lib


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

Legend:

Unmodified
Added
Removed

  • Singular/LIB/standard.lib

    rbcd557 r300a34  
    1 // $Id: standard.lib,v 1.21 1998-06-18 17:32:13 Singular Exp $
     1// $Id: standard.lib,v 1.22 1998-06-18 17:38:08 Singular Exp $
    22//////////////////////////////////////////////////////////////////////////////
    33
    4 version="$Id: standard.lib,v 1.21 1998-06-18 17:32:13 Singular Exp $";
     4version="$Id: standard.lib,v 1.22 1998-06-18 17:38:08 Singular Exp $";
    55info="
    66LIBRARY: standard.lib   PROCEDURES WHICH ARE ALWAYS LOADED AT START-UP
    … …  
    461461
    462462proc quotient (any m1,any m2,list L)
    463 USAGE:   quotient(m1, m2[, n]); m1, m2 two submodules of k^s,
     463"USAGE:   quotient(m1, m2[, n]); m1, m2 two submodules of k^s,
    464464         n (optional) integer (1<= n <=5)
    465465RETURN:  the quotient of m1 and m2
    466 EXAMPLE: example quot; shows an example
     466EXAMPLE: example quot; shows an example"
    467467{
    468468  if (((typeof(m1)!="ideal") and (typeof(m1)!="module"))
    … …  
    506506
    507507static proc quot1 (module m1, module m2,int n)
    508 USAGE:   quot1(m1, m2, n); m1, m2 two submodules of k^s,
     508"USAGE:   quot1(m1, m2, n); m1, m2 two submodules of k^s,
    509509         n integer (1<= n <=5)
    510510RETURN:  the quotient of m1 and m2
    511 EXAMPLE: example quot; shows an example
     511EXAMPLE: example quot; shows an example"
    512512{
    513513  if (n==1)
    … …  
    515515    return(quotient1(m1,m2));
    516516  }
    517   else 
    518   {   
     517  else
     518  {
    519519    if (n==2)
    520520    {
    521521      return(quotient2(m1,m2));
    522522    }
    523     else 
    524     { 
     523    else
     524    {
    525525      if (n==3)
    526526      {
    527527        return(quotient3(m1,m2));
    528528      }
    529       else 
    530       { 
     529      else
     530      {
    531531        if (n==4)
    532532        {
    533533          return(quotient4(m1,m2));
    534534        }
    535         else 
    536         { 
     535        else
     536        {
    537537          if (n==5)
    538538          {
    … …  
    546546      }
    547547    }
    548   } 
     548  }
    549549}
    550550example
    … …  
    562562}
    563563
    564 static proc quotient0(module a,module b) 
     564static proc quotient0(module a,module b)
    565565{
    566566  module mm=b+a;
    … …  
    573573}
    574574proc quotient1(module a,module b)  //17sec
    575 USAGE:   quotient1(m1, m2); m1, m2 two submodules of k^s,
    576 RETURN:  the quotient of m1 and m2
     575"USAGE:   quotient1(m1, m2); m1, m2 two submodules of k^s,
     576RETURN:  the quotient of m1 and m2"
    577577{
    578578  int i;
    … …  
    585585     re=intersect1(re,quot(a,module(B[i])));
    586586  }
    587   return(re);   
     587  return(re);
    588588}
    589589proc quotient2(module a,module b)    //13sec
    590 USAGE:   quotient2(m1, m2); m1, m2 two submodules of k^s,
    591 RETURN:  the quotient of m1 and m2
     590"USAGE:   quotient2(m1, m2); m1, m2 two submodules of k^s,
     591RETURN:  the quotient of m1 and m2"
    592592{
    593593  a=std(a);
    … …  
    619619    i = i-1;
    620620  }
    621   return(re);   
     621  return(re);
    622622}
    623623proc quotient3(module a,module b)   //89sec
    624 USAGE:   quotient3(m1, m2); m1, m2 two submodules of k^s,
     624"USAGE:   quotient3(m1, m2); m1, m2 two submodules of k^s,
    625625         only for global rings
    626 RETURN:  the quotient of m1 and m2
     626RETURN:  the quotient of m1 and m2"
    627627{
    628628  string s="ring @newr=("+charstr(basering)+
    … …  
    642642  setring @newP;
    643643  ideal re=imap(@newr,re);
    644   return(re);   
     644  return(re);
    645645}
    646646proc quotient5(module a,module b)   //89sec
    647 USAGE:   quotient5(m1, m2); m1, m2 two submodules of k^s,
     647"USAGE:   quotient5(m1, m2); m1, m2 two submodules of k^s,
    648648         only for global rings
    649 RETURN:  the quotient of m1 and m2
     649RETURN:  the quotient of m1 and m2"
    650650{
    651651  string s="ring @newr=("+charstr(basering)+
    … …  
    666666  setring @newP;
    667667  ideal re=imap(@newr,re);
    668   return(re);   
     668  return(re);
    669669}
    670670proc quotient4(module a,module b)   //95sec
    671 USAGE:   quotient4(m1, m2); m1, m2 two submodules of k^s,
     671"USAGE:   quotient4(m1, m2); m1, m2 two submodules of k^s,
    672672         only for global rings
    673 RETURN:  the quotient of m1 and m2
     673RETURN:  the quotient of m1 and m2"
    674674{
    675675  string s="ring @newr=("+charstr(basering)+
    … …  
    689689  setring @newP;
    690690  ideal re=imap(@newr,re);
    691   return(re);   
     691  return(re);
    692692}
    693693static proc intersect1(ideal i,ideal j)
    … …  
    702702  return(phi(j));
    703703}
    704  
     704
    705705/*
    706706proc minres(list #)
Note: See TracChangeset for help on using the changeset viewer.