Apart for being a mouthful of a one-liner, what would be wrong with :
plot(sqrt(-x^2+2*abs(x))*sgn(-x),[x,-2,2] ,figsize=4,
xmin=-2, xmax=2, ymin=-2, ymax=2, aspect_ratio=1, axes=False,
fill=-sqrt(4-x^2), color="black", fillcolor="black", fillalpha=1) +
plot(sqrt(-x^2+2*abs(x))*sgn(-x),[x,-2,2], figsize=4
xmin=-2, xmax=2, ymin=-2, ymax=2, aspect_ratio=1,
axes=False,
fill=sqrt(4-x^2), color="red", fillcolor="red", fillalpha=1)
, pray tell me ?
Aand you don't have the to put up with the black border up the
positive half circle that the draw2d solution plots. An implicit plot
might be a better way to render this, BTW, but I dont' have it on the
tips of my fingers right now....
Note : the "figsize=4" bit is for emacs' sage_mode sake. It looks
nice'n smooth without it.
Since it's pure sage, it could be rendered even better in tikz ... if
I could find a way to coax matplot to use its built-in interface to
tikz. But the damn thing is quite opaque to me. Any idea ?
[ BTW : this (rendering via tikz) might be a nice enhancement for
sagetex users... Hmmm... I'll have to dive in the source code. Not
for now, alas... ]
HTH,
--
Emmanuel Charpentier
Le mardi 25 mars 2014 09:50:38 UTC+1, HG a écrit :
Hi,
I got this yin-yang from
http://riotorto.users.sourceforge.net/gnuplot/func2d/index.html
<http://riotorto.users.sourceforge.net/gnuplot/func2d/index.html>
(thanks for it !) :
draw2d(
proportional_axes = xy,
title = "Ying-Yang",
ellipse(0,0,2,2,0,360),
fill_color = black,
filled_func = -sqrt(4-x^^2 ),
explicit(if x < 0 then sqrt(-x^^2 -2*x) else -sqrt(-x^^2
+2*x),x,-2,2) ) $
But I need it in sagemath to get it well embedd in texmacs.
After long trying I didn't not success, my main problem is
conditions.
If a good soul could do it for me all my thanks.
Kind regards,
HG
I have done this which is not really good :
y=sqrt(4-x^2);b=y
r=sqrt(-x^2-2*x);q=-sqrt(-x^2+2*x)
e=solve(b==r,y)
c=plot(b,(y,-2,2),fill=True,fillcolor="black",color="black",figsize=3,aspect_ratio=1);
c+=plot(r,(y,-2,2),fill=True,fillcolor="red",color="red",figsize=3,aspect_ratio=1)
d=plot(-b,(y,-2,2),fill=True,fillcolor="red",color="red",figsize=3,aspect_ratio=1);
d+=plot(-r,(y,-2,2),fill=True,fillcolor="red",color="red",figsize=3,aspect_ratio=1);
p=plot(q,(y,-2,2),fill=True,fillcolor="red",color="red",figsize=3);
p+=plot(q,(y,-2,2),fill=True,fillcolor="black",color="red",figsize=3)
plot(c+d+p,figsize=2,aspect_ratio=1,axes=False)
--
You received this message because you are subscribed to a topic in
the Google Groups "sage-support" group.
To unsubscribe from this topic, visit
https://groups.google.com/d/topic/sage-support/s0uAGNAVWtw/unsubscribe.
To unsubscribe from this group and all its topics, send an email to
[email protected]
<mailto:[email protected]>.
To post to this group, send email to [email protected]
<mailto:[email protected]>.
Visit this group at http://groups.google.com/group/sage-support.
For more options, visit https://groups.google.com/d/optout.
