Changeset 61197f in git


Ignore:
Timestamp:
Oct 29, 2009, 4:55:50 PM (15 years ago)
Author:
Martin Monerjan
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
3b9cf64cc4481c348f8e1d222c5e90f75390d920
Parents:
7d60f7ef29be846d8ebb02dd71d5c04294bc7831
Message:
gfan parameters


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

Legend:

Unmodified
Added
Removed
  • Singular/extra.cc

    r7d60f7 r61197f  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.327 2009-10-21 15:36:00 seelisch Exp $ */
     4/* $Id: extra.cc,v 1.328 2009-10-29 15:55:50 monerjan Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    34763476/*======== GFAN ==============*/
    34773477/*
    3478 WILL HAVE TO CHANGE RETURN TYPE TO LIST_CMD
     3478 WILL HAVE TO CHANGE RETURN TYPE TO LIST_CMD
    34793479*/
    34803480if (strcmp(sys_cmd,"gfan")==0)
    34813481{
    3482         if ((h==NULL) || (h!=NULL && h->Typ()!=IDEAL_CMD))
    3483         {
    3484                 Werror("system(\"gfan\"...) Ideal expected");
    3485                 return TRUE; //Ooooops
    3486         }
    3487 ideal I=((ideal)h->Data());
    3488 res->rtyp=IDEAL_CMD;
    3489 res->data=(ideal) gfan(I);
     3482//         if ((h==NULL) || (h!=NULL && h->Typ()!=IDEAL_CMD))
     3483//         {
     3484//                 Werror("system(\"gfan\"...) Ideal expected");
     3485//                 return TRUE; //Ooooops
     3486//         }
     3487//      else if(h->next==NULL)
     3488//      {
     3489//              Werror("gfan expects an integer parameter");
     3490//              return TRUE;
     3491//      }
     3492//      else if(h->next!=NULL && h->next->Typ()!=INT_CMD)
     3493//      {
     3494//              Werror("1st parameter ist no integer");
     3495//              return TRUE;
     3496//      }
     3497        /*
     3498        heuristic:
     3499          0 = keep all Gröbner bases in memory
     3500          1 = write all Gröbner bases to disk and read whenever necessary
     3501          2 = use a mixed heuristic, based on length of Gröbner bases
     3502        */
     3503          if( h!=NULL && h->Typ()==IDEAL_CMD && h->next!=NULL && h->next->Typ()==INT_CMD)
     3504          {
     3505                  int heuristic;
     3506                  heuristic=(int)(long)h->next->Data();
     3507                  ideal I=((ideal)h->Data());
     3508                  res->rtyp=IDEAL_CMD;
     3509                  res->data=(ideal) gfan(I,heuristic);
     3510                  return FALSE;
     3511          }
     3512          else
     3513          {
     3514                  WerrorS("Usage: system(\"gfan\",I,int)");
     3515                  return TRUE;
     3516          }
    34903517//res->rtyp=LIST_CMD;
    34913518//res->data= ???
    34923519
    3493 return FALSE; //Everything went fine
     3520// return FALSE; //Everything went fine
    34943521}
    34953522else
Note: See TracChangeset for help on using the changeset viewer.