i1 : R = QQ[a..d]; |
i2 : S = QQ[s,t]; |
i3 : F = map(R,matrix{{s^4,s^3*t,s*t^3,t^4}}) 4 3 3 4 o3 = map (S, R, {s , s t, s*t , t }) o3 : RingMap S <--- R |
i4 : kernel F 3 2 2 2 3 2 o4 = ideal (b*c - a*d, c - b*d , a*c - b d, b - a c) o4 : Ideal of R |