[Maxima] Help

Aleksas Domarkas aleksasd873 at gmail.com
Thu Jan 5 03:01:31 CST 2012


help to http://www.math.utexas.edu/pipermail/maxima/2012/027306.html

 A.Domarkas

 We draw  "Yin&yang".  See
http://en.wikipedia.org/wiki/Yin_and_yang

(%i1) load(draw)$
(%i2) wxdraw2d( proportional_axes=xy,
          x_voxel = 30,
          y_voxel = 30,
          fill_color = grey,
        region(y<=sqrt(-2*x-x^2) and x^2+y^2<=4, x,-2,2, y,-2,2),
        region(y<=-sqrt(2*x-x^2) and x^2+y^2<=4, x,-2,2, y,-2,2),
        color=black,
        implicit(x^2+y^2=4,x,-2,2, y,-2,2));
(%t2)  << Graphics >>
(%o2)

 "Yin&yang" :
(%i3) wxdraw2d(
proportional_axes=xy,
        x_voxel = 30,
        y_voxel = 30,
        fill_color = black,
        region(x>=-sqrt(-2*y-y^2) and x^2+y^2<=4, x,-2,2, y,-2,2),
        region(x>=sqrt(2*y-y^2) and x^2+y^2<=4, x,-2,2, y,-2,2),
        color=black,
        implicit(x^2+y^2=4,x,-2,2, y,-2,2),
        point_type =filled_circle,
        point_size=5,
        points([[0,1]]),
        color=white,
        points([[0,-1]])
);
(%t3)  << Graphics >>
(%o3)

Aleksas D.

 Aleksas D.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.math.utexas.edu/pipermail/maxima/attachments/20120105/8f247e24/attachment.html>


More information about the Maxima mailing list