source: git/modules/pcv/pcv.mod @ 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%{
2/*
3 *  $Id$
4 *
5 *  Test mod fuer modgen
6 */
7
8#include <stdio.h>
9#include "Pcv.h"
10%}
11
12
13// module="pcv";
14package="pcv";
15
16version="$Id$";
17info="
18LIBRARY: pcv.so  CONVERSION BETWEEN POLYS AND COEF VECTORS
19AUTHOR:  Mathias Schulze, email: mschulze@mathematik.uni-kl.de
20
21 MinDeg(p);      min deg of monomials of poly p
22 P2CV(l,d0,d1);  list of coef vectors from deg d0 to d1 of polys in list l
23 CV2P(l,d0,d1);  list of polys with coef vectors from deg d0 to d1 in list l
24 Dim(d0,d1);     number of monomials from deg d0 to d1
25 Basis(d0,d1);   list of monomials from deg d0 to d1
26";
27
28cxxsource = Pcv.cc;
29
30%procedures
31
32
33int MinDeg(poly p) {
34   %declaration;
35   %typecheck;
36   %return(pcvMinDeg(p));
37}
38
39list P2CV(list pl,int d0,int d1) {
40  %declaration;
41
42  /* check if current RingHandle is set */
43  if(currRingHdl == NULL)
44  {
45    WerrorS("no ring active");
46    return TRUE;
47  }
48 
49  %typecheck;
50  %return(pcvP2CV(pl, d0, d1));
51}
52
53list CV2P(list pl,int d0,int d1)
54{
55  %declaration;
56
57  /* check if current RingHandle is set */
58  if(currRingHdl == NULL)
59  {
60    WerrorS("no ring active");
61    return TRUE;
62  }
63 
64  %typecheck;
65  %return(pcvCV2P(pl, d0, d1));
66}
67
68int Dim(int d0,int d1)
69{
70  %declaration;
71
72  /* check if current RingHandle is set */
73  if(currRingHdl == NULL)
74  {
75    WerrorS("no ring active");
76    return TRUE;
77  }
78 
79  %typecheck;
80  %return(pcvDim);
81}
82
83list Basis(int d0,int d1)
84{
85  %declaration;
86
87  /* check if current RingHandle is set */
88  if(currRingHdl == NULL)
89  {
90    WerrorS("no ring active");
91    return TRUE;
92  }
93 
94  %typecheck;
95  %return(pcvBasis);
96}
97
98// %%
99
Note: See TracBrowser for help on using the repository browser.