//SINGULAR Example 3.4.6




LIB"random.lib";
ring R=0,(x,y,z),lp;
ideal I=xy,xz;
dim(std(I));

ideal M=ideal(sparsetriag(3,3,0,100)
                 *transpose(maxideal(1)));
M;

map phi=R,M;
ideal J=phi(I);   //the random coordinate change
J;