El mar, 26-01-2010 a las 15:13 +0100, aishen at free.fr escribi?:
>
> Hi,
> 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)
>
load("draw")$
draw2d(
proportional_axes = xy,
color = "red",
parametric(cos(x),sin(x),x,0,%pi),
parametric(1/2*cos(x)-1/2,1/2*sin(x),x,-%pi,0),
color = "black",
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),
parametric(1/2-(1/2*cos(x)),1/2*sin(x),x,0,%pi) )$
See also the following options: axis_bottom, axis_left, axis_top,
axis_right, xtics, ytics, and terminal.