On Tue, 26 Jan 2010, aishen at free.fr wrote:
< ?
< 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)?
< ?
< http://www.sagenb.org/home/pub/1421/
<
<
Maxima has two functions to plot 2-d, plot2d and draw. Plot2d is the
more basic, but here is how to do it
plot2d ([[parametric, cos(t), sin(t), [t,-%pi,%pi], [nticks,80]],
[parametric, cos(t), 1-sin(t), [t,-%pi,%pi], [nticks,80]]],
[style,[lines,1,1],[lines,3,3]],
[x, -4/3, 4/3])$
Help can be found by entering
? plot2d
on the command line.
With draw:
scene1: gr2d(title="Ellipse+Circle",
nticks=30,
color="red",
parametric(2*cos(t),5*sin(t),t,0,2*%pi),
color="bluse",
parametric(cos(t),sin(t),t,0,2*%pi))$
draw(scene1)$
Leo
--
The University of Edinburgh is a charitable body, registered in
Scotland, with registration number SC005336.