Changeset 18da050 in git


Ignore:
Timestamp:
Jul 2, 1999, 11:06:02 AM (24 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
Children:
8c7c71771e971ec336b73a5dde1b7e8b53050848
Parents:
6de26a0e63b1ed1c30b10d4e5574fe8982f9f569
Message:
* moved randomLast from primdec.lib, primitve.lib to random.lib


git-svn-id: file:///usr/local/Singular/svn/trunk@3215 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular/LIB
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Singular/LIB/primdec.lib

    r6de26a0 r18da050  
    1 // $Id: primdec.lib,v 1.35 1999-06-09 12:04:24 Singular Exp $
     1// $Id: primdec.lib,v 1.36 1999-07-02 09:06:00 obachman Exp $
    22////////////////////////////////////////////////////////////////////////////////
    33// primdec.lib                                                                //
    … …  
    1111////////////////////////////////////////////////////////////////////////////////
    1212
    13 version="$Id: primdec.lib,v 1.35 1999-06-09 12:04:24 Singular Exp $";
     13version="$Id: primdec.lib,v 1.36 1999-07-02 09:06:00 obachman Exp $";
    1414info="
    1515LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION
    … …  
    420420   return(0);
    421421}
    422 
    423 
    424 
    425 
    426 proc randomLast(int b)
    427 "USAGE:   randomLast
    428 RETURN:  ideal = maxideal(1) but the last variable exchanged by
    429          a sum of it with a linear random combination of the other
    430          variables
    431 NOTE:
    432 EXAMPLE: example randomLast; shows an example
    433 "
    434 {
    435 
    436   ideal i=maxideal(1);
    437   int k=size(i);
    438   i[k]=0;
    439   i=randomid(i,size(i),b);
    440   ideal ires=maxideal(1);
    441   ires[k]=i[1]+var(k);
    442   return(ires);
    443 }
    444 example
    445 { "EXAMPLE:"; echo = 2;
    446    ring  r = 0,(x,y,z),lp;
    447    ideal i = randomLast(10);
    448    i;
    449 }
    450 
    451 
    452422////////////////////////////////////////////////////////////////////////////////
    453423

  • Singular/LIB/primitiv.lib

    r6de26a0 r18da050  
    1 // $Id: primitiv.lib,v 1.8 1999-04-14 12:11:53 Singular Exp $
     1// $Id: primitiv.lib,v 1.9 1999-07-02 09:06:01 obachman Exp $
    22// author:  Martin Lamm,  email: lamm@mathematik.uni-kl.de
    33// last change:            19.03.99
    … …  
    55// This library is for Singular 1.2 or newer
    66
    7 version="$Id: primitiv.lib,v 1.8 1999-04-14 12:11:53 Singular Exp $";
     7version="$Id: primitiv.lib,v 1.9 1999-07-02 09:06:01 obachman Exp $";
    88info="
    99LIBRARY:    primitiv.lib    PROCEDURES FOR FINDING A PRIMITIVE ELEMENT
    … …  
    1212 primitive_extra(i);   find primitive element for two generators
    1313 splitring(f,R[,L]);   define ring extension with name R and switch to it
    14  randomLast(b);        random transformation of the last variable
    1514";
    1615
    … …  
    1918///////////////////////////////////////////////////////////////////////////////
    2019
    21 proc randomLast(int b)
    22 "USAGE:   randomLast(b);  b int
    23 RETURN:  ideal = maxideal(1), but the last variable is exchanged by
    24          a sum of it with a linear random combination of the other
    25          variables. The coefficients are in the interval [-b,b].
    26 EXAMPLE: example randomLast; shows an example
    27 "
    28 {
    29   ideal i=maxideal(1);
    30   int k=size(i);
    31   i[k]=0;
    32   i=randomid(i,size(i),b);
    33   ideal ires=maxideal(1);
    34   ires[k]=i[1]+var(k);
    35   return(ires);
    36 }
    37 example
    38 { "EXAMPLE:"; echo = 2;
    39    ring  r = 0,(x,y,z),lp;
    40    ideal i = randomLast(10);
    41    i;
    42 }
    4320///////////////////////////////////////////////////////////////////////////////
    4421

  • Singular/LIB/random.lib

    r6de26a0 r18da050  
    1 // $Id: random.lib,v 1.5 1998-05-05 11:55:36 krueger Exp $
     1// $Id: random.lib,v 1.6 1999-07-02 09:06:02 obachman Exp $
    22//system("random",787422842);
    33//(GMG/BM, last modified 22.06.96)
    44///////////////////////////////////////////////////////////////////////////////
    55
    6 version="$Id: random.lib,v 1.5 1998-05-05 11:55:36 krueger Exp $";
     6version="$Id: random.lib,v 1.6 1999-07-02 09:06:02 obachman Exp $";
    77info="
    88LIBRARY:  random.lib    PROCEDURES OF RANDOM MATRIX AND POLY OPERATIONS
    … …  
    1515 sparsepoly(u[,o,p,b]); random sparse polynomial with terms of degree in [u,o]
    1616 sparsetriag(n,m[..]);  nxm sparse lower-triag intmat with random coefficients
     17 randomLast(b);         random transformation of the last variable
    1718           (parameters in square brackets [] are optional)
    1819";
    … …  
    247248}
    248249///////////////////////////////////////////////////////////////////////////////
     250
     251proc randomLast(int b)
     252"USAGE:   randomLast(b);  b int
     253RETURN:  ideal = maxideal(1), but the last variable is exchanged by
     254         a sum of it with a linear random combination of the other
     255         variables. The coefficients are in the interval [-b,b].
     256EXAMPLE: example randomLast; shows an example
     257"
     258{
     259  ideal i=maxideal(1);
     260  int k=size(i);
     261  i[k]=0;
     262  i=randomid(i,size(i),b);
     263  ideal ires=maxideal(1);
     264  ires[k]=i[1]+var(k);
     265  return(ires);
     266}
     267example
     268{ "EXAMPLE:"; echo = 2;
     269   ring  r = 0,(x,y,z),lp;
     270   ideal i = randomLast(10);
     271   i;
     272}
     273///////////////////////////////////////////////////////////////////////////////
Note: See TracChangeset for help on using the changeset viewer.