Changeset b3e45f in git


Ignore:
Timestamp:
Feb 6, 2009, 4:16:17 PM (15 years ago)
Author:
Martin Monerjan
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
9bb97ef0a0e640ba336498902b874a16dc7b978e
Parents:
50ab25a42bd6c030a238eab6104c61f1242e474c
Message:
*** empty log message ***


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r50ab25a rb3e45f  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.290 2009-02-06 07:54:11 monerjan Exp $ */
     4/* $Id: extra.cc,v 1.291 2009-02-06 15:16:16 monerjan Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    30753075ideal I=((ideal)h->Data());
    30763076res->rtyp=IDEAL_CMD;
    3077 /*
    3078  to do:
    3079  create ../kernel/gfan.h & ../kernel/gfan.cc
    3080  #include "gfan.h"
    3081 
    3082 res->data=(void*) gfan(I); //needs to be included
    3083 */
     3077res->data=(ideal) gfan(I);
    30843078       
    30853079return FALSE; //Everything went fine   
  • kernel/gfan.cc

    r50ab25a rb3e45f  
     1/*
     2Compute the Gröbner fan of an ideal
     3*/
     4
    15#include "mod2.h"
    26#include "kstd1.h"
    37#include "intvec.h"
    48
    5 int getGB(ideal inputIdeal){
    6 //kStd(inputIdeal);
     9#ifndef gfan_DEBUG
     10#define gfan_DEBUG
     11#endif
     12
     13ideal getGB(ideal inputIdeal){
     14        ideal gb;
     15        gb=kStd(inputIdeal,NULL,testHomog,NULL); //Possible to call without testHomog/isHomog?
     16                                                // Why are 64 "results" printed?
     17        #ifdef gfan_DEBUG
     18        printf("Now in getGB\n");
     19        #endif
     20        return gb;
    721}
    822
     23ideal gfan(ideal inputIdeal){
     24        #ifdef gfan_DEBUG
     25        printf("Now in subroutine gfan\n");
     26        #endif
     27        ideal res;
     28        res=getGB(inputIdeal);
     29        return res;
     30}
     31
  • kernel/gfan.h

    r50ab25a rb3e45f  
    22
    33ideal getGB(ideal inputIdeal);
     4ideal gfan(ideal inputIdeal);
Note: See TracChangeset for help on using the changeset viewer.