hadamardProduct(List) -- Hadamard product of a list of homogeneous ideals, or points

i1 : S = QQ[x,y,z,t];

i2 : I = ideal(random(1,S),random(1,S));

o2 : Ideal of S

i3 : J = ideal(random(1,S),random(1,S));

o3 : Ideal of S

i4 : L = {I,J};

i5 : hadamardProduct(L)

                    2                                                       2
o5 = ideal(97048224x  - 42121625x*y + 287249760x*z - 14791875y*z + 88905600z 
     ------------------------------------------------------------------------
     + 4761000x*t + 12420000z*t)

o5 : Ideal of S

i6 : P = point\{{1,2,3},{-1,1,1},{1,1/2,-1/3}}

                                                1    1
o6 = {Point{1, 2, 3}, Point{-1, 1, 1}, Point{1, -, - -}}
                                                2    3

o6 : List

i7 : hadamardProduct(P)

o7 = Point{-1, 1, -1}

o7 : Point