Changeset 8baa37 in git for Singular/LIB/JMBTest.lib

Timestamp:

Jan 24, 2014, 1:39:15 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

ee5e11e63c911034966a67782a24e7326c52abb1

Parents:

5c8e18ff3dc32f83461ed21cad1151a77366ed567661e1502f806195a6458595ba7e711664a932bb

Message:

Merge pull request #456 from surface-smoothers/improve.documentation.genus

improved genus documentation for 1-dim affine variety input

File:

• Singular/LIB/JMBTest.lib (modified) (16 diffs)

Singular/LIB/JMBTest.lib

@@ -47 +47 @@
 LIB "ring.lib";
 ////////////////////////////////////////////////////////////////////
- proc mod_init()
+proc mod_init()
 "USAGE:     mod_init();
 RETURN:   struct: jmp
@@ -59 +59 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc Terns(list G, int c)
+proc Terns(list G, int c)
 "USAGE:    Terns(G,c); G list, c int
 RETURN:   list: T
@@ -96 +96 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc VConst(list G, int c)
+proc VConst(list G, int c)
 "USAGE:    VConst(G, c); G list, c int
 RETURN:   list: V
@@ -215 +215 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc GJmpMins(jmp P, jmp Q)
+proc GJmpMins(jmp P, jmp Q)
 "USAGE:    GJmpMins(P,Q); P jmp, Q jmp
 RETURN:   int: d
@@ -270 +270 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc TernCompare(list A, list B, list G)
+proc TernCompare(list A, list B, list G)
 "USAGE:    TernCompare(A,B,C); A list, B list, G list
 RETURN:   int: d
@@ -327 +327 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc MinOfV(list V, list G)
+proc MinOfV(list V, list G)
 "USAGE:    Minimal(V,G); V list, G list
 RETURN:   int: R
@@ -371 +371 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc OrderingV(list V,list G,list R)
+proc OrderingV(list V,list G,list R)
 "USAGE:   OrderingV(V,G,R); V list, G list, R list
 RETURN:   list: R
@@ -441 +441 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc Multiply(list L, list G)
+proc Multiply(list L, list G)
 "USAGE:    moltiplica(L,G); L list, G list
 RETURN:   jmp: K
@@ -474 +474 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc IdealOfV(list V)
+proc IdealOfV(list V)
 "USAGE:    IdealOfV(V); V list
 RETURN:   ideal: I
@@ -519 +519 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc NewWeight(int n)
+proc NewWeight(int n)
 "USAGE:    NewWeight(n); n int
 RETURN:   intvec: u
@@ -533 +533 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc FinalVm(list V1 , list G1 , r)
+proc FinalVm(list V1 , list G1 ,def r)
 "USAGE:     FinalVm(V1, G1, r);  V1 list,  G1 list , r
 RETURN:   intvec: u
@@ -663 +663 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc ConstructorMain(list G, int c,r)
+proc ConstructorMain(list G, int c,def r)
 "USAGE:    Costruttore(G,c); G list, c int
 RETURN:   list: R
@@ -707 +707 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc EKCouples(jmp A, jmp B)
+proc EKCouples(jmp A, jmp B)
 "USAGE:    CoppiaEK(A,B); A list, B list
 RETURN:   list: L
@@ -761 +761 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc EKPolys(list G)
+proc EKPolys(list G)
 "USAGE:    PolysEK(G); G list
 RETURN:   list: EK, list: D
@@ -824 +824 @@
 }
 ////////////////////////////////////////////////////////////////////
- proc EKPolynomials(list EK, list G)
+proc EKPolynomials(list EK, list G)
 "USAGE:     EKPolynomials(EK,G); EK list, G list
 RETURN:   list: p
@@ -855 +855 @@
 }
 ////////////////////////////////////////////////////////////////////
-proc TestJMark(list G1,r)
+proc TestJMark(list G1,def r)
 "USAGE:    TestJMark(G);  G list
 RETURN:    int: i