source: git/libfac/test.cc @ 341696

spielwiese
Last change on this file since 341696 was 341696, checked in by Hans Schönemann <hannes@…>, 14 years ago
Adding Id property to all files git-svn-id: file:///usr/local/Singular/svn/trunk@12231 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.5 KB
Line 
1//static char rcsid[] = "$Id$";
2///////////////////////////////////////////////////////////////////////////////
3// Factor - Includes
4#include "factor.h"
5#ifdef HAVE_IOSTREAM
6#include <iostream>
7#define CERR std::cerr
8#define COUT std::cout
9#define CIN std::cin
10#elif defined(HAVE_IOSTREAM_H)
11#include <iostream.h>
12#define CERR cerr
13#define COUT cout
14#define CIN cin
15#endif
16
17
18
19void
20setVarNames ( char * vnames )
21{
22    int i, n = strlen( vnames );
23    Variable dummy;
24    for ( i = 0; i < n; i++ )
25        dummy = Variable( i+1, vnames[i] );
26}
27
28main()
29{
30    CanonicalForm f,g;
31    int charac;
32    CFFList Factorlist;
33    CFFactor copy;
34
35COUT << libfac_name  <<", Version " << libfac_version << "\n";
36//    COUT << " Characteristic = ";
37    CIN >> charac;
38    setCharacteristic(charac);
39    On(SW_SYMMETRIC_FF);
40    On(SW_USE_EZGCD);
41//////////////////////////////////////////////////////////////
42//  char vnames[30];
43////  cout << " vnames = ";
44//  cin >> vnames;
45//
46//  setVarNames( vnames );
47//
48//////////////////////////////////////////////////////////////
49//    COUT << " f = ";
50    CIN >> f;
51    COUT << f  << " mod " << charac << " = " ;
52    Factorlist= Factorize( f,0 );
53     COUT << Factorlist ;//<< "\n";
54// Ueberpruefen:
55    g=1;
56    for ( CFFListIterator i=Factorlist ; i.hasItem(); i++){
57        copy = i.getItem();
58        if ( getNumVars(copy.factor()) > 0 )
59             for ( int j=1; j<=copy.exp(); j++)
60             g *= copy.factor();
61        else g *= copy.factor();
62    }
63    if ( (f-g) != f.genZero() ){
64        CERR << "\nList and f differ: f= " << f << "  g= " << g << "\n";
65    }
66}
Note: See TracBrowser for help on using the repository browser.