On Tue, 2010-01-26 at 15:13 +0100, aishen at free.fr wrote:
> In sage I have done this graph, is it possible to do the same with
> wxmaxima I haven't found how to manage two or few curves together
> thanks for help x = var('x') p1 =
> parametric_plot((cos(x),sin(x)),(x,0,pi),color='red') p2
> =parametric_plot((1/2-(1/2*cos(x)),1/2*sin(x)),(x,0,pi),color='black')
> p3 =parametric_plot((1/2*cos(x)-1/2,1/2*sin(x)),(x,-pi,0),color='red')
> p4 = parametric_plot((cos(x),sin(x)),(x,-pi,0),color='black') p5 =
> parametric_plot((1/2-(1/8*cos(x)),1/8*sin(x)),(x,-pi,pi),color='black') p6 = parametric_plot(((1/8*cos(x)-1/2),1/8*sin(x)),(x,-pi,pi),color='black') show(p1+p2+p3+p4+p5+p6, aspect_ratio=1,axes=false)
Hi,
Leo has already told you how to do it with plot2d and Mario showed you
how to use draw. I have not seen what Sage produces with this commands,
but my guess is that you should obtain the same with the following
Maxima (version 5.20) command:
plot2d([[parametric,cos(x),sin(x),[x,0,%pi]],
[parametric,1/2-(1/2*cos(x)),1/2*sin(x),[x,0,%pi]],
[parametric,1/2*cos(x)-1/2,1/2*sin(x),[x,-%pi,%pi]],
[parametric,cos(x),sin(x),[x,-%pi,0]],
[parametric,1/2-(1/8*cos(x)),1/8*sin(x),[x,-%pi,%pi]],
[parametric,1/8*cos(x)-1/2,1/8*sin(x),[x,-%pi,%pi]]],
[legend,false],
[axes,false],
[color,red,black,red,black,black,black],
[plot_format,xmaxima]);
(you might also remove the plot_format option but then the aspect ratio
won't be 1).
Regards,
Jaime