| LIB "surf.lib";
// --------- plane curves ------------
ring rr0 = 0,(x1,x2),dp;
ideal I = x1^3 - x2^2;
plot(I);
ring rr1 = 0,(x,y,z),dp;
ideal I(1) = 2x2-1/2x3 +1-y+1;
plot(I(1));
// ---- Singular Logo --------------
poly logo = ((x+3)^3 + 2*(x+3)^2 - y^2)*(x^3 - y^2)*((x-3)^3-2*(x-3)^2-y^2);
plot(logo);
// --------- implicit curves ------------
// implicit curves
ideal I(1) = y,-x2;
plot(I(1));
ideal I(2) = x2,-y2 +4;
plot(I(2));
//the lemniscate
ideal I(3) = x4+2x2y2 + y4, x2-y2;
plot(I(3));
// ----------- surfaces -------------------
ideal J(1) = 3xy4 + 2xy2, x5y3 + x + y6,10x2;
plot(J(1));
// Steiner surface
ideal J(2) = x^2*y^2+x^2*z^2+y^2*z^2-17*x*y*z;
plot(J(2));
plot(x*(x2-y2)+z2);
// E7
plot(x^3-x*y^3+z^2);
// Whitney umbrella
plot(z^2-x^2*y);
|