// by Maxim Leyenson // drawing astroid double Pi=2*arccos(0); clear_screen; clear_pixmap; width=400; height=400; color_file_format = jpg; filename="/library/astroid.jpg"; scale_x = 1/5; // -2 -- +2 scale_y = 1/5; // ------------------------------------- poly a = - 1/(4^(1/3))*(x^2 + y^2 - 1); // Segre's circle containing cusps poly b = 27^(1/2) * x*y; // degree 2 poly d = b^2 - 4 * a^3; // degree 6 // astroid is a discriminant poly f = (x^2 + y^2 - 1)^3 + 27 * x^2*y^2; // degree 6 // f = d curve = d; draw_curve; save_color_image;